Routine: DGPFDIV

Information

DGPFDIV ;ALB/KCL - PRF ENABLE MEDICAL CENTER DIVISIONS ; 9/19/05 4:03pm

Package	Total	Call Graph
VA Fileman	4	$$EZBLD^DIALOG $$EXTERNAL^DILFD $$GET1^DIQ ^DIR
Registration	2	($$LOCK,$$STODIV,UNLOCK,VIEW)^DGPFDIV1 $$ANSWER^DGPFUT

Package	Total	Caller Graph
Registration	1	DGPF ENABLE DIVISIONS

Name	Comments	DBIA/ICR reference
ASKACT(DGSEL)	;select division action
SET(DGSEL,DGDIV)	;enable/disable medical center divisions
EN	;Main entry point for DGPF ENABLE DIVISIONS option.
ASKDIV(DGSEL,DGDIV)	;select medical center divisions

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+14
Function Call: WRITE	Prompt: !,"This option allows multi-divisional facilities to enable, disable, and view" Line Location: EN+15
Function Call: WRITE	Prompt: !,"individual medical center divisions as patient record flag assignment owners." Line Location: EN+16
Function Call: WRITE	Prompt: !!,"Preparing to '"_$P(DGACT,U,2)_"' the selected medical center divisions as" Line Location: SET+26
Function Call: WRITE	Prompt: !,"patient record flag assignment owners...",! Line Location: SET+27
Function Call: WRITE	Prompt: !?2,">>> "_$$EZBLD^DIALOG(261131)_".",! Line Location: SET+35
Function Call: WRITE	Prompt: !?2,">>> "_$$EZBLD^DIALOG(261131)_": Record is currently locked.",! Line Location: SET+40
Function Call: WRITE	Prompt: !?2,">>> Medical center division has been "_$$EXTERNAL^DILFD(40.8,26.01,"",+DGACT),! Line Location: SET+43
Function Call: WRITE	Prompt: !?2,">>> "_$$EZBLD^DIALOG(261131)_"Unable to file changes.",! Line Location: SET+44
Function Call: WRITE	Prompt: !!,"Enter each medical center division that you would like to "_$P(DGACT,U,2)_".",! Line Location: ASKDIV+26
Routine Call	DIALOG Line Location: SET+35 SET+40 SET+44
Routine Call	DIR Line Location: ASKACT+32 ASKDIV+39

FileNo	Call Tags
^DG(40.8 - [#40.8]	EXTERNAL^DILFD, GET1^DIQ

Name	Field # of Occurrence
DGACT	SET+15~, SET+23, SET+24, SET+26, SET+33, SET+43, ASKDIV+16~, ASKDIV+23, ASKDIV+24, ASKDIV+26 , ASKDIV+32
DGANS	SET+16~, SET+34*, SET+35, SET+36
DGDIV	EN+10~, EN+23!, EN+31, EN+37, SET~, ASKDIV~, ASKDIV+35!
DGDIV(	SET+31, ASKDIV+45*
DGDIV(0	SET+24, ASKDIV+48
DGEXIT	SET+17~, SET+31, SET+36, ASKDIV+17~, ASKDIV+20
DGIEN	SET+18~, SET+30, SET+31, SET+32, SET+39, SET+43, SET+47
DGIENS	SET+19~, SET+32*, SET+34
DGQUIT	EN+11~, EN+19, EN+20, EN+24, EN+25, EN+31, EN+34
DGRSLT	ASKACT+16~, ASKACT+18, ASKACT+36, ASKACT+38, ASKDIV+18~, ASKDIV+20, ASKDIV+48, ASKDIV+49*, ASKDIV+51
DGSEL	EN+12~, EN+23!, EN+24, EN+31, EN+37, SET~, ASKACT~, ASKDIV~
DGSEL("ACTION"	EN+28, EN+37, SET+23, ASKACT+35*, ASKDIV+23
DGTXT	SET+20~, SET+33*, SET+34
DIR	ASKACT+15~, ASKACT+32!, ASKDIV+15~, ASKDIV+47!
DIR("?"	ASKACT+22, ASKACT+23, ASKACT+24, ASKACT+25, ASKACT+26, ASKACT+27, ASKACT+28, ASKACT+29, ASKACT+30, ASKDIV+32 , ASKDIV+33*
DIR("A"	ASKACT+21, ASKDIV+30
DIR("S"	ASKDIV+31*
DIR(0	ASKACT+20, ASKDIV+29
DIROUT	ASKACT+15~, ASKACT+38, ASKDIV+15~, ASKDIV+49
DIRUT	ASKACT+15~, ASKACT+34, ASKDIV+15~, ASKDIV+37, ASKDIV+42
DTOUT	ASKACT+15~, ASKACT+38, ASKDIV+15~, ASKDIV+49
DUOUT	ASKACT+15~, ASKACT+38, ASKDIV+15~, ASKDIV+49
U	SET+26, SET+33, ASKDIV+26
X	ASKACT+15~, ASKDIV+15~
Y	ASKACT+15~, ASKACT+35, ASKDIV+15~, ASKDIV+45