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  | All
Print Page as PDF
Routine: SDCNSLT

Package: Scheduling

Routine: SDCNSLT


Information

SDCNSLT ;ALB/HAG - LINK APPOINTMENTS TO CONSULTS ;JAN 15, 2016

Source Information

Source file <SDCNSLT.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 (,DD)^%DT  (,C)^%DTC  ^DIE  ^DIR  
Consult Request Tracking 2 $$STATUS^GMRCGUIS  EN^GMRCP5  
Scheduling 1 SCH^SDQQCN2  

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

Package Total Caller Graph
Scheduling 15 SDAUT2  SDC  SDCNP0  SDEC07A  SDEC31  SDES2NOSHOW  SDES2UNDONOSHOW  SDESBLKANDMOVE1  
SDESCCAVAIL  SDESCONSULTUPD  SDESNOSHOW  SDM  SDM1A  SDM2  SDN  

Entry Points

Name Comments DBIA/ICR reference
A ;===GET ACTIVE AND PENDING CONSULT
QST
HDR
READ
SCHED(PTIEN,STPCOD,SHOW) ;===CONSULT IS SCHEDULE NOW CHECK IF IT HAS APPOINTMENT BY STOP CODE.
LINK(SC,SDY,SD,CNSLTLNK) ;===LINK APPOINTMENT TO CONSULT
EDITCS(SD,TMPD,TMPYCLNC,CNSLTLNK) ;===MARK CONSULT AS SCHEDULED
SDECCAN(SCLNK,SCSNOD,SDTTM,SDSC,SDWH,SDPL,SDECNOTE) ; patch 686 wtc/zeb 3.21.18 cancel consult appointment. called from SDEC07A.
CANCEL ;===appt was cancelled then mark consult as edit/resubmit, add comment.
  • ICR #6297
    • Status: Withdrawn
    AUTOREB(SC,NDATE,LNK,CY) ;===AUTO REBOOK
    NOSHOW(SC,SDDTM,CNPAT,CNSTLNK,CN,AUTO,NSDIE,NSDA) ;

    External References

    Name Field # of Occurrence
    ^%DT SCHED+2, EDITCS+2, AUTOREB+5
    DD^%DT A+10, EDITCS+3, CANCEL+12, AUTOREB+3, NOSHOW+7
    ^%DTC A+6, A+8
    C^%DTC A+2
    ^DIE LINK+2, CANCEL+19, AUTOREB+2, NOSHOW+12
    ^DIR QST+1
    $$STATUS^GMRCGUIS CANCEL+15, NOSHOW+9
    EN^GMRCP5 NOSHOW+13
    SCH^SDQQCN2 EDITCS+6, AUTOREB+7

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: QST+1
    Function Call: WRITE
    • Prompt: !!,"Please select from the list of consult(s), press 0 for none.",!
    • Line Location: HDR+0
    Function Call: WRITE
    • Prompt: !,PTNM,!!,"# Service",?68,"Cons #",!,DSH
    • Line Location: HDR+1
    Function Call: WRITE
    • Prompt: !,A,".",?3,$S(P8="P":$E($P(ND,U,9),1,63),1:$E($P(ND,U,2),1,63)),?68,$P(ND,U,6)
    • Line Location: HDR+3
    Function Call: WRITE
    • Prompt: !,?4,"Request DT: ",$E($P(ND,U,5),1,14),?31,"FROM: ",$E($P(ND,U,3),1,33),?71,"TYPE: ",$S(P8="P":"P",P8="C":"C",1:"")
    • Line Location: HDR+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: HDR+4
    Function Call: READ
    • Formatting: !
    • Prompt: "Select Consult: "
    • Variable: CONS
    • Timeout: DTIME
    • Line Location: READ+0
    Function Call: WRITE
    • Prompt: " ... NONE."
    • Line Location: READ+1
    Function Call: WRITE
    • Prompt: !," Select consult by number on the left side."
    • Line Location: READ+2
    Function Call: WRITE
    • Prompt: *7," ?? Select consult by number on the left side."
    • Line Location: READ+3
    Routine Call
    • DIE
    • Line Location:
      • LINK+2
      • CANCEL+19
      • AUTOREB+2
      • NOSHOW+12
    Routine Call
    • DIR
    • Line Location:
      • QST+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZIS(1 - [#3.5] NOSHOW+6
    ^DPT - [#2] A+9, SCHED+2
    ^GMR(123 - [#123] A+3, A+6, A+8, EDITCS+3, SDECCAN+1, CANCEL+10, CANCEL+11, AUTOREB+6, NOSHOW+4
    ^GMR(123.5 - [#123.5] A+5, A+9, NOSHOW+6
    ^ORD(100.01 - [#100.01] A+9, CANCEL+10, NOSHOW+5
    ^SC - [#44] SCHED+2, SCHED+3, SCHED+4, CANCEL+6, CANCEL+9, CANCEL+13, AUTOREB+4, NOSHOW+8
    ^SC("AWAS1" A+6
    ^VA(200 - [#200] A+9, CANCEL+12, NOSHOW+7
    ^XTMP("SDECLKC-" A+4

    Label References

    Name Line Occurrences
    A READ
    READ READ+2, READ+3
    SCHED A+6

    Naked Globals

    Name Field # of Occurrence
    ^(0 NOSHOW+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT SCHED+2*, EDITCS+2*, AUTOREB+5*
    A A+1~, A+3*, A+4, A+6, A+8, A+11, HDR+2*, HDR+3
    APPT CANCEL+1~, CANCEL+12*, CANCEL+13, NOSHOW+3~, NOSHOW+7*, NOSHOW+8
    APT SCHED+1~, SCHED+2*, SCHED+3, SCHED+4
    AUTO NOSHOW~
    AUTO( CANCEL+18*, NOSHOW+4*
    B SCHED+1~, SCHED+3*, SCHED+4
    CLNC SCHED+1~, SCHED+2*, SCHED+3, SCHED+4
    CN NOSHOW~, NOSHOW+12
    >> CNDA CANCEL+16*
    >> CNDIE CANCEL+16*
    >> CNINDX CANCEL+14*
    CNPAT NOSHOW~, NOSHOW+4
    CNSLTLNK READ+4*, LINK~, EDITCS~, EDITCS+3, EDITCS+6
    CNSTLNK NOSHOW~, NOSHOW+4, NOSHOW+9, NOSHOW+10, NOSHOW+13, NOSHOW+14!
    CNSULT QST~, QST+1*, QST+2
    CNT A+1~, A+2*, A+11*
    COMMENT A+8*, EDITCS+1~, EDITCS+6!, CANCEL+15, CANCEL+17!, AUTOREB+1~, AUTOREB+7!, NOSHOW+3~, NOSHOW+9, NOSHOW+11!
    COMMENT(0 CANCEL+16, NOSHOW+10
    COMMENT(1 EDITCS+4*, CANCEL+13*, AUTOREB+4*, NOSHOW+8*
    COMMENT(2 EDITCS+5*, CANCEL+14*
    CONS A+1~, READ*, READ+1, READ+2, READ+3, READ+4
    CONSULT CANCEL+1~, CANCEL+5*, CANCEL+6*, CANCEL+7, CANCEL+10, CANCEL+11, CANCEL+15, CANCEL+16, CANCEL+18
    CPRSSTAT CANCEL+1~, CANCEL+10*, NOSHOW+3~, NOSHOW+4*, NOSHOW+5*
    CPRSTAT A+1~, A+3*, A+6, A+8, A+9
    CSCHDT EDITCS+1~, EDITCS+2*, EDITCS+6, AUTOREB+1~, AUTOREB+5*, AUTOREB+7
    CSNOD NOSHOW+3~, NOSHOW+4*, NOSHOW+6
    CSPRT NOSHOW+3~, NOSHOW+6*, NOSHOW+13
    CSRQSRV NOSHOW+3~, NOSHOW+6*
    CY AUTOREB~, AUTOREB+2
    DA LINK+1~, LINK+2*, CANCEL+17!, CANCEL+19*, AUTOREB+1~, AUTOREB+2*, NOSHOW+3~, NOSHOW+11!, NOSHOW+12*
    DA(1 LINK+2*, CANCEL+19*, AUTOREB+2*, NOSHOW+12*
    DA(2 LINK+2*, CANCEL+19*, AUTOREB+2*, NOSHOW+12*
    >> DFN A+2
    DIC AUTOREB+1~, NOSHOW+3~
    DIE LINK+1~, LINK+2*, CANCEL+19*, AUTOREB+1~, AUTOREB+2*, NOSHOW+12*
    DIR QST~
    DIR("?" QST+1*
    DIR("A" QST+1*
    DIR("B" QST+1*
    DIR(0 QST+1*
    DR LINK+1~, LINK+2*, CANCEL+19*, AUTOREB+1~, AUTOREB+2*, NOSHOW+3~, NOSHOW+12*
    >> DSH A+2*, HDR+1
    DT A+2, A+6, A+8
    DTENTR A+1~, A+3*, A+10
    DTIME READ
    DTIN A+1~, A+10*, A+11
    DTLMT A+1~, A+2*, A+3
    DTOUT QST~
    DTR A+1~, A+10*, A+11
    DUOUT QST~
    DUZ CANCEL+12, NOSHOW+7
    DUZ2 NOSHOW+3~
    ER EDITCS+1~, EDITCS+6, CANCEL+1~, AUTOREB+1~, AUTOREB+7, NOSHOW+3~
    GM40 CANCEL+1~, NOSHOW+3~
    GMRND CANCEL+1~, NOSHOW+3~
    IOM A+2
    J CANCEL+1~, NOSHOW+3~
    LNK AUTOREB~, AUTOREB+6, AUTOREB+7
    ND A+1~, A+3*, A+5, A+9, A+11, HDR+2*, HDR+3
    NDATE AUTOREB~, AUTOREB+2, AUTOREB+3, AUTOREB+4
    NOS A+1~, A+6*, A+8*
    NOSHOW A+1~, A+2*, A+8, NOSHOW+3~, NOSHOW+4*, NOSHOW+8
    NSDA NOSHOW~, NOSHOW+10*
    NSDIE NOSHOW~, NOSHOW+10*
    P8 A+1~, HDR+2*, HDR+3
    PROC A+1~, A+3*, A+11
    PT A+1~, A+2*, A+3
    PTIEN A+5*, A+6, A+9, A+11, SCHED~, SCHED+2, SCHED+4
    PTNM A+1~, A+9*, HDR+1
    S1 SCHED+1~, SCHED+2*, SCHED+5
    S2 SCHED+1~, SCHED+2*, SCHED+6
    S3 SCHED+1~, SCHED+3*, SCHED+7
    S4 SCHED+1~, SCHED+3*, SCHED+4*, SCHED+8
    SC LINK~, LINK+2, AUTOREB~, AUTOREB+2, AUTOREB+4, NOSHOW~, NOSHOW+4, NOSHOW+8, NOSHOW+12
    SCLNK SDECCAN~, SDECCAN+1, CANCEL+5, CANCEL+6, CANCEL+20!
    SCSNOD SDECCAN~, CANCEL+8, CANCEL+9, CANCEL+20!
    SD LINK~, LINK+2, EDITCS~, EDITCS+3, EDITCS+4
    SDADM CANCEL+13, CANCEL+20!
    SDDTM NOSHOW~, NOSHOW+4, NOSHOW+7, NOSHOW+12
    SDECNOTE SDECCAN~, CANCEL+4, CANCEL+14!
    SDERR CANCEL+15~*, NOSHOW+9~*
    SDPATNT CANCEL+1~, CANCEL+8*, CANCEL+9*, CANCEL+18
    SDPL SDECCAN~, CANCEL+6, CANCEL+9, CANCEL+19
    SDSC SDECCAN~, CANCEL+6, CANCEL+9, CANCEL+13, CANCEL+18, CANCEL+19
    SDTTM SDECCAN~, CANCEL+6, CANCEL+9, CANCEL+12, CANCEL+18, CANCEL+19
    SDWH SDECCAN~, CANCEL+13
    SDY LINK~, LINK+2
    SENDER A+1~, A+9*, A+11
    SERVICE A+1~, A+9*, A+11
    SHOW A+6*, SCHED~, SCHED+4*, SCHED+5*, SCHED+6*, SCHED+7*, SCHED+8*
    SNDPRV EDITCS+1~, EDITCS+3*, EDITCS+6, SDECCAN+1*, CANCEL+1~, CANCEL+11*, CANCEL+15, AUTOREB+1~, AUTOREB+6*, AUTOREB+7
    , NOSHOW+3~, NOSHOW+4*, NOSHOW+9
    SRV A+1~, A+5*, A+9
    STATUS A+1~, A+9*, A+11
    STOP SCHED+1~, SCHED+2*, SCHED+3, SCHED+4*
    STOPCOD SCHED+1~, SCHED+2*
    STPCOD A+5, A+6, SCHED~, SCHED+2
    TDA LINK+1~, LINK+2*
    TME EDITCS+1~, EDITCS+3*, EDITCS+4, AUTOREB+1~, AUTOREB+3*, AUTOREB+4
    TMP A+2!, A+12, QST+2!, READ+1!
    TMP( A+11*, HDR+2, READ+3, READ+4
    TMPD EDITCS~, EDITCS+5, CANCEL+4*, CANCEL+14!
    TMPYCLNC EDITCS~, EDITCS+4
    TPRNT NOSHOW+3~, NOSHOW+6*
    U A+3, A+5, A+6, A+8, A+9, A+11, QST+2, HDR+2, HDR+3, READ+1
    , READ+4, SCHED+2, SCHED+4, EDITCS+3, EDITCS+4, SDECCAN+1, CANCEL+6, CANCEL+8, CANCEL+9, CANCEL+10
    , CANCEL+11, CANCEL+12, CANCEL+13, AUTOREB+4, AUTOREB+6, NOSHOW+4, NOSHOW+5, NOSHOW+6, NOSHOW+7, NOSHOW+8
    USER CANCEL+1~, CANCEL+12*, NOSHOW+3~, NOSHOW+7*
    X A+2, A+6, A+8, SCHED+1~, SCHED+2*, LINK+1~, EDITCS+1~, EDITCS+2*, AUTOREB+5*
    >> X1 A+2*, A+6*, A+8*
    >> X2 A+2*, A+6*, A+8*
    Y A+10*, QST+1, SCHED+1~, SCHED+2, EDITCS+1~, EDITCS+2, EDITCS+3*, CANCEL+12*, AUTOREB+1~, AUTOREB+3*
    , AUTOREB+5, NOSHOW+3~, NOSHOW+7*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All