IS00029J.m

IS00029J ;Compiled from script 'Generated: HL IHS IZV04 V03VXR OUT-O' on JUN 21, 2010

 ;Part 11

 ;Copyright 2010 SAIC

EN S @INV@("ZRA2.2")=X K DXS,D0

 ;SET ZRA2.3 = INSGX\^INTHL7FT(1,3)\\5\"99IHS"

 S D0=INDA S X="99IHS"

 S X1="^INTHL7FT(1,3)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,5)

 S @INV@("ZRA2.3")=X K DXS,D0

 D:'INVS MC^INHS

 K LINE S LINE="",CP=0 S L1="ZRA" S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,1,L1,.CP) S L1=$G(@INV@("ZRA1.1"))

 S D0=INDA S X="^" S L1=L1_X

 S L1=L1_$G(@INV@("ZRA1.2"))

 S D0=INDA S X="^" S L1=L1_X

 S L1=L1_$G(@INV@("ZRA1.3")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,2,L1,.CP) S L1=$G(@INV@("ZRA2.1"))

 S D0=INDA S X="^" S L1=L1_X

 S L1=L1_$G(@INV@("ZRA2.2"))

 S D0=INDA S X="^" S L1=L1_X

 S L1=L1_$G(@INV@("ZRA2.3")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,3,L1,.CP)

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

 Q

L1 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

IS00029J  ;Compiled from script 'Generated: HL IHS IZV04 V03VXR OUT-O' on JUN 21, 2010

 +1       ;Part 11

 +2       ;Copyright 2010 SAIC

EN         SET @INV@("ZRA2.2")=X

           KILL DXS,D0

 +1       ;SET ZRA2.3 = INSGX\^INTHL7FT(1,3)\\5\"99IHS"

 +2        SET D0=INDA

           SET X="99IHS"

 +3        SET X1="^INTHL7FT(1,3)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

           SET X=$EXTRACT(X,1,5)

 +4        SET @INV@("ZRA2.3")=X

           KILL DXS,D0

 +5        IF 'INVS

               DO MC^INHS

 +6        KILL LINE

           SET LINE=""

           SET CP=0

           SET L1="ZRA"

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

               SET L1=""

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

           SET L1=$GET(@INV@("ZRA1.1"))

 +7        SET D0=INDA

           SET X="^"

           SET L1=L1_X

 +8        SET L1=L1_$GET(@INV@("ZRA1.2"))

 +9        SET D0=INDA

           SET X="^"

           SET L1=L1_X

 +10       SET L1=L1_$GET(@INV@("ZRA1.3"))

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

               SET L1=""

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

           SET L1=$GET(@INV@("ZRA2.1"))

 +11       SET D0=INDA

           SET X="^"

           SET L1=L1_X

 +12       SET L1=L1_$GET(@INV@("ZRA2.2"))

 +13       SET D0=INDA

           SET X="^"

           SET L1=L1_X

 +14       SET L1=L1_$GET(@INV@("ZRA2.3"))

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

               SET L1=""

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

 +15       SET LCT=LCT+1

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

           IF $DATA(LINE)>9

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

 +16       QUIT 

L1         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