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
Prompt: "SCHEDULE TIME: "
Formatting: !!
Timeout: DTIME
Variable: X
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"