IS00004M.m

IS00004M ;Compiled from script 'Generated: X1 IHS 276-O' on DEC 09, 2002

 ;Part 14

 ;Copyright 2002 SAIC

EN S D0=INDA S X=$G(INA("GE2"))

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

 D:'INVS MC^INHS

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

 S D0=INDA S X=@INV@("GE1"),Y(1)=X S X=1,Y(2)=X S X=6,X=$E(Y(1),Y(2),X) S L1=X

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

 S D0=INDA S X=@INV@("GE2"),Y(1)=X S X=1,Y(2)=X S X=9,X=$E(Y(1),Y(2),X) S L1=X

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

 D LINE^INHUT11(.LINE,DELIM,LCT)

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

 SET INSETID=0

 D IEA^BHLXHDR

 ;SET IEA1 = @IEA1

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

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

 ;SET IEA2 = @IEA2

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

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

 D:'INVS MC^INHS

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

 S D0=INDA S X=@INV@("IEA1"),Y(1)=X S X=1,Y(2)=X S X=5,X=$E(Y(1),Y(2),X) S L1=X

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

 S D0=INDA S X=@INV@("IEA2"),Y(1)=X S X=1,Y(2)=X S X=9,X=$E(Y(1),Y(2),X) S L1=X

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

 D LINE^INHUT11(.LINE,DELIM,LCT)

 I $L(LINE)'=0 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

 D XREF^INHUT11

 Q 0

IS00004M  ;Compiled from script 'Generated: X1 IHS 276-O' on DEC 09, 2002

 +1       ;Part 14

 +2       ;Copyright 2002 SAIC

EN         SET D0=INDA

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

 +1        SET @INV@("GE2")=X

           KILL DXS,D0

 +2        IF 'INVS

               DO MC^INHS

 +3        KILL LINE

           SET LINE=""

           SET CP=0

           SET L1="GE"

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

               SET L1=""

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

 +4        SET D0=INDA

           SET X=@INV@("GE1")

           SET Y(1)=X

           SET X=1

           SET Y(2)=X

           SET X=6

           SET X=$EXTRACT(Y(1),Y(2),X)

           SET L1=X

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

               SET L1=""

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

 +6        SET D0=INDA

           SET X=@INV@("GE2")

           SET Y(1)=X

           SET X=1

           SET Y(2)=X

           SET X=9

           SET X=$EXTRACT(Y(1),Y(2),X)

           SET L1=X

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

               SET L1=""

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

 +8        DO LINE^INHUT11(.LINE,DELIM,LCT)

 +9        IF $LENGTH(LINE)'=0

               SET LCT=LCT+1

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

               IF $DATA(LINE)>9

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

 +10       SET INSETID=0

 +11       DO IEA^BHLXHDR

 +12      ;SET IEA1 = @IEA1

 +13       SET D0=INDA

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

 +14       SET @INV@("IEA1")=X

           KILL DXS,D0

 +15      ;SET IEA2 = @IEA2

 +16       SET D0=INDA

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

 +17       SET @INV@("IEA2")=X

           KILL DXS,D0

 +18       IF 'INVS

               DO MC^INHS

 +19       KILL LINE

           SET LINE=""

           SET CP=0

           SET L1="IEA"

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

               SET L1=""

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

 +20       SET D0=INDA

           SET X=@INV@("IEA1")

           SET Y(1)=X

           SET X=1

           SET Y(2)=X

           SET X=5

           SET X=$EXTRACT(Y(1),Y(2),X)

           SET L1=X

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

               SET L1=""

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

 +22       SET D0=INDA

           SET X=@INV@("IEA2")

           SET Y(1)=X

           SET X=1

           SET Y(2)=X

           SET X=9

           SET X=$EXTRACT(Y(1),Y(2),X)

           SET L1=X

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

               SET L1=""

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

 +24       DO LINE^INHUT11(.LINE,DELIM,LCT)

 +25       IF $LENGTH(LINE)'=0

               SET LCT=LCT+1

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

               IF $DATA(LINE)>9

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

 +26       IF 'INVS

               DO MC^INHS

 +27      ;Entering END section.

 +28       IF $GET(INSTERR)

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

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

 +30       IF UIF<0

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

               QUIT 2

 +31       DO XREF^INHUT11

 +32       QUIT 0