Routine: ORLP0

Information

ORLP0 ; SLC/DCM,CLA - Edit Patient Lists ; 11/18/92 [12/28/99 2:37pm]

Source file <ORLP0.m>

Package	Total	Call Graph
Order Entry Results Reporting	6	PR1^ORLA1 CLEAR^ORLP DEL^ORLP00 CLEAR^ORLP1 EN2^ORUDPA EN^ORULG
VA Fileman	2	^DIC YN^DICN
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Order Entry Results Reporting	11	ORLP ADD LIST ORLP ADD ONE ORLP ADD PROVIDER ORLP ADD SPECIALTY ORLP ADD WARD ORLP LIST ORLP LOAD ORLP TEAM ADD ORLP00 ORLP01 ORLP1

Name	Comments	DBIA/ICR reference
P1	;
END	;
SEQ	;
SHOW	;from optn ORLP LIST - Show list
REM	;
LIST	;from ORLP1, SEQ - List list
PERS	;from optn ORLP ADD LIST - add to existing lists, display number of patients added if not a TEAM list
ADD	;from ASKPT^ORLP, optn ORLP ADD ONE - Add by individual pt, display number of patients added if not a TEAM list
ASK(X)	;
L1	;
SEQ1	;
PREF	;
OKILL	; called by options ORLP ADD LIST, ORLP ADD ONE, ORLP ADD PROVIDER, ORLP ADD SPECIALTY, ORLP ADD WARD, ORLP LOAD, ORPO PATIENT SELECT

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ADD+7
Function Call: WRITE	Prompt: !!,"No current list found.",! Line Location: SHOW+1
Function Call: WRITE	Prompt: !!,"Show your current PATIENT list" Line Location: LIST+1
Function Call: WRITE	Prompt: !,"Enter YES or NO." Line Location: LIST+1
Function Call: WRITE	Prompt: *7,!!,"You have no existing lists." Line Location: PERS+1
Function Call: WRITE	Prompt: !!,"Patient list "_$P(Y,"^",2)_" is empty." Line Location: P1+4
Function Call: WRITE	Prompt: !!,"Working..." Line Location: P1+5
Function Call: WRITE	Prompt: !,"No existing list found, continuing with an EMPTY list.",! Line Location: ASK+3
Function Call: WRITE	Prompt: !!,"A Patient list is currently defined." Line Location: ASK+8
Function Call: WRITE	Prompt: !,"Do you want to continue with the current list" Line Location: ASK+10
Function Call: WRITE	Prompt: !,"Enter YES or NO." Line Location: ASK+13
Function Call: WRITE	Prompt: !!,"Continuing with current list." Line Location: ASK+15
Function Call: WRITE	Prompt: !!,"Do you want to remove patients from this list" Line Location: REM+2
Function Call: WRITE	Prompt: !,"Enter YES or NO." Line Location: REM+4
Routine Call	DIC Line Location: P1+1

Name	Line Occurrences (* Changed, ! Killed)
^OR(100.21 - [#100.21]	PERS+1, P1+4, P1+8
^XUTL("OR"	ADD+4, SHOW+1, SHOW+2, LIST+1, PERS+4, ASK+3, ASK+4, ASK+5!, SEQ+2*

Name	Field # of Occurrence
>> %	LIST+1, ASK+6, ASK+7, ASK+11, ASK+12, ASK+13, ASK+14, ASK+16, SEQ+3, SEQ1+1 , REM+1, REM+3, REM+4, REM+5
COL	L1+1~, L1+2*, L1+3
DIC	ADD+6!, END+1!, PERS+5*
DIC("A"	PERS+5*
DIC("S"	PERS+5*
DIC(0	PERS+5*
>> DUOUT	END+2, PERS+7
DUZ	PERS+1, PREF+1
HDR	L1+1~, L1+2*, L1+3
ORACTION	OKILL+1!
ORAGE	OKILL+1!
ORATTEND	OKILL+1!
ORCEND	END+1!, OKILL+1!
ORCLIN	END+1!, OKILL+1!
ORCNT	ADD+4, END+1!, PERS+4, PERS+6, PERS+7, ASK+4*, ASK+9, SEQ+2, OKILL+1!
ORCOLW	END+1!, OKILL+1!
ORCSTRT	END+1!, OKILL+1!
ORCT	ADD+5, ADD+7, ADD+8, END+1!, PERS+6*
ORDEF	END+1!, OKILL+1!
ORDIC	OKILL+1!
ORDOB	OKILL+1!
OREND	END+1!
ORGY	OKILL+1!
ORI	END+1!, PERS+6, P1+8, OKILL+1!
ORII	ADD+7*, END+1!
ORJ	END+1!, P1+6, P1+8
ORK	END+1!
ORL	OKILL+1!
ORNP	OKILL+1!
OROPREF	ADD+7, END+1!, P1+8, SEQ+1, SEQ+2, PREF+1*, OKILL+1!
ORPD	OKILL+1!
ORPNM	ADD+7, OKILL+1!
ORPRIM	OKILL+1!
ORPROV	OKILL+1!
ORPV	OKILL+1!
ORSEX	OKILL+1!
ORSPEC	OKILL+1!
ORSSN	OKILL+1!
ORTITLE	ASK+2!, OKILL+1!
ORTS	OKILL+1!
ORUPNM	END+1!, OKILL+1!
ORURMBD	OKILL+1!
ORUS	END+1!
ORUSSN	END+1!, OKILL+1!
ORUVP	OKILL+1!
ORVP	ADD+7, END+1!, P1+8*, OKILL+1!
ORWARD	OKILL+1!
ORX	ADD+7, END+1!, P1+8, OKILL+1!
ORY	END+1!, PERS+6, P1+2*, P1+8, OKILL+1!
ORZ	END+1!
PIE	L1+1~, L1+2*, L1+3
ROOT	L1+1~, L1+2*, L1+3
>> TEAM	ADD+7, ADD+8, PERS+6, PERS+7, ASK+1, SEQ+3, SEQ1+1, SEQ1+2
X	ADD+1, ADD+2, PERS+2, PERS+3, ASK~, ASK+1, ASK+3, ASK+12, ASK+14, ASK+16
Y	END+1!, P1+2, P1+3, P1+4*