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

Package: Scheduling

Routine: SDM1


Information

SDM1 ;SF/GFT - MAKE APPOINTMENT ; 3/29/05 12:35pm

Source Information

Source file <SDM1.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Scheduling 8 (DOWCHK,MORD2,MORDIS)^SDM0  OK^SDM1A  ^SDM2  ^SDM3  RDTY^SDMM  (AT,DTS)^SDUTL  OPT^SDWLE  EN^SDWLKIL  
VA Fileman 3 ^%DT  C^%DTC  YN^DICN  
IHS Changes To Scheduling 1 $$OVRBKUSR^BSDU  
Kernel 1 ($$DOW,$$FMDIFF)^XLFDT  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Scheduling 8 SDAMWI  SDM0  SDM2  SDM3  SDMM  SDMM1  SDMULT  SDMULT1  

Entry Points

Name Comments DBIA/ICR reference
AVCHK1 ;added SD*5.3*490
C
DOW
1
EN1
7 ;;THAT TIME IS NOT WITHIN SCHEDULED PERIOD!
6 ;;OVERBOOK!
WL(SC) ;Wait List Hook/teh patch 263 ;SD/327 passed 'SC'
DAY ;;^SUN^MON^TUES^WEDNES^THURS^FRI^SATUR
ADT
E ;G:'$D(^XUSEC("SDOB",DUZ)) NOOB ;IHS/ANMC/LJF 12/13/2000
LOCK
L
S
IN
X
SPIN
XW
OVR
REDDT() ;Prompt for availability redisplay date
NOOB
SP
WRT
LEN
PRECAN
SC
AVCHK ;added SD*5.3*490

External References

Name Field # of Occurrence
^%DT ADT+35, ADT+36, REDDT+4
C^%DTC 1+6, ADT+35, ADT+40
$$OVRBKUSR^BSDU E+1
YN^DICN PRECAN, E+2, SPIN+1
DOWCHK^SDM0 S+5
MORD2^SDM0 ADT+28
MORDIS^SDM0 ADT+27
OK^SDM1A SP+7, X+3
^SDM2 EN1+1
^SDM3 SP+7, X+3
RDTY^SDMM 1+15
AT^SDUTL ADT+34
DTS^SDUTL IN, IN+1
OPT^SDWLE WL+10
EN^SDWLKIL WL+10
$$DOW^XLFDT OVR+5
$$FMDIFF^XLFDT OVR+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,?8,"**** SPECIAL INSTRUCTIONS ****",!
  • Line Location: 1+9
Function Call: WRITE
  • Prompt: ^(%I,0),!
  • Line Location: 1+10
Function Call: WRITE
  • Prompt: !,*7,?8,"**** SPECIAL INSTRUCTIONS ****",!
  • Line Location: 1+13
Function Call: WRITE
  • Prompt: !,?8,@SDMSG
  • Line Location: 1+14
Function Call: READ
  • Prompt: "DATE/TIME: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: ADT+24
Function Call: READ
  • Prompt: "DATE/TIME: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: ADT+25
Function Call: WRITE
  • Prompt: " ??",!
  • Line Location: ADT+28
Function Call: WRITE
  • Prompt: Y
  • Line Location: ADT+34
Function Call: WRITE
  • Prompt: *7,?50,$P(^(0),U,2),"??"
  • Line Location: OVR+0
Function Call: WRITE
  • Prompt: !,*7,@SDMSG
  • Line Location: OVR+1
Function Call: WRITE
  • Prompt: !,*7,"EXCEEDS MAXIMUM DAYS FOR FUTURE APPOINTMENT!!",*7
  • Line Location: OVR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRECAN+1
Function Call: READ
  • Timeout: DTIME
  • Variable: S
  • Line Location: LEN+0
Function Call: WRITE
  • Prompt: *7,!,$E($T(@SM),5,99),"...OK"
  • Line Location: E+2
Function Call: WRITE
  • Prompt: !,"RESPOND YES OR NO"
  • Line Location: E+3
