Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IS00005E

IS00005E.m

Go to the documentation of this file.
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)