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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: DGWAIT

Package: Registration

Routine: DGWAIT


Information

DGWAIT ;ALB/JDS - ENTER PATIENTS INTO WAIT LIST; 21 APR 84 13:57

Source Information

Source file <DGWAIT.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 4 ^DIC  YN^DICN  ^DIE  ^DIK  

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: 3

Package Total Caller Graph
Registration 3 DG WAITING LIST DELETE  DG WAITING LIST ENTRY  DGDIS1  

Entry Points

Name Comments DBIA/ICR reference
DIV
PAT
EDIT
CD
Q
DIVK
PATK
OKD
W
T ;;S DIE("NO^")="",DFN=+^DGWAIT(DA(1),"P",DA,0);S SC=$S('$D(^DPT(DFN,.3)):0,$P(^(.3),"^",1)="Y":1,1:0);.01;2//NOW;12//HOSPITAL;I X'="h" S Y=1;13//GENERAL;1;1.5;3.5;I 'X S Y=4;3.6;3.7;4//PENDING;3///^S X=SC;K SC;5;K DIE("NO^");10;

External References

Name Field # of Occurrence
^DIC DIVPATDIVKPATK
YN^DICN OKD
^DIE EDIT
^DIK OKD+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: !!,"Patient Deleted from Waiting List",*7
  • Line Location: EDIT+0
Function Call: WRITE
  • Prompt: !!,"Patient Entered on Waiting List"
  • Line Location: CD+0
Function Call: WRITE
  • Prompt: !!,"Above inconsistencies must be corrected before continuing.",!
  • Line Location: CD+1
Function Call: WRITE
  • Prompt: !,"ANSWER 'Y'ES OR 'N'O"
  • Line Location: OKD+0
Function Call: WRITE
  • Prompt: !,"*DELETED*"
  • Line Location: OKD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !," > ",$P(DGF,"^",X)," ",X1
  • Line Location: W+0
Routine Call
  • DIC
  • Line Location:
    • DIV
    • PAT
    • DIVK
    • PATK
Routine Call
  • DIE
  • Line Location:
    • EDIT

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGWAIT - [#42.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGWAIT - [#42.5] PAT*, EDIT+1, OKD
^DIC(42.55 - [#42.55] EDIT+6
^DPT - [#2] OKD

Label References

Name Line Occurrences
CD EDIT+7
DIV PAT
DIVK PATK
EDIT CD+1
OKD OKD
PAT EDITCD
Q DIVEDITCDDIVKOKD+1, OKD+2
T EDIT
W EDIT+3, EDIT+4, EDIT+5, EDIT+6, EDIT+7

Naked Globals

Name Field # of Occurrence
^(0 EDIT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % OKD*, OKD+1
DA EDIT*, Q!, PATK*, OKD
DA(1 PAT*, EDITCD+1*, PATK*, OKD+1*
DE PAT!, PATK!
DGD EDIT+1*, EDIT+3, EDIT+4, EDIT+5, EDIT+6, EDIT+7, Q!
DGER EDIT+1*, CD, Q!, W*
DGF EDIT+2*, Q!, W
DGI EDIT*!, EDIT+1, CD+1, Q!
DGI1 EDIT*!, EDIT+1, CD+1, Q!
DGWAIT DIV*, EDITCD, Q!
DIC DIV!*, PAT!*, EDIT, Q!, DIVK!*, PATK!*, OKD+1
DIC("A" DIVK*, PATK*
DIC(0 DIV*, PAT*, DIVK*, PATK*
DIE PAT!, EDIT*, Q!, PATK!
DIE("NO^" DIV!, DIVK!
>> DIK OKD+1*
DIV DIV*, PAT, Q!, DIVK*, PATKOKDOKD+1
>> DP EDIT*
DQ PAT!, PATK!
DR EDIT*!, Q!
X EDIT+3*, EDIT+4*, EDIT+5*, EDIT+6*, EDIT+7*, Q!, W
X1 EDIT+3*, EDIT+4*, EDIT+5*, EDIT+6*, EDIT+7*, Q!, W
>> Y DIVPATEDITCD+1*, DIVKPATK

Marked Items

Name Field # of Occurrence
$T(T EDIT
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All