DVBACREM ;ALB/RTW - REMARKS SENT TO CONTRACTORS;05/27/2015
 ;;2.7;AMIE;**192**;Apr 10, 1995;Build 15
 ; At WPGET This routine gets remarks sent to contractors,(from global 396.4),for a 2507 Exam Reqiest
 ; At WPSET This routine sets remarks sent to contractors,(from global 396.4),for a 2507 Exam Request 
 
Q  ;no direct entry
 ;
WPGET(DVBADATA,DVBEIEN) ;
 ;RPC: DVBA CAPRI GETCONTREMARKS
 
DVBCR
 
^TMP("DVBA",$J)
 
X=0
 
DVBCR=0 F  S DVBCR=$O(^DVB(396.4,DVBEIEN,6,DVBCR)) Q:'DVBCR  D
 
DVBARMKS=$G(^DVB(396.4,DVBEIEN,6,DVBCR,0))
 . 
^TMP("DVBA",$J,DVBCR)=DVBARMKS
 
DVBCNT=0,DVBCNA=0 F  S DVBCNA=$O(^TMP("DVBA",$J,DVBCNA)) Q:DVBCNA=""  D
 
DVBAREM=$G(^TMP("DVBA",$J,DVBCNA))
 . 
DVBADATA(DVBCNT)=DVBAREM
 
DVBCNT=DVBCNT+1
 
DVBCA,DVBCNT,DVBAREM,DVBARMKS,X
 
RESULT=$NA(^TMP("DVBA",$J))
 
Q
 
;
WPSET(RESULT,DVBRIEN,DVBEIEN,DVBDATA) ;RPC: DVBA CAPRI SETCONTREMARKS
 ;DVBEIEN exam ien(s) example ** DVBEIEN="12736^12737^12738"
 ;DVBPEIN is the individual IENs pieced out.
 
^TMP("DVBA",$J)
 
DVBPIEN=0 DVBI=1:1 DVBPIEN=$P(DVBEIEN,U,DVBIQ:'DVBPIEN  D
 
WPDATA
 
DVBI,DVBRIEN,DVBPIEN,DVBCNT,DVBCNA
 
Q
WPDATA ;
 
DVBLINE="",DVBCNT=1 F  S DVBLINE=$O(DVBDATA(DVBLINE)) Q:DVBLINE=""  D
 
.^TMP("DVBA",$J,"WP",DVBCNT)=$G(DVBDATA(DVBLINE))
 .
DVBCNT=DVBCNT+1
 
D0=DVBPIEN
 
WP^DIE(396.4,DVBPIEN,103,"K","^TMP(""DVBA"",$J,""WP"")")
 
RESULT=$NA(^TMP("DVB",$J))
 
D0,DVBLINE,DVBCNT
 
Q