Routine: SDUNC

Information

SDUNC ;ALB/MGD,BLB - RESTORE CLINIC AVAILABILITY ;Apr 12, 2022

Source file <SDUNC.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?5,"Clinic MUST be corrected before continuing." Line Location: SDUNC+7
Function Call: WRITE	Prompt: !,*7,"Clinic is inactive ",$S(SDRE:"from ",1:"as of "),SDIN1,$S(SDRE:" to "_SDRE1,1:"") Line Location: SDUNC+11
Function Call: WRITE	Prompt: !,"RESTORED!",*7 Line Location: SDUNC+14
Function Call: WRITE	Prompt: !,7,"CLINIC HAS NOT BEEN CANCELLED FOR THAT DATE, SO IT CANNOT BE RESTORED",7 Line Location: NOWAY+0
Function Call: WRITE	Prompt: !,7,"NO UPCOMING OR INDEFINITE APPOINTMENT PATTERN EXISTS FOR DAY OF WEEK,",!,"CREATE 'AVAILABILITY' PATTERN THRU 'CLINIC SETUP', THEN RESTORE AGAIN",7 Line Location: NOPAT+0
Function Call: WRITE	Prompt: !,*7,"CLINIC DOES NOT MEET ON THAT DAY" Line Location: N+0
Function Call: WRITE	Prompt: !,"Clinic has been cancelled for the following periods:",! Line Location: SEL+1
Function Call: WRITE	Prompt: !,?9,"(",$J(I1,2),") ","From: ",$J($P(I,"^",1),8)," To: ",$J($P(I,"^",2),8) Line Location: SEL+4
Function Call: READ	Formatting: !! Prompt: "RESTORE WHICH PERIOD?: " Variable: X Timeout: DTIME Line Location: A+0
Function Call: WRITE	Prompt: !,"Enter the # that precedes the time period you want to restore." Line Location: A+1
Function Call: WRITE	Prompt: " ",$P(SDTEMP(SDZZ(SDR)),"^",1)," - ",$P(SDTEMP(SDZZ(SDR)),"^",2) Line Location: A+2
Function Call: WRITE	Prompt: !,*7,"INVALID CHOICE, TRY AGAIN" Line Location: A+3