Routine: ORLP1

Package	Total	Call Graph
VA Fileman	5	^DIC YN^DICN ^DIE ^DIK ^DIR
Order Entry Results Reporting	3	(BUILD,PR2)^ORLA1 CLEAR^ORLP (ASK,END,LIST,P1)^ORLP0
Consult Request Tracking	1	CLNLIST^GMRCTU
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Order Entry Results Reporting	7	ORLP ORLP CLEAR ORLP DELETE ORLP MERGE ORLP TEAM DELETE ORLP0 ORLP00

Entry Points

Name	Comments	DBIA/ICR reference
CLEAR(X)	;called by option ORLP CLEAR - clear active list
GETNAME	; Call DIR to get user entry for new list name:
OVRWR	;
STOR	;called by ORLP0 - Store lists
DEL	;called by option ORLP DELETE - delete a list
OWNER	; Get input from CAC for list user/owner.
NAMCH(ORTEAM)	; Check for name duplication, proper team type.
D1	;
D2	;
MERG	;called by option ORLP MERG - merge patient lists

External References

Name	Field # of Occurrence
^DIC	GETNAME+11, OVRWR+28, OVRWR+39, OVRWR+44, DEL+3
YN^DICN	STOR+3, OVRWR+14, D2+2, D1+2, CLEAR+4
^DIE	OVRWR+37
^DIK	OVRWR+21, D1+8
^DIR	GETNAME+7, OWNER+16
CLNLIST^GMRCTU	D1+13
BUILD^ORLA1	MERG+14
PR2^ORLA1	MERG+10
CLEAR^ORLP	MERG+1
ASK^ORLP0	MERG+2
END^ORLP0	MERG+9, MERG+13
LIST^ORLP0	MERG+12
P1^ORLP0	MERG+7
$$GET^XPAR	D2+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Store list for future reference" Line Location: STOR+2
Function Call: WRITE	Prompt: !,"You may store the newly compiled list. Answer YES or NO." Line Location: STOR+4
Function Call: WRITE	Prompt: " List not permanently stored." Line Location: GETNAME+8
Function Call: WRITE	Prompt: !,"List ",ORLN," unchanged.",! Line Location: OVRWR+15
Function Call: WRITE	Prompt: !,"Answer YES or NO, if you answer YES the list "_ORLN_" will be cleared,",!,"and this temporary list will overwrite it.",! Line Location: OVRWR+16
Function Call: WRITE	Prompt: !!,"List has been stored." Line Location: OVRWR+47
Function Call: WRITE	Prompt: @IOF,!,"Merging patients from two or more Personal and/or Team patient lists.",! Line Location: MERG+5
Function Call: WRITE	Prompt: !!,ORCT_" Patients added, "_ORCNT_" total" Line Location: MERG+7
Function Call: WRITE	Prompt: !!,"List empty.",! Line Location: MERG+9
Function Call: WRITE	Prompt: !!,"LIST PATIENTS MERGED" Line Location: MERG+11
Function Call: WRITE	Prompt: !!,"This is your primary patient list, are you sure you want to remove it" Line Location: D2+2
Function Call: WRITE	Prompt: !,"Answer YES if you really want to remove this list." Line Location: D2+3
Function Call: WRITE	Prompt: !!,"WARNING - Deleting a patient list will disable access by providers who use the",!,"list as their preferred patient list." Line Location: D2+5
Function Call: WRITE	Prompt: !,"Are you ready to delete list ",$P(DLIST,"^",2) Line Location: D1+1
Function Call: WRITE	Prompt: !,"Enter YES to delete the list, NO to quit." Line Location: D1+3
Function Call: WRITE	Prompt: !,"Processing........" Line Location: D1+5
Function Call: WRITE	Prompt: !,"Searching for/removing Consults pointers to deleted team..." Line Location: D1+12
Function Call: WRITE	Prompt: !,"List deletion completed.",! Line Location: D1+15
Function Call: WRITE	Prompt: !!,"No list currently defined" Line Location: CLEAR+1
Function Call: WRITE	Prompt: !!,"Are you sure you want to clear the current pt selection list" Line Location: CLEAR+3
Function Call: WRITE	Prompt: !!,"YES will clear the current pt selection list and leave you with a blank slate to work from." Line Location: CLEAR+6
Function Call: WRITE	Prompt: !!,"List cleared" Line Location: CLEAR+7
Function Call: WRITE	Prompt: !!,"Nothing done." Line Location: CLEAR+8
Routine Call	DIE Line Location: OVRWR+37
Routine Call	DIC Line Location: GETNAME+11 OVRWR+28 OVRWR+39 OVRWR+44 DEL+3
Routine Call	DIR Line Location: GETNAME+7 OWNER+16

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^OR(100.21 - [#100.21]	OVRWR+11, OVRWR+18, OVRWR+19, OVRWR+20, OVRWR+21, OVRWR+22, OVRWR+35, OVRWR+39, OVRWR+42, OVRWR+46 , D1+6, D1+16, NAMCH+7, NAMCH+14, OWNER+21*
^TMP("ORLP"	D1+17!
^XUTL("OR"	OVRWR+44, CLEAR+1, CLEAR+7!

Label References

Name	Line Occurrences
$$NAMCH	OVRWR+6
D1	D1+3
D2	D2+3
DEL	D1+18
GETNAME	OVRWR+7, OVRWR+23
STOR	STOR+4, MERG+13

Naked Globals

Name	Field # of Occurrence
^(	OVRWR+44
^("ORU"	CLEAR+7!
^("ORV"	CLEAR+7!
^("ORW"	CLEAR+7!
^(0	OVRWR+19, OVRWR+20, OVRWR+44

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	STOR+1~, STOR+3, STOR+4, STOR+5, OVRWR+11, OVRWR+12, OVRWR+14, OVRWR+15, OVRWR+16, D2+1* , D2+2, D2+3, D2+4, D1+2, D1+3, D1+4, CLEAR+4*, CLEAR+5, CLEAR+6, CLEAR+7
DA	STOR+1~, OVRWR+21, OVRWR+36, OVRWR+38!, D1+7*, D1+9!
DA(1	OVRWR+21, OVRWR+39, OVRWR+44*
DIC	STOR+1~, GETNAME+10, GETNAME+13!, OVRWR+27, OVRWR+31!, OVRWR+39!, OVRWR+44, OVRWR+45!, MERG+6, MERG+15! , DEL+1, DEL+2*, DEL+4!, D1+9!
DIC("A"	MERG+7, DEL+1, DEL+2*
DIC("S"	MERG+6, DEL+1, DEL+2*
DIC(0	OVRWR+27, OVRWR+39, OVRWR+44, MERG+6, DEL+1, DEL+2
DIE	OVRWR+36*, OVRWR+38!
DIK	STOR+1~, OVRWR+21, D1+7, D1+9!
DIR	STOR+1~, OWNER+8~, OWNER+18!
DIR("?"	OWNER+15*
DIR("A"	GETNAME+6, OWNER+13
DIR("S"	OWNER+14*
DIR(0	GETNAME+6, OWNER+12
DIRUT	GETNAME+8!
DLAYGO	STOR+1~, OVRWR+27*
DLIST	DEL+6*, D2+2, D1+1, D1+6, D1+7, D1+13, D1+16, D1+17!
DR	STOR+1~, OVRWR+36*
>> DTOUT	MERG+8
>> DUOUT	MERG+8
DUZ	OVRWR+39, D2+2, NAMCH+14
I	STOR+1~, OVRWR+21*
IOF	MERG+5
J	STOR+1~
ORABORT	OVRWR+1~, OVRWR+2, OVRWR+6, OVRWR+7, OVRWR+15, OVRWR+17, OVRWR+23, OVRWR+29, OVRWR+31
ORCEND	MERG+15!
ORCLIN	MERG+15!
ORCNT	MERG+4, MERG+7, MERG+9, MERG+15!, CLEAR+7
ORCOLW	MERG+15!
ORCSTRT	MERG+15!
ORCT	MERG+7*, MERG+15!
ORDEF	MERG+15!
ORI	OVRWR+43, OVRWR+44, OVRWR+45!
ORK	MERG+7*, MERG+15!
ORLIST	STOR+1~, GETNAME+13, OVRWR+6, OVRWR+18, OVRWR+19, OVRWR+20, OVRWR+21, OVRWR+22, OVRWR+30, OVRWR+35 , OVRWR+36, OVRWR+39, OVRWR+42, OVRWR+44, OVRWR+46, NAMCH+9!, NAMCH+16!
ORLN	STOR+1~, GETNAME+9, GETNAME+13, OVRWR+13, OVRWR+15, OVRWR+16, NAMCH+9!, NAMCH+16!
ORLPDUZ	D1+17!
>> ORLST	DEL+1, DEL+2
ORNEWL	GETNAME+3~, GETNAME+4, GETNAME+13, OVRWR+5, OVRWR+10, OVRWR+26, OVRWR+34
>> OROPREF	MERG+10
>> OROWNER	OWNER+11, OWNER+17, OWNER+19, OWNER+20, OWNER+21
ORPRIM	MERG+15!
ORPROV	MERG+15!
ORSPEC	MERG+15!
ORTEAM	NAMCH~, NAMCH+7, NAMCH+14
ORTITLE	MERG+15!
ORTNAM	GETNAME+1~, GETNAME+2, GETNAME+9, NAMCH+8, NAMCH+15
ORUPNM	MERG+15!
ORUSSN	MERG+15!
ORWARD	MERG+15!
>> ORY	MERG+7
>> ORYY	OWNER+21
U	GETNAME+13, OVRWR+35, NAMCH+7, OWNER+21
X	STOR+1~, GETNAME+5, GETNAME+8, GETNAME+9, GETNAME+10, GETNAME+12, OVRWR+29, OVRWR+39, OVRWR+44, MERG+2 , MERG+3, CLEAR~, CLEAR+1, CLEAR+2, CLEAR+5, CLEAR+6, CLEAR+7, CLEAR+9, NAMCH+9!, NAMCH+16! , OWNER+8~, OWNER+18!
XX	D1+17!
Y	STOR+1~, GETNAME+13*, OVRWR+11, OVRWR+29, OVRWR+30, MERG+15!, DEL+5, DEL+6, D1+17!, NAMCH+9! , NAMCH+16!, OWNER+8~, OWNER+17, OWNER+18!

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORLP1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: