- 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)
