Routine: ORLP2

Information

ORLP2 ; SLC/Staff - Remove Autolinks from Team List ; [1/2/01 11:43am]

Source Information

Source file <ORLP2.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA Fileman	6	%XY^%RCR ^DIC YN^DICN ^DIE ^DIK ^DIR
Order Entry Results Reporting	3	CLEAR^ORLP GETDEF^ORLPL ^ORUS
Scheduling	1	$$PTCL^SCAPMC

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Order Entry Results Reporting	4	ORLP TEAM DELETE AUTOLINKS ORLP TEAM RENAME ORLP3AC1 ORLPL

Entry Points

Name	Comments	DBIA/ICR reference
LOOPCL(REF,CLINIC,ACT)	; slc/PKS - 6/99
END	;
ASKLIST	;ask for team list
REN	; SLC/PKS - 7/99 ; ; Allow users to rename a Team List. ; Shows as a selection on menu of ORLP TEAM MENU option, ; Called by option ORLP TEAM RENAME shown on that menu.
PTS(VP,ACT)	; ; set or kill entries out of temp global ; set for patients found to be on a deleted link ; kill for patients to be on another autolink. ; ("Clinic" addition to $SELECT function added by PKS-6/99:)
ASKLINK(LIST)	;ask for autolinks
LOOPTS(REF,DEX,ACT)	;

