Routine: SDRFC

Information

SDRFC ;SF/GFT-XAK,BSN/GRR - RADIOLOGY PULL LIST ; 12/4/90 09:36 ;

Source file <SDRFC.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?31,"RADIOLOGY PULL LIST",!?31,"Printed on: " Line Location: START+2
Function Call: WRITE	Prompt: !!,$E($P(PAT1,"^",9),6,9)," ",$P(PAT1,"^",1),?40,$E($P(PAT2,"^",9),6,9)," ",$P(PAT2,"^",1),!!?6,$P(PAT1,"^",9),?46,$P(PAT2,"^",9) Line Location: P+1
Function Call: WRITE	Prompt: !!?6,$P(^SC(+DAT1,0),"^",1),?46,$S(AP2>0:$P(^SC(+DAT2,0),"^",1),1:"") Line Location: P+2
Function Call: WRITE	Prompt: ! Line Location: P+2
Function Call: WRITE	Prompt: ! Line Location: P+3
Function Call: WRITE	Prompt: @$E("!!!!!!!!!!!!!",1,13-J) Line Location: P+4
Function Call: WRITE	Prompt: !?6 Line Location: O+0
Function Call: WRITE	Prompt: "LATER APPOINTMENTS:" Condition for execution: AP1>0 Line Location: O+0
Function Call: WRITE	Prompt: ?46,"LATER APPOINTMENTS:" Condition for execution: AP2>0 Line Location: O+0
Function Call: WRITE	Prompt: " ",$E(T,1,2),":",$E(T,3,4) Line Location: O+1
Function Call: WRITE	Prompt: " ",$E($P(^SC(C,0),"^",1),1,25) Condition for execution: J Line Location: O+1
Function Call: WRITE	Prompt: ?46," ",$E(T,1,2),":",$E(T,3,4) Line Location: O+2
Function Call: WRITE	Prompt: " ",$E($P(^SC(C2,0),"^",1),1,25) Condition for execution: J Line Location: O+2