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

IS00029I.m

Go to the documentation of this file.

IS00029I ;Compiled from script 'Generated: HL IHS IZV04 V03VXR OUT-O' on SEP 05, 2011

 ;Part 10

 ;Copyright 2011 SAIC

EN I $G(INSTERR) Q $S($G(INREQERR)>INSTERR:INREQERR,1:INSTERR)

 S UIF=$$NEWO^INHD(INDEST,"^UTILITY(""INH"",$J)",+$P($G(^INRHT(INTT,0)),U,12),INTT,MESSID,$G(INQUE),$G(INORDUZ),$G(INORDIV),.INUIF6,.INUIF7,$G(INA("INMIDGEN")))

 I UIF<0 D ERROR^INHS("UIF creation failed",2) Q 2

Q 0

IS00029I  ;Compiled from script 'Generated: HL IHS IZV04 V03VXR OUT-O' on SEP 05, 2011

 +1       ;Part 10

 +2       ;Copyright 2011 SAIC

EN         IF $GET(INSTERR)

               QUIT $SELECT($GET(INREQERR)>INSTERR:INREQERR,1:INSTERR)

 +1        SET UIF=$$NEWO^INHD(INDEST,"^UTILITY(""INH"",$J)",+$PIECE($GET(^INRHT(INTT,0)),U,12),INTT,MESSID,$GET(INQUE),$GET(INORDUZ),$GET(INORDIV),.INUIF6,.INUIF7,$GET(INA("INMIDGEN")))

 +2        IF UIF<0

               DO ERROR^INHS("UIF creation failed",2)

               QUIT 2

 +3        QUIT 0