IS00003F ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
;Part 7
;Copyright 2002 SAIC
EN D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
I 'MATCH,LINE?1"S"1"T".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""ST1"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""ST2"")")=$$PIECE^INHU(.LINE,DELIM,3)
Q:MATCH
Q
P1 D:'INVS MC^INHS
;Entering TRANS section.
;IF $D(@INV@("ST1"))
I $D(@INV@("ST1"))
D:$T
.S (INX,X)=$G(@INV@("ST1"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ST1")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ST1' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ST2"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ST2")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ST2' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.Q
;IF $D(@INV@("BPR1"))
I $D(@INV@("BPR1"))
D:$T
.S (INX,X)=$G(@INV@("BPR1"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("BPR1")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'BPR1' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("BPR2"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("BPR2")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'BPR2' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("BPR3"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("BPR3")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'BPR3' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("BPR4"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("BPR4")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'BPR4' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("BPR5"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("BPR5")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'BPR5' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("BPR6"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("BPR6")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'BPR6' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("BPR7"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("BPR7")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'BPR7' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("BPR8"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("BPR8")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'BPR8' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("BPR9"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("BPR9")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'BPR9' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("BPR10"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("BPR10")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'BPR10' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("BPR11"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("BPR11")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'BPR11' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("BPR12"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("BPR12")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'BPR12' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("BPR13"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("BPR13")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'BPR13' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("BPR14"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("BPR14")=$G(X)
9 .D EN^IS00003G
G R1^IS00003G
IS00003F ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
+1 ;Part 7
+2 ;Copyright 2002 SAIC
EN DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+1 IF 'MATCH
IF LINE?1"S"1"T".ANPC
SET DO=1
SET MATCH=1
+2 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+3 IF DO
SET @("@INV@(""ST1"")")=$$PIECE^INHU(.LINE,DELIM,2)
+4 IF DO
SET @("@INV@(""ST2"")")=$$PIECE^INHU(.LINE,DELIM,3)
+5 IF MATCH
QUIT
+6 QUIT
P1 IF 'INVS
DO MC^INHS
+1 ;Entering TRANS section.
+2 ;IF $D(@INV@("ST1"))
+3 IF $DATA(@INV@("ST1"))
+4 IF $TEST
Begin DoDot:1
+5 SET (INX,X)=$GET(@INV@("ST1"))
+6 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+7 SET @INV@("ST1")=$GET(X)
+8 IF '$DATA(X)
DO ERROR^INHS("Variable 'ST1' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+9 KILL DXS
+10 SET (INX,X)=$GET(@INV@("ST2"))
+11 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+12 SET @INV@("ST2")=$GET(X)
+13 IF '$DATA(X)
DO ERROR^INHS("Variable 'ST2' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+14 KILL DXS
+15 QUIT
End DoDot:1
+16 ;IF $D(@INV@("BPR1"))
+17 IF $DATA(@INV@("BPR1"))
+18 IF $TEST
Begin DoDot:1
+19 SET (INX,X)=$GET(@INV@("BPR1"))
+20 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+21 SET @INV@("BPR1")=$GET(X)
+22 IF '$DATA(X)
DO ERROR^INHS("Variable 'BPR1' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+23 KILL DXS
+24 SET (INX,X)=$GET(@INV@("BPR2"))
+25 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+26 SET @INV@("BPR2")=$GET(X)
+27 IF '$DATA(X)
DO ERROR^INHS("Variable 'BPR2' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+28 KILL DXS
+29 SET (INX,X)=$GET(@INV@("BPR3"))
+30 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+31 SET @INV@("BPR3")=$GET(X)
+32 IF '$DATA(X)
DO ERROR^INHS("Variable 'BPR3' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+33 KILL DXS
+34 SET (INX,X)=$GET(@INV@("BPR4"))
+35 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+36 SET @INV@("BPR4")=$GET(X)
+37 IF '$DATA(X)
DO ERROR^INHS("Variable 'BPR4' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+38 KILL DXS
+39 SET (INX,X)=$GET(@INV@("BPR5"))
+40 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+41 SET @INV@("BPR5")=$GET(X)
+42 IF '$DATA(X)
DO ERROR^INHS("Variable 'BPR5' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+43 KILL DXS
+44 SET (INX,X)=$GET(@INV@("BPR6"))
+45 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+46 SET @INV@("BPR6")=$GET(X)
+47 IF '$DATA(X)
DO ERROR^INHS("Variable 'BPR6' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+48 KILL DXS
+49 SET (INX,X)=$GET(@INV@("BPR7"))
+50 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+51 SET @INV@("BPR7")=$GET(X)
+52 IF '$DATA(X)
DO ERROR^INHS("Variable 'BPR7' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+53 KILL DXS
+54 SET (INX,X)=$GET(@INV@("BPR8"))
+55 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+56 SET @INV@("BPR8")=$GET(X)
+57 IF '$DATA(X)
DO ERROR^INHS("Variable 'BPR8' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+58 KILL DXS
+59 SET (INX,X)=$GET(@INV@("BPR9"))
+60 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+61 SET @INV@("BPR9")=$GET(X)
+62 IF '$DATA(X)
DO ERROR^INHS("Variable 'BPR9' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+63 KILL DXS
+64 SET (INX,X)=$GET(@INV@("BPR10"))
+65 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+66 SET @INV@("BPR10")=$GET(X)
+67 IF '$DATA(X)
DO ERROR^INHS("Variable 'BPR10' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+68 KILL DXS
+69 SET (INX,X)=$GET(@INV@("BPR11"))
+70 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+71 SET @INV@("BPR11")=$GET(X)
+72 IF '$DATA(X)
DO ERROR^INHS("Variable 'BPR11' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+73 KILL DXS
+74 SET (INX,X)=$GET(@INV@("BPR12"))
+75 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+76 SET @INV@("BPR12")=$GET(X)
+77 IF '$DATA(X)
DO ERROR^INHS("Variable 'BPR12' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+78 KILL DXS
+79 SET (INX,X)=$GET(@INV@("BPR13"))
+80 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+81 SET @INV@("BPR13")=$GET(X)
+82 IF '$DATA(X)
DO ERROR^INHS("Variable 'BPR13' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+83 KILL DXS
+84 SET (INX,X)=$GET(@INV@("BPR14"))
+85 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+86 SET @INV@("BPR14")=$GET(X)
9 DO EN^IS00003G
End DoDot:1
+1 GOTO R1^IS00003G
