IS00003N ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
;Part 15
;Copyright 2002 SAIC
EN S @INV@("CAS3",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'CAS3' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
Q
k2 K DXS
S INI(1)=0 F S INI(1)=$O(@INV@("CAS4",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("CAS4",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("CAS4",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'CAS4' 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@("CAS5",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("CAS5",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("CAS5",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'CAS5' 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@("CAS6",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("CAS6",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("CAS6",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'CAS6' 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@("CAS7",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("CAS7",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("CAS7",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'CAS7' 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@("CAS8",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("CAS8",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("CAS8",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'CAS8' 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@("CAS9",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("CAS9",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("CAS9",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'CAS9' 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@("CAS10",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("CAS10",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("CAS10",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'CAS10' 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@("CAS11",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("CAS11",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("CAS11",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'CAS11' 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@("CAS12",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("CAS12",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("CAS12",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'CAS12' 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@("CAS13",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("CAS13",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("CAS13",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'CAS13' 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@("CAS14",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("CAS14",INI(1))
.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
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))
9 .D EN^IS00003O
G k2^IS00003O
IS00003N ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
+1 ;Part 15
+2 ;Copyright 2002 SAIC
EN SET @INV@("CAS3",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'CAS3' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+1 QUIT
k2 KILL DXS
+1 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("CAS4",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+2 SET (INX,X)=@INV@("CAS4",INI(1))
+3 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+4 SET @INV@("CAS4",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'CAS4' 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@("CAS5",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+8 SET (INX,X)=@INV@("CAS5",INI(1))
+9 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+10 SET @INV@("CAS5",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'CAS5' 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@("CAS6",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+14 SET (INX,X)=@INV@("CAS6",INI(1))
+15 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+16 SET @INV@("CAS6",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'CAS6' 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@("CAS7",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+20 SET (INX,X)=@INV@("CAS7",INI(1))
+21 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+22 SET @INV@("CAS7",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'CAS7' 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@("CAS8",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+26 SET (INX,X)=@INV@("CAS8",INI(1))
+27 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+28 SET @INV@("CAS8",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'CAS8' 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 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("CAS9",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+32 SET (INX,X)=@INV@("CAS9",INI(1))
+33 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+34 SET @INV@("CAS9",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'CAS9' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+35 QUIT
End DoDot:1
+36 KILL DXS
+37 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("CAS10",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+38 SET (INX,X)=@INV@("CAS10",INI(1))
+39 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+40 SET @INV@("CAS10",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'CAS10' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+41 QUIT
End DoDot:1
+42 KILL DXS
+43 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("CAS11",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+44 SET (INX,X)=@INV@("CAS11",INI(1))
+45 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+46 SET @INV@("CAS11",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'CAS11' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+47 QUIT
End DoDot:1
+48 KILL DXS
+49 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("CAS12",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+50 SET (INX,X)=@INV@("CAS12",INI(1))
+51 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+52 SET @INV@("CAS12",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'CAS12' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+53 QUIT
End DoDot:1
+54 KILL DXS
+55 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("CAS13",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+56 SET (INX,X)=@INV@("CAS13",INI(1))
+57 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+58 SET @INV@("CAS13",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'CAS13' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+59 QUIT
End DoDot:1
+60 KILL DXS
+61 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("CAS14",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+62 SET (INX,X)=@INV@("CAS14",INI(1))
+63 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+64 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)
+65 QUIT
End DoDot:1
+66 KILL DXS
+67 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("CAS15",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+68 SET (INX,X)=@INV@("CAS15",INI(1))
9 DO EN^IS00003O
End DoDot:1
+1 GOTO k2^IS00003O
