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 ;MAN/GRR - RESTORE CLINIC AVAILABILITY ; 24 JUL 2003 10:08 am

Source Information

Source file <SDUNC.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Scheduling 4 DOW^SDM0  ERRM^SDUNC1  DTS^SDUTL  $$CLNCK^SDUTL2  
VA Fileman 3 ^%DT  ^DIC  DT^DICRW  
IHS Changes To ADT 1 MSG^BDGF  
IHS Changes To Scheduling 1 ($$INACTMSG,$$OWNER)^BSDU  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Changes To Scheduling 2 ASDAVAIL  BSDAVAIL  
Scheduling 1 SDRESTORE  

Entry Points

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

External References

Name Field # of Occurrence
^%DT SDUNC+16
MSG^BDGF SDUNC+11
$$INACTMSG^BSDU SDUNC+9
$$OWNER^BSDU SDUNC+11
^DIC SDUNC+9
DT^DICRW SDUNC+9
DOW^SDM0 B
ERRM^SDUNC1 SDUNC+23
DTS^SDUTL SDUNC+18
$$CLNCK^SDUTL2 SDUNC+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,"Clinic MUST be corrected before continuing."
  • Line Location: SDUNC+15
Function Call: WRITE
  • Prompt: !,*7,"Clinic is inactive ",$S(SDRE:"from ",1:"as of "),SDIN1,$S(SDRE:" to "_SDRE1,1:"")
  • Line Location: SDUNC+19
Function Call: WRITE
  • Prompt: !,"RESTORED!",*7
  • Line Location: SDUNC+22
Function Call: WRITE
  • Prompt: !!,"**** This date CANNOT be RESTORED. ****",!,"Clinic has been INACTIVATED and default slots have been removed.",!,"You must enter the AVAILABILITY again under Set Up A Clinic."
  • Line Location: SDUNC+28
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: !,"RESTORED!",*7
  • Line Location: N+1
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+8
Function Call: WRITE
  • Prompt: !,?9,"(",$J(I1,2),") ","From: ",$J($P(I,"^",1),8)," To: ",$J($P(I,"^",2),8)
  • Line Location: SEL+9
Function Call: READ
  • Prompt: "RESTORE WHICH PERIOD?: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • 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+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] SDUNC+9, SDUNC+12, SDUNC+18, SDUNC+20, SDUNC+21, SDUNC+22*!, SDUNC+23, SDUNC+27, SDUNC+29*, SDUNC+32*
, B, N!, N+1!, FIX, FIX+1, CHK, FIX2, SEL, SEL+5, SEL+7
, ROK+3!

Label References

Name Line Occurrences
A A+1, A+3
B SDUNC+27
CHK SDUNC+22, N+1
FIX SDUNC+22
FIX2 B
KMES CHK
N SDUNC+29, SDUNC+32
NOWAY SDUNC+20, SDUNC+21
ROK A+2
SDUNC SDUNC+9, SDUNC+11, SDUNC+15, SDUNC+19, NOWAY, NOPAT, N
SEL FIX, FIX2+1
TC ROK
TM SEL+5, SEL+7

Naked Globals

Name Field # of Occurrence
^( B, SEL+5
^("I" SDUNC+18
^("MES" CHK, KMES!, KMES+1!
^("SL" SDUNC+13, SEL
^(0 ROK+3*
^(1 SDUNC+21, SDUNC+22, B

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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