DGMFASS ;DAL/JCH - NDS DEMOGRAPHICS MASTER FILE ASSOCIATIONS ;15-AUG-2017
;;5.3;Registration;**933**;Aug 13, 1993;Build 44
;
Q
;
; Available at Master File Association Enter Edit [DGMF AMAIN] 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 Association Enter/Edit [DGMF AMAIN]
;
EN ; Allow users to populate the RACE MASTER field (#90) in RACE file (#10)
D INFO ; Display option info
N DGDONE ; Signal from user - Q:DGDONE
S DGDONE=0
; Prompt for Demographics files (#10, #11, #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^DGMFA10",DGFILE=11:"EN^DGMFA11",DGFILE=13:"EN^DGMFA13",1:"")
.I ROU="" W !," ??" Q
.D @ROU
.D INFO
Q
;
INFO ; Display message, clear screen
N MSG
S MSG(1)=" This option allows entries from the RACE file (#10),"
S MSG(2)=" MARITAL STATUS (#11) file, and RELIGION file (#13),"
S MSG(3)=" to be associated with an entry from a 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 associate
N DIR
S DIR(0)="SO^10:RACE;11:MARITAL STATUS;13:RELIGION"
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 ---[H[J[2J[HDGMFASS 1629 printed Dec 13, 2024@02:44:10 Page 2
DGMFASS ;DAL/JCH - NDS DEMOGRAPHICS MASTER FILE ASSOCIATIONS ;15-AUG-2017
+1 ;;5.3;Registration;**933**;Aug 13, 1993;Build 44
+2 ;
+3 QUIT
+4 ;
+5 ; Available at Master File Association Enter Edit [DGMF AMAIN] option, at the following menu path:
+6 ; Supervisor ADT Menu [DG SUPERVISOR MENU]
+7 ; ADT System Definition Menu [DG SYSTEM DEFINITION MENU]
+8 ; Master Demographics Files [DGMF MENU]
+9 ; Master File Association Enter/Edit [DGMF AMAIN]
+10 ;
EN ; Allow users to populate the RACE MASTER field (#90) in RACE file (#10)
+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, #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^DGMFA10",DGFILE=11:"EN^DGMFA11",DGFILE=13:"EN^DGMFA13",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 allows entries from the RACE file (#10),"
+3 SET MSG(2)=" MARITAL STATUS (#11) file, and RELIGION file (#13),"
+4 SET MSG(3)=" to be associated with an entry from a 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 associate
+1 NEW DIR
+2 SET DIR(0)="SO^10:RACE;11:MARITAL STATUS;13:RELIGION"
+3 SET DIR("L",1)=" RACE file (10)"
+4 SET DIR("L",2)=" MARITAL STATUS file (11)"
+5 SET DIR("L")=" RELIGION file (13)"
+6 SET DIR("A")="Enter the file name or number "
+7 DO ^DIR
+8 QUIT $SELECT(Y>0:+Y,1:"")
