BHLZRAI.m

BHLZRAI ; cmi/sitka/maw - BHL File Inbound ZRA Segment ; 

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

 ;

 ;this routine files the inbound IHS specific ZRA segment

 ;

 Q

 ;

VIMM ;EP - v immunization

 N BHLR

 S BHLR="ZRA"

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

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

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

 S APCDALVR("APCDTSER")=BHLSER

 S APCDALVR("APCDTREC")=BHLREA

 S APCDALVR("APCDTCON")=BHLCON

 Q

 ;

BHLZRAI   ; cmi/sitka/maw - BHL File Inbound ZRA Segment ; 

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

 +2       ;

 +3       ;this routine files the inbound IHS specific ZRA segment

 +4       ;

 +5        QUIT 

 +6       ;

VIMM      ;EP - v immunization

 +1        NEW BHLR

 +2        SET BHLR="ZRA"

 +3        SET BHLSER=$PIECE($GET(@BHLTMP@(BHLDA,1)),CS,2)

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

 +5        SET BHLCON=$PIECE($GET(@BHLTMP@(BHLDA,3)),CS,2)

 +6        SET APCDALVR("APCDTSER")=BHLSER

 +7        SET APCDALVR("APCDTREC")=BHLREA

 +8        SET APCDALVR("APCDTCON")=BHLCON

 +9        QUIT 

 +10      ;