IS00024A.m

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

 ;Part 2

 ;Copyright 2013 SAIC

EN S L1=$G(@INV@("QRD10")) S:$TR(L1,$G(SUBDELIM))="" L1="" D SETPIECE^INHU(.LINE,DELIM,11,L1,.CP) S L1=$G(@INV@("QRD12")) S:$TR(L1,$G(SUBDELIM))="" L1=""

 D SETPIECE^INHU(.LINE,DELIM,13,L1,.CP)

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

 SET INSETID=0

 D QRF^BYIMSEGS

 ;SET QRF1 = INSGX\^INTHL7FT(1,3)\\20\@QRF1

 S D0=INDA S X=$G(INA("QRF1"))

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

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

 ;SET QRF5 = INSGX\^INTHL7FT(1,3)\\240\@QRF5

 S D0=INDA S X=$G(INA("QRF5"))

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

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

 D:'INVS MC^INHS

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

 D SETPIECE^INHU(.LINE,DELIM,2,L1,.CP) S L1=$G(@INV@("QRF5")) 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

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

 +1       ;Part 2

 +2       ;Copyright 2013 SAIC

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

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

               SET L1=""

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

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

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

               SET L1=""

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

 +2        SET LCT=LCT+1

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

           IF $DATA(LINE)>9

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

 +3        SET INSETID=0

 +4        DO QRF^BYIMSEGS

 +5       ;SET QRF1 = INSGX\^INTHL7FT(1,3)\\20\@QRF1

 +6        SET D0=INDA

           SET X=$GET(INA("QRF1"))

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

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +8        SET @INV@("QRF1")=X

           KILL DXS,D0

 +9       ;SET QRF5 = INSGX\^INTHL7FT(1,3)\\240\@QRF5

 +10       SET D0=INDA

           SET X=$GET(INA("QRF5"))

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

           IF $LENGTH($GET(@X1))

               XECUTE $GET(@X1)

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

 +12       SET @INV@("QRF5")=X

           KILL DXS,D0

 +13       IF 'INVS

               DO MC^INHS

 +14       KILL LINE

           SET LINE=""

           SET CP=0

           SET L1="QRF"

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

               SET L1=""

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

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

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

               SET L1=""

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

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

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

               SET L1=""

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

 +16       SET LCT=LCT+1

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

           IF $DATA(LINE)>9

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

 +17       IF 'INVS

               DO MC^INHS

 +18      ;Entering END section.

 +19       IF $GET(INSTERR)

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

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

 +21       IF UIF<0

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

               QUIT 2

 +22       QUIT 0