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

Package: Scheduling

Routine: SDM2


Information

SDM2 ;SF/GFT - MAKE APPOINTMENT ; 07 Jan 2000 6:30 PM

Source Information

Source file <SDM2.m>

Entry Points

Name Comments DBIA/ICR reference
SDAY
CAN
OUT
C
AT
IN
PROT
CNAM(SDCL) ;Return clinic name
FLEN
DISP
CK1
STAT
EVT ; -- separate tag if need to NEW vars
; -- cancel event

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!,"PATIENT ALREADY HAS APPOINTMENT "
  • Line Location: SDM2+4
Function Call: WRITE
  • Prompt: "(",APL," MINUTES) THEN"
  • Line Location: SDM2+7
Function Call: WRITE
  • Prompt: !,"CANCEL THAT APPOINTMENT OR SELECT A NEW DATE/TIME."
  • Line Location: SDM2+7
Function Call: READ
  • Timeout: DTIME
  • Line Location: SDM2+8
Function Call: WRITE
  • Prompt: "??",*7
  • Line Location: SDM2+8
Function Call: WRITE
  • Prompt: !,"RESPOND YES OR NO",!,"PATIENT ALREADY HAS APPOINTMENT "
  • Line Location: SDAY+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CAN+11
Function Call: WRITE
  • Prompt: *7,!,"APPOINTMENT IN ",$P(^SC(SCI,0),"^",1)," CANCELLED!"
  • Line Location: OUT+0
Function Call: WRITE
  • Prompt: !,"APPOINTMENT NOW BEING MADE IN ",$P(^SC(SC,0),"^",1)
  • Line Location: OUT+0
Function Call: WRITE
  • Prompt: "AT ",$E(S_0,9,10),":",$E(S_"000",11,12)
  • Line Location: AT+0
Function Call: WRITE
  • Prompt: "NO APPNT'S SCHEDULED YET"
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X+$L(S)>72
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: S,": ",S(S)," "
  • Line Location: DISP+4
Info |  Source |  Entry Points |  Interaction Calls