BHLZPRI.m

BHLZPRI ; cmi/sitka/maw - BHL File Inbound ZPR Segment ; 

 ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 ;

 ;this routine will file the inbound ZPR segment, it is called from

 ;BHLPR1I

 ;

 Q

 ;

DEN ;EP - dental procedure

 N BHLR

 S BHLR="ZPR"

 S BHLNOU=$G(@BHLTMP@(BHLDA,1))

 S BHLOPS=$P($G(@BHLTMP@(BHLDA,2)),CS,2)

 S BHLTS=$G(@BHLTMP@(BHLDA,3))

 S APCDALVR("APCDTNOU")=BHLNOU

 S APCDALVR("APCDTOS")=BHLOPS

 S APCDALVR("APCDTSUR")=BHLTS

 Q

 ;

PRC ;EP - procedure

 S BHLPVN=$G(@BHLTMP@(BHLDA,4))

 S BHLINF=$G(@BHLTMP@(BHLDA,5))

 S BHLAA=$G(@BHLTMP@(BHLDA,6))

 S BHLASA=$P($G(@BHLTMP@(BHLDA,7)),CS,2)

 S BHLPRC=$P($G(@BHLTMP@(BHLDA,8)),CS)

 S APCDALVR("APCDTNQ")=BHLPVN

 S APCDALVR("APCDINF")=BHLINF

 S APCDALVR("APCDTAA")=BHLAA

 S APCDALVR("APCDTAPC")=BHLASA

 S APCDALVR("APCDTCPT")=BHLPRC

 Q

 ;

BHLZPRI   ; cmi/sitka/maw - BHL File Inbound ZPR Segment ; 

 +1       ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 +2       ;

 +3       ;this routine will file the inbound ZPR segment, it is called from

 +4       ;BHLPR1I

 +5       ;

 +6        QUIT 

 +7       ;

DEN       ;EP - dental procedure

 +1        NEW BHLR

 +2        SET BHLR="ZPR"

 +3        SET BHLNOU=$GET(@BHLTMP@(BHLDA,1))

 +4        SET BHLOPS=$PIECE($GET(@BHLTMP@(BHLDA,2)),CS,2)

 +5        SET BHLTS=$GET(@BHLTMP@(BHLDA,3))

 +6        SET APCDALVR("APCDTNOU")=BHLNOU

 +7        SET APCDALVR("APCDTOS")=BHLOPS

 +8        SET APCDALVR("APCDTSUR")=BHLTS

 +9        QUIT 

 +10      ;

PRC       ;EP - procedure

 +1        SET BHLPVN=$GET(@BHLTMP@(BHLDA,4))

 +2        SET BHLINF=$GET(@BHLTMP@(BHLDA,5))

 +3        SET BHLAA=$GET(@BHLTMP@(BHLDA,6))

 +4        SET BHLASA=$PIECE($GET(@BHLTMP@(BHLDA,7)),CS,2)

 +5        SET BHLPRC=$PIECE($GET(@BHLTMP@(BHLDA,8)),CS)

 +6        SET APCDALVR("APCDTNQ")=BHLPVN

 +7        SET APCDALVR("APCDINF")=BHLINF

 +8        SET APCDALVR("APCDTAA")=BHLAA

 +9        SET APCDALVR("APCDTAPC")=BHLASA

 +10       SET APCDALVR("APCDTCPT")=BHLPRC

 +11       QUIT 

 +12      ;