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

Entry Points

Name Comments DBIA/ICR reference
RDTY
RD22
ADT
OVR
LEN
RDC
OTHER
BEGIN
END
GETNEX
GETNXD
DAY ;;^SUN^MON^TUES^WEDNES^THURS^FRI^SATUR
TM
HLP
HLP22
INACT
HLP1
SDFT
MSG
MORDIS
MORD2
EN
DISP

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !
  • Prompt: "WANT TO MAKE DAILY OR WEEKLY APPOINTMENTS?: WEEKLY// "
  • Variable: SDTYP
  • Timeout: DTIME
  • Line Location: RDTY+1
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
  • Formatting: !
  • Prompt: "DATE/TIME: "
  • Variable: X
  • Timeout: DTIME
  • 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
  • Variable: S
  • Timeout: DTIME
  • Line Location: LEN+0
Function Call: WRITE
  • Prompt: !,"LENGTH OF APPOINTMENTS (IN MINUTES): ",+SL,"// "
  • Line Location: LEN+0
Function Call: WRITE
  • Prompt: !,"FOR HOW MANY CONSECUTIVE ",$S(SDTYP["W":$P($T(DAY),"^",Y+2)_"DAY'S",1:"DAYS")," DO YOU WANT APPOINTMENTS SCHEDULED",!," AT "
  • Line Location: RDC+0
Function Call: WRITE
  • Prompt: X,"?: "
  • Line Location: RDC+0
Function Call: READ
  • Variable: SDCN
  • Timeout: DTIME
  • Line Location: RDC+1
Function Call: READ
  • Formatting: !
  • Prompt: " OTHER INFO: "
  • Variable: D
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls