IS00028A.m

IS00028A ;Compiled from script 'Generated: HL IHS IZV04 V02VXX OUT-O' on AUG 15, 2018

 ;Part 2

 ;Copyright 2018 SAIC

EN S L1=$G(@INV@("PID17")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,18,L1,.CP) S L1=$G(@INV@("PID19")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 D SETPIECE^INHU(.LINE,DELIM,20,L1,.CP) S L1=$G(@INV@("PID22")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,23,L1,.CP) S L1=$G(@INV@("PID24"))

 S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,25,L1,.CP)

 S LCT=LCT+1,^UTILITY("INH",$J,LCT)=LINE I $D(LINE)>9 M ^UTILITY("INH",$J,LCT)=LINE

 Q

A1 S INDA=INDA0 K INDA0

 D:'INVS MC^INHS

 ;Entering END section.

 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

IS00028A  ;Compiled from script 'Generated: HL IHS IZV04 V02VXX OUT-O' on AUG 15, 2018

 +1       ;Part 2

 +2       ;Copyright 2018 SAIC

EN         SET L1=$GET(@INV@("PID17"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,18,L1,.CP)

           SET L1=$GET(@INV@("PID19"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

 +1        DO SETPIECE^INHU(.LINE,DELIM,20,L1,.CP)

           SET L1=$GET(@INV@("PID22"))

           IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,23,L1,.CP)

           SET L1=$GET(@INV@("PID24"))

 +2        IF $TRANSLATE(L1,$GET(SUBDELIM))=""

               SET L1=""

           DO SETPIECE^INHU(.LINE,DELIM,25,L1,.CP)

 +3        SET LCT=LCT+1

           SET ^UTILITY("INH",$JOB,LCT)=LINE

           IF $DATA(LINE)>9

               MERGE ^UTILITY("INH",$JOB,LCT)=LINE

 +4        QUIT 

A1         SET INDA=INDA0

           KILL INDA0

 +1        IF 'INVS

               DO MC^INHS

 +2       ;Entering END section.

 +3        IF $GET(INSTERR)

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

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

 +5        IF UIF<0

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

               QUIT 2

 +6        QUIT 0