Name	Field # of Occurrence
%XY^%RCR	ASKLINK+3
^DIC	ASKLIST+4, ASKLINK+16, REN+21
YN^DICN	ASKLIST+9
^DIE	ASKLINK+11, REN+46, REN+48
^DIK	ASKLINK+21
^DIR	REN+33
CLEAR^ORLP	ORLP2+4
GETDEF^ORLPL	ASKLIST+3
^ORUS	ASKLINK+3
$$PTCL^SCAPMC	LOOPCL+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: ORLP2+5
Function Call: WRITE	Prompt: !,"A team list is a list containing patients related to several providers.",!,"These providers are the list's users. You may select one of these lists" Line Location: ORLP2+6
Function Call: WRITE	Prompt: !,"and remove one or more autolinks. Removal of autolinks will stop the",!,"automatic addition or deletion of patients with ADT movements associated",!,"with the deleted autolink." Line Location: ORLP2+7
Function Call: WRITE	Prompt: !!,"Patients that were placed on the list using the deleted autolink will be",!,"removed from the list if they were not placed on the list by another Autolink.",!! Line Location: ORLP2+8
Function Call: WRITE	Prompt: !,"No Autolinks established for this team",! Line Location: ASKLIST+6
Function Call: WRITE	Prompt: !,"List ",$P(Y,"^",2)," already contains patients and/or users.",!,"Do you want to remove some of them" Line Location: ASKLIST+9
Function Call: WRITE	Prompt: !,"Answer 'YES' to delete existing 'Autolinks' and the associated patients,",!,"'NO' to return to the menus.",! Line Location: ASKLIST+10
Function Call: WRITE	Prompt: !," Autolink "_$P(ALINK(LNK),U,3)_" deleted!" Line Location: ASKLINK+11
Function Call: WRITE	Prompt: !," "_CNT_" patient(s) removed from list.",! Line Location: ASKLINK+22
Function Call: WRITE	Prompt: !,"[ADT movements linked to "_$S(VP["DIC(42":"Ward Location ",VP["DG(405":"Room Bed ",VP["VA(200":"Provider ",VP["SC(":"Clinic ",1:"Treating Speciality ")_LNAME_" will now be discontinued.]" Line Location: PTS+5
Routine Call	DIE Line Location: ASKLINK+11 REN+46 REN+48
Routine Call	DIC Line Location: ASKLIST+4 ASKLINK+16 REN+21
Routine Call	DIR Line Location: REN+33

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	LOOPTS+1
^OR(100.12	REN+50
^OR(100.21 - [#100.21]	ASKLIST+6, ASKLIST+7, ASKLIST+9, ASKLINK+9, ASKLINK+10, ASKLINK+16, ASKLINK+21, REN+39, END+2
^TMP("ORLP"	ASKLIST+5, ASKLINK+4!, ASKLINK+20, ASKLINK+21, LOOPTS+1, LOOPCL+31*
^TMP("SC TMP LIST"	LOOPCL+21!, LOOPCL+28, LOOPCL+29, LOOPCL+34!

Name	Line Occurrences
ASKLINK	ORLP2+10
ASKLIST	ORLP2+9
END	ORLP2+9, ORLP2+10, ORLP2+11
LOOPCL	PTS+14
LOOPTS	PTS+6, PTS+7, PTS+9, PTS+10, PTS+11, PTS+12
PTS	ASKLINK+10, ASKLINK+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ASKLIST+8, ASKLIST+9*, ASKLIST+10, ASKLIST+11
%X	ORLP2+3~, ASKLINK+3*
%Y	ORLP2+3~, ASKLINK+3*
ACT	ORLP2+3~, PTS~, PTS+5, PTS+6, PTS+7, PTS+9, PTS+10, PTS+11, PTS+12, PTS+14 , LOOPTS~, LOOPTS+1, LOOPCL~, LOOPCL+31
ALINK	ORLP2+3~
ALINK(	ASKLINK+8, ASKLINK+10, ASKLINK+11
ALINK(0	ASKLINK+3
CLINIC	LOOPCL~, LOOPCL+22
CNT	ORLP2+3~, ASKLINK+20, ASKLINK+21, ASKLINK+22
DA	ORLP2+3~, ASKLIST+1~, ASKLINK+11, ASKLINK+21, REN+44*
DA(1	ASKLINK+11, ASKLINK+15, ASKLINK+21*
DEX	LOOPTS~, LOOPTS+1
DIC	ORLP2+3~, ASKLIST+1~, ASKLIST+2, ASKLINK+15, ASKLINK+17!, REN+15~, REN+18*, REN+25!
DIC("A"	ASKLIST+2, REN+20
DIC("S"	ASKLIST+2*
DIC(0	ASKLIST+2, ASKLINK+15, REN+19*
DIE	ORLP2+3~, ASKLIST+1~, ASKLINK+11, REN+15~, REN+43, REN+51!
DIK	ORLP2+3~, ASKLINK+21*!
DIR	ORLP2+3~, REN+15~, REN+35!, REN+37!
DIR("?"	REN+31*, REN+32
DIR("??"	REN+32*
DIR("A"	REN+30*
DIR(0	REN+29*
DLAYGO	ORLP2+3~
DR	ORLP2+3~, ASKLINK+11, REN+15~, REN+45, REN+47*
DTOUT	ORLP2+3~, ORLP2+9, ORLP2+10, REN+22, REN+34
DUOUT	ORLP2+3~, REN+22, REN+34
FILE	ORLP2+3~
IOF	ORLP2+5
K	ORLP2+3~, ASKLINK+20*, ASKLINK+21
LINK	ORLP2+3~
LIST	ORLP2+3~, ORLP2+10, ASKLIST+5*, ASKLIST+6, ASKLIST+9, ASKLINK~, ASKLINK+1, ASKLINK+9, ASKLINK+10, ASKLINK+11 , ASKLINK+15, ASKLINK+16, ASKLINK+21, END+1, END+2
LNAME	ORLP2+3~, ASKLINK+10, ASKLINK+16, PTS+5, PTS+6, PTS+7
LNK	ORLP2+3~, ASKLINK+8*, ASKLINK+10, ASKLINK+11
LST	ORLP2+3~, ASKLINK+16*
ORERR	LOOPCL+18~, LOOPCL+22
ORLIST	LOOPCL+18~, LOOPCL+22
ORLPT	ORLP2+3~, LOOPTS+1*
ORNEW	REN+15~, REN+36*
ORSTOP	ORLP2+3~, ORLP2+9, ORLP2+10, ASKLIST+4, ASKLIST+6, ASKLIST+9, ASKLIST+11
ORTEAM	REN+15~, REN+24*, REN+39, REN+44, REN+50
ORUS	ORLP2+3~, ASKLINK+2*
ORUS("A"	ASKLINK+2*
ORUS("T"	ASKLINK+2*
ORUS(0	ASKLINK+2*
PATIENT	LOOPCL+18~, LOOPCL+29*, LOOPCL+30
RCD	LOOPCL+18~, LOOPCL+27, LOOPCL+28, LOOPCL+29
REF	ORLP2+3~, LOOPTS~, LOOPTS+1, LOOPCL~
RESULT	LOOPCL+18~, LOOPCL+22*, LOOPCL+23
TEAM	ORLP2+3~
U	ASKLINK+9, ASKLINK+10, ASKLINK+11, ASKLINK+16, PTS+9, PTS+10, PTS+11
USER	ORLP2+3~
VP	ORLP2+3~, ASKLINK+10, ASKLINK+16, PTS~, PTS+5, PTS+9, PTS+10, PTS+11, PTS+12, PTS+14
VP(1	ASKLINK+10, ASKLINK+16, PTS+6, PTS+7, PTS+8, PTS+12, PTS+14
VP(2	ASKLINK+10, ASKLINK+16
X	ASKLINK+16, LOOPTS+1, LOOPCL+18~, LOOPCL+30*, LOOPCL+31, REN+36
Y	ORLP2+3~, ASKLIST+4, ASKLIST+5, ASKLIST+7, ASKLIST+9, REN+23, REN+24, REN+35
Y(0	ASKLINK+16

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORLP2

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: