INHMSR.m

INHMSR ;KN; 31 Jan 96 09:47; Calling routine for the INHMSR1 Module. 

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

 ;COPYRIGHT 1991-2000 SAIC

 ;

 ; MODULE NAME: INHMSR Module.

 ;

 ; PURPOSE:

 ; The purpose of the INHMSR is used to ask user for enter file name,

 ; and call the INHMSR1 module to start for the process.  Also the 

 ; INHGLB is used for the global ^UTILITY.

 ;

 ;

 ; DESCRIPTION:

 ; The processing of this routine will prompt user to enter file name,

 ; look up DD for the file IEN, and call INHMSR1 module to start the 

 ; Statistical process.  In addition, the INHGLB routine is used to

 ; store the predefined selectable fields in global ^UTILITY. 

 ;

EN ; Entry point for the INHMSR

 ;    

 N INIEN,INNM,INA

 ;If not found pre-defined selectable fields, run INHGLB

 I '$D(^UTILITY($J,"INHSR")) D INHGLB

 S DIC="^DIC(",DIC(0)="AEQ",DIC("A")="Enter File Name: "

 D ^DIC

 I $G(DUOUT)!(Y<0) G Q

 S INIEN=+Y,INNM=$P(Y,U,2)

 D EN^INHMSR1(INIEN,INNM)

Q K ^UTILITY($J)

 Q

 ;

UIF ; Universal Interface file

 ;

 N INIEN,INNM,INA

 D INHGLB

 D EN^INHMSR1(4001,"Universal Interface File")

 Q

ERR ;Interface error file

 ;

 N INIEN,INNM,INA

 D INHGLB

 D EN^INHMSR1(4003,"Interface Error")

 Q

 ;

INHGLB ; Temperary global set

 ; 

 ; Description: This file is used to set up temporary global for 

 ;  display setectable fields as need.

 ; 

 ; These fields are used to holds all interface transactions

 ; regardless of the destination.  It also holds all status

 ; and tracking information for the transactions.

 ; **************************************************************

 S ^UTILITY($J,"INHSR",4001)=1

 S ^UTILITY($J,"INHSR",4001,.12)=""

 S ^UTILITY($J,"INHSR",4001,.01)=""

 S ^UTILITY($J,"INHSR",4001,.02)=""

 S ^UTILITY($J,"INHSR",4001,.1)=""

 S ^UTILITY($J,"INHSR",4001,.14)=""

 S ^UTILITY($J,"INHSR",4001,.11)=""

 S ^UTILITY($J,"INHSR",4001,.16)=""

 S ^UTILITY($J,"INHSR",4001,.08)=""

 S ^UTILITY($J,"INHSR",4001,.03)=""

 S ^UTILITY($J,"INHSR",4001,5)=""

 ;**************************************************************

 ; This fields are used to store errors for the interface 

 ; error file.

 ;*************************************************************

 S ^UTILITY($J,"INHSR",4003)=1

 S ^UTILITY($J,"INHSR",4003,.11)=""

 S ^UTILITY($J,"INHSR",4003,.04)=""

 S ^UTILITY($J,"INHSR",4003,.09)=""

 S ^UTILITY($J,"INHSR",4003,.1)=""

 S ^UTILITY($J,"INHSR",4003,.05)=""

 S ^UTILITY($J,"INHSR",4003,.06)=""

 S ^UTILITY($J,"INHSR",4003,.01)=""

 S ^UTILITY($J,"INHSR",4003,.02)=""

 Q

