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

Package: Scheduling

Routine: SDCLAV1


Information

SDCLAV1 ;ALB/LDB - OUTPUT PATTERNS (cont.) ; 9/1/00 10:57am

Source Information

Source file <SDCLAV1.m>

Entry Points

Name Comments DBIA/ICR reference
S2
S1
S
LOOP
MSG ;Added SD/517
SS
MON
SDPT1
TIME ;SD/533 $Select defaults to 8 when Z5=0, so a Midnight to 8am clinic
T1
WR
WR1
WR2 ;Added SD/517
HDR
HDR1
SDM
W
W1 ;added next 2 lines and changed 3rd line SD/517
W2 ;added SD/517
WARN ;added SD/517
3
A
TAB
MIN
DAT
X1
WW ;
L
WM
DT
DOW
YCNT
DAY ;;^SUN^MON^TUES^WEDNES^THURS^FRI^SATUR
DIFF
H
LEAP(SDEOM) ;Check for leap year, adjust if indicated
CHKDT() ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"THIS CLINIC DOES NOT HAVE APPT. LENGTH"
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !," DATE",?SDI+SDI-1,"|"
  • Line Location: T1+1
Function Call: WRITE
  • Prompt: $J("|",SDI+SDI)
  • Line Location: T1+3
Function Call: WRITE
  • Prompt: !!,"No appointments scheduled"
  • Line Location: WR+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WR2+1
Function Call: WRITE
  • Prompt: @IOF,!?52,Y
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !?30,$P(^DG(40.8,D,0),"^")
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?30,SDV,!?30,SDM," ",($E(SDZ,1,3)+1700)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,?30,SDV,!,?30,$P(SDM1,"^",+$E(SDZ2,4,5))," ",($E(SDZ2,1,3)+1700)
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: D1
  • Line Location: W+1
Function Call: WRITE
  • Prompt: X,?20,X4,?51,X6
  • Line Location: W1+9
Function Call: WRITE
  • Prompt: ?61,"("_M1_") MINUTES"
  • Line Location: W1+9
Function Call: WRITE
  • Prompt: ?61,"("_M1_") MINUTES"
  • Line Location: W1+9
Function Call: WRITE
  • Prompt: X,?23,X4,?51,X6
  • Line Location: W2+2
Function Call: WRITE
  • Prompt: ?61,"("_M1_") MINUTES"
  • Line Location: W2+2
Function Call: WRITE
  • Prompt: ?61,"("_M1_") MINUTES"
  • Line Location: W2+2
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: WARN+1
Function Call: WRITE
  • Prompt: !!,"*************************************************************************"
  • Line Location: WARN+3
Function Call: WRITE
  • Prompt: !,"* WARNING: There is a data inconsistency or data corruption problem *"
  • Line Location: WARN+4
Function Call: WRITE
  • Prompt: !,"* with one or more of the above appointments. These appointments will *"
  • Line Location: WARN+5
Function Call: WRITE
  • Prompt: !,"* have WARNING displayed to the left of the time. Corrective action *"
  • Line Location: WARN+6
Function Call: WRITE
  • Prompt: !,"* needs to be taken. Please cancel any of the appointments above, which *"
  • Line Location: WARN+7
Function Call: WRITE
  • Prompt: !,"* have the WARNING display. If any of them are valid appointments, they *"
  • Line Location: WARN+8
Function Call: WRITE
  • Prompt: !,"* will have to be re-entered via Appointment Management. *"
  • Line Location: WARN+9
Function Call: WRITE
  • Prompt: !,"**************************************************************************"
  • Line Location: WARN+10
Function Call: WRITE
  • Prompt: !
  • Line Location: 3+0
Function Call: READ
  • Formatting: !!
  • Prompt: "PRESS RETURN TO CONTINUE OR ^ TO QUIT "
  • Variable: SDU
  • Timeout: DTIME
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: 3+2
Function Call: WRITE
  • Prompt: !!!,"FOR CLINIC AVAILABILITY PATTERNS:"
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !!?4,"0-9 and j-z",?15," --denote available slots where j=10,k=11...z=26",!?12,"A-W",?15," --denote overbooks with A being the first slot to be overbooked",!?18,"and B being the second for that same time, etc."
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !?6,"*,$,!,@,#",?15," --denote overbooks or appts. that fall outside of a clinic's",!?18,"regular hours"
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !
  • Line Location: TAB+0
Function Call: WRITE
  • Prompt: !,?1,X1,?11,Y1
  • Line Location: DAT+0
Function Call: WRITE
  • Prompt: !,$E(^SC(+SC,"ST",X,1),1,80)
  • Line Location: WW+5
Function Call: WRITE
  • Prompt: !?36
  • Line Location: WM+0
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(Y)
  • Line Location: DT+0
Info |  Source |  Entry Points |  Interaction Calls