Function Call: WRITE
  • Prompt: !,*7,"ANOTHER USER HAS LOCKED THIS DATE - TRY AGAIN LATER"
  • Line Location: LOCK+0
Function Call: WRITE
  • Prompt: !,*7,"CAN'T BOOK WITHIN A CANCELLED TIME PERIOD!",!
  • Line Location: C+0
Function Call: WRITE
  • Prompt: *7," WHEN??"
  • Line Location: XW+0
Function Call: WRITE
  • Prompt: *7,!!,"That date is prior to the patient's date of birth.",!!
  • Line Location: AVCHK+3
Function Call: WRITE
  • Prompt: *7,!!,"That date is prior to the clinic's availability date.",!!
  • Line Location: AVCHK1+2
Function Call: WRITE
  • Prompt: !,"NO OPEN SLOTS THEN",*7
  • Line Location: NOOB+0
Function Call: WRITE
  • Prompt: !,+SL," MINUTE APPOINTMENTS "
  • Line Location: WRT+0
Function Call: WRITE
  • Prompt: $S($P(SL,U,2)["V":"(VARIABLE LENGTH)",1:"")
  • Line Location: WRT+1
Function Call: WRITE
  • Prompt: *7,!,"Appt. length must = or be a multiple of the increment minutes per hour (",SDSL,")",!
  • Line Location: L+1
Function Call: WRITE
  • Prompt: !,"There are more special instructions. Do you want to display them"
  • Line Location: SPIN+0
Function Call: WRITE
  • Prompt: !,"Enter Y to see the remaining special instructions, or N if you don't wish to see them"
  • Line Location: SPIN+2
Function Call: WRITE
  • Prompt: !,^SC(SC,"SI",%I,0),!
  • Line Location: SPIN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: REDDT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] EN1+1, PRECAN, AVCHK+1
