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

Package: Scheduling

Routine: SDM0


Information

SDM0 ;SF/GFT,ANU - MAKE APPOINTMENT ;1/5/16 12:26pm

Source Information

Source file <SDM0.m>

Entry Points

Name Comments DBIA/ICR reference
M
EN
DISP
NEXT
D
X1
W
L
NOAV
H
WM
WMH ;Write month heading lines
DT
DOW
DAY ;;^SUN^MON^TUES^WEDNES^THURS^FRI^SATUR
MORDIS
MORD2
INPAT
I1
SUP ;Set up variables for availability search
SET
SAVE
MNTH
DIFF
SRTY(SDSRTY) ;Prompt for scheduling request type
PTFU(DFN,SC)
  • ICR #7192
    • Status: Pending
    • Usage: Private
    DDATE(SDDATE,SDSRTY,SDMAX) ;Desired date selection
    DASK
    DDCHK ;SD*5.3*621 - check if desired date if prior to DOB and if clinic schedule is available.
    DOWCHK ;SD*5.3*547 check if date is prior to date DOW was added to pattern
    DWWRT ;added SD*5.3*547
    BEGDAT(SDDT,SDY) ;Add begin date check - SD*5.3*674, Quit 0 if successful, 1 if fails
    1
    DT1
    LIM

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"APPOINTMENT CID/PREFERRED DATE: "_SDDATE2
    • Line Location: M+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: M+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: M+16
    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(+SC,0),U,1)
    • Line Location: D+0
    Function Call: WRITE
    • Prompt: !,$E(^SC(+SC,"ST",X,1),1,80)
    • Line Location: W+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: W+5
    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+10
    Function Call: WRITE
    • Prompt: !!,"Calculating follow-up status"
    • Line Location: PTFU+11
    Function Call: WRITE
    • Prompt: !!?2,"Select one of the following:",!
    • Line Location: DDATE+7
    Function Call: WRITE
    • Prompt: !?5,"'F'",?19,"for First available following a specified date"
    • Line Location: DDATE+8
    Function Call: WRITE
    • Prompt: !?5,"Date",?19,"(or date computation such as 'T+2M') for a desired date"
    • Line Location: DDATE+10
    Function Call: WRITE
    • Prompt: !?5,"Date",?19,"(or date computation such as 'T+2M') for a CID/Preferred date"
    • Line Location: DDATE+11
    Function Call: WRITE
    • Prompt: !?5,"Date/time",?19,"to schedule a specific appointment - Note: PAST dates",!?19,"must include the Year in the input."
    • Line Location: DDATE+12
    Function Call: WRITE
    • Prompt: !?5,"'?'",?19,"for detailed help"
    • Line Location: DDATE+13
    Function Call: WRITE
    • Prompt: !
    • Line Location: DASK+22
    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: "// "
    • Variable: X
    • Timeout: DTIME
    • 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
    Info |  Source |  Entry Points |  Interaction Calls