IS00003U ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
;Part 22
;Copyright 2002 SAIC
EN 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))
..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
.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
;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
..S (INX,X)=@INV@("PER2",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("PER2",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER2' 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@("PER3",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("PER3",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("PER3",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER3' 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@("PER4",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("PER4",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("PER4",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER4' 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@("PER5",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("PER5",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("PER5",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER5' 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@("PER6",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("PER6",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("PER6",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER6' 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@("PER7",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("PER7",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("PER7",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER7' 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@("PER8",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("PER8",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("PER8",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER8' 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))
9 ..D EN^IS00003V
.D x2^IS00003V
G x1^IS00003V
IS00003U ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
+1 ;Part 22
+2 ;Copyright 2002 SAIC
EN IF $DATA(@INV@("DTM1"))
+1 IF $TEST
Begin DoDot:1
+2 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("DTM1",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+3 SET (INX,X)=@INV@("DTM1",INI(1))
+4 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+5 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)
+6 QUIT
End DoDot:2
+7 KILL DXS
+8 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("DTM2",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+9 SET (INX,X)=@INV@("DTM2",INI(1))
+10 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+11 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)
+12 QUIT
End DoDot:2
+13 KILL DXS
+14 QUIT
End DoDot:1
+15 ;IF $D(@INV@("PER1"))
+16 IF $DATA(@INV@("PER1"))
+17 IF $TEST
Begin DoDot:1
+18 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("PER1",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+19 SET (INX,X)=@INV@("PER1",INI(1))
+20 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+21 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)
+22 QUIT
End DoDot:2
+23 KILL DXS
+24 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("PER2",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+25 SET (INX,X)=@INV@("PER2",INI(1))
+26 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+27 SET @INV@("PER2",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'PER2' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+28 QUIT
End DoDot:2
+29 KILL DXS
+30 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("PER3",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+31 SET (INX,X)=@INV@("PER3",INI(1))
+32 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+33 SET @INV@("PER3",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'PER3' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+34 QUIT
End DoDot:2
+35 KILL DXS
+36 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("PER4",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+37 SET (INX,X)=@INV@("PER4",INI(1))
+38 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+39 SET @INV@("PER4",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'PER4' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+40 QUIT
End DoDot:2
+41 KILL DXS
+42 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("PER5",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+43 SET (INX,X)=@INV@("PER5",INI(1))
+44 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+45 SET @INV@("PER5",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'PER5' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+46 QUIT
End DoDot:2
+47 KILL DXS
+48 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("PER6",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+49 SET (INX,X)=@INV@("PER6",INI(1))
+50 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+51 SET @INV@("PER6",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'PER6' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+52 QUIT
End DoDot:2
+53 KILL DXS
+54 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("PER7",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+55 SET (INX,X)=@INV@("PER7",INI(1))
+56 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+57 SET @INV@("PER7",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'PER7' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+58 QUIT
End DoDot:2
+59 KILL DXS
+60 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("PER8",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+61 SET (INX,X)=@INV@("PER8",INI(1))
+62 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+63 SET @INV@("PER8",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'PER8' 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 QUIT
End DoDot:1
+67 ;IF $D(@INV@("AMT1"))
+68 IF $DATA(@INV@("AMT1"))
+69 IF $TEST
Begin DoDot:1
+70 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("AMT1",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+71 SET (INX,X)=@INV@("AMT1",INI(1))
+72 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+73 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)
+74 QUIT
End DoDot:2
+75 KILL DXS
+76 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("AMT2",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+77 SET (INX,X)=@INV@("AMT2",INI(1))
9 DO EN^IS00003V
End DoDot:2
+1 DO x2^IS00003V
End DoDot:1
+2 GOTO x1^IS00003V
