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

Package: Scheduling

Routine: SDMULT1


Information

SDMULT1 ;ALB/TMP - MAKE MULTI-CLINIC APPOINTMENTS ; 18 APR 86

Source Information

Source file <SDMULT1.m>

Entry Points

Name Comments DBIA/ICR reference
FND
ACT
PROC
H1
DAY ;;^SUN^MON^TUES^WEDNES^THURS^FRI^SATUR
BOOK
MADE
NOT
STARS
TM
S2
S3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FND+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FND+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ACT+0
Function Call: WRITE
  • Prompt: !,"ENTER: ",!,?3,"'^' - EXIT "
  • Line Location: ACT+0
Function Call: WRITE
  • Prompt: D
  • Condition for execution: '$D(SDNEXT) "'B' - BOOK " W "'C' - CONTINUE SEARCH or 'R' - REDISPLAY: CONTINUE// " R X:DTIME G:X["^" END^SDMULT0 S X=$E(X) I X?1"?"!("BCR"'[X)
  • Line Location: ACT+0
Function Call: WRITE
  • Prompt: !,$E(LINE,1,80)
  • Line Location: PROC+3
Function Call: WRITE
  • Prompt: !,$E(^SC(SC,"ST",SDAPP,1),1,80),!
  • Line Location: PROC+4
Function Call: WRITE
  • Prompt: !,?10,"'C' TO LOOK FOR THE NEXT DATE ALL CLINICS HAVE AN AVAILABLE TIME SLOT",!,?10,"'R' TO REDISPLAY THIS SAME SCREEN"
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !!,$P(^SC(+SDC(G1),"S",SD,1,SDY,0),"^",2)," minute appointment made in ",$P(SDC(G1),"^",2),!
  • Line Location: MADE+0
Function Call: WRITE
  • Prompt: !!,"No appt made in ",$P(SDC1(SC),"^"),!
  • Line Location: NOT+0
Function Call: WRITE
  • Prompt: !,SD0
  • Line Location: STARS+0
Function Call: READ
  • Formatting: !!
  • Prompt: "SCHEDULE TIME: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: TM+0
Function Call: WRITE
  • Prompt: !,"Enter the appointment time for this clinic"
  • Line Location: TM+0
Function Call: WRITE
  • Prompt: *7," WHEN ??"
  • Line Location: TM+1
Function Call: WRITE
  • Prompt: !,*7,"Patient already has an appointment in ",Y1," at that time"
  • Line Location: TM+2
Function Call: WRITE
  • Prompt: !,LINE(G1),!,LINE1(G1)
  • Line Location: S3+0
Info |  Source |  Entry Points |  Interaction Calls