IS00003X ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
;Part 25
;Copyright 2002 SAIC
EN I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("CAS14",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'CAS14' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
Q
AB2 K DXS
S INI(1)=0 F S INI(1)=$O(@INV@("CAS15",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("CAS15",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("CAS15",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'CAS15' 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@("CAS16",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("CAS16",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("CAS16",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'CAS16' 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@("CAS17",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("CAS17",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("CAS17",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'CAS17' 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@("CAS18",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("CAS18",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("CAS18",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'CAS18' 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@("CAS19",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("CAS19",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("CAS19",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'CAS19' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.Q
K DXS
Q
AB1 ;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@("AMT1"))
I $D(@INV@("AMT1"))
D:$T
.S INI(1)=0 F S INI(1)=$O(@INV@("AMT1",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("AMT1",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("AMT1",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'AMT1' 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@("AMT2",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("AMT2",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
9 ..D EN^IS00003Y
.D AE2^IS00003Y
G AE1^IS00003Y
IS00003X ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
+1 ;Part 25
+2 ;Copyright 2002 SAIC
EN IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+1 SET @INV@("CAS14",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'CAS14' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+2 QUIT
AB2 KILL DXS
+1 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("CAS15",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+2 SET (INX,X)=@INV@("CAS15",INI(1))
+3 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+4 SET @INV@("CAS15",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'CAS15' 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 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("CAS16",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+8 SET (INX,X)=@INV@("CAS16",INI(1))
+9 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+10 SET @INV@("CAS16",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'CAS16' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+11 QUIT
End DoDot:1
+12 KILL DXS
+13 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("CAS17",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+14 SET (INX,X)=@INV@("CAS17",INI(1))
+15 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+16 SET @INV@("CAS17",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'CAS17' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+17 QUIT
End DoDot:1
+18 KILL DXS
+19 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("CAS18",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+20 SET (INX,X)=@INV@("CAS18",INI(1))
+21 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+22 SET @INV@("CAS18",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'CAS18' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+23 QUIT
End DoDot:1
+24 KILL DXS
+25 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("CAS19",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+26 SET (INX,X)=@INV@("CAS19",INI(1))
+27 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+28 SET @INV@("CAS19",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'CAS19' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+29 QUIT
End DoDot:1
+30 KILL DXS
+31 QUIT
AB1 ;IF $D(@INV@("REF1"))
+1 IF $DATA(@INV@("REF1"))
+2 IF $TEST
Begin DoDot:1
+3 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("REF1",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+4 SET (INX,X)=@INV@("REF1",INI(1))
+5 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+6 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)
+7 QUIT
End DoDot:2
+8 KILL DXS
+9 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("REF2",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+10 SET (INX,X)=@INV@("REF2",INI(1))
+11 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+12 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)
+13 QUIT
End DoDot:2
+14 KILL DXS
+15 QUIT
End DoDot:1
+16 ;IF $D(@INV@("REF1"))
+17 IF $DATA(@INV@("REF1"))
+18 IF $TEST
Begin DoDot:1
+19 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("REF1",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+20 SET (INX,X)=@INV@("REF1",INI(1))
+21 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+22 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)
+23 QUIT
End DoDot:2
+24 KILL DXS
+25 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("REF2",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+26 SET (INX,X)=@INV@("REF2",INI(1))
+27 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+28 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)
+29 QUIT
End DoDot:2
+30 KILL DXS
+31 QUIT
End DoDot:1
+32 ;IF $D(@INV@("AMT1"))
+33 IF $DATA(@INV@("AMT1"))
+34 IF $TEST
Begin DoDot:1
+35 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("AMT1",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+36 SET (INX,X)=@INV@("AMT1",INI(1))
+37 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+38 SET @INV@("AMT1",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'AMT1' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+39 QUIT
End DoDot:2
+40 KILL DXS
+41 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("AMT2",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+42 SET (INX,X)=@INV@("AMT2",INI(1))
+43 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
9 DO EN^IS00003Y
End DoDot:2
+1 DO AE2^IS00003Y
End DoDot:1
+2 GOTO AE1^IS00003Y
