Routine: SDF

Information

SDF ;SF/GFT - FILE ROOM LIST BY CLINIC ; 12 SEP 84 9:48 am

Source file <SDF.m>

Name	Line Occurrences
Function Call: READ	Formatting: ! Prompt: "APPOINTMENT LIST ORDER: TERMINAL DIGIT ONLY// " Variable: X Timeout: DTIME Line Location: A+0
Function Call: WRITE	Prompt: !,"ENTER 'C'LINIC IF YOU WANT LIST PRINTED BY CLINIC AND TERMINAL DIGIT ORDER" Line Location: A+0
Function Call: WRITE	Prompt: !,$E($P(D,U,9),6,9),?6,$E($P(D,U,1),1,23),?30,$E($P(D,U,9),1,9),?40," " Line Location: O+0
Function Call: WRITE	Prompt: $E(T,1,2),":",$E(T,3,4) Line Location: O+0
Function Call: WRITE	Prompt: ?64,$P(Y,U,10)," TYPE",! Line Location: O+1
Function Call: WRITE	Prompt: ?48," WARD: ",$P(Y,U,8)," " Line Location: O+2
Function Call: WRITE	Prompt: !,?4,$P(Y,U,7) Line Location: O+3
Function Call: WRITE	Prompt: !,?4,$P(Y,U,9) Line Location: O+4
Function Call: WRITE	Prompt: !,@IOF,!?9,"FILE ROOM LIST FOR APPOINTMENTS " Line Location: WHED+0
Function Call: WRITE	Prompt: !,?30-($L(SDSCN)\2),SDSCN,?55,"PRINTED: " Line Location: WHED+0
Function Call: WRITE	Prompt: !,?30-($L(SDSCN)\2),SDSCN,?55,"PRINTED: " Line Location: WHED+0
Function Call: WRITE	Prompt: !!,"DEPENDING ON TYPE OF SORT, ENTER:",!?5,"'C' - BY CLINIC NAME",!?5,"'T' - BY TERMINAL DIGIT",! Line Location: HELP+0