IS00003G ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
;Part 8
;Copyright 2002 SAIC
EN I '$D(X) D ERROR^INHS("Variable 'BPR14' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("BPR15"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("BPR15")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'BPR15' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("BPR16"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("BPR16")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'BPR16' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
Q
R1 ;IF $D(@INV@("TRN1"))
I $D(@INV@("TRN1"))
D:$T
.S (INX,X)=$G(@INV@("TRN1"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("TRN1")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'TRN1' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("TRN2"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("TRN2")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'TRN2' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("TRN3"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("TRN3")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'TRN3' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("TRN4"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("TRN4")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'TRN4' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.Q
;IF $D(@INV@("CUR1"))
I $D(@INV@("CUR1"))
D:$T
.S (INX,X)=$G(@INV@("CUR1"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("CUR1")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'CUR1' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("CUR2"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("CUR2")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'CUR2' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("CUR3"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("CUR3")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'CUR3' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.Q
;IF $D(@INV@("REF1"))
I $D(@INV@("REF1"))
D:$T
.S INI(1)=0 F S INI(1)=$O(@INV@("REF1",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("REF1",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("REF1",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'REF1' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.S INI(1)=0 F S INI(1)=$O(@INV@("REF2",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("REF2",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("REF2",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'REF2' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.Q
;IF $D(@INV@("REF1"))
I $D(@INV@("REF1"))
D:$T
.S INI(1)=0 F S INI(1)=$O(@INV@("REF1",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("REF1",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("REF1",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'REF1' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.S INI(1)=0 F S INI(1)=$O(@INV@("REF2",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("REF2",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("REF2",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'REF2' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.Q
;IF $D(@INV@("DTM1"))
I $D(@INV@("DTM1"))
D:$T
.S INI(1)=0 F S INI(1)=$O(@INV@("DTM1",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("DTM1",INI(1))
9 ..D EN^IS00003H
.D W2^IS00003H
G W1^IS00003H
IS00003G ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
+1 ;Part 8
+2 ;Copyright 2002 SAIC
EN IF '$DATA(X)
DO ERROR^INHS("Variable 'BPR14' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+1 KILL DXS
+2 SET (INX,X)=$GET(@INV@("BPR15"))
+3 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+4 SET @INV@("BPR15")=$GET(X)
+5 IF '$DATA(X)
DO ERROR^INHS("Variable 'BPR15' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+6 KILL DXS
+7 SET (INX,X)=$GET(@INV@("BPR16"))
+8 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+9 SET @INV@("BPR16")=$GET(X)
+10 IF '$DATA(X)
DO ERROR^INHS("Variable 'BPR16' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+11 KILL DXS
+12 QUIT
R1 ;IF $D(@INV@("TRN1"))
+1 IF $DATA(@INV@("TRN1"))
+2 IF $TEST
Begin DoDot:1
+3 SET (INX,X)=$GET(@INV@("TRN1"))
+4 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+5 SET @INV@("TRN1")=$GET(X)
+6 IF '$DATA(X)
DO ERROR^INHS("Variable 'TRN1' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+7 KILL DXS
+8 SET (INX,X)=$GET(@INV@("TRN2"))
+9 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+10 SET @INV@("TRN2")=$GET(X)
+11 IF '$DATA(X)
DO ERROR^INHS("Variable 'TRN2' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+12 KILL DXS
+13 SET (INX,X)=$GET(@INV@("TRN3"))
+14 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+15 SET @INV@("TRN3")=$GET(X)
+16 IF '$DATA(X)
DO ERROR^INHS("Variable 'TRN3' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+17 KILL DXS
+18 SET (INX,X)=$GET(@INV@("TRN4"))
+19 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+20 SET @INV@("TRN4")=$GET(X)
+21 IF '$DATA(X)
DO ERROR^INHS("Variable 'TRN4' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+22 KILL DXS
+23 QUIT
End DoDot:1
+24 ;IF $D(@INV@("CUR1"))
+25 IF $DATA(@INV@("CUR1"))
+26 IF $TEST
Begin DoDot:1
+27 SET (INX,X)=$GET(@INV@("CUR1"))
+28 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+29 SET @INV@("CUR1")=$GET(X)
+30 IF '$DATA(X)
DO ERROR^INHS("Variable 'CUR1' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+31 KILL DXS
+32 SET (INX,X)=$GET(@INV@("CUR2"))
+33 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+34 SET @INV@("CUR2")=$GET(X)
+35 IF '$DATA(X)
DO ERROR^INHS("Variable 'CUR2' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+36 KILL DXS
+37 SET (INX,X)=$GET(@INV@("CUR3"))
+38 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+39 SET @INV@("CUR3")=$GET(X)
+40 IF '$DATA(X)
DO ERROR^INHS("Variable 'CUR3' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+41 KILL DXS
+42 QUIT
End DoDot:1
+43 ;IF $D(@INV@("REF1"))
+44 IF $DATA(@INV@("REF1"))
+45 IF $TEST
Begin DoDot:1
+46 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("REF1",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+47 SET (INX,X)=@INV@("REF1",INI(1))
+48 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+49 SET @INV@("REF1",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'REF1' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+50 QUIT
End DoDot:2
+51 KILL DXS
+52 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("REF2",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+53 SET (INX,X)=@INV@("REF2",INI(1))
+54 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+55 SET @INV@("REF2",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'REF2' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+56 QUIT
End DoDot:2
+57 KILL DXS
+58 QUIT
End DoDot:1
+59 ;IF $D(@INV@("REF1"))
+60 IF $DATA(@INV@("REF1"))
+61 IF $TEST
Begin DoDot:1
+62 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("REF1",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+63 SET (INX,X)=@INV@("REF1",INI(1))
+64 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+65 SET @INV@("REF1",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'REF1' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+66 QUIT
End DoDot:2
+67 KILL DXS
+68 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("REF2",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+69 SET (INX,X)=@INV@("REF2",INI(1))
+70 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+71 SET @INV@("REF2",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'REF2' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+72 QUIT
End DoDot:2
+73 KILL DXS
+74 QUIT
End DoDot:1
+75 ;IF $D(@INV@("DTM1"))
+76 IF $DATA(@INV@("DTM1"))
+77 IF $TEST
Begin DoDot:1
+78 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("DTM1",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+79 SET (INX,X)=@INV@("DTM1",INI(1))
9 DO EN^IS00003H
End DoDot:2
+1 DO W2^IS00003H
End DoDot:1
+2 GOTO W1^IS00003H
