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

Package: Scheduling

Routine: SDM0


Information

SDM0 ;SF/GFT - MAKE APPOINTMENT ; 11 Jun 2001 5:20 PM

Source Information

Source file <SDM0.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Scheduling 6 $$CPAIR^SCRPW71  (,ADT)^SDM1  $$TXRT^SDM1A  RD^SDMULT  (END,OVR)^SDMULT0  DTS^SDUTL  
VA Fileman 4 ^%DT  (,C)^%DTC  DT^DIQ  ^DIR  
Kernel 2 ^%ZIS  ($$DOW,$$FMADD,$$FMTE)^XLFDT  
IHS Changes To ADT 1 PAUSE^BDGF  
IHS Changes To Scheduling 1 EN^BSDM0  
Registration 1 (FULL,PAUSE)^VALM1  

Caller Graph

Caller Graph Total: 30

Package Total Caller Graph
Scheduling 24 SCMSPX1  SCMSPX2  SDAMWI  SDASO  SDB  SDB1  SDC  SDCNP0  
SDCNP1  SDD0  SDDPA  SDDSO  SDM  SDM1  SDM4  SDMM  
SDMM1  SDMULT0  SDMULT1  SDNACT  SDNACT1  SDREACT  SDST  SDUNC  
IHS Changes To Scheduling 6 ASDI  ASDM  ASDMON  ASDOI  BSDC  BSDMON  

Entry Points

Name Comments DBIA/ICR reference
DISP
MNTH
LIM
WM
DDATE(SDDATE,SDSRTY,SDMAX) ;Desired date selection
PTFU(DFN,SC)
SUP ;Set up variables for availability search
NOAV
DIFF
DT
DOW
SET
I1
NEXT
1
INPAT
X1
DAY ;;^SUN^MON^TUES^WEDNES^THURS^FRI^SATUR
EN
DOWCHK ;SD*5.3*547 check if date is prior to date DOW was added to pattern
D ;IHS/ANMC/LJF 6/29/2000 separated line to add code
H
M
L
DWWRT ;added SD*5.3*547
WMH ;Write month heading lines
W
MORD2
SRTY(SDSRTY) ;Prompt for scheduling request type
MORDIS
DASK
DT1
SAVE

External References

