DVBAB89 ;GT-CAPRI FULL ;05/10/02
 ;;2.7;AMIE;**42**;Apr 10, 1995
 ;
 ;
START(MSG,DFN) ;CALLED BY REMOTE PROCEDURE DVBAB SURGERY CASE
 ;Parameters
 ;=============
 ; MSG : Output - data global ^TMP("SURGERY")
 ; DFN : Patient Identification Number
 ;
 
^TMP("DVBSURGERY",$J)
 
COUNT,VAR VAR="",COUNT=0
 
'$D(^DPT(DFN,0)) ^TMP("DVBSURGERY",$J,COUNT)="Not a valid patient" Q
 I $D
(^SRF("B",DFN)) D
 
F  S VAR=$O(^SRF("B",DFN,VAR)) Q:VAR=""  D
 
. . DVBSROP=$P(^SRF(VAR,"OP"),"^",1)
 . . 
^DVBASRP1
 . . 
^TMP("DVBSURGERY",$J,COUNT)=VAR_"^"_$P(^SRF(VAR,0),"^",9)_"^"_DVBSROP_$C(13)
 . . 
COUNT=COUNT+1
 
MSG=$NA(^TMP("DVBSURGERY",$J))
 
Q
 
;
XDA(MSG,DFN) ;CALLED BY REMOTE PROCEDURE DVBAB ORIGINAL PROCESSING DATE
 
^TMP("REPRINT",$J)
 
VAR,COUNT
 
'$D(DFN^TMP("REPRINT",$J,COUNT)="0^Undefined Patient IEN" Q
 S 
DIC=2,DIC(0)="NZX",X=DFN ^DIC Y<0 D
 
^TMP("REPRINT",$J,COUNT)="0^Invalid Patient Name." Q
 S 
VAR="",COUNT=0
 
I $D(^DVB(396,"B",DFN)) D
 
F  S VAR=$O(^DVB(396,"B",DFN,VAR)) Q:VAR=""  D
 
. . I $D(^DVB(396,VAR,4)),$P(^DVB(396,VAR,4),U,4)]"",$D(^DVB(396,VAR,2)),$P(^DVB(396,VAR,2),U,10)'="L",$D(^DPT($P(^DVB(396,VAR,0),U,1),0)) D
 
. . . ^TMP("REPRINT",$J,COUNT)=VAR_"^"_$P(^DVB(396,VAR,4),"^",2)_$C(13)
 . . . 
COUNT=COUNT+1
 
MSG=$NA(^TMP("REPRINT",$J))
 
Q