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

Package: Scheduling

Routine: SDB


Information

SDB ;FLA/RF,BSN/GRR - SET UP A CLINIC ;JAN 15, 2016

Source Information

Source file <SDB.m>

Entry Points

Name Comments DBIA/ICR reference
C
EN ;Q:$D(SDONE)&('$D(SDTOP)) SD*5.3*455 added 2nd Go on next line
G1
END
INACT
E1
DOW ;;S %=$E(^(0),1,3),I=$E(^(0),4,5),I=I>2&'(%#4)+$E("144025036146",I) X "F %=%:-1:281 S I=%#4=1+1+I" W " ",$P("SUN^MON^TUES^WEDNES^THURS^FRI^SATUR",U,$E(^(0),6,7)+I#7+1),"DAY"
PRINT ;Print cancelled days
PRINT1
PRINTQ
HELP ;
QUE(X) ; -- que job
; return: did job que [ 1|yes 0|no ]

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: C+0
Function Call: READ
  • Formatting: !!
  • Prompt: "AVAILABILITY DATE: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: G1+1
Function Call: WRITE
  • Prompt: !,*7,"Clinic is inactive",$S('SDRE:" as of ",1:" from "),Y1,$S('SDRE:"",1:" to "_Y)
  • Line Location: INACT+0
Function Call: WRITE
  • Prompt: " ",$P("SUN^MON^TUES^WEDNES^THURS^FRI^SATUR",U,$E(^(0),6,7)+I#7+1),"DAY"
  • Line Location: DOW+0
Function Call: WRITE
  • Prompt: !,"Availability has been cancelled previously. The day(s) has been overwritten",!,"with the new availability. Would you like to see the day(s) that has been affected"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"Dates of Availability Previously Cancelled for "_$E($P($G(^SC(DA,0)),U),1,25),?70,$$FDATE^VALM1(DT),!,SDLINE
  • Line Location: PRINT1+1
Function Call: WRITE
  • Prompt: !,"Answer 'Y'es or 'N'o."
  • Line Location: HELP+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] TURNON^DIAUTL
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call