IS00023B.m

IS00023B ;Compiled from script 'Generated: HL IHS DW1 A40-O' on SEP 08, 2008

 ;Part 3

 ;Copyright 2008 SAIC

EN S @INV@("ZRB4")=X K DXS,D0

 ;SET ZRB5 = INSGX\^INTHL7F(16327,5)\\999\"OUTPUT TRANSFORM"

 S D0=INDA S X="OUTPUT TRANSFORM"

 S X1="^INTHL7F(16327,5)" X:$L($G(@X1)) $G(@X1) S X=$E(X,1,999)

 S @INV@("ZRB5")=X K DXS,D0

 D:'INVS MC^INHS

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

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

 S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,4,L1,.CP) S L1=$G(@INV@("ZRB4")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,5,L1,.CP)

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

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

 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

IS00023B  ;Compiled from script 'Generated: HL IHS DW1 A40-O' on SEP 08, 2008

 +1       ;Part 3

 +2       ;Copyright 2008 SAIC

EN         SET @INV@("ZRB4")=X

           KILL DXS,D0

 +1       ;SET ZRB5 = INSGX\^INTHL7F(16327,5)\\999\"OUTPUT TRANSFORM"

 +2        SET D0=INDA

           SET X="OUTPUT TRANSFORM"

 +3        SET X1="^INTHL7F(16327,5)"

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +4        SET @INV@("ZRB5")=X

           KILL DXS,D0

 +5        IF 'INVS

               DO MC^INHS

 +6        KILL LINE

           SET LINE=""

           SET CP=0

           SET L1="ZRB"

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

 +9        SET L1=$GET(@INV@("ZRB5"))

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

               SET L1=""

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

 +10       SET LCT=LCT+1

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

           IF $DATA(LINE)>9

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

 +11       IF 'INVS

               DO MC^INHS

 +12      ;Entering END section.

 +13       IF $GET(INSTERR)

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

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

 +15       IF UIF<0

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

               QUIT 2

 +16       QUIT 0