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

Package: Scheduling

Routine: SDCNSLT


Information

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

Source Information

Source file <SDCNSLT.m>

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) ;

    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
    Info |  Source |  Entry Points |  Interaction Calls