INHMSR    ;KN; 31 Jan 96 09:47; Calling routine for the INHMSR1 Module. 

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

 +2       ;COPYRIGHT 1991-2000 SAIC

 +3       ;

 +4       ; MODULE NAME: INHMSR Module.

 +5       ;

 +6       ; PURPOSE:

 +7       ; The purpose of the INHMSR is used to ask user for enter file name,

 +8       ; and call the INHMSR1 module to start for the process.  Also the 

 +9       ; INHGLB is used for the global ^UTILITY.

 +10      ;

 +11      ;

 +12      ; DESCRIPTION:

 +13      ; The processing of this routine will prompt user to enter file name,

 +14      ; look up DD for the file IEN, and call INHMSR1 module to start the 

 +15      ; Statistical process.  In addition, the INHGLB routine is used to

 +16      ; store the predefined selectable fields in global ^UTILITY. 

 +17      ;

EN        ; Entry point for the INHMSR

 +1       ;    

 +2        NEW INIEN,INNM,INA

 +3       ;If not found pre-defined selectable fields, run INHGLB

 +4        IF '$DATA(^UTILITY($JOB,"INHSR"))

               DO INHGLB

 +5        SET DIC="^DIC("

           SET DIC(0)="AEQ"

           SET DIC("A")="Enter File Name: "

 +6        DO ^DIC

 +7        IF $GET(DUOUT)!(Y<0)

               GOTO Q

 +8        SET INIEN=+Y

           SET INNM=$PIECE(Y,U,2)

 +9        DO EN^INHMSR1(INIEN,INNM)

Q          KILL ^UTILITY($JOB)

 +1        QUIT 

 +2       ;

UIF       ; Universal Interface file

 +1       ;

 +2        NEW INIEN,INNM,INA

 +3        DO INHGLB

 +4        DO EN^INHMSR1(4001,"Universal Interface File")

 +5        QUIT 

ERR       ;Interface error file

 +1       ;

 +2        NEW INIEN,INNM,INA

 +3        DO INHGLB

 +4        DO EN^INHMSR1(4003,"Interface Error")

 +5        QUIT 

 +6       ;

INHGLB    ; Temperary global set

 +1       ; 

 +2       ; Description: This file is used to set up temporary global for 

 +3       ;  display setectable fields as need.

 +4       ; 

 +5       ; These fields are used to holds all interface transactions

 +6       ; regardless of the destination.  It also holds all status

 +7       ; and tracking information for the transactions.

 +8       ; **************************************************************

 +9        SET ^UTILITY($JOB,"INHSR",4001)=1

 +10       SET ^UTILITY($JOB,"INHSR",4001,.12)=""

 +11       SET ^UTILITY($JOB,"INHSR",4001,.01)=""

 +12       SET ^UTILITY($JOB,"INHSR",4001,.02)=""

 +13       SET ^UTILITY($JOB,"INHSR",4001,.1)=""

 +14       SET ^UTILITY($JOB,"INHSR",4001,.14)=""

 +15       SET ^UTILITY($JOB,"INHSR",4001,.11)=""

 +16       SET ^UTILITY($JOB,"INHSR",4001,.16)=""

 +17       SET ^UTILITY($JOB,"INHSR",4001,.08)=""

 +18       SET ^UTILITY($JOB,"INHSR",4001,.03)=""

 +19       SET ^UTILITY($JOB,"INHSR",4001,5)=""

 +20      ;**************************************************************

 +21      ; This fields are used to store errors for the interface 

 +22      ; error file.

 +23      ;*************************************************************

 +24       SET ^UTILITY($JOB,"INHSR",4003)=1

 +25       SET ^UTILITY($JOB,"INHSR",4003,.11)=""

 +26       SET ^UTILITY($JOB,"INHSR",4003,.04)=""

 +27       SET ^UTILITY($JOB,"INHSR",4003,.09)=""

 +28       SET ^UTILITY($JOB,"INHSR",4003,.1)=""

 +29       SET ^UTILITY($JOB,"INHSR",4003,.05)=""

 +30       SET ^UTILITY($JOB,"INHSR",4003,.06)=""

 +31       SET ^UTILITY($JOB,"INHSR",4003,.01)=""

 +32       SET ^UTILITY($JOB,"INHSR",4003,.02)=""

 +33       QUIT