DGMFRPT.m

DGMFRPT ;DAL/JCH - NDS DEMOGRAPHICS MASTER FILE REPORTS ;15-AUG-2017

 ;;5.3;Registration;**933**;Aug 13, 1993;Build 44

 ;

 ; Available at Master File Reports [DGMF RMAIN] option, at the following menu path:

 ;    Supervisor ADT Menu [DG SUPERVISOR MENU]

 ;      ADT System Definition Menu [DG SYSTEM DEFINITION MENU]

 ;        Master Demographics Files [DGMF MENU]

 ;          Master File Reports [DGMF RMAIN]

 Q

 ;

EN  ; Allow users to print Demographics Master files

 D INFO        ; Display option info

 N DGDONE      ; Signal from user - Q:DGDONE

 S DGDONE=0

 ; Prompt for Demographics files (#10, #11, or #13) entries until user quits

 F  Q:DGDONE  D

 .N DGFILE

 .S DGFILE=$$ASKFILE()

 .I 'DGFILE S DGDONE=1 Q

 .S ROU=$S(DGFILE=10:"EN^DGMFR10",DGFILE=11:"EN^DGMFR11",DGFILE=13:"EN^DGMFR13",1:"")

 .I ROU="" W !," ??" Q

 .D @ROU

 .D INFO

 Q

 ;

INFO ; Display message, clear screen

 N MSG

 S MSG(1)=" This option prints entries from the RACE file(#10),"

 S MSG(2)=" MARITAL STATUS (#11) file, and RELIGION file (#13),"

 S MSG(3)=" and their association with its corresponding"

 S MSG(4)=" MASTER file containing a set of standard entries."

 S MSG(5)=""

 D CLEAR^VALM1

 D BMES^XPDUTL(.MSG)

 Q

 ;

ASKFILE()  ; Ask user to enter local file to print

 N DIR

 S DIR(0)="SO^10:RACE;11:MARITAL STATUS;13:RELIGION"

 S DIR("?")="Select a file to print its Master File associations."

 S DIR("L",1)="   RACE file           (10)"

 S DIR("L",2)="   MARITAL STATUS file (11)"

 S DIR("L")="   RELIGION file       (13)"

 S DIR("A")="Enter the file name or number "

 D ^DIR

 Q $S(Y>0:+Y,1:"")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGMFRPT   1624     printed  Apr 09, 2024@21:56:54                                                                                                                                                                                                     Page 2

DGMFRPT   ;DAL/JCH - NDS DEMOGRAPHICS MASTER FILE REPORTS ;15-AUG-2017

 +1       ;;5.3;Registration;**933**;Aug 13, 1993;Build 44

 +2       ;

 +3       ; Available at Master File Reports [DGMF RMAIN] option, at the following menu path:

 +4       ;    Supervisor ADT Menu [DG SUPERVISOR MENU]

 +5       ;      ADT System Definition Menu [DG SYSTEM DEFINITION MENU]

 +6       ;        Master Demographics Files [DGMF MENU]

 +7       ;          Master File Reports [DGMF RMAIN]

 +8        QUIT 

 +9       ;

EN        ; Allow users to print Demographics Master files

 +1       ; Display option info

           DO INFO

 +2       ; Signal from user - Q:DGDONE

           NEW DGDONE

 +3        SET DGDONE=0

 +4       ; Prompt for Demographics files (#10, #11, or #13) entries until user quits

 +5        FOR 

               if DGDONE

                   QUIT 

               Begin DoDot:1

 +6                NEW DGFILE

 +7                SET DGFILE=$$ASKFILE()

 +8                IF 'DGFILE

                       SET DGDONE=1

                       QUIT 

 +9                SET ROU=$SELECT(DGFILE=10:"EN^DGMFR10",DGFILE=11:"EN^DGMFR11",DGFILE=13:"EN^DGMFR13",1:"")

 +10               IF ROU=""

                       WRITE !," ??"

                       QUIT 

 +11               DO @ROU

 +12               DO INFO

               End DoDot:1

 +13       QUIT 

 +14      ;

INFO      ; Display message, clear screen

 +1        NEW MSG

 +2        SET MSG(1)=" This option prints entries from the RACE file(#10),"

 +3        SET MSG(2)=" MARITAL STATUS (#11) file, and RELIGION file (#13),"

 +4        SET MSG(3)=" and their association with its corresponding"

 +5        SET MSG(4)=" MASTER file containing a set of standard entries."

 +6        SET MSG(5)=""

 +7        DO CLEAR^VALM1

 +8        DO BMES^XPDUTL(.MSG)

 +9        QUIT 

 +10      ;

ASKFILE() ; Ask user to enter local file to print

 +1        NEW DIR

 +2        SET DIR(0)="SO^10:RACE;11:MARITAL STATUS;13:RELIGION"

 +3        SET DIR("?")="Select a file to print its Master File associations."

 +4        SET DIR("L",1)="   RACE file           (10)"

 +5        SET DIR("L",2)="   MARITAL STATUS file (11)"

 +6        SET DIR("L")="   RELIGION file       (13)"

 +7        SET DIR("A")="Enter the file name or number "

 +8        DO ^DIR

 +9        QUIT $SELECT(Y>0:+Y,1:"")