INHSZ6.m

INHSZ6 ;JSH; 18 Oct 1999 09:27 ;Script compiler END code

 ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 ;COPYRIGHT 1991-2000 SAIC

 ;CHCS TOOLS_460; GEN 9; 23-SEP-1997

 ;COPYRIGHT 1988, 1989, 1990 SAIC

 ;

L G L^INHSZ1

 ;

IN ;Create any end code necessary

 D QCHK^INHSZ0

 I MODE="O" D  Q

 . S A=" 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"")))" D L

 . S A=" I UIF<0 D ERROR^INHS(""UIF creation failed"",2) Q 2" D L

 . ;Set sequence x-ref for NCPDP

 . I $G(INSTD)="NC"!($G(INSTD)="X12") S A=" D XREF^INHUT11" D L

 . S A=" Q 0" D L

 S A=" K @INV,INV,INDA,DIPA Q +$G(INREQERR)" D L

 Q

 ;

OUT Q

INHSZ6    ;JSH; 18 Oct 1999 09:27 ;Script compiler END code

 +1       ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 +2       ;COPYRIGHT 1991-2000 SAIC

 +3       ;CHCS TOOLS_460; GEN 9; 23-SEP-1997

 +4       ;COPYRIGHT 1988, 1989, 1990 SAIC

 +5       ;

L          GOTO L^INHSZ1

 +1       ;

IN        ;Create any end code necessary

 +1        DO QCHK^INHSZ0

 +2        IF MODE="O"

               Begin DoDot:1

 +3                SET A=" 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"")))"

                   DO L

 +4                SET A=" I UIF<0 D ERROR^INHS(""UIF creation failed"",2) Q 2"

                   DO L

 +5       ;Set sequence x-ref for NCPDP

 +6                IF $GET(INSTD)="NC"!($GET(INSTD)="X12")

                       SET A=" D XREF^INHUT11"

                       DO L

 +7                SET A=" Q 0"

                   DO L

               End DoDot:1

               QUIT 

 +8        SET A=" K @INV,INV,INDA,DIPA Q +$G(INREQERR)"

           DO L

 +9        QUIT 

 +10      ;

OUT        QUIT