Routine: SDWARD

Information

SDWARD ;ALB/GRR - LIST INPATIENTS WITH PENDING APPTS ; 14 NOV 84

Source file <SDWARD.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$SDAPIERR^SDAMUTDT Line Location: START+4
Function Call: WRITE	Prompt: !,"NO PATIENTS FOUND" Line Location: START+5
Function Call: WRITE	Prompt: !,?3,$S($D(^SC(SC,0)):$P(^(0),"^",1),1:"DELETED CLINIC") Line Location: PRT+1
Function Call: WRITE	Prompt: ?50,Y," " Line Location: PRT+2
Function Call: WRITE	Prompt: ?61,$J(X,8) Line Location: PRT+2
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),"^",1),1,25),?29,VA("PID") Line Location: PN+1
Function Call: WRITE	Prompt: ?43,$P(^(.1),"^",1) Line Location: PN+1
Function Call: WRITE	Prompt: @IOF,!,"PATIENTS ADMITTED ",SDPY," WHO HAVE PENDING APPOINTMENTS",?66,HY,!,"PATIENT NAME",?32,"PT ID",?43,"WARD" Line Location: HED+0
Function Call: WRITE	Prompt: !,?3,"CLINIC",?50,"APPNT DATE",?64,"TIME",! Line Location: HED+1
Function Call: WRITE	Prompt: "-" Line Location: HED+1
Function Call: WRITE	Prompt: !,@IOF Line Location: END+0