Name Field # of Occurrence
^%DT EN+3, DASK+32, DT1, LIM+2
^%DTC DIFF
C^%DTC DISP+2, L+3, MORDIS+1
^%ZIS SUP+2
PAUSE^BDGF NEXT+7
EN^BSDM0 D+1
DT^DIQ LIM
^DIR SRTY+11, DASK+24
$$CPAIR^SCRPW71 PTFU+10, PTFU+19
^SDM1 M+11, DISP+2
ADT^SDM1 MORDIS, MORD2
$$TXRT^SDM1A SRTY+12
RD^SDMULT 1
END^SDMULT0 DT1, LIM
OVR^SDMULT0 M+16, LIM, LIM+3
DTS^SDUTL DISP+1, L+2, L+4, MORD2, MNTH, LIM+1
FULL^VALM1 D+1
PAUSE^VALM1 DISP+1
$$DOW^XLFDT M+6, DOW, DOWCHK+3
$$FMADD^XLFDT M+7
$$FMTE^XLFDT NEXT+4, DT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: M+11
Function Call: WRITE
  • Prompt: !!,"Unable to evaluate date value """_X_""".",!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP+0
Function Call: WRITE
  • Prompt: #!?36,$P(SC,U,2)
  • Line Location: D+2
Function Call: WRITE
  • Prompt: !,$E(^SC(+SC,"ST",X,1),1,80)
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !
  • Line Location: W+4
Function Call: WRITE
  • Prompt: !,"No availability found between date chosen and inactivate date!"
  • Line Location: NOAV+0
Function Call: WRITE
  • Prompt: !?36
  • Line Location: WM+0
Function Call: WRITE
  • Prompt: !," DATE",?SI+SI-1,"|"
  • Line Location: WMH+2
Function Call: WRITE
  • Prompt: $J("|",SI+SI)
  • Line Location: WMH+3
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(Y)
  • Line Location: DT+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: !," *** No availability found for one full calendar month",!," Search stopped at "
  • Line Location: MNTH+0
Function Call: WRITE
  • Prompt: Y," ***",!
  • Line Location: MNTH+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SRTY+11
Function Call: WRITE
  • Prompt: !!,"Calculating follow-up status"
  • Line Location: PTFU+12
Function Call: WRITE
  • Prompt: !!?2,"Select one of the following:",!
  • Line Location: DDATE+7
Function Call: WRITE
  • Prompt: !?5,"'F'",?20,"for First available following a specified date"
  • Line Location: DDATE+8
Function Call: WRITE
  • Prompt: !?5,"Date",?20,"(or date computation such as 'T+2M') for a desired date"
  • Line Location: DDATE+9
Function Call: WRITE
  • Prompt: !?5,"Date/time",?20,"to schedule a specific appointment - Note: PAST dates",!?20,"must include the Year in the input."
  • Line Location: DDATE+10
Function Call: WRITE
  • Prompt: !?5,"'?'",?20,"for detailed help"
  • Line Location: DDATE+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DASK+24
Function Call: WRITE
  • Prompt: *7,!!,"That date is prior to the date ",DY," was added to the"
  • Line Location: DWWRT+2
Function Call: WRITE
  • Prompt: !,"availability pattern for this clinic.",!!
  • Line Location: DWWRT+3
Function Call: READ
  • Prompt: "// "
  • Timeout: DTIME
  • Variable: X
  • Line Location: LIM+0
Function Call: WRITE
  • Prompt: !," ENTER LATEST DATE TO CHECK FOR 1ST AVAILABLE SLOT: "
  • Line Location: LIM+0
Function Call: WRITE
  • Prompt: !," The latest date for future bookings for ",$P(SDC(1),"^",2)," is: "
  • Line Location: LIM+1
Function Call: WRITE
  • Prompt: Y,!," If you enter a date here, it must be less than this date to further limit the",!," search"
  • Line Location: LIM+1
Routine Call
  • DIR
  • Line Location:
    • SRTY+11
    • DASK+24
Routine Call
  • %ZIS
  • Line Location:
    • SUP+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] I1
^DGPM("ATID1" INPAT, I1
^DISV( EN+6*, NEXT+1!, DASK+25
^HOLIDAY - [#40.5] W+1, W+3
^SC - [#44] M+5, DISP, NEXT+2, D+2, W, W+1*, W+3, H*, WM+2, WMH+2
, PTFU+10, PTFU+18, DOWCHK+2, DOWCHK+6, DOWCHK+8, DOWCHK+9, DOWCHK+10, DOWCHK+11
^SCE - [#409.68] PTFU+15
^SCE("ADFN" PTFU+13, PTFU+14

Label References

Name Line Occurrences
$$DDATE M+9
$$PTFU M+3
$$SRTY M+1
1 DT1
D DISP+2
DASK DASK+33, DASK+35
DAY W+1
DIFF L+2
DISP NEXT+10
DOW D+2
DOWCHK W
DT WM+4, DT1
DT1 M+14
DWWRT DOWCHK+2
EN NEXT, MORD2+1
H W+1
I1 INPAT
L W, W+1
LIM LIM+1, LIM+2
MNTH L+5
NEXT M+14, M+16
NOAV L+2, L+4
SAVE SUP+2
SET NEXT
SUP M+14, M+16
W L+3, H
WM D+2, W+2
WMH D+2, W+2
X1 L+5

Naked Globals

Name Field # of Occurrence
^( W+1, H
^("SL" DISP
^(0 D+2, W+1*, H*, I1
^(1 W+1, W+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN+2~, EN+3*, DASK+30~, DASK+32*, DT1*!, LIM+2*!
%DT("A" DT1*
%DT(0 DT1*, LIM+2*
CT DOWCHK+5*, DOWCHK+6, DOWCHK+7*, DOWCHK+13!, DWWRT+4!
>> D D+2*, W+1, L+1*, L+5, DIFF*
DFN M+3, INPAT, I1, SRTY+5, PTFU~, PTFU+6, PTFU+13, PTFU+14, DDATE+10, DASK+13
, DASK+14, DASK+34, DASK+35
DIR SRTY+7~, DASK~
DIR("?" SRTY+10*, DASK+6*, DASK+7*, DASK+8*, DASK+9*, DASK+10*, DASK+11*, DASK+12*, DASK+13*, DASK+15*
, DASK+16*, DASK+17*, DASK+18*
DIR("A" SRTY+9*, DASK+5*, DASK+22*
DIR("B" DASK+22*
DIR(0 SRTY+8*, DASK+4*
DT M+1, M+6, M+7, PTFU+9, DASK+35
DTIME LIM
DTOUT SRTY+7~, SRTY+11, DASK~, DASK+24
DUOUT SRTY+7~, SRTY+11, DASK~, DASK+24
DUZ EN+6, NEXT+1, DASK+25
DWFLG W*!, DOWCHK+1*, DOWCHK+2
DY DOWCHK+1*, DOWCHK+3*, DOWCHK+4, DOWCHK+13!, DWWRT+1*, DWWRT+2, DWWRT+4!
DYW DOWCHK+1*, DOWCHK+4*, DOWCHK+10, DOWCHK+11, DOWCHK+13!, DWWRT+4!
>> FND NEXT, SUP+1*, DT1*
>> G1 SUP+1*
>> I D+2*, L+5, SET*, SAVE*
>> I1 SET*
IOF DISP*
ION SUP+2
IOP SUP+2*!
J WMH+2!
J( W+1, WMH+2*
PCDT DOWCHK+5*, DOWCHK+6*, DOWCHK+8, DOWCHK+9, DOWCHK+10, DOWCHK+11, DOWCHK+13!, DWWRT+4!
POP W*, L!, DOWCHK+2, DOWCHK+5*, DOWCHK+6, DOWCHK+11*
SC M+3, M+5, EN+6, DISP, NEXT+1, NEXT+2, D+2, W, W+1, W+3
, H, WM+2, WMH+2, SUP+1, PTFU~, PTFU+6, PTFU+10, DASK+25, DOWCHK+2, DOWCHK+6
, DOWCHK+8, DOWCHK+9, DOWCHK+10, DOWCHK+11
SC0 PTFU+7~, PTFU+10*, PTFU+18*, PTFU+19
>> SDAPP NEXT+10
>> SDAV DISP*, DISP+2, W+2*, W+3*, L+2, L+4, L+5, SUP+1*
SDBDT PTFU+7~, PTFU+9*, PTFU+13
>> SDC(1 SUP+1*, LIM+1
SDC1 SUP+1!
SDCP PTFU+7~, PTFU+10, PTFU+20
SDCP1 PTFU+7~, PTFU+19, PTFU+20
SDCT SUP+1*, PTFU+7~, PTFU+9*, PTFU+21*, 1*
SDDATE SDM0+10~, M+1*, M+9, M+11*, M+12, M+16, NEXT+2, NEXT+4, NEXT+7, DDATE~
, DASK+28*, DASK+33*, DASK+34*, DT1*
SDDMAX SDM0+10~, M+7*, NEXT+4, LIM+2*
SDENC PTFU+7~, PTFU+14*, PTFU+15
>> SDENC0 PTFU+15*, PTFU+16, PTFU+17
SDHX M~, M+12!, W+2*, MORDIS, MORDIS+1
SDHY DISP+1*!, L+2*!, L+4*!, MORD2*!
SDI INPAT*, INPAT+1!, I1, DASK+30~, DASK+31*
SDI1 INPAT+1!, I1*
>> SDINA DISP+1, L+2, L+4, MORD2
>> SDINP INPAT+1*, I1*
SDMAX M+7*, M+9, DDATE~, DASK+35, DT1, LIM, LIM+1, LIM+2*
SDMAX(1 M+5*, M+6*, M+7, DASK+37
>> SDMM SRTY+6
>> SDNEXT SUP+1*, 1*, DT1
>> SDOK SDM0+9*
SDONCE SDM0+10~
>> SDRE DISP+1, L+2, L+4, MORD2, DIFF
SDSDATE SDM0+10~, M+11*
>> SDSOH DISP*, W+1
SDSRFU SDM0+10~, M+3*
SDSRTY SDM0+10~, M+1, M+9, M+16, SRTY~, SRTY+1*, SRTY+5*, SRTY+6*, SRTY+12*, DDATE~
, DDATE+6, DASK+28*
SDSRTY(0 SRTY+12*
>> SDSTRTDT M+16*, DT1*, LIM+2
SDT PTFU+7~, PTFU+9*, PTFU+13*, PTFU+14
SDX DISP+2*!, I1*, PTFU+7~, PTFU+10*, PTFU+17*, PTFU+18, PTFU+19*, DASK~, DASK+25*, DASK+30~
, DASK+31*
SDXD M~, WM+2*, WM+3
SDXF M~, D+2*, W+2, WM+1*, WM+3*, WM+4, WMH+4*, MORDIS+1*
SDXXX SDM0+9, NEXT+10!
SDY PTFU+7~, PTFU+9*, PTFU+13, PTFU+14, PTFU+20*, PTFU+24
SDZ SET+1!, SAVE!, PTFU+7~
SDZ( SET
>> SI W+1, WMH+1, WMH+2, WMH+3
>> SM W+2, WM*
>> SS W+1*
>> STARTDAY WMH+1
U M+5, EN+6, NEXT+1, D+2, X1, W+1, H, I1, PTFU+16, PTFU+17
, DASK+25, DASK+31
X M+12*, M+14, EN*, EN+4, DISP+2*, NEXT+2*, NEXT+7*, NEXT+10*, D+1, D+2*
, X1, W, W+1, W+2, W+3, L+1*, L+2, L+3, L+4, H
, WM, WM+1, WM+2, WM+3, DOW, MORD2, INPAT, I1, MNTH, DIFF*
, DASK~, DASK+25*, DASK+31*, DT1, LIM*, LIM+1
>> X1 DISP+2*, X1*, L+3, MORDIS+1*, DIFF*
>> X2 DISP+2*, L+3*, MORDIS+1*, DIFF*
XDT W*!, DOWCHK+2, DOWCHK+3, DOWCHK+5
Y M+12*, EN+1, EN+4, EN+6, DISP+1*, DISP+2*, NEXT+2*, NEXT+7*, NEXT+10*, D+2
, W+1*, L+2*, L+4*, WM*, WMH+1*, WMH+2*, WMH+3*, DT, DOW*, MORD2*
, MNTH*, SRTY+12, DASK~, DASK+25*, DASK+26, DASK+28, DASK+33, DASK+35, DT1, LIM*
, LIM+1*, LIM+2
>> Z SAVE*

Marked Items

Name Field # of Occurrence
$T(DAY W+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