Routine: SCRPW7

Information

SCRPW7 ;RENO/KEITH - Patient Encounter List ; 15 Jul 98 02:38PM

Package	Total	Call Graph
Scheduling	4	DISP0^SCRPW23 ($$XY,END,SUBT,TITL)^SCRPW50 $$STX^SCRPW8 $$GETOE^SDOE
VA Fileman	4	^%DT NOW^%DTC ^DIC ^DIR
Kernel	2	$$S^%ZTLOAD EN^XUTMDEVQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"This patient has no encounters on file.",! Line Location: ASK+2
Function Call: WRITE	Prompt: ! Line Location: FDT+0
Function Call: WRITE	Prompt: " ",Y Line Location: FDT+0
Function Call: WRITE	Prompt: " ",Y Line Location: FDT+1
Function Call: WRITE	Prompt: ! Line Location: LDT+0
Function Call: WRITE	Prompt: " ",Y Line Location: LDT+0
Function Call: WRITE	Prompt: " ",Y Line Location: LDT+0
Function Call: WRITE	Prompt: !!,$C(7),"Ending date must be after beginning date!",! Line Location: LDT+1
Function Call: WRITE	Prompt: " ",Y Line Location: LDT+2
Function Call: WRITE	Prompt: ! Line Location: QUE+1
Function Call: WRITE	Prompt: !!?(IOM-$L(X)\2),X,! Line Location: PEL+2
Function Call: WRITE	Prompt: SDLINE Line Location: HDR+1
Function Call: WRITE	Prompt: !?(IOM-32/2),"<> PATIENT ENCOUNTER LIST <>",!,SDLINE,!,"Date range: ",SDPBDA," to ",SDPEDA,?(IOM-$L(SDPNOW)),SDPNOW Line Location: HDR+1
Function Call: WRITE	Prompt: !,"Patient: ",SDPTNA,?40,"SSN: ",SDPTSN,?(IOM-6-$L(SDPAGE)),"Page: ",SDPAGE,!,SDLINE Line Location: HDR+2
Function Call: WRITE	Prompt: !,Y,?30,SDL,!?5,"#",SDOE,?15,SDT,?35,SDS Line Location: DISP+1
Function Call: WRITE	Prompt: " - ",SDS1 Condition for execution: $L(SDS1) Line Location: DISP+1
Function Call: WRITE	Prompt: ! Line Location: DISP+1
Function Call: WRITE	Prompt: ! Line Location: DISP+1
Routine Call	DIC Line Location: ASK+1
Routine Call	DIR Line Location: END WAIT+1

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	FDT, FDT+1, LDT, LDT+2, PEL, DISP+1
^SC - [#44]	DISP, COTS+1
^SCE("ADFN"	ASK+2, FDT, PEL+1
^SD(409.63 - [#409.63]	DISP

Name	Field # of Occurrence
%	PEL, EXIT!
%DT	ASK~, FDT*
%DT("A"	FDT, LDT
%DT(0	FDT*
%H	EXIT!
%I	EXIT!
DIC	ASK~, ASK+1*
DIC(0	ASK+1*
DIR	END~, WAIT+1!
DIR(0	END, WAIT+1
DT	LDT
DTOUT	ASK+1, FDT, LDT, EXIT!
DUOUT	ASK+1, EXIT!
IOF	HDR
IOM	PEL, PEL+2, HDR+1, HDR+2
IOSL	DISP+1
IOST	PEL, END
SDBDT	FDT, FDT+1, LDT+1, PEL+1, EXIT!
SDCT	PEL, PEL+1, PEL+2, EXIT!
SDDT	PEL, PEL+1, EXIT!, DISP+1
SDEDT	LDT, LDT+2, QUE*, PEL, EXIT!
SDI	EXIT!, DISP+1*
SDL	EXIT!, DISP*, DISP+1
SDLINE	PEL*, EXIT!, HDR+1, HDR+2
SDOE	PEL+1*, EXIT!, DISP+1, COTS~, COTS+2
SDOE0	PEL+1*, EXIT!, DISP, COTS, COTS+1, COTS+2
SDOUT	PEL, PEL+1, END, EXIT!, STOP+1, HDR+1, DISP+1, WAIT+1*
SDP	PEL*, EXIT!, HDR, HDR+1, DISP+1, WAIT
SDPAGE	PEL, EXIT!, HDR, HDR+1, HDR+2
SDPBDA	FDT, FDT+1, EXIT!, HDR+1
SDPEDA	LDT, LDT+2, EXIT!, HDR+1
SDPNOW	PEL*, EXIT!, HDR+1
SDPT	ASK+1*, ASK+2, FDT, PEL+1, EXIT!
SDPTNA	ASK+1*, EXIT!, HDR+2
SDPTSN	ASK+1*, EXIT!, HDR+2
SDS	EXIT!, DISP*, DISP+1, COTS+2
SDS1	EXIT!, DISP+1*
SDT	EXIT!, DISP*, DISP+1
U	ASK+1, FDT, LDT, DISP, COTS, COTS+1, COTS+2
X	FDT, LDT, QUE, PEL+2, EXIT!
Y	ASK+1, FDT, FDT+1, LDT, LDT+1, LDT+2, PEL, EXIT!, DISP+1, WAIT+1 , WAIT+2
Y(0	ASK+1
>> ZTQUEUED	STOP+1
ZTSAVE	QUE~, QUE+1
ZTSAVE(	QUE*
>> ZTSTOP	STOP+1*