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

Package: Scheduling

Routine: SDUNC


Information

SDUNC ;ALB/MGD,BLB - RESTORE CLINIC AVAILABILITY ;Apr 12, 2022

Source Information

Source file <SDUNC.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Scheduling 5 DOW^SDM0  EN^SDTMPHLC  ERRM^SDUNC1  DTS^SDUTL  $$CLNCK^SDUTL2  
VA FileMan 4 ^%DT  ^DIC  DT^DICRW  FILE^DIE  

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
Scheduling 1 SDRESTORE  

Entry Points

Name Comments DBIA/ICR reference
NOWAY
NOPAT
B
N
FIX
CHK ;
FIX2
SEL
A
ROK
KMES
TC
TM
TMPD
TMPP

External References

Name Field # of Occurrence
^%DT SDUNC+8
^DIC SDUNC+4
DT^DICRW SDUNC+4
FILE^DIE CHK+4
DOW^SDM0 B
EN^SDTMPHLC TMPD, TMPP
ERRM^SDUNC1 SDUNC+15
DTS^SDUTL SDUNC+10
$$CLNCK^SDUTL2 SDUNC+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,"Clinic MUST be corrected before continuing."
  • Line Location: SDUNC+7
Function Call: WRITE
  • Prompt: !,*7,"Clinic is inactive ",$S(SDRE:"from ",1:"as of "),SDIN1,$S(SDRE:" to "_SDRE1,1:"")
  • Line Location: SDUNC+11
Function Call: WRITE
  • Prompt: !,"RESTORED!",*7
  • Line Location: SDUNC+14
Function Call: WRITE
  • Prompt: !,*7,"CLINIC HAS NOT BEEN CANCELLED FOR THAT DATE, SO IT CANNOT BE RESTORED",*7
  • Line Location: NOWAY+0
Function Call: WRITE
  • Prompt: !,*7,"NO UPCOMING OR INDEFINITE APPOINTMENT PATTERN EXISTS FOR DAY OF WEEK,",!,"CREATE 'AVAILABILITY' PATTERN THRU 'CLINIC SETUP', THEN RESTORE AGAIN",*7
  • Line Location: NOPAT+0
Function Call: WRITE
  • Prompt: !,*7,"CLINIC DOES NOT MEET ON THAT DAY"
  • Line Location: N+0
Function Call: WRITE
  • Prompt: !,"Clinic has been cancelled for the following periods:",!
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !,?9,"(",$J(I1,2),") ","From: ",$J($P(I,"^",1),8)," To: ",$J($P(I,"^",2),8)
  • Line Location: SEL+4
Function Call: READ
  • Formatting: !!
  • Prompt: "RESTORE WHICH PERIOD?: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,"Enter the # that precedes the time period you want to restore."
  • Line Location: A+1
Function Call: WRITE
  • Prompt: " ",$P(SDTEMP(SDZZ(SDR)),"^",1)," - ",$P(SDTEMP(SDZZ(SDR)),"^",2)
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !,*7,"INVALID CHOICE, TRY AGAIN"
  • Line Location: A+3
Routine Call
  • DIC
  • Line Location:
    • SDUNC+4
Routine Call
  • DIE
  • Line Location:
    • CHK+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] SDUNC+4, SDUNC+10, SDUNC+12, SDUNC+13, SDUNC+14*!, SDUNC+15, SDUNC+17*, B, N!, N+1!
, FIX, FIX+1, CHK+1, CHK+6, FIX2, SEL, SEL+2, SEL+3, ROK+2!

Label References

Name Line Occurrences
A A+1, A+3
B SDUNC+16
CHK SDUNC+14, N+1
FIX SDUNC+14
FIX2 B
KMES CHK+6
N SDUNC+17
NOPAT SDUNC+16
NOWAY SDUNC+12, SDUNC+13
ROK A+2
SDUNC SDUNC+4, SDUNC+7, SDUNC+11, NOWAY, NOPAT, N
SEL FIX, FIX2+1
TC ROK
TM SEL+2, SEL+3
TMPD N+1
TMPP ROK+2

