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 Total: 14

Package Total Call Graph
Scheduling 5 $$MAKE^SDAMWI1  DOW^SDM0  WL^SDM1  ^SDM4  $$CLNCK^SDUTL2  
Registration 3 $$SUB^DGSAUTL  (2,KVAR)^VADPT  ($$FDATE,$$FTIME,$$UPPER,PAUSE)^VALM1  
VA Fileman 3 ^%DT  ^DIC  $$GET1^DIQ  
IHS Changes To ADT 2 PAUSE^BDGF  $$LASTREG^BDGF2  
IHS Changes To Scheduling 1 $$PC^BSDU  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Scheduling 2 SDAM2  SDCI  

Entry Points

Name Comments DBIA/ICR reference
CLQ
CANCHKQ
IHS1 ;IHS/ANMC/LJF 9/10/2001 added line label
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
AVAIL(SC,SDT) ; -- does clinic meet
; input: SC := clinic# ; SDT := date/time of wi appt
; returned: success or fail := 1/0
TIMEQ
ENQ
CANCHK(SC,SDT) ; -- is clinic cancelled for date
; input: SC := clinic# ; SDT := date/time of wi appt
; returned: success or fail := 1/0
EN(DFN,SC) ; -- main entry point
; input: DFN ; SC := clinic#
; returned: success or fail := 1/0
PT(SC) ;
; input: SC := clinic#
; returned: success or fail := 1/0
AVAILQ
ASK
CL(DFN) ; -- make wi appt
; input: DFN
; returned: success or fail := 1/0
PTQ

External References

Name Field # of Occurrence
^%DT ASK+7
PAUSE^BDGF IHS1+7
$$LASTREG^BDGF2 CL+4
$$PC^BSDU IHS1+7
$$SUB^DGSAUTL EN+18
^DIC IHS1+3, PT+5
$$GET1^DIQ IHS1+7
$$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
  • Prompt: "APPOINTMENT TIME: NOW// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • 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
Function Call: WRITE
  • Prompt: !?5,"Last Registration Update: ",$$LASTREG^BDGF2(DFN)
  • Line Location: CL+4
Function Call: WRITE
  • Prompt: !,"Access to ",$$GET1^DIQ(44,+Y,.01)," is prohibited!",!,"Only users with a special code may access this clinic."
  • Line Location: IHS1+7
Routine Call
  • DIC
  • Line Location:
    • IHS1+3
    • PT+5

FileMan Files Accessed Via FileMan Db Call

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

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, IHS1+7

Label References

Name Line Occurrences
$$AVAIL CANCHK+9
$$CANCHK ASK+8
$$EN IHS1+9, 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 IHS1+4
ENQ EN+5, EN+9, EN+10, EN+12, EN+13, EN+14
IHS1 IHS1+7
PTQ PT+6
TIMEQ ASK+1

Naked Globals

Name Field # of Occurrence
^("I" EN+8
^("SDPROT" IHS1+7
^("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+4, IHS1+9, PT+7*
DIC IHS1+1*, IHS1+3!, PT+4*, PT+5!
DIC("A" IHS1+1*, PT+4*
DIC("S" IHS1+1*, IHS1+2*
DIC(0 IHS1+1*, PT+4*
DT EN+9, EN+10, ASK+7, AVAIL+6
DTIME ASK
DUZ IHS1+7
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, IHS1+9*, 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, IHS1+4*, IHS1+9*, CLQ, PT+6*, PT+7*, PTQ
U EN+8, IHS1+7
>> 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, IHS1+4, IHS1+7, IHS1+9, 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