IS00003O ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
;Part 16
;Copyright 2002 SAIC
EN 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
k2 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
k1 ;IF $D(@INV@("NM11"))
I $D(@INV@("NM11"))
D:$T
.S (INX,X)=$G(@INV@("NM11"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("NM11")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'NM11' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("NM12"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("NM12")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'NM12' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("NM13"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("NM13")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'NM13' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("NM14"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("NM14")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'NM14' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("NM15"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("NM15")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'NM15' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("NM16"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("NM16")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'NM16' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("NM17"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("NM17")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'NM17' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("NM18"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("NM18")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'NM18' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("NM19"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("NM19")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'NM19' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.Q
;IF $D(@INV@("NM11"))
I $D(@INV@("NM11"))
D:$T
.S (INX,X)=$G(@INV@("NM11"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("NM11")=$G(X)
9 .D EN^IS00003P
G m1^IS00003P
IS00003O ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
+1 ;Part 16
+2 ;Copyright 2002 SAIC
EN IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+1 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)
+2 QUIT
k2 KILL DXS
+1 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("CAS16",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+2 SET (INX,X)=@INV@("CAS16",INI(1))
+3 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+4 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)
+5 QUIT
End DoDot:1
+6 KILL DXS
+7 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("CAS17",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+8 SET (INX,X)=@INV@("CAS17",INI(1))
+9 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+10 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)
+11 QUIT
End DoDot:1
+12 KILL DXS
+13 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("CAS18",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+14 SET (INX,X)=@INV@("CAS18",INI(1))
+15 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+16 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)
+17 QUIT
End DoDot:1
+18 KILL DXS
+19 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("CAS19",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+20 SET (INX,X)=@INV@("CAS19",INI(1))
+21 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+22 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)
+23 QUIT
End DoDot:1
+24 KILL DXS
+25 QUIT
k1 ;IF $D(@INV@("NM11"))
+1 IF $DATA(@INV@("NM11"))
+2 IF $TEST
Begin DoDot:1
+3 SET (INX,X)=$GET(@INV@("NM11"))
+4 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+5 SET @INV@("NM11")=$GET(X)
+6 IF '$DATA(X)
DO ERROR^INHS("Variable 'NM11' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+7 KILL DXS
+8 SET (INX,X)=$GET(@INV@("NM12"))
+9 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+10 SET @INV@("NM12")=$GET(X)
+11 IF '$DATA(X)
DO ERROR^INHS("Variable 'NM12' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+12 KILL DXS
+13 SET (INX,X)=$GET(@INV@("NM13"))
+14 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+15 SET @INV@("NM13")=$GET(X)
+16 IF '$DATA(X)
DO ERROR^INHS("Variable 'NM13' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+17 KILL DXS
+18 SET (INX,X)=$GET(@INV@("NM14"))
+19 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+20 SET @INV@("NM14")=$GET(X)
+21 IF '$DATA(X)
DO ERROR^INHS("Variable 'NM14' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+22 KILL DXS
+23 SET (INX,X)=$GET(@INV@("NM15"))
+24 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+25 SET @INV@("NM15")=$GET(X)
+26 IF '$DATA(X)
DO ERROR^INHS("Variable 'NM15' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+27 KILL DXS
+28 SET (INX,X)=$GET(@INV@("NM16"))
+29 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+30 SET @INV@("NM16")=$GET(X)
+31 IF '$DATA(X)
DO ERROR^INHS("Variable 'NM16' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+32 KILL DXS
+33 SET (INX,X)=$GET(@INV@("NM17"))
+34 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+35 SET @INV@("NM17")=$GET(X)
+36 IF '$DATA(X)
DO ERROR^INHS("Variable 'NM17' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+37 KILL DXS
+38 SET (INX,X)=$GET(@INV@("NM18"))
+39 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+40 SET @INV@("NM18")=$GET(X)
+41 IF '$DATA(X)
DO ERROR^INHS("Variable 'NM18' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+42 KILL DXS
+43 SET (INX,X)=$GET(@INV@("NM19"))
+44 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+45 SET @INV@("NM19")=$GET(X)
+46 IF '$DATA(X)
DO ERROR^INHS("Variable 'NM19' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+47 KILL DXS
+48 QUIT
End DoDot:1
+49 ;IF $D(@INV@("NM11"))
+50 IF $DATA(@INV@("NM11"))
+51 IF $TEST
Begin DoDot:1
+52 SET (INX,X)=$GET(@INV@("NM11"))
+53 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+54 SET @INV@("NM11")=$GET(X)
9 DO EN^IS00003P
End DoDot:1
+1 GOTO m1^IS00003P
