IS00003I ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
;Part 10
;Copyright 2002 SAIC
EN 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
b2 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
b1 ;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)
9 .D EN^IS00003J
G e1^IS00003J
IS00003I ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
+1 ;Part 10
+2 ;Copyright 2002 SAIC
EN SET (INX,X)=@INV@("PER2",INI(1))
+1 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+2 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)
+3 QUIT
b2 KILL DXS
+1 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("PER3",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+2 SET (INX,X)=@INV@("PER3",INI(1))
+3 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+4 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)
+5 QUIT
End DoDot:1
+6 KILL DXS
+7 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("PER4",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+8 SET (INX,X)=@INV@("PER4",INI(1))
+9 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+10 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)
+11 QUIT
End DoDot:1
+12 KILL DXS
+13 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("PER5",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+14 SET (INX,X)=@INV@("PER5",INI(1))
+15 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+16 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)
+17 QUIT
End DoDot:1
+18 KILL DXS
+19 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("PER6",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+20 SET (INX,X)=@INV@("PER6",INI(1))
+21 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+22 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)
+23 QUIT
End DoDot:1
+24 KILL DXS
+25 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("PER7",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+26 SET (INX,X)=@INV@("PER7",INI(1))
+27 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+28 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)
+29 QUIT
End DoDot:1
+30 KILL DXS
+31 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("PER8",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+32 SET (INX,X)=@INV@("PER8",INI(1))
+33 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+34 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)
+35 QUIT
End DoDot:1
+36 KILL DXS
+37 QUIT
b1 ;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)
9 DO EN^IS00003J
End DoDot:1
+1 GOTO e1^IS00003J
