BHLRXD.m

BHLRXD ; cmi/sitka/maw - GIS Supplement for RXD segment ; 

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

 ;

 ;

 ;this routine will populate data necessary for the RXD segment

 ;

MAIN ;-- this is the main driver

 S BHL("SIG")=$$VAL^XBDIQ1(9000010.14,INDA,.05)

 S BHL("QTY")=$$VALI^XBDIQ1(9000010.14,INDA,.06)

 S BHL("DP")=$$VALI^XBDIQ1(9000010.14,INDA,.07)

 S BHL("ORCTQ")=BHL("SIG")_CS_BHL("QTY")_CS_BHL("DP")

 Q

 ;

BHLRXD    ; cmi/sitka/maw - GIS Supplement for RXD segment ; 

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

 +2       ;

 +3       ;

 +4       ;this routine will populate data necessary for the RXD segment

 +5       ;

MAIN      ;-- this is the main driver

 +1        SET BHL("SIG")=$$VAL^XBDIQ1(9000010.14,INDA,.05)

 +2        SET BHL("QTY")=$$VALI^XBDIQ1(9000010.14,INDA,.06)

 +3        SET BHL("DP")=$$VALI^XBDIQ1(9000010.14,INDA,.07)

 +4        SET BHL("ORCTQ")=BHL("SIG")_CS_BHL("QTY")_CS_BHL("DP")

 +5        QUIT 

 +6       ;