BHLPD1I.m

BHLPD1I ; cmi/sitka/maw - BHL Process Inbound PD1 Segment ;

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

 ;

 ;this routine will file data from the inbound PD1 segment

 ;

PROCESS ;-- this is the processing event

 S BHLDA=0 F  S BHLDA=$O(@BHLTMP@(BHLDA)) Q:BHLDA=""  D

 . S BHLP=$G(@BHLTMP@(BHLDA,4))

 . S BHLPN=$P(BHLP,"~",2)

 . S DIC=200,DIC(0)="MXZ",X=BHLPN D ^DIC

 . I Y<0 S BHLPN=""

 . S BHLFL=9000001,BHLFLD=.14,BHLVAL=BHLPN,BHLX=BHLPAT X BHLDIE

 Q

 ;

BHLPD1I   ; cmi/sitka/maw - BHL Process Inbound PD1 Segment ;

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

 +2       ;

 +3       ;this routine will file data from the inbound PD1 segment

 +4       ;

PROCESS   ;-- this is the processing event

 +1        SET BHLDA=0

           FOR 

               SET BHLDA=$ORDER(@BHLTMP@(BHLDA))

               IF BHLDA=""

                   QUIT 

               Begin DoDot:1

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

 +3                SET BHLPN=$PIECE(BHLP,"~",2)

 +4                SET DIC=200

                   SET DIC(0)="MXZ"

                   SET X=BHLPN

                   DO ^DIC

 +5                IF Y<0

                       SET BHLPN=""

 +6                SET BHLFL=9000001

                   SET BHLFLD=.14

                   SET BHLVAL=BHLPN

                   SET BHLX=BHLPAT

                   XECUTE BHLDIE

               End DoDot:1

 +7        QUIT 

 +8       ;