BHLZDXI.m

BHLZDXI ; cmi/sitka/maw - BHL File Inbound ZDX segment ; 

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

 ;

 ;this routine will file the IHS Specific ZDX segment, it is called

 ;from BHLDG1I

 ;

 Q

 ;

FILE ;EP - get the data and file it    

 N BHLR

 S BHLR="ZDX"

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

 S BHLSTG=$G(@BHLTMP@(BHLDA,2))

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

 S BHLCAU=$P($G(@BHLTMP@(BHLDA,4)),CS)

 S BHLFR=$P($G(@BHLTMP@(BHLDA,5)),CS)

 S BHLCOI=$P($G(@BHLTMP@(BHLDA,6)),CS)

 Q

 ;

BHLZDXI   ; cmi/sitka/maw - BHL File Inbound ZDX segment ; 

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

 +2       ;

 +3       ;this routine will file the IHS Specific ZDX segment, it is called

 +4       ;from BHLDG1I

 +5       ;

 +6        QUIT 

 +7       ;

FILE      ;EP - get the data and file it    

 +1        NEW BHLR

 +2        SET BHLR="ZDX"

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

 +4        SET BHLSTG=$GET(@BHLTMP@(BHLDA,2))

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

 +6        SET BHLCAU=$PIECE($GET(@BHLTMP@(BHLDA,4)),CS)

 +7        SET BHLFR=$PIECE($GET(@BHLTMP@(BHLDA,5)),CS)

 +8        SET BHLCOI=$PIECE($GET(@BHLTMP@(BHLDA,6)),CS)

 +9        QUIT 

 +10      ;