Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: SDM1

Package: Scheduling

Routine: SDM1


Information

SDM1 ;SF/GFT - MAKE APPOINTMENT ; May 10, 2021@19:53:47

Source Information

Source file <SDM1.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,?8,"**** SPECIAL INSTRUCTIONS ****",!
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: !,?8,@SDMSG
  • Line Location: 1+4
Function Call: READ
  • Formatting: !
  • Prompt: "DATE/TIME: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ADT+24
Function Call: WRITE
  • Prompt: " ??",!
  • Line Location: ADT+27
Function Call: WRITE
  • Prompt: Y
  • Line Location: ADT+33
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+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRECAN+1
Function Call: READ
  • Variable: S
  • Timeout: DTIME
  • Line Location: LEN+0
Function Call: WRITE
  • Prompt: *7,!,$E($T(@SM),5,99),"...OK"
  • Line Location: E+1
Function Call: WRITE
  • Prompt: !,"RESPOND YES OR NO"
  • Line Location: E+2
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
Info |  Source |  Entry Points |  Interaction Calls