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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SDM

Package: Scheduling

Routine: SDM


Information

SDM ;SF/GFT,ALB/BOK - MAKE AN APPOINTMENT ; 22 Jul 2016 4:33 PM

Source Information

Source file <SDM.m>

Entry Points

Name Comments DBIA/ICR reference
EN1
EN
PEND
E
EN2
CHKSO
END
OERR
  • ICR #739
    • Status: Retired
    • Usage: Private
  • ICR #10042
    • Status: Active
    • Usage: Supported
    HELP
    CNAM(SDCL) ;Return clinic name

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,?5,"Clinic MUST be corrected before continuing."
    • Line Location: EN1+2
    Function Call: WRITE
    • Prompt: !,*7,"Access to ",$$CNAM(+SC)," is prohibited!",!,"Only users with a special code may access this clinic.",*7
    • Line Location: EN1+9
    Function Call: WRITE
    • Prompt: !?10,*7,"PATIENT HAS DIED."
    • Line Location: EN1+13
    Function Call: WRITE
    • Prompt: !?3,*7,VADM(7)
    • Line Location: EN+3
    Function Call: WRITE
    • Prompt: !,"SCHEDULED FOR ADMISSION ON "
    • Line Location: EN+4
    Function Call: WRITE
    • Prompt: !,"DISPLAY PENDING APPOINTMENTS:"
    • Line Location: PEND+2
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: $X>9
    • Line Location: PEND+8
    Function Call: WRITE
    • Prompt: CN,".",?4
    • Line Location: PEND+8
    Function Call: WRITE
    • Prompt: ?23
    • Line Location: PEND+8
    Function Call: WRITE
    • Prompt: ?23
    • Line Location: PEND+8
    Function Call: WRITE
    • Prompt: !,"NOTE - PATIENT IS NOW IN WARD "_SDW
    • Line Location: E+1
    Function Call: WRITE
    • Prompt: !,?5,"Patient has restricted consults due to team assignment(s):"
    • Line Location: EN2+9
    Function Call: WRITE
    • Prompt: !,?10,SCRESTA(SCTM)
    • Line Location: EN2+11
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: $X>9
    • Line Location: CHKSO+1
    Function Call: WRITE
    • Prompt: ?10,"*"
    • Line Location: CHKSO+1
    Function Call: WRITE
    • Prompt: ?32,$S(SDJ=3:"LAB",SDJ=4:"XRAY",1:"EKG")
    • Line Location: CHKSO+1
    Function Call: WRITE
    • Prompt: !,"YES - TO DISPLAY FUTURE APPOINTMENTS",!,"NO - FUTURE APPOINTMENTS NOT DISPLAYED"
    • Line Location: HELP+0

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls
    ^SC - [#44] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call