Routine: ORLP1

Information

ORLP1 ; SLC/DCM,CLA - Patient Lists, Store ; 1/19/11 10:12am

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 8

Package	Total	Caller Graph
Order Entry Results Reporting	7	ORLP ORLP CLEAR ORLP DELETE ORLP MERGE ORLP TEAM DELETE ORLP0 ORLP00
Kernel	1	^DIC(19

Entry Points

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

External References

Name	Field # of Occurrence
^DIC	GETNAME+11, OVRWR+29, OVRWR+40, OVRWR+45, DEL+3
YN^DICN	STOR+3, OVRWR+15, D2+2, D1+3, CLEAR+4
^DIE	OVRWR+38
^DIK	OVRWR+22, D1+9
^DIR	GETNAME+7, OWNER+16
CLNLIST^GMRCTU	D1+14
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+16
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+17
Function Call: WRITE	Prompt: !,"Another user is editing this entry." Line Location: OVRWR+19
Function Call: WRITE	Prompt: !,"Another user is editing this entry." Line Location: OVRWR+43
Function Call: WRITE	Prompt: !!,"List has been stored." Line Location: OVRWR+48
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: !,"Another user is editing this entry." Line Location: D1+1
Function Call: WRITE	Prompt: !,"Are you ready to delete list ",$P(ORPTEAM,"^",2) Line Location: D1+2
Function Call: WRITE	Prompt: !,"Enter YES to delete the list, NO to quit." Line Location: D1+4
Function Call: WRITE	Prompt: !,"Processing........" Line Location: D1+6
Function Call: WRITE	Prompt: !,"Searching for/removing Consults pointers to deleted team..." Line Location: D1+13
Function Call: WRITE	Prompt: !,"List deletion completed.",! Line Location: D1+16
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	DIC Line Location: GETNAME+11 OVRWR+29 OVRWR+40 OVRWR+45 DEL+3
Routine Call	DIE Line Location: OVRWR+38
Routine Call	DIR Line Location: GETNAME+7 OWNER+16

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+12, OVRWR+19, OVRWR+20, OVRWR+21, OVRWR+22, OVRWR+23, OVRWR+36, OVRWR+40, OVRWR+43, OVRWR+47 , D1+1, D1+17, NAMCH+7, NAMCH+14, OWNER+21*
^TMP("ORLP"	D1+18!
^XUTL("OR"	OVRWR+45, CLEAR+1, CLEAR+7!

Label References

Name	Line Occurrences
$$NAMCH	OVRWR+7
D1	D1+4
D2	D2+3
DEL	D1+19
GETNAME	OVRWR+8, OVRWR+24
STOR	STOR+4, MERG+13

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	STOR+1~, STOR+3, STOR+4, STOR+5, OVRWR+12, OVRWR+13, OVRWR+15, OVRWR+16, OVRWR+17, D2+1* , D2+2, D2+3, D2+4, D1+3, D1+4, D1+5, CLEAR+4*, CLEAR+5, CLEAR+6, CLEAR+7
DA	STOR+1~, OVRWR+22, OVRWR+37, OVRWR+39!, D1+8*, D1+10!
DA(1	OVRWR+22, OVRWR+40, OVRWR+45*
DIC	STOR+1~, GETNAME+10, GETNAME+13!, OVRWR+28, OVRWR+32!, OVRWR+40!, OVRWR+45, OVRWR+46!, MERG+6, MERG+15! , DEL+1, DEL+2*, DEL+4!, D1+10!
DIC("A"	MERG+7, DEL+1, DEL+2*
DIC("S"	MERG+6, DEL+1, DEL+2*
DIC(0	OVRWR+28, OVRWR+40, OVRWR+45, MERG+6, DEL+1, DEL+2
DIE	OVRWR+37*, OVRWR+39!
DIK	STOR+1~, OVRWR+22, D1+8, D1+10!
>> DILOCKTM	OVRWR+19, OVRWR+43, D1+1
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+28*
DR	STOR+1~, OVRWR+37*
>> DTOUT	MERG+8
>> DUOUT	MERG+8
DUZ	OVRWR+40, D2+2, NAMCH+14
ERROR	OVRWR+2~, OVRWR+11, OVRWR+19*
I	STOR+1~, OVRWR+22*
IOF	MERG+5
J	STOR+1~
ORABORT	OVRWR+1~, OVRWR+3, OVRWR+7, OVRWR+8, OVRWR+16, OVRWR+18, OVRWR+24, OVRWR+30, OVRWR+32
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+44, OVRWR+45, OVRWR+46!
ORK	MERG+7*, MERG+15!
ORLIST	STOR+1~, GETNAME+13, OVRWR+7, OVRWR+19, OVRWR+20, OVRWR+21, OVRWR+22, OVRWR+23, OVRWR+31, OVRWR+36 , OVRWR+37, OVRWR+40, OVRWR+43, OVRWR+45, OVRWR+47, NAMCH+9!, NAMCH+16!
ORLN	STOR+1~, GETNAME+9, GETNAME+13, OVRWR+14, OVRWR+16, OVRWR+17, NAMCH+9!, NAMCH+16!
ORLPDUZ	D1+18!
>> ORLST	DEL+1, DEL+2
ORNEWL	GETNAME+3~, GETNAME+4, GETNAME+13, OVRWR+6, OVRWR+11, OVRWR+27, OVRWR+35
>> OROPREF	MERG+10
>> OROWNER	OWNER+11, OWNER+17, OWNER+19, OWNER+20, OWNER+21
ORPRIM	MERG+15!
ORPROV	MERG+15!
ORPTEAM	DEL+6*, D2+2, D1+1, D1+2, D1+8, D1+14, D1+17, D1+18!
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+36, NAMCH+7, OWNER+21
X	STOR+1~, GETNAME+5, GETNAME+8, GETNAME+9, GETNAME+10, GETNAME+12, OVRWR+30, OVRWR+40, OVRWR+45, 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+18!
Y	STOR+1~, GETNAME+13*, OVRWR+12, OVRWR+30, OVRWR+31, MERG+15!, DEL+5, DEL+6, D1+18!, 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

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: