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 |  Marked Items |  All
Print Page as PDF
Routine: SDMM

Package: Scheduling

Routine: SDMM


Information

SDMM ;SF/GFT,MAN/GRR - MULTIPLE APPOINTMENTS ; 2/7/05 12:51pm ; Compiled September 25, 2006 13:33:14

Source Information

Source file <SDMM.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Scheduling 8 ^SDM  (D,DOW)^SDM0  ($$REDDT,L)^SDM1  SDMM^SDM1A  MAKE^SDMM1  (AT,DTS)^SDUTL  (ANSW,ASKREM,EN)^SDWLEVAL  (INIT,LIST)^SDWLPL  
VA Fileman 3 ^%DT  C^%DTC  YN^DICN  
IHS Changes To ADT 1 $$READ^BDGF  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Scheduling 5 SD IHS MULT BOOK  SDM1  SDM1A  SDMM1  SDMULTIBOOK  
IHS Changes To Scheduling 1 BSDMM  

Entry Points

Name Comments DBIA/ICR reference
DISP
EN
MSG
RDTY
BEGIN
TM
INACT
DAY ;;^SUN^MON^TUES^WEDNES^THURS^FRI^SATUR
MORDIS
ADT
SDFT
END
OTHER
HLP22
RDC ;W !,"FOR HOW MANY CONSECUTIVE ",$S(SDTYP["W":$P($T(DAY),"^",Y+2)_"DAY'S",1:"DAYS")," DO YOU WANT APPOINTMENTS SCHEDULED",!," AT " S X=SDOT D TM W X,"?: "
MORD2
RD22
OVR
LEN
HLP
HLP1
GETNEX
GETNXD

External References

Name Field # of Occurrence
^%DT ADT+8, ADT+9, EN+3
C^%DTC ADT+8, ADT+10, GETNEX+1, GETNXD+1, SDFT, MORDIS+1, DISP+2
$$READ^BDGF RDTY+2
YN^DICN RD22
^SDM SDMM+5
D^SDM0 DISP+2
DOW^SDM0 LEN+1, GETNXD, GETNXD+1
$$REDDT^SDM1 ADT+5
L^SDM1 LEN
SDMM^SDM1A BEGIN
MAKE^SDMM1 BEGIN+3
AT^SDUTL ADT+7
DTS^SDUTL OVR+1, MORD2, DISP+1
ANSW^SDWLEVAL END+7, END+8
ASKREM^SDWLEVAL END+16
EN^SDWLEVAL END+2, END+9
INIT^SDWLPL END+4
LIST^SDWLPL END+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"ENTER 'D' FOR DAILY OR PRESS RETURN"
  • Line Location: RDTY+1
Function Call: WRITE
  • Prompt: !,"WANT APPOINTMENTS MADE ON SATURDAYS AND SUNDAYS"
  • Line Location: RD22+0
Function Call: READ
  • Prompt: "DATE/TIME: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: ADT+3
Function Call: WRITE
  • Prompt: Y
  • Line Location: ADT+7
Function Call: WRITE
  • Prompt: *7,?50,$P(^(0),U,2),"??"
  • Line Location: OVR+0
Function Call: WRITE
  • Prompt: !,*7,"Clinic is scheduled to be inactivated on ",Y
  • Line Location: OVR+1
Function Call: WRITE
  • Prompt: $S(SDRE:" and reactivated on "_Y,1:"")
  • Line Location: OVR+1
Function Call: WRITE
  • Prompt: !,*7,"EXCEEDS MAXIMUM DAYS FOR FUTURE APPOINTMENT!!",*7
  • Line Location: OVR+3
Function Call: READ
  • Timeout: DTIME
  • Variable: S
  • Line Location: LEN+0
Function Call: WRITE
  • Prompt: !,"LENGTH OF APPOINTMENTS (IN MINUTES): ",+SL,"// "
  • Line Location: LEN+0
Function Call: WRITE
  • Prompt: X,"?: "
  • Line Location: RDC+0
Function Call: WRITE
  • Prompt: !,"FOR HOW MANY CONSECUTIVE ",$S(SDTYP="M":"MONTHS",SDTYP="B":"EVERY OTHER "_$P($T(DAY),U,Y+2)_"DAY'S",SDTYP="W":$P($T(DAY),"^",Y+2)_"DAY'S",1:"DAYS")," DO YOU WANT APPOINTMENTS SCHEDULED",!," AT "
  • Line Location: RDC+1
Function Call: WRITE
  • Prompt: X,"?: "
  • Line Location: RDC+1
Function Call: READ
  • Timeout: DTIME
  • Variable: SDCN
  • Line Location: RDC+3
Function Call: READ
  • Prompt: " OTHER INFO: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: D
  • Line Location: OTHER+0
Function Call: WRITE
  • Prompt: !,*7,"'^' not allowed - hit return if no 'OTHER INFO' is to be entered"
  • Line Location: OTHER+0
Function Call: WRITE
  • Prompt: " ENTER LAB, SCAN, ETC."
  • Line Location: OTHER+2
Function Call: WRITE
  • Prompt: !,SDMCNT," APPOINTMENTS MADE",!
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !,"MUST ENTER A REASON NOT TO DISPOSITION MATCHED EWL ENTRY",!
  • Line Location: END+8
Function Call: WRITE
  • Prompt: !,"Enter the number of appointments you want made (between 1 and 60)."
  • Line Location: HLP+0
Function Call: WRITE
  • Prompt: !,"ENTER 'YES' IF YOU WANT THE SYSTEM TO TRY TO MAKE APPOINTMENTS ON SATURDAYS AND SUNDAYS"
  • Line Location: HLP22+0
Function Call: WRITE
  • Prompt: !,*7,"Appointments can't be made while clinic is inactivated"
  • Line Location: INACT+0
Function Call: WRITE
  • Prompt: !,"Enter a date/time for the appointment"
  • Line Location: HLP1+0
Function Call: WRITE
  • Prompt: ".",!,"You may also select 'M' to display the next month's availability or"
  • Line Location: HLP1+2
Function Call: WRITE
  • Prompt: !,"'D' to specify an earlier or later date to begin the availability display."
  • Line Location: HLP1+3
Function Call: WRITE
  • Prompt: !!?5,"Text entered at OTHER INFO prompt was too long. Please re-enter.",!
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: MORDIS+0
Function Call: WRITE
  • Prompt: *7,!,"Clinic is inactivated as of ",Y
  • Line Location: MORD2+0
Function Call: WRITE
  • Prompt: !!,"Unable to evaluate date value """_X_""".",!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DISV( EN+6*
^HOLIDAY - [#40.5] OVR, GETNEX, GETNEX+1, GETNXD, GETNXD+1
^SC - [#44] ADT+11, SDFT, DISP
^TMP("SDWLPL" END+3!
^TMP($J RDTY!, END+2, END+3!, END+5, END+7, END+8, END+9, END+16

Label References

Name Line Occurrences
@( BEGIN+8
ADT ADT+4, ADT+5, ADT+6, ADT+8, OVR, OVR+1, OVR+2, OVR+3, RDC+3, BEGIN+11
, MORDIS, MORD2
DAY RDC+1
END RDTY+2
GETNEX GETNEX, GETNEX+1
GETNXD GETNXD, GETNXD+1
HLP RDC+3
HLP1 ADT+6
HLP22 RD22
INACT GETNEX, GETNEX+1, GETNXD, GETNXD+1
LEN LEN
MORD2 ADT+5
MORDIS ADT+4
MSG OTHER+1, OTHER+3
OTHER OTHER, OTHER+1, OTHER+2, OTHER+3
OVR ADT+7
RD22 HLP22
RDC HLP
SDFT OVR+3
TM RDC+1

Naked Globals

Name Field # of Occurrence
^("SDP" SDFT
^("SL" ADT+11, DISP
^(0 OVR

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% RD22*, END+21!, TM*
%DT ADT+8!*, ADT+9!*, EN+2~, EN+3*
%H END+21!
%T END+21!
BSDMK BEGIN+2*, BEGIN+4!
C END+21!
CCX ADT*, END+20!
COLLAT END+20!
COV END+20!
D OTHER*, OTHER+1, OTHER+2, OTHER+3, BEGIN*, END+20!
>> DFN END+2, END+4, END+7, END+9
DISYS END+21!
DT SDFT
DTIME ADT+3, LEN, RDC+3, OTHER
DUZ EN+6
I END+20!
IOF DISP*
POP LEN*, BEGIN+3, BEGIN+8*, END+20!, GETNEX*, GETNEX+1*, GETNXD*, GETNXD+1*, INACT*
S LEN*, END+20!
SC ADT+11, END+20!, SDFT, EN+6, DISP
SD ADT+3!, BEGIN+5, END+20!, HLP1+1
SDALLE END+21!
SDAPDT SDMM+5~, ADT+7, BEGIN+5*
SDAPTYP END+20!
SDATD END+21!
SDAV END+21!, DISP*
SDCN RDC+3*, BEGIN+3, BEGIN+4, END+20!
>> SDCTN END+16*
SDDAT LEN+1*, RDC+4, END+20!, GETNEX*, GETNEX+1*, GETNXD*, GETNXD+1*, INACT
SDDECOD END+21!
SDEC END+21!
SDEDT OVR+3, END+20!, SDFT*
SDEMP END+20!
SDERRFT ADT!, BEGIN+3, BEGIN+11
SDEV END+2~, END+9~
SDEV(1 END+2, END+9
SDHX SDMM+5~, ADT+1*, END+21!, MORDIS, MORDIS+1
SDHY MORD2*!, DISP+1*!
SDIN END+21!
SDINA OVR+1, END+20!, INACT, MORD2, DISP+1
SDINP END+21!
SDLOCK END+20!
SDM9 BEGIN*, END+20!
SDMADE RDC+4*, BEGIN+5, BEGIN+8*, END+20!
SDMCNT RDTY+2*, RDC+4*, BEGIN+5*, END, END+20!
SDMES END+20!
SDMM SDMM+5*!
SDNOT END+20!
SDOEL END+21!
SDOT LEN+1*, RDC+1, RDC+4, END+20!, GETNEX, GETNEX+1, GETNXD, GETNXD+1
SDPL END+20!
SDR END+7~, END+8~
SDRE OVR+1, END+20!, INACT, MORD2, DISP+1
SDRT END+20!
SDSC END+20!
SDSDATE ADT+1!
SDSOH ADT+11*, OVR, END+20!, GETNEX, GETNEX+1, GETNXD, GETNXD+1, DISP*
SDT END+21!
SDTTM END+20!
SDTYP RDTY+2*, RD22, RDC+1, BEGIN+8, END+20!
SDW OTHER+3, END+20!, END+21!
SDWE RD22*, END+21!, GETNXD, GETNXD+1
SDWEE END+20!
SDX DISP+2*!
SDX3 END+20!, END+21!
SDX7 END+20!, END+21!
SDX9 BEGIN*, END+20!, END+21!
SDXF END+21!, MORDIS+1*
SDY OVR+1*!, END+21!
SDY1 OVR*, OVR+1, END+20!, END+21!
SDYC END+20!, END+21!
SDZ BEGIN+3*, BEGIN+4, BEGIN+5, END+20!
SDZM BEGIN*!
SDZY BEGIN*, END+20!, END+21!
SI END+21!
SL LEN*, END+21!
SM END+21!
SS END+21!
U OVR, LEN, RDC+1, SDFT, EN+6
X ADT+1*, ADT+2, ADT+3*!, ADT+4, ADT+5*, ADT+6, ADT+7, ADT+8*, ADT+10, LEN+1*
, RDC+1*, BEGIN*, BEGIN+8*, GETNEX+1, GETNXD*, GETNXD+1*, TM*, SDFT, MORD2, EN*
, EN+4, DISP+2*
X1 ADT+8*, ADT+10*, END+21!, GETNEX+1*, GETNXD+1*, SDFT*, MORDIS+1*, DISP+2*
X2 ADT+8*, ADT+10*, END+21!, GETNEX+1*, GETNXD+1*, SDFT*, MORDIS+1*, DISP+2*
Y ADT+7*, ADT+8, ADT+10*, OVR, OVR+1*, OVR+2, OVR+3, LEN+1, RDC+1, RDC+4*
, BEGIN*, END+21!, GETNEX*, GETNEX+1*, GETNXD*, GETNXD+1*, MORD2*, EN+1, EN+4, EN+6
, DISP+1*, DISP+2*

Marked Items

Name Field # of Occurrence
$T(DAY RDC+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All