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

IS00028B.m

Go to the documentation of this file.

IS00028B ;Compiled from script 'Generated: HL IHS IZV04 V02VXX OUT-O' on FEB 28, 2013

 ;Part 3

 ;Copyright 2013 SAIC

EN 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

IS00028B  ;Compiled from script 'Generated: HL IHS IZV04 V02VXX OUT-O' on FEB 28, 2013

 +1       ;Part 3

 +2       ;Copyright 2013 SAIC

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

 +1        IF UIF<0

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

               QUIT 2

 +2        QUIT 0