Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DGPFDIV

Package: Registration

Routine: DGPFDIV


Information

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

Source Information

Source file <DGPFDIV.m>

Call Graph

Call Graph

Call Graph Total: 6

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPF ENABLE DIVISIONS  

Entry Points

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

External References

Name Field # of Occurrence
$$LOCK^DGPFDIV1 SET+39
$$STODIV^DGPFDIV1 SET+43
UNLOCK^DGPFDIV1 SET+47
VIEW^DGPFDIV1 EN+28
$$ANSWER^DGPFUT SET+34
$$EZBLD^DIALOG SET+35, SET+40, SET+44
$$EXTERNAL^DILFD SET+43
$$GET1^DIQ SET+34
^DIR ASKACT+32, ASKDIV+39

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

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

Label References

Name Line Occurrences
$$ASKACT EN+24
$$ASKDIV EN+31
SET EN+37

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All