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