Naked Globals

Name Field # of Occurrence
^( B, SEL+2
^("I" SDUNC+10
^("MES" CHK+6, KMES!, KMES+1!
^("SL" SDUNC+5, SEL
^(0 ROK+2*
^(1 SDUNC+13, SDUNC+14, B

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SDUNC+9*, SEL*, ROK, TC*, TM*
%DT SDUNC+8*!
%DT("A" SDUNC+8*
>> CDATE SDUNC+9*, SDUNC+11, ROK+1
CNT ROK+2*!
>> DA(1 B*
>> DH SDUNC+16, SDUNC+17, B*, FIX2+1*
>> DIC SDUNC+4*
>> DIC("A" SDUNC+4*!
>> DIC("S" SDUNC+4*!
>> DIC(0 SDUNC+4*
>> DO B*
>> DOW B*
DTIME A
F TMPP~*
FR ROK*, ROK+1, ROK+4!, TMPP
FULLDAYFDA CHK+2~, CHK+4!
FULLDAYFDA( CHK+3*
>> HOLD SDUNC+14, B*, FIX+1*, FIX2+1, ROK+2*, ROK+3*
>> I SEL+2*, SEL+3*, SEL+4*
>> I1 SEL+4*
I5 ROK+3*!
>> N1 CHK+6*, KMES+1
>> SC SDUNC+5*, SDUNC+6, SDUNC+10, SDUNC+12, SDUNC+13, SDUNC+14, SDUNC+15, SDUNC+17, B, N
, N+1, FIX, FIX+1, CHK+1, CHK+3, CHK+6, FIX2, SEL, SEL+2, SEL+3
, ROK+2, TMPD, TMPP
>> SD SDUNC+9*, SDUNC+12, SDUNC+13, SDUNC+14, SDUNC+15, SDUNC+17, B, N, N+1, FIX
, FIX+1, CHK+1, CHK+3, CHK+6, FIX2, SEL+2, SEL+3, ROK+2, TMPD, TMPP
SDANS ROK+4!
SDBEG ROK*, ROK+2, ROK+4!
SDEND ROK*, ROK+2, ROK+4!
SDFR SEL+2*, SEL+3*, A!
SDFR1 SDUNC+14, SDUNC+17, CHK+6, FIX2+1, SEL!, ROK+1*, ROK+2, KMES, KMES+1
SDFRX SEL+2*, SEL+3*, A!
SDIN SDUNC+10!*, SDUNC+11, SDUNC+12!
SDIN1 SDUNC+10!*, SDUNC+11, SDUNC+12!
SDR A+2*, ROK, ROK+1!
SDRE SDUNC+10!*, SDUNC+11, SDUNC+12!
SDRE1 SDUNC+10!*, SDUNC+11, SDUNC+12!
SDRES SDUNC+6~*, SDUNC+7
>> SDREST FIX*, FIX2+1*, ROK+2
SDTEMP SEL+2!, ROK+1!
SDTEMP( SEL+2*, SEL+3*, SEL+4, A+2
SDTO SEL+2*, A!
SDZZ SEL+2!*, SEL+3*, ROK+1!
SDZZ( SEL+2*, SEL+3*, SEL+4, A+2, ROK
SI SDUNC+9*, B, SEL*, ROK, ROK+4!, TC
>> SL SDUNC+5*, SDUNC+9, SEL*
>> SS B*
STARTDAY SDUNC+9*, SEL*, ROK+4!, TC
T TMPP~*
TMPP N+1!, TMPP*
TO ROK*, ROK+4!, TMPP
U SDUNC+8, SDUNC+9, SEL, ROK+2
>> X SDUNC+4, SDUNC+14, B*, SEL+2*, SEL+3*, A*, A+1, A+2, ROK*, TC
, TM*
X1 SEL+2, SEL+3, A!, TM*
>> Y SDUNC+4, SDUNC+5, SDUNC+8, SDUNC+9, SDUNC+10*, B
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All