Routine: ORLPL

Package	Total	Call Graph
VA Fileman	4	EN^DDIOL ^DIC ^DIK ^DIR
Order Entry Results Reporting	2	ASKLINK^ORLP2 ^ORUS
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Order Entry Results Reporting	4	ORLP TEAM DELETE PATIENTS ORLP TEAM DELETE USERS ORLP2 ORLPR

Entry Points

Name	Comments	DBIA/ICR reference
NOENTRY	;called by DELUSER, DELPT - indicate no entries in file/record/field
SETUP	;called by DELUSER, DELPT - setup list for display and editing
DELPT	;called by option ORLP DELETE TEAM PATIENTS - removes patients from a list
DELUSER	;called by option ORLP DELETE TEAM USERS - removes provider/users from a list
GETDEF	;called by SETUP, ASKLIST^ORLP, INQ^ORLP1 - get a default list from ^TMP or user's primary list
END

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DELUSER+10
Function Call: WRITE	Prompt: !,"Provider/user(s) removed from list." Line Location: DELUSER+12
Function Call: WRITE	Prompt: ! Line Location: DELPT+14
Function Call: WRITE	Prompt: !,"Patient(s) removed from list." Line Location: DELPT+16
Function Call: WRITE	Prompt: !!,"There are no ",$S(ET="U":"provider/user ",ET="P":"patient ",1:""),"entries in this list to edit!" Line Location: NOENTRY+1
Routine Call	DIC Line Location: DELUSER+2 DELPT+2
Routine Call	DIR Line Location: DELPT+10

FileNo	Call Tags
^OR(100.21 - [#100.21]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^OR(100.21 - [#100.21]	GETDEF+4, DELUSER+5, DELUSER+6, DELPT+5, DELPT+6
^TMP("ORLP"	GETDEF+2, SETUP+1*
^XUTL("OR"	SETUP+2!

Name	Line Occurrences
END	DELUSER+2, DELUSER+9, DELUSER+13, DELPT+2, DELPT+6, DELPT+13, DELPT+17
NOENTRY	DELUSER+5, DELUSER+6, DELPT+5
SETUP	DELUSER+3, DELPT+3

Name	Field # of Occurrence
^(0	GETDEF+4, DELUSER+6

Name	Field # of Occurrence
A	DELPT+9!
A(1	DELPT+7*
A(2	DELPT+7*
A(3	DELPT+8*
A(4	DELPT+9*
A(5	DELPT+9*
DA	DELUSER+10, DELPT+14, END!
DA(1	DELUSER+10, DELPT+14
DIC	SETUP+2!, DELUSER+1, DELPT+1, END!
DIC("A"	DELUSER+1, DELPT+1
DIC("B"	GETDEF+2, GETDEF+4
DIC("S"	DELUSER+1, DELPT+1
DIC(0	DELUSER+1, DELPT+1
DIK	DELUSER+10, DELPT+14, END!
DIR	DELPT+10!
DIR("A"	DELPT+10*
DIR("B"	DELPT+10*
DIR(0	DELPT+10*
>> DIROUT	DELPT+10
DUZ	GETDEF+4
ET	DELUSER+1, DELPT+1, NOENTRY+1, END!
I	DELUSER+10, DELPT+14, END!
J	END!
LIST	SETUP+1*, DELUSER+5, DELUSER+6, DELUSER+10, DELPT+5, DELPT+6, DELPT+10, DELPT+14, END!
LST	GETDEF+1~, GETDEF+4*
ORUS	DELUSER+7, DELPT+11, END!
ORUS("A"	DELUSER+7, DELPT+11
ORUS("T"	DELUSER+7, DELPT+11
ORUS(0	DELUSER+7, DELPT+11
RESP	END!
U	GETDEF+4, DELPT+6
Y	SETUP+1, SETUP+2!, DELUSER+2, DELUSER+9, DELUSER+11~, DELPT+2, DELPT+10, DELPT+13, DELPT+15~, END!
Y(	DELUSER+10, DELPT+14