IS00005E.m

IS00005E ;Compiled from script 'Generated: HL IHS CHR R01 IN-I' on JUN 08, 2006

 ;Part 6

 ;Copyright 2006 SAIC

EN S (INX,X)=@INV@("OBX7",INI(1),INI(2))

 I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 S @INV@("OBX7",INI(1),INI(2))=$G(X) I '$D(X) D ERROR^INHS("Variable 'OBX7' failed input transform in iteration #"_INI(1)_","_INI(2)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 Q

I4 Q

I3 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 X]"" S X=$$TIMEIO^INHUT10(X,$P($G(INTHL7F2),U),$P($G(INTHL7F2),U,2),$P($G(INTHL7F2),U,3),1)

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

 Q

I2 Q

I1 ;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^BHLORUDI

 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)

IS00005E  ;Compiled from script 'Generated: HL IHS CHR R01 IN-I' on JUN 08, 2006

 +1       ;Part 6

 +2       ;Copyright 2006 SAIC

EN         SET (INX,X)=@INV@("OBX7",INI(1),INI(2))

 +1        IF $PIECE($GET(INTHL7F2),U,4)

               SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +2        SET @INV@("OBX7",INI(1),INI(2))=$GET(X)

           IF '$DATA(X)

               DO ERROR^INHS("Variable 'OBX7' failed input transform in iteration #"_INI(1)_","_INI(2)_". Processing continues.",0)

               DO ERROR^INHS("  Value = '"_INX_"'",0)

 +3        QUIT 

I4         QUIT 

I3         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 X]""

                               SET X=$$TIMEIO^INHUT10(X,$PIECE($GET(INTHL7F2),U),$PIECE($GET(INTHL7F2),U,2),$PIECE($GET(INTHL7F2),U,3),1)

 +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        QUIT 

I2         QUIT 

I1        ;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^BHLORUDI

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