INHSYSDR.m

INHSYSDR ;WOM 12/07/95; 17 Nov 98 10:30 

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

 ;COPYRIGHT 1991-2000 SAIC

 Q

EN1 ;User entry point 1 using listman for saving Transaction Types

 ;and relatives for export

 ; Variables: INSELTT - Array of selected types

 ;  INPOP - Flag to bail, some kinda fatal error

 ;

 N INSELTT,INPOP S INPOP=0

 D LIST^INHSYSUT(.INSELTT)

 I INSELTT D COMP^INHSYS(.INSELTT)

 Q

EN2 ;User Entry point 2 for saving Transaction Types and relatives

 ;to export

 ; Variables: INSELTT - Array of selected types

 ;  INASK - If zero ask for reporting/DEVICE

 ;  INCR - If 1, require <CR> from user if 

 ;         report is sent to primary device

 ;  INPOP - Flag for FATAL ERROR

 N INSELTT,DIC,Y,INASK,INCR,INPOP

 ; Turn debug level off for Background Process

 D DEBOFF^INHSYS09

 S DIC="^INRHT(",DIC(0)="AEQZ",DIC("A")="Enter Transaction Type Name: "

 W @IOF

 D ^DIC Q:+Y'>0

 I $P(Y(0),"^",4)="" W !,"This entry has an invalid UNIQUE IDENTIFIER",!,"Aborting" Q

 S INSELTT=1,INSELTT(1)=+Y,INASK=0,INCR=1,INPOP=0 D COMP^INHSYS(.INSELTT)

 Q

EN3 ;List processesor of available routine names to restore data to env

 ; to import

 N %SRC,%RD,%RMSEL,%UTILITY,%UCI,%SYS,%,%RTN,DWLRF,DWLB,DWL,DWLMK,DWLMK1

 N %CNT,%UT,%RT,%,Y,INREPRT,%TT,INASK,INCR,INPOP

 ; Initialize INASK and INCR to Ask for FULL reporting/<CR>

 ; Initialize INPOP - Flag for FATAL ERROR

 S INASK=0,INCR=1,INPOP=0 K ^UTILITY($J),^UTILITY("INHSYS",$J) D ^%ZIST

 I '$$ROUT^INHSYS(.%UTILITY) W @IOF,$$SETXY^%ZTF(30,10),"No files to process",!!

 E  D

 .S %RTN="",%CNT=0 F  S %RTN=$O(%UTILITY(%RTN)) Q:%RTN=""  D

 ..S %TT=$T(@(%RTN)+3^@(%RTN)),%TT=$P(%TT,";",2)

 ..I %TT'="" S %RTN=%RTN_" - "_%TT

 ..S %CNT=%CNT+1,%UT(%CNT)=%RTN,%UT(%CNT,0)=""

 .I '$D(%UT) W !,"No files to process" Q

 .S DWLRF="%UT",DWLB="16^5^10^70",DWL="HWXXM-1"

 .S DWL("TITLE")="W $$CENTER^INHUTIL(""Select one routine to restore from"",80)"

 .D ^DWL

 .S %RT=$O(DWLMK("")) I %RT D RESTORE^INHSYS(.%UT,.%RT)

 Q

EN4 ;Global file element compare

 D %GCMP^INHSYS07

 Q

INHSYSDR  ;WOM 12/07/95; 17 Nov 98 10:30 

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

 +2       ;COPYRIGHT 1991-2000 SAIC

 +3        QUIT 

EN1       ;User entry point 1 using listman for saving Transaction Types

 +1       ;and relatives for export

 +2       ; Variables: INSELTT - Array of selected types

 +3       ;  INPOP - Flag to bail, some kinda fatal error

 +4       ;

 +5        NEW INSELTT,INPOP

           SET INPOP=0

 +6        DO LIST^INHSYSUT(.INSELTT)

 +7        IF INSELTT

               DO COMP^INHSYS(.INSELTT)

 +8        QUIT 

EN2       ;User Entry point 2 for saving Transaction Types and relatives

 +1       ;to export

 +2       ; Variables: INSELTT - Array of selected types

 +3       ;  INASK - If zero ask for reporting/DEVICE

 +4       ;  INCR - If 1, require <CR> from user if 

 +5       ;         report is sent to primary device

 +6       ;  INPOP - Flag for FATAL ERROR

 +7        NEW INSELTT,DIC,Y,INASK,INCR,INPOP

 +8       ; Turn debug level off for Background Process

 +9        DO DEBOFF^INHSYS09

 +10       SET DIC="^INRHT("

           SET DIC(0)="AEQZ"

           SET DIC("A")="Enter Transaction Type Name: "

 +11       WRITE @IOF

 +12       DO ^DIC

           IF +Y'>0

               QUIT 

 +13       IF $PIECE(Y(0),"^",4)=""

               WRITE !,"This entry has an invalid UNIQUE IDENTIFIER",!,"Aborting"

               QUIT 

 +14       SET INSELTT=1

           SET INSELTT(1)=+Y

           SET INASK=0

           SET INCR=1

           SET INPOP=0

           DO COMP^INHSYS(.INSELTT)

 +15       QUIT 

EN3       ;List processesor of available routine names to restore data to env

 +1       ; to import

 +2        NEW %SRC,%RD,%RMSEL,%UTILITY,%UCI,%SYS,%,%RTN,DWLRF,DWLB,DWL,DWLMK,DWLMK1

 +3        NEW %CNT,%UT,%RT,%,Y,INREPRT,%TT,INASK,INCR,INPOP

 +4       ; Initialize INASK and INCR to Ask for FULL reporting/<CR>

 +5       ; Initialize INPOP - Flag for FATAL ERROR

 +6        SET INASK=0

           SET INCR=1

           SET INPOP=0

           KILL ^UTILITY($JOB),^UTILITY("INHSYS",$JOB)

           DO ^%ZIST

 +7        IF '$$ROUT^INHSYS(.%UTILITY)

               WRITE @IOF,$$SETXY^%ZTF(30,10),"No files to process",!!

 +8       IF '$TEST

               Begin DoDot:1

 +9                SET %RTN=""

                   SET %CNT=0

                   FOR 

                       SET %RTN=$ORDER(%UTILITY(%RTN))

                       IF %RTN=""

                           QUIT 

                       Begin DoDot:2

 +10                       SET %TT=$TEXT(@(%RTN)+3^@(%RTN))

                           SET %TT=$PIECE(%TT,";",2)

 +11                       IF %TT'=""

                               SET %RTN=%RTN_" - "_%TT

 +12                       SET %CNT=%CNT+1

                           SET %UT(%CNT)=%RTN

                           SET %UT(%CNT,0)=""

                       End DoDot:2

 +13               IF '$DATA(%UT)

                       WRITE !,"No files to process"

                       QUIT 

 +14               SET DWLRF="%UT"

                   SET DWLB="16^5^10^70"

                   SET DWL="HWXXM-1"

 +15               SET DWL("TITLE")="W $$CENTER^INHUTIL(""Select one routine to restore from"",80)"

 +16               DO ^DWL

 +17               SET %RT=$ORDER(DWLMK(""))

                   IF %RT

                       DO RESTORE^INHSYS(.%UT,.%RT)

               End DoDot:1

 +18       QUIT 

EN4       ;Global file element compare

 +1        DO %GCMP^INHSYS07

 +2        QUIT