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  | All
Print Page as PDF
Routine: SDAMWI

Package: Scheduling

Routine: SDAMWI


Information

SDAMWI ;ALB/MJK - Unscheduled Appointments ; 5/3/05 5:50pm

Source Information

Source file <SDAMWI.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Scheduling 5 $$MAKE^SDAMWI1  DOW^SDM0  WL^SDM1  ^SDM4  $$CLNCK^SDUTL2  
Registration 2 $$SUB^DGSAUTL  (2,KVAR)^VADPT  
VA FileMan 2 ^%DT  ^DIC  
List Manager 1 ($$FDATE,$$FTIME,$$UPPER,PAUSE)^VALM1  

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

Package Total Caller Graph
Scheduling 2 SDAM2  SDCI  

Entry Points

Name Comments DBIA/ICR reference
EN(DFN,SC) ; -- main entry point
; input: DFN ; SC := clinic#
; returned: success or fail := 1/0
ENQ
TIME(DFN,SC,SDT) ; -- get appt date/time
; input: DFN ; SC := clinic#
; output: SDT := date/time of wi appt
; returned: success or fail := 1/0
ASK
TIMEQ
CANCHK(SC,SDT) ; -- is clinic cancelled for date
; input: SC := clinic# ; SDT := date/time of wi appt
; returned: success or fail := 1/0
CANCHKQ
AVAIL(SC,SDT) ; -- does clinic meet
; input: SC := clinic# ; SDT := date/time of wi appt
; returned: success or fail := 1/0
AVAILQ
CL(DFN) ; -- make wi appt
; input: DFN
; returned: success or fail := 1/0
CLQ
PT(SC) ;
; input: SC := clinic#
; returned: success or fail := 1/0
PTQ

External References

Name Field # of Occurrence
^%DT ASK+7
$$SUB^DGSAUTL EN+18
^DIC CL+5, PT+5
$$MAKE^SDAMWI1 EN+19
DOW^SDM0 AVAIL+5
WL^SDM1 EN+13
^SDM4 EN+14
$$CLNCK^SDUTL2 EN+11
2^VADPT EN+5
KVAR^VADPT ENQ
$$FDATE^VALM1 EN+8
$$FTIME^VALM1 EN+9, EN+10, ASK+9
$$UPPER^VALM1 ASK
PAUSE^VALM1 EN+5, EN+9, EN+10, EN+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,*7,"o Patient has died!"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!?5,*7,"o Clinic is inactive from ",$$FTIME^VALM1(SDIN)," to "_SDRE1
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!?5,*7,"o Clinic is inactive as of ",$$FTIME^VALM1(SDIN)
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,?5,*7,"o Clinic MUST be corrected before continuing."
  • Line Location: EN+12
Function Call: READ
  • Formatting: !!
  • Prompt: "APPOINTMENT TIME: NOW// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !?5,*7,"o Patient already has an appt on ",$$FTIME^VALM1(SDT)
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: !?5,*7,"o This date's clinic has been cancelled!"
  • Line Location: CANCHK+7
Function Call: WRITE
  • Prompt: !?5,*7,"o Warning: Part of this day's clinic has been cancelled!"
  • Line Location: CANCHK+8
Function Call: WRITE
  • Prompt: !?5,*7,"o Clinic does not meet on this date!"
  • Line Location: AVAIL+7
Routine Call
  • DIC
  • Line Location:
    • CL+5
    • PT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] ASK+9
^SC - [#44] EN+6, EN+8, CANCHK+6, CANCHK+7, CANCHK+8, AVAIL+6

Label References

Name Line Occurrences
$$AVAIL CANCHK+9
$$CANCHK ASK+8
$$EN CL+7, PT+7
$$TIME EN+13
ASK ASK+2, ASK+7, ASK+8, ASK+9
AVAILQ AVAIL+6
CANCHKQ CANCHK+6, CANCHK+7, CANCHK+8
CLQ CL+6
ENQ EN+5, EN+9, EN+10, EN+12, EN+13, EN+14
PTQ PT+6
TIMEQ ASK+1

Naked Globals

Name Field # of Occurrence
^("I" EN+8
^("SL" EN+6
^(1 AVAIL+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT TIME+5~, ASK+7*
%DT(0 ASK+7*
COLLAT EN+4~
DFN EN~, EN+13, EN+19, TIME~, ASK+9, CL~, CL+7, PT+7*
DIC CL+4*, CL+5!, PT+4*, PT+5!
DIC("A" CL+4*, PT+4*
DIC("S" CL+4*
DIC(0 CL+4*, PT+4*
DT EN+9, EN+10, ASK+7, AVAIL+6
DTIME ASK
ORDER EN+4~
SC EN~, EN+6, EN+8, EN+11, EN+13, TIME~, ASK+8, CANCHK~, CANCHK+6, CANCHK+7
, CANCHK+8, CANCHK+9, AVAIL~, AVAIL+6, CL+7*, PT~, PT+7
SDALLE EN+4~
SDAPTYP EN+4~, EN+18
SDATD EN+4~
SDCL EN+4~, EN+6*, EN+19
SDD EN+4~, EN+6*
SDDA EN+4~
SDDECOD EN+4~
SDEC EN+4~
SDEMP EN+4~
SDIN EN+4~, EN+7!, EN+8*, EN+9, EN+10
SDOEL EN+4~
SDPL EN+4~
SDRE EN+4~, EN+7!, EN+8*, EN+9, EN+10
SDRE1 EN+4~, EN+7!, EN+8*, EN+9
SDREP EN+4~
SDRES EN+11~*, EN+12
SDRT EN+4~
SDSC EN+4~
SDSL EN+4~, EN+6*
SDSTART EN+4~
SDT EN+13, EN+14, EN+19, TIME~, ASK+7*, ASK+8, ASK+9, CANCHK~, CANCHK+6, CANCHK+7
, CANCHK+8, CANCHK+9, AVAIL~, AVAIL+5
SDTTM EN+4~
SDX EN+4~
SDXSCAT EN+18*, EN+20!
SDY EN+4~, EN+5*, EN+9*, EN+10*, EN+12*, EN+13*, EN+14*, EN+19*, ENQ+1, TIME+5~
, ASK+1*, ASK+10*, TIMEQ, CANCHK+4~, CANCHK+5*, CANCHK+7*, CANCHK+9*, CANCHKQ, AVAIL+4~, AVAIL+6*
, AVAIL+7*, AVAILQ, CL+6*, CL+7*, CLQ, PT+6*, PT+7*, PTQ
U EN+8
>> VADM(6 EN+5
>> X EN+14, ASK*, ASK+1, ASK+2, ASK+5*, ASK+6*, AVAIL+5*
>> Y EN+8*, EN+14*, ASK+7, AVAIL+6, CL+6, CL+7, PT+6, PT+7
>> Z AVAIL+6*
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  | All