IS00018J ;Compiled from script 'Generated: HL IHS LAB R01 UNILAB IN-I' on AUG 14, 2006
;Part 11
;Copyright 2006 SAIC
EN S INI(2)=0 F S INI(2)=$O(@INV@("OBX13",INI(1),INI(2))) Q:'INI(2) S INI=INI(2) D
.S (INX,X)=@INV@("OBX13",INI(1),INI(2))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("OBX13",INI(1),INI(2))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBX13' failed input transform in iteration #"_INI(1)_","_INI(2)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.Q
Q
H4 K DXS
S INI(1)=0 F S INI(1)=$O(@INV@("OBX14",INI(1))) Q:'INI(1) S INI=INI(1) D
.S INI(2)=0 F S INI(2)=$O(@INV@("OBX14",INI(1),INI(2))) Q:'INI(2) S INI=INI(2) D
..S (INX,X)=@INV@("OBX14",INI(1),INI(2))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("OBX14",INI(1),INI(2))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBX14' failed input transform in iteration #"_INI(1)_","_INI(2)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.Q
K DXS
S INI(1)=0 F S INI(1)=$O(@INV@("OBX15",INI(1))) Q:'INI(1) S INI=INI(1) D
.S INI(2)=0 F S INI(2)=$O(@INV@("OBX15",INI(1),INI(2))) Q:'INI(2) S INI=INI(2) D
..S (INX,X)=@INV@("OBX15",INI(1),INI(2))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("OBX15",INI(1),INI(2))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBX15' failed input transform in iteration #"_INI(1)_","_INI(2)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.Q
K DXS
S INI(1)=0 F S INI(1)=$O(@INV@("OBX16",INI(1))) Q:'INI(1) S INI=INI(1) D
.S INI(2)=0 F S INI(2)=$O(@INV@("OBX16",INI(1),INI(2))) Q:'INI(2) S INI=INI(2) D
..S (INX,X)=@INV@("OBX16",INI(1),INI(2))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("OBX16",INI(1),INI(2))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBX16' failed input transform in iteration #"_INI(1)_","_INI(2)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.Q
K DXS
S INI(1)=0 F S INI(1)=$O(@INV@("OBX17",INI(1))) Q:'INI(1) S INI=INI(1) D
.S INI(2)=0 F S INI(2)=$O(@INV@("OBX17",INI(1),INI(2))) Q:'INI(2) S INI=INI(2) D
..S (INX,X)=@INV@("OBX17",INI(1),INI(2))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("OBX17",INI(1),INI(2))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBX17' failed input transform in iteration #"_INI(1)_","_INI(2)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.Q
K DXS
S INI(1)=0 F S INI(1)=$O(@INV@("OBX18",INI(1))) Q:'INI(1) S INI=INI(1) D
.S INI(2)=0 F S INI(2)=$O(@INV@("OBX18",INI(1),INI(2))) Q:'INI(2) S INI=INI(2) D
..S (INX,X)=@INV@("OBX18",INI(1),INI(2))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("OBX18",INI(1),INI(2))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBX18' failed input transform in iteration #"_INI(1)_","_INI(2)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.Q
K DXS
S INI(1)=0 F S INI(1)=$O(@INV@("OBX19",INI(1))) Q:'INI(1) S INI=INI(1) D
.S INI(2)=0 F S INI(2)=$O(@INV@("OBX19",INI(1),INI(2))) Q:'INI(2) S INI=INI(2) D
..S (INX,X)=@INV@("OBX19",INI(1),INI(2))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("OBX19",INI(1),INI(2))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBX19' failed input transform in iteration #"_INI(1)_","_INI(2)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.Q
K DXS
;IF $D(@INV@("NTE1"))
I $D(@INV@("NTE1"))
D:$T
.S INI(1)=0 F S INI(1)=$O(@INV@("NTE4",INI(1))) Q:'INI(1) S INI=INI(1) D
..S INI(2)=0 F S INI(2)=$O(@INV@("NTE4",INI(1),INI(2))) Q:'INI(2) S INI=INI(2) D
...S INI(3)=0 F S INI(3)=$O(@INV@("NTE4",INI(1),INI(2),INI(3))) Q:'INI(3) S INI=INI(3) D
....S (INX,X)=@INV@("NTE4",INI(1),INI(2),INI(3))
....I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
....S @INV@("NTE4",INI(1),INI(2),INI(3))=$G(X) I '$D(X) D ERROR^INHS("Variable 'NTE4' failed input transform in iteration #"_INI(1)_","_INI(2)_","_INI(3)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
....Q
...Q
..Q
.K DXS
.Q
Q
H3 Q
H2 Q
H1 ;Entering REQUIRED section.
I $D(@INV@("MSH1"))#2,$G(@INV@("MSH1"))="" S INREQERR=2 D KILL^INHVA1("MSH","HL FIELD SEPARATOR")
I $D(@INV@("MSH1"))#2,$G(@INV@("MSH2"))="" S INREQERR=2 D KILL^INHVA1("MSH","HL ENCODING CHARACTERS")
I $D(@INV@("MSH1"))#2,$G(@INV@("MSH9"))="" S INREQERR=2 D KILL^INHVA1("MSH","HL MESSAGE TYPE")
I $D(@INV@("MSH1"))#2,$G(@INV@("MSH10"))="" S INREQERR=2 D KILL^INHVA1("MSH","HL MESSAGE CONTROL ID")
I $D(@INV@("MSH1"))#2,$G(@INV@("MSH11"))="" S INREQERR=2 D KILL^INHVA1("MSH","HL PROCESSING ID")
I $D(@INV@("MSH1"))#2,$G(@INV@("MSH12"))="" S INREQERR=2 D KILL^INHVA1("MSH","HL VERSION ID")
Q:$G(INSTERR) $S($G(INREQERR)>INSTERR:INREQERR,1:INSTERR) D MAIN^BHLRLABU
I $G(INSTERR) Q $S($G(INREQERR)>INSTERR:INREQERR,1:INSTERR)
;Entering END section.
I $G(INSTERR) Q $S($G(INREQERR)>INSTERR:INREQERR,1:INSTERR)
K @INV,INV,INDA,DIPA Q +$G(INREQERR)
IS00018J ;Compiled from script 'Generated: HL IHS LAB R01 UNILAB IN-I' on AUG 14, 2006
+1 ;Part 11
+2 ;Copyright 2006 SAIC
EN SET INI(2)=0
FOR
SET INI(2)=$ORDER(@INV@("OBX13",INI(1),INI(2)))
IF 'INI(2)
QUIT
SET INI=INI(2)
Begin DoDot:1
+1 SET (INX,X)=@INV@("OBX13",INI(1),INI(2))
+2 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+3 SET @INV@("OBX13",INI(1),INI(2))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBX13' failed input transform in iteration #"_INI(1)_","_INI(2)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+4 QUIT
End DoDot:1
+5 QUIT
H4 KILL DXS
+1 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBX14",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+2 SET INI(2)=0
FOR
SET INI(2)=$ORDER(@INV@("OBX14",INI(1),INI(2)))
IF 'INI(2)
QUIT
SET INI=INI(2)
Begin DoDot:2
+3 SET (INX,X)=@INV@("OBX14",INI(1),INI(2))
+4 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+5 SET @INV@("OBX14",INI(1),INI(2))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBX14' failed input transform in iteration #"_INI(1)_","_INI(2)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+6 QUIT
End DoDot:2
+7 QUIT
End DoDot:1
+8 KILL DXS
+9 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBX15",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+10 SET INI(2)=0
FOR
SET INI(2)=$ORDER(@INV@("OBX15",INI(1),INI(2)))
IF 'INI(2)
QUIT
SET INI=INI(2)
Begin DoDot:2
+11 SET (INX,X)=@INV@("OBX15",INI(1),INI(2))
+12 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+13 SET @INV@("OBX15",INI(1),INI(2))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBX15' failed input transform in iteration #"_INI(1)_","_INI(2)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+14 QUIT
End DoDot:2
+15 QUIT
End DoDot:1
+16 KILL DXS
+17 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBX16",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+18 SET INI(2)=0
FOR
SET INI(2)=$ORDER(@INV@("OBX16",INI(1),INI(2)))
IF 'INI(2)
QUIT
SET INI=INI(2)
Begin DoDot:2
+19 SET (INX,X)=@INV@("OBX16",INI(1),INI(2))
+20 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+21 SET @INV@("OBX16",INI(1),INI(2))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBX16' failed input transform in iteration #"_INI(1)_","_INI(2)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+22 QUIT
End DoDot:2
+23 QUIT
End DoDot:1
+24 KILL DXS
+25 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBX17",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+26 SET INI(2)=0
FOR
SET INI(2)=$ORDER(@INV@("OBX17",INI(1),INI(2)))
IF 'INI(2)
QUIT
SET INI=INI(2)
Begin DoDot:2
+27 SET (INX,X)=@INV@("OBX17",INI(1),INI(2))
+28 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+29 SET @INV@("OBX17",INI(1),INI(2))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBX17' failed input transform in iteration #"_INI(1)_","_INI(2)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+30 QUIT
End DoDot:2
+31 QUIT
End DoDot:1
+32 KILL DXS
+33 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBX18",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+34 SET INI(2)=0
FOR
SET INI(2)=$ORDER(@INV@("OBX18",INI(1),INI(2)))
IF 'INI(2)
QUIT
SET INI=INI(2)
Begin DoDot:2
+35 SET (INX,X)=@INV@("OBX18",INI(1),INI(2))
+36 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+37 SET @INV@("OBX18",INI(1),INI(2))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBX18' failed input transform in iteration #"_INI(1)_","_INI(2)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+38 QUIT
End DoDot:2
+39 QUIT
End DoDot:1
+40 KILL DXS
+41 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("OBX19",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+42 SET INI(2)=0
FOR
SET INI(2)=$ORDER(@INV@("OBX19",INI(1),INI(2)))
IF 'INI(2)
QUIT
SET INI=INI(2)
Begin DoDot:2
+43 SET (INX,X)=@INV@("OBX19",INI(1),INI(2))
+44 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+45 SET @INV@("OBX19",INI(1),INI(2))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'OBX19' failed input transform in iteration #"_INI(1)_","_INI(2)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+46 QUIT
End DoDot:2
+47 QUIT
End DoDot:1
+48 KILL DXS
+49 ;IF $D(@INV@("NTE1"))
+50 IF $DATA(@INV@("NTE1"))
+51 IF $TEST
Begin DoDot:1
+52 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("NTE4",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+53 SET INI(2)=0
FOR
SET INI(2)=$ORDER(@INV@("NTE4",INI(1),INI(2)))
IF 'INI(2)
QUIT
SET INI=INI(2)
Begin DoDot:3
+54 SET INI(3)=0
FOR
SET INI(3)=$ORDER(@INV@("NTE4",INI(1),INI(2),INI(3)))
IF 'INI(3)
QUIT
SET INI=INI(3)
Begin DoDot:4
+55 SET (INX,X)=@INV@("NTE4",INI(1),INI(2),INI(3))
+56 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+57 SET @INV@("NTE4",INI(1),INI(2),INI(3))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'NTE4' failed input transform in iteration #"_INI(1)_","_INI(2)_","_INI(3)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+58 QUIT
End DoDot:4
+59 QUIT
End DoDot:3
+60 QUIT
End DoDot:2
+61 KILL DXS
+62 QUIT
End DoDot:1
+63 QUIT
H3 QUIT
H2 QUIT
H1 ;Entering REQUIRED section.
+1 IF $DATA(@INV@("MSH1"))#2
IF $GET(@INV@("MSH1"))=""
SET INREQERR=2
DO KILL^INHVA1("MSH","HL FIELD SEPARATOR")
+2 IF $DATA(@INV@("MSH1"))#2
IF $GET(@INV@("MSH2"))=""
SET INREQERR=2
DO KILL^INHVA1("MSH","HL ENCODING CHARACTERS")
+3 IF $DATA(@INV@("MSH1"))#2
IF $GET(@INV@("MSH9"))=""
SET INREQERR=2
DO KILL^INHVA1("MSH","HL MESSAGE TYPE")
+4 IF $DATA(@INV@("MSH1"))#2
IF $GET(@INV@("MSH10"))=""
SET INREQERR=2
DO KILL^INHVA1("MSH","HL MESSAGE CONTROL ID")
+5 IF $DATA(@INV@("MSH1"))#2
IF $GET(@INV@("MSH11"))=""
SET INREQERR=2
DO KILL^INHVA1("MSH","HL PROCESSING ID")
+6 IF $DATA(@INV@("MSH1"))#2
IF $GET(@INV@("MSH12"))=""
SET INREQERR=2
DO KILL^INHVA1("MSH","HL VERSION ID")
+7 IF $GET(INSTERR)
QUIT $SELECT($GET(INREQERR)>INSTERR:INREQERR,1:INSTERR)
DO MAIN^BHLRLABU
+8 IF $GET(INSTERR)
QUIT $SELECT($GET(INREQERR)>INSTERR:INREQERR,1:INSTERR)
+9 ;Entering END section.
+10 IF $GET(INSTERR)
QUIT $SELECT($GET(INREQERR)>INSTERR:INREQERR,1:INSTERR)
+11 KILL @INV,INV,INDA,DIPA
QUIT +$GET(INREQERR)
