IS00027C ;Compiled from script 'Generated: HL IHS IZV04 V03VXR IN-I' on FEB 28, 2013
;Part 4
;Copyright 2013 SAIC
EN S @INV@("IN23",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'IN23' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
Q
M3 K DXS
S INI(1)=0 F S INI(1)=$O(@INV@("IN26",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("IN26",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("IN26",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'IN26' 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@("IN28",INI(1))) Q:'INI(1) S INI=INI(1) D
.S (INX,X)=@INV@("IN28",INI(1))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("IN28",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'IN28' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.Q
K DXS
Q
M2 Q
M1 ;IF $D(@INV@("ORC1"))
I $D(@INV@("ORC1"))
D:$T
.S INI(1)=0 F S INI(1)=$O(@INV@("ORC5",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("ORC5",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("ORC5",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'ORC5' 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@("ORC9",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("ORC9",INI(1))
..I X]"" S X=$$TIMEIO^INHUT10(X,$P($G(INTHL7F2),U),$P($G(INTHL7F2),U,2),$P($G(INTHL7F2),U,3),1)
..S @INV@("ORC9",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'ORC9' 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@("ORC15",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("ORC15",INI(1))
..I X]"" S X=$$TIMEIO^INHUT10(X,$P($G(INTHL7F2),U),$P($G(INTHL7F2),U,2),$P($G(INTHL7F2),U,3),1)
..S @INV@("ORC15",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'ORC15' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.;IF $D(@INV@("RXA1"))
.I $D(@INV@("RXA1"))
.D:$T
..Q
.Q
;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@("MSH11"))="" S INREQERR=2 D KILL^INHVA1("MSH","HL PROCESSING ID")
I $D(@INV@("QRD1"))#2,$G(@INV@("QRD1"))="" S INREQERR=2 D KILL^INHVA1("QRD","HL IHS QRD IN QDTM (QRD-1)")
I $D(@INV@("QRD1"))#2,$G(@INV@("QRD2"))="" S INREQERR=2 D KILL^INHVA1("QRD","HL IHS QRD IN QFC (QRD-2)")
I $D(@INV@("QRD1"))#2,$G(@INV@("QRD3"))="" S INREQERR=2 D KILL^INHVA1("QRD","HL IHS QRD IN QP (QRD-3)")
I $D(@INV@("QRD1"))#2,$G(@INV@("QRD4"))="" S INREQERR=2 D KILL^INHVA1("QRD","HL IHS QRD IN QID (QRD-4)")
I $D(@INV@("QRD1"))#2,$G(@INV@("QRD7"))="" S INREQERR=2 D KILL^INHVA1("QRD","HL IHS QRD IN QTY (QRD-7)")
I $D(@INV@("QRD1"))#2,$G(@INV@("QRD8"))="" S INREQERR=2 D KILL^INHVA1("QRD","HL IHS QRD IN WHO (QRD-8)")
I $D(@INV@("QRD1"))#2,$G(@INV@("QRD9"))="" S INREQERR=2 D KILL^INHVA1("QRD","HL IHS QRD IN WHAT (QRD-9)")
I $D(@INV@("QRF1"))#2,$G(@INV@("QRF1"))="" S INREQERR=2 D KILL^INHVA1("QRF","HL IHS QRF IN WHERE (QRF-1)")
Q:$G(INSTERR) $S($G(INREQERR)>INSTERR:INREQERR,1:INSTERR) D MAIN^BHLI
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)
IS00027C ;Compiled from script 'Generated: HL IHS IZV04 V03VXR IN-I' on FEB 28, 2013
+1 ;Part 4
+2 ;Copyright 2013 SAIC
EN SET @INV@("IN23",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'IN23' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+1 QUIT
M3 KILL DXS
+1 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("IN26",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+2 SET (INX,X)=@INV@("IN26",INI(1))
+3 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+4 SET @INV@("IN26",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'IN26' 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@("IN28",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:1
+8 SET (INX,X)=@INV@("IN28",INI(1))
+9 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+10 SET @INV@("IN28",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'IN28' 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 QUIT
M2 QUIT
M1 ;IF $D(@INV@("ORC1"))
+1 IF $DATA(@INV@("ORC1"))
+2 IF $TEST
Begin DoDot:1
+3 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("ORC5",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+4 SET (INX,X)=@INV@("ORC5",INI(1))
+5 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+6 SET @INV@("ORC5",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC5' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+7 QUIT
End DoDot:2
+8 KILL DXS
+9 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("ORC9",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+10 SET (INX,X)=@INV@("ORC9",INI(1))
+11 IF X]""
SET X=$$TIMEIO^INHUT10(X,$PIECE($GET(INTHL7F2),U),$PIECE($GET(INTHL7F2),U,2),$PIECE($GET(INTHL7F2),U,3),1)
+12 SET @INV@("ORC9",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC9' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+13 QUIT
End DoDot:2
+14 KILL DXS
+15 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("ORC15",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+16 SET (INX,X)=@INV@("ORC15",INI(1))
+17 IF X]""
SET X=$$TIMEIO^INHUT10(X,$PIECE($GET(INTHL7F2),U),$PIECE($GET(INTHL7F2),U,2),$PIECE($GET(INTHL7F2),U,3),1)
+18 SET @INV@("ORC15",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC15' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+19 QUIT
End DoDot:2
+20 KILL DXS
+21 ;IF $D(@INV@("RXA1"))
+22 IF $DATA(@INV@("RXA1"))
+23 IF $TEST
Begin DoDot:2
+24 QUIT
End DoDot:2
+25 QUIT
End DoDot:1
+26 ;Entering REQUIRED section.
+27 IF $DATA(@INV@("MSH1"))#2
IF $GET(@INV@("MSH1"))=""
SET INREQERR=2
DO KILL^INHVA1("MSH","HL FIELD SEPARATOR")
+28 IF $DATA(@INV@("MSH1"))#2
IF $GET(@INV@("MSH2"))=""
SET INREQERR=2
DO KILL^INHVA1("MSH","HL ENCODING CHARACTERS")
+29 IF $DATA(@INV@("MSH1"))#2
IF $GET(@INV@("MSH9"))=""
SET INREQERR=2
DO KILL^INHVA1("MSH","HL MESSAGE TYPE")
+30 IF $DATA(@INV@("MSH1"))#2
IF $GET(@INV@("MSH11"))=""
SET INREQERR=2
DO KILL^INHVA1("MSH","HL PROCESSING ID")
+31 IF $DATA(@INV@("QRD1"))#2
IF $GET(@INV@("QRD1"))=""
SET INREQERR=2
DO KILL^INHVA1("QRD","HL IHS QRD IN QDTM (QRD-1)")
+32 IF $DATA(@INV@("QRD1"))#2
IF $GET(@INV@("QRD2"))=""
SET INREQERR=2
DO KILL^INHVA1("QRD","HL IHS QRD IN QFC (QRD-2)")
+33 IF $DATA(@INV@("QRD1"))#2
IF $GET(@INV@("QRD3"))=""
SET INREQERR=2
DO KILL^INHVA1("QRD","HL IHS QRD IN QP (QRD-3)")
+34 IF $DATA(@INV@("QRD1"))#2
IF $GET(@INV@("QRD4"))=""
SET INREQERR=2
DO KILL^INHVA1("QRD","HL IHS QRD IN QID (QRD-4)")
+35 IF $DATA(@INV@("QRD1"))#2
IF $GET(@INV@("QRD7"))=""
SET INREQERR=2
DO KILL^INHVA1("QRD","HL IHS QRD IN QTY (QRD-7)")
+36 IF $DATA(@INV@("QRD1"))#2
IF $GET(@INV@("QRD8"))=""
SET INREQERR=2
DO KILL^INHVA1("QRD","HL IHS QRD IN WHO (QRD-8)")
+37 IF $DATA(@INV@("QRD1"))#2
IF $GET(@INV@("QRD9"))=""
SET INREQERR=2
DO KILL^INHVA1("QRD","HL IHS QRD IN WHAT (QRD-9)")
+38 IF $DATA(@INV@("QRF1"))#2
IF $GET(@INV@("QRF1"))=""
SET INREQERR=2
DO KILL^INHVA1("QRF","HL IHS QRF IN WHERE (QRF-1)")
+39 IF $GET(INSTERR)
QUIT $SELECT($GET(INREQERR)>INSTERR:INREQERR,1:INSTERR)
DO MAIN^BHLI
+40 IF $GET(INSTERR)
QUIT $SELECT($GET(INREQERR)>INSTERR:INREQERR,1:INSTERR)
+41 ;Entering END section.
+42 IF $GET(INSTERR)
QUIT $SELECT($GET(INREQERR)>INSTERR:INREQERR,1:INSTERR)
+43 KILL @INV,INV,INDA,DIPA
QUIT +$GET(INREQERR)
