Routine: SDCNP2

Information

SDCNP2 ;ALB/LDB - PRINT CANCELLED AND AUTO REBOOKED APPTS. REPORT ; 14 MAR 88@13:00

Source file <SDCNP2.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E($P(^SC(SDP,0),"^"),1,25) Line Location: CL+0
Function Call: WRITE	Prompt: @IOF,?23,"CANCELLED AND AUTO-REBOOKED REPORT",?65 Line Location: HDR+0
Function Call: WRITE	Prompt: !,?23,"FOR:",?30,SD1,!,?23,"SSN: ",?30,SD2,!,?14,"CANCELLED BY:",?30,$S(DUZ:$P(^VA(200,DUZ,0),"^",1),1:"UNKNOWN"),!!,"CLINIC" Line Location: HDR+0
Function Call: WRITE	Prompt: ?25,"CANCELLED APPT.",?55,"NEW DATE" Line Location: HDR+1
Function Call: WRITE	Prompt: !,SDLN Line Location: HDR+1
Function Call: WRITE	Prompt: !,SDLN Line Location: HDR+1
Function Call: WRITE	Prompt: !,SDLN Line Location: HDR+1
Function Call: WRITE	Prompt: ?25 Line Location: APPT+0
Function Call: WRITE	Prompt: Y," at ",$J(X,8),?55 Line Location: APPT+0
Function Call: WRITE	Prompt: Y," at ",$J(X,8),?55 Line Location: APPT+0
Function Call: WRITE	Prompt: ! Line Location: APPT+1
Function Call: WRITE	Prompt: *7 Line Location: OUT+0
Function Call: WRITE	Prompt: ! Line Location: OUT+0
Function Call: READ	Formatting: ! Prompt: "PRESS RETURN TO CONTINUE" Variable: X Timeout: DTIME Line Location: OUT+1
Function Call: WRITE	Prompt: !,?65,$P("LAB^X-RAY^EKG","^",(TST-2))," ",?71,$J(X,8) Line Location: TST+0
Function Call: WRITE	Prompt: ! Line Location: TST+1