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; 4/12/05 3:44pm ; Compiled February 5, 2007 14:09:59

Source Information

Source file <SDCNSLT.m>

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

Caller Graph Total: 7

Package Total Caller Graph
Scheduling 7 SDAUT2  SDC  SDCNP0  SDM  SDM1A  SDM2  SDN  

Entry Points

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

    External References

    Name Field # of Occurrence
    ^%DT SCHED+2, EDITCS+2, AUTOREB+5
    DD^%DT A+9, EDITCS+3, CANCEL+10, AUTOREB+3, NOSHOW+7
    ^%DTC A+5, A+7
    C^%DTC A+2
    ^DIE LINK+2, CANCEL+17, AUTOREB+2, NOSHOW+12
    ^DIR QST+1
    $$STATUS^GMRCGUIS CANCEL+13, 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",?27,"Sending Provider",?45,"Request Date",?60,"Cons #",?68,"Reqst Type",!,DSH
    • Line Location: HDR+1
    Function Call: WRITE
    • Prompt: !,A,". ",$S(P8="P":$E($P(ND,U,9),1,23),1:$E($P(ND,U,2),1,23)),?27,$E($P(ND,U,3),1,17),?45,$E($P(ND,U,5),1,14)," ",$P(ND,U,6)
    • Line Location: HDR+2
    Function Call: WRITE
    • Prompt: ?68,$S(P8="P":"Procedure",P8="C":"Consult",1:"")
    • Line Location: HDR+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: HDR+3
    Function Call: READ
    • Prompt: "Select Consult: "
    • Formatting: !
    • Timeout: DTIME
    • Variable: CONS
    • 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+17
      • 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+8, SCHED+2
    ^GMR(123 - [#123] A+3, A+5, A+7, EDITCS+3, CANCEL+8, CANCEL+9, AUTOREB+6, NOSHOW+4
    ^GMR(123.5 - [#123.5] A+4, A+8, NOSHOW+6
    ^ORD(100.01 - [#100.01] A+8, CANCEL+8, NOSHOW+5
    ^SC - [#44] SCHED+2, SCHED+3, SCHED+4, CANCEL+4, CANCEL+7, CANCEL+11, AUTOREB+4, NOSHOW+8
    ^SC("AWAS1" A+5
    ^VA(200 - [#200] A+8, CANCEL+10, NOSHOW+7

    Label References

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

    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+5, A+7, A+10, HDR+2*
    APPT CANCEL+1~, CANCEL+10*, CANCEL+11, NOSHOW+3~, NOSHOW+7*, NOSHOW+8
    APT SCHED+1~, SCHED+2*, SCHED+3, SCHED+4
    AUTO NOSHOW~
    AUTO( CANCEL+16*, NOSHOW+4*
    B SCHED+1~, SCHED+3*, SCHED+4
    CLNC SCHED+1~, SCHED+2*, SCHED+3, SCHED+4
    CN NOSHOW~, NOSHOW+12
    >> CNDA CANCEL+14*
    >> CNDIE CANCEL+14*
    >> CNINDX CANCEL+12*
    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+10*
    COMMENT A+7*, EDITCS+1~, EDITCS+6!, CANCEL+13, CANCEL+15!, AUTOREB+1~, AUTOREB+7!, NOSHOW+3~, NOSHOW+9, NOSHOW+11!
    COMMENT(0 CANCEL+14, NOSHOW+10
    COMMENT(1 EDITCS+4*, CANCEL+11*, AUTOREB+4*, NOSHOW+8*
    COMMENT(2 EDITCS+5*, CANCEL+12*
    CONS A+1~, READ*, READ+1, READ+2, READ+3, READ+4
    CONSULT CANCEL+1~, CANCEL+3*, CANCEL+4*, CANCEL+5, CANCEL+8, CANCEL+9, CANCEL+13, CANCEL+14, CANCEL+16
    CPRSSTAT CANCEL+1~, CANCEL+8*, NOSHOW+3~, NOSHOW+4*, NOSHOW+5*
    CPRSTAT A+1~, A+3*, A+5, A+7, A+8
    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+15!, CANCEL+17*, AUTOREB+1~, AUTOREB+2*, NOSHOW+3~, NOSHOW+11!, NOSHOW+12*
    DA(1 LINK+2*, CANCEL+17*, AUTOREB+2*, NOSHOW+12*
    DA(2 LINK+2*, CANCEL+17*, AUTOREB+2*, NOSHOW+12*
    >> DFN A+2
    DIC AUTOREB+1~, NOSHOW+3~
    DIE LINK+1~, LINK+2*, CANCEL+17*, 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+17*, AUTOREB+1~, AUTOREB+2*, NOSHOW+3~, NOSHOW+12*
    >> DSH A+2*, HDR+1
    DT A+2, A+5, A+7
    DTENTR A+1~, A+3*, A+9
    DTIME READ
    DTIN A+1~, A+9*, A+10
    DTLMT A+1~, A+2*, A+3
    DTOUT QST~
    DTR A+1~, A+9*, A+10
    DUOUT QST~
    DUZ CANCEL+10, 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+4, A+8, A+10, HDR+2*
    NDATE AUTOREB~, AUTOREB+2, AUTOREB+3, AUTOREB+4
    NOS A+1~, A+5*, A+7*
    NOSHOW A+1~, A+2*, A+7, NOSHOW+3~, NOSHOW+4*, NOSHOW+8
    NSDA NOSHOW~, NOSHOW+10*
    NSDIE NOSHOW~, NOSHOW+10*
    P8 A+1~, HDR+2*
    PROC A+1~, A+3*, A+10
    PT A+1~, A+2*, A+3
    PTIEN A+4*, A+5, A+8, A+10, SCHED~, SCHED+2, SCHED+4
    PTNM A+1~, A+8*, 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 CANCEL+3, CANCEL+4, CANCEL+18!
    SCSNOD CANCEL+6, CANCEL+7, CANCEL+18!
    SD LINK~, LINK+2, EDITCS~, EDITCS+3, EDITCS+4
    SDADM CANCEL+11, CANCEL+18!
    SDDTM NOSHOW~, NOSHOW+4, NOSHOW+7, NOSHOW+12
    SDERR CANCEL+13~*, NOSHOW+9~*
    SDPATNT CANCEL+1~, CANCEL+6*, CANCEL+7*, CANCEL+16
    >> SDPL CANCEL+4, CANCEL+7, CANCEL+17
    >> SDSC CANCEL+4, CANCEL+7, CANCEL+11, CANCEL+16, CANCEL+17
    >> SDTTM CANCEL+4, CANCEL+7, CANCEL+10, CANCEL+16, CANCEL+17
    >> SDWH CANCEL+11
    SDY LINK~, LINK+2
    SENDER A+1~, A+8*, A+10
    SERVICE A+1~, A+8*, A+10
    SHOW A+5*, SCHED~, SCHED+4*, SCHED+5*, SCHED+6*, SCHED+7*, SCHED+8*
    SNDPRV EDITCS+1~, EDITCS+3*, EDITCS+6, CANCEL+1~, CANCEL+9*, CANCEL+13, AUTOREB+1~, AUTOREB+6*, AUTOREB+7, NOSHOW+3~
    , NOSHOW+4*, NOSHOW+9
    SRV A+1~, A+4*, A+8
    STATUS A+1~, A+8*, A+10
    STOP SCHED+1~, SCHED+2*, SCHED+3, SCHED+4*
    STOPCOD SCHED+1~, SCHED+2*
    STPCOD A+4, A+5, 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+11, QST+2!, READ+1!
    TMP( A+10*, HDR+2, READ+3, READ+4
    TMPD EDITCS~, EDITCS+5, CANCEL+12!
    TMPYCLNC EDITCS~, EDITCS+4
    TPRNT NOSHOW+3~, NOSHOW+6*
    U A+3, A+4, A+5, A+7, A+8, A+10, QST+2, HDR+2, READ+1, READ+4
    , SCHED+2, SCHED+4, EDITCS+3, EDITCS+4, CANCEL+4, CANCEL+6, CANCEL+7, CANCEL+8, CANCEL+9, CANCEL+10
    , CANCEL+11, AUTOREB+4, AUTOREB+6, NOSHOW+4, NOSHOW+5, NOSHOW+6, NOSHOW+7, NOSHOW+8
    USER CANCEL+1~, CANCEL+10*, NOSHOW+3~, NOSHOW+7*
    X A+2, A+5, A+7, SCHED+1~, SCHED+2*, LINK+1~, EDITCS+1~, EDITCS+2*, AUTOREB+5*
    >> X1 A+2*, A+5*, A+7*
    >> X2 A+2*, A+5*, A+7*
    Y A+9*, QST+1, SCHED+1~, SCHED+2, EDITCS+1~, EDITCS+2, EDITCS+3*, CANCEL+10*, 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