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,ANU - MAKE APPOINTMENT ;1/5/16 12:26pm

Source Information

Source file <SDM0.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Scheduling 6 $$CPAIR^SCRPW71  (,ADT,AVCHK,AVCHK1)^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  
List Manager 1 PAUSE^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 29

Package Total Caller Graph
Scheduling 29 SCMSPX1  SCMSPX2  SDAMWI  SDASO  SDB  SDB1  SDC  SDCNP0  
SDCNP1  SDD0  SDDPA  SDDSO  SDEC12  SDES2UTIL1  SDESCCAVAIL  SDESCLINDAILYSCH  
SDESCLNSETAVAIL  SDM  SDM1  SDM4  SDMM  SDMM1  SDMULT0  SDMULT1  
SDNACT  SDNACT1  SDREACT  SDST  SDUNC  

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

    External References

    Name Field # of Occurrence
    ^%DT EN+3, DASK+30, DT1, LIM+2
    ^%DTC DIFF
    C^%DTC DISP+2, L+3, MORDIS+1
    ^%ZIS SUP+2
    DT^DIQ LIM
    ^DIR SRTY+10, DASK+22
    $$CPAIR^SCRPW71 PTFU+9, PTFU+18
    ^SDM1 M+16, DISP+2
    ADT^SDM1 MORDIS, MORD2
    AVCHK^SDM1 DDCHK+2
    AVCHK1^SDM1 DDCHK+3
    $$TXRT^SDM1A SRTY+11
    RD^SDMULT 1
    END^SDMULT0 DT1, LIM
    OVR^SDMULT0 M+21, LIM, LIM+3
    DTS^SDUTL DISP+1, L+2, L+4, MORD2, MNTH, LIM+1
    PAUSE^VALM1 DISP+1
    $$DOW^XLFDT DOW, DOWCHK+3, BEGDAT+3, BEGDAT+5
    $$FMADD^XLFDT M+9
    $$FMTE^XLFDT M+4, NEXT+4, DT

    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
    Routine Call
    • DIR
    • Line Location:
      • SRTY+10
      • DASK+22
    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+23
    ^HOLIDAY - [#40.5] W+2, W+4
    ^SC - [#44] M+8, DISP, NEXT+2, D, W, W+2*, W+4, H*, WM+2, WMH+2
    , PTFU+9, PTFU+17, DOWCHK+2, DOWCHK+6, DOWCHK+8, DOWCHK+9, DOWCHK+10, DOWCHK+11, BEGDAT+3, BEGDAT+4
    , BEGDAT+5
    ^SCE - [#409.68] PTFU+14
    ^SCE("ADFN" PTFU+12, PTFU+13

    Label References

    Name Line Occurrences
    $$BEGDAT W+2
    $$PTFU M+6
    $$SRTY M+1
    1 DT1
    D DISP+2
    DASK DASK+31, DASK+34, DASK+35
    DAY W+2
    DDCHK DASK+34
    DIFF L+2
    DISP NEXT+7
    DOW D
    DOWCHK W
    DT WM+4, DT1
    DT1 M+19
    DWWRT DOWCHK+2
    EN NEXT, MORD2+1
    H W+2
    I1 INPAT
    L W, W+2
    LIM LIM+1, LIM+2
    MNTH L+5
    NEXT M+19, M+21
    NOAV L+2, L+4
    SAVE SUP+2
    SET NEXT
    SUP M+19, M+21
    W L+3, H
    WM D, W+3
    WMH D, W+3
    X1 L+5

    Naked Globals

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

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

    Marked Items

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