^HOLIDAY - [#40.5] OVR
^SC - [#44] 1+1, 1+10, 1+13, ADT+1, ADT+38, S+3, S+10*, SC+1, SC+2, SP+2
, SP+4, AVCHK1+1, SPIN+4, WL+2, WL+5
^SDWL(409.31 - [#409.31] WL+5, WL+7
^SDWL(409.32 - [#409.32] WL+4, WL+6

Label References

Name Line Occurrences
$$REDDT ADT+28
1 OVR+2, S, S+1, S+8, E+4, C+1, XW, NOOB
ADT ADT+28, ADT+29, ADT+35, ADT+38, OVR, OVR+1, OVR+6, PRECAN
AVCHK S
AVCHK1 S+1
C SP+2
DAY S+10
DOW EN1
E E+3
EN1 OVR+5
IN 1+14, OVR+1
L LEN
LEN LEN
LOCK SC
NOOB E+1
OVR ADT+34
S LEN
SC SC+1, E+4
SP SP
SPIN 1+13, SPIN+2
WL ADT+26
WRT 1+6
X SC+4, SP+2
XW S+10, X+1

Naked Globals

Name Field # of Occurrence
^( 1+10, 1+13, EN1+1, S+10
^("SI" 1+10, 1+13
^("SL" ADT+1
^(0 OVR, EN1+1, PRECAN, S+10*, WL+7
^(1 S+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % 1+13*, PRECAN*, SC+5*, E+2*, E+3, E+4, DOW*, DOW+1*, SPIN+1*, SPIN+2
, SPIN+3
%DT ADT+35!*, ADT+36!*, REDDT+1~, REDDT+2*
%DT("A" REDDT+3*
>> %I 1+10*, 1+13*, SPIN+4
AVDT AVCHK1+1*, AVCHK1+2!
BSDMAX 1+4~*, OVR+5
>> CCX ADT+1*
>> CCXN 1*
COV 1!
>> DFN 1, EN1+1, PRECAN, AVCHK+1
>> DILOCKTM SC+1
DT 1+1, 1+14, OVR+5
DTIME ADT+25, LEN
DUZ E+1
DUZ(2 WL+7
>> HSI SC+3
>> I EN1+1*, SC+3*, SC+4, SP+2*, X+1
MXOK 1!, SP+7, X+3
POP 1+13*, S*, S+1*, S+4*, S+7, S+8, S+9!, LEN*, C*, X*
, AVCHK+3*, AVCHK1+2*, L+1*, SPIN+3*
>> S EN1+1*, LEN*, SC+2*, SC+4, SC+5, SP*, SP+2*, L+1
>> SB SC+3
SC 1*, 1+1, 1+10, 1+13, ADT+1, ADT+26, ADT+38, S+3, S+10, SC+1
, SC+2, SP+2, SP+4, E+1, AVCHK1+1, SPIN+4, WL~, WL+1, WL+2, WL+3
, WL+4, WL+5, WL+6
>> SD ADT+31, ADT+34, EN1*, EN1+1, PRECAN, S+3, S+10, SC+1, SC+2, SC+3
, SP+2
>> SDDIF SC+3, SC+5, SP+2
>> SDEDT 1+1*, 1+4, 1+6*, OVR+6
SDHY IN*, IN+2!
>> SDINA 1+14, OVR+1, IN
>> SDLOCK SC*, SC+2*
>> SDMM 1+15, SP+7, LOCK, C+1, X
SDMSG 1+14!, OVR+1!, IN+2*
>> SDNOT SP+1*
>> SDONCE ADT+2*, ADT+23
SDPROT 1!
>> SDRE OVR+1, IN, IN+2
SDSDATE ADT+23, OVR!, OVR+1!, OVR+2!, OVR+6!, PRECAN!, S+7!, E+4!, C+1!, XW!
, AVCHK+3!, AVCHK1+2!, NOOB!
>> SDSL L*, L+1
>> SDSOH ADT+1*, OVR
>> SDW ADT*
SDWLDS WL+7*, WL+9!
SDWLDSS WL+5*, WL+7, WL+9!
>> SDWLERR WL+10*
SDWLFLG WL+3*, WL+4*, WL+5*, WL+6*, WL+7*, WL+8, WL+9!
>> SDWLOPT WL+10*
SDWLSC WL+6*, WL+9!
>> SDXXX 1
>> SI S+10, SC+3
>> SL LEN*, SC+3, SC+5, SP+4, SP+7, X+3, WRT, WRT+1, L
>> SM EN1*, SC+5*, SP+2*, SP+7, E+4*, X+2*, X+3
>> SS S+10*, SC+3*, SC+5, SP+2
>> ST SC+3*, SC+5, SP, SP+2*, SP+3, SP+5*
>> STR SP+2
>> TMPD EN1*
U OVR, EN1+1, PRECAN, S+10, LEN, SP+7, X+3, AVCHK+1, AVCHK+2, AVCHK+3
, WRT+1, WL+5, WL+6, WL+7
>> VADM AVCHK+1
>> VADM(3 AVCHK+1*, AVCHK+2, AVCHK+3
X 1+6, ADT+23*, ADT+25*, ADT+26, ADT+27, ADT+28*, ADT+29, ADT+34, ADT+35*, ADT+40
, EN1*, S+4, DOW, DOW+2, AVCHK+2, AVCHK+3, AVCHK1+2, REDDT+1~
>> X1 1+1*, ADT+35*, ADT+40*
>> X2 1+6*, ADT+35*, ADT+40*
XDT S+4*, S+6!
Y ADT+34*, ADT+35, ADT+38, ADT+40*, OVR, OVR+1, OVR+2, OVR+5, OVR+6, EN1
, S+10, SP+2*, DOW*, DOW+1*, DOW+2*, X+2, IN*, IN+1, IN+2*, REDDT+1~
, REDDT+5
Y1 IN*, IN+2!

Marked Items

Name Field # of Occurrence
$T(@SM E+2
$T(DAY S+10
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