Routine: ORLP00

Information

ORLP00 ; slc/dcm,cla - Modify Patient Lists ;8/13/91 15:06

Source file <ORLP00.m>

Package	Total	Call Graph
Order Entry Results Reporting	4	ADD^ORLP0 (CLIN,PROV,SPEC,WARD)^ORLP01 STOR^ORLP1 EN^ORUS
VA Fileman	2	YN^DICN ^DIR
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Order Entry Results Reporting	3	ORLP ORLP DELETE PATIENT ORLP0

Name	Comments	DBIA/ICR reference
END
ASKPT(TEAM)	;from ^ORLPL or internally - ask for patients
DEL	;Delete items from patient list
L1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You must build a Patient List before using this option" Line Location: DEL+1
Function Call: WRITE	Prompt: ! Line Location: L1+6
Function Call: WRITE	Prompt: !,"..."_$P(Y(I),"^",2)_" removed" Line Location: L1+8
Function Call: WRITE	Prompt: !!,"Show modified working list" Line Location: L1+12
Routine Call	DIR Line Location: ASKPT+11

Name	Line Occurrences (* Changed, ! Killed)
^XUTL("OR"	DEL+1, L1+2, L1+7, L1+8!, L1+9!, L1+10*, ASKPT+12!, ASKPT+13!, ASKPT+14!, ASKPT+15! , ASKPT+16!

Name	Line Occurrences
END	L1+5, L1+13
L1	L1+12

Name	Field # of Occurrence
^("ORU"	L1+9!, ASKPT+12!, ASKPT+13!, ASKPT+14!, ASKPT+15!, ASKPT+16!
^("ORV"	ASKPT+12!, ASKPT+13!, ASKPT+14!, ASKPT+15!, ASKPT+16!
^("ORW"	L1+9!, ASKPT+12!, ASKPT+13!, ASKPT+14!, ASKPT+15!, ASKPT+16!
^(0	L1+2, L1+7

Name	Field # of Occurrence
>> %	L1+12*
>> C	L1+9*, L1+10
DIR	ASKPT+3!, ASKPT+11!
DIR("?"	ASKPT+5, ASKPT+6, ASKPT+7, ASKPT+8, ASKPT+9, ASKPT+10
DIR("A"	ASKPT+4*
DIR(0	ASKPT+3*
>> DTOUT	ASKPT+2
>> DUOUT	ASKPT+2
DUZ	L1
>> I	L1+6, L1+7, L1+8, L1+9*
>> ORCNT	ASKPT+12, ASKPT+13, ASKPT+14, ASKPT+15, ASKPT+16*
ORDIR	ASKPT+1~, ASKPT+2, ASKPT+11*
OROPREF	L1*, END!
ORUS	L1*, END!
ORUS("A"	L1+1*
ORUS("F"	L1+2*
ORUS("H"	L1+3*
ORUS("T"	L1*
ORUS("W"	L1+1*
ORUS(0	L1*
TEAM	ASKPT~
>> X	L1+7*, L1+8
Y	L1+5, END!, ASKPT+1~, ASKPT+11, ASKPT+12, ASKPT+13, ASKPT+14, ASKPT+15, ASKPT+16
Y(	L1+7, L1+8