Routine: ORLP

Package	Total	Call Graph
VA Fileman	5	^DIC FILE^DICN ^DIE ^DIK ^DIR
Order Entry Results Reporting	2	ASKPT^ORLP00 OWNER^ORLP1
Scheduling	1	$$PTCL^SCAPMC

Package	Total	Caller Graph
Order Entry Results Reporting	5	ORLP TEAM ADD ORLP TEAM MENU ORLP0 ORLP1 ORLP2

Entry Points

Name	Comments	DBIA/ICR reference
ASKSUB	; From ASKLIST - Ask re: subscription status. ; (PKS - 8/1999)
END1
END	;
ASKLIST	; Ask for team list. ; NOTE: For new entries, TYPE field is required and trigger ; stuffs CREATOR field with DUZ of current user.
CHKNAM(X)	; Check for duplicate entry.
CLEAR	; From TM, MERG^ORLP1, END^ORLP0.
AL
STOR	; From SEQ^ORLP0 - store list in 100.21.
ADDLPTS	; Add patients linked to autolink.
ASKLINK	; Ask for autolinks.
LOOPTS(REF,DEX)	;
TM	; From option ORLP TEAM ADD - create/add a team list.
ASKDEV	; From ASKLIST - ask for device.
ADDLOOP	; From STOR, LOOPTS - add patients.
ASKUSER	; From ASKLIST - ask for providers/users.
BYCL(CLINIC)	; SLC/PKS - 6/99 - Return list of clinic patients by enrollment.

External References

Name	Field # of Occurrence
^DIC	AL+6, ASKLINK+5, ASKUSER+11, CHKNAM+4
FILE^DICN	BYCL+52, ADDLOOP+5
^DIE	AL+16, ASKLINK+9, ASKDEV+9, ASKSUB+9
^DIK	AL+16, AL+21
^DIR	AL+2
ASKPT^ORLP00	AL+28, AL+45
OWNER^ORLP1	AL+20
$$PTCL^SCAPMC	BYCL+35

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"A team list is a list containing patients related to several providers.",!,"These providers are the list's users. You may now create a new team list" Line Location: TM+3
Function Call: WRITE	Prompt: !,"or add autolinks, users and/or patients to an existing team list. Autolinks",!,"automatically add or remove patients with ADT movements. Users on the list" Line Location: TM+4
Function Call: WRITE	Prompt: !,"may receive notifications regarding patients on the same list. Please prefix",!,"your list name with 'TEAM' or 'SERVICE' (e.g. TEAM7B, SERVICECARDIOLOGY.)",! Line Location: TM+5
Function Call: WRITE	Prompt: !!," Personal lists cannot be edited here.",! Line Location: AL+10
Function Call: WRITE	Prompt: !," Type: "_$S($P(Y(0),U,2)="TM":"Manual Team List",$P(Y(0),U,2)="TA":"Autolinked Team List",$P(Y(0),U,2)="MRAL":"Manual Removal Autolinked Team List",1:"(Unknown)") Line Location: AL+31
Function Call: WRITE	Prompt: !?5," Another user is editing this entry." Line Location: AL+34
Function Call: WRITE	Prompt: ! Line Location: ASKLINK+2
Function Call: WRITE	Prompt: !," This field is required in order for Provider autolinks to work correctly.",!," Please answer the question." Line Location: ASKLINK+9
Function Call: WRITE	Prompt: ! Line Location: ADDLPTS+1
Function Call: WRITE	Prompt: !," [ADT movements linked to " Line Location: ADDLPTS+2
Function Call: WRITE	Prompt: !," ",LNAME Line Location: ADDLPTS+3
Function Call: WRITE	Prompt: !," will now automatically add patients to this list.]" Line Location: ADDLPTS+4
Function Call: WRITE	Prompt: !!," Adding patients linked to ",LNAME,"..." Line Location: ADDLPTS+6
Function Call: WRITE	Prompt: ! Line Location: ADDLPTS+7
Function Call: WRITE	Prompt: ! Line Location: BYCL+24
Function Call: WRITE	Prompt: !," [Patient enrollments linked to " Line Location: BYCL+25
Function Call: WRITE	Prompt: !," ",LNAME Line Location: BYCL+26
Function Call: WRITE	Prompt: !," will now automatically add patients to this list.]" Line Location: BYCL+27
Function Call: WRITE	Prompt: ! Line Location: BYCL+28
Function Call: WRITE	Prompt: !," Adding patients enrolled in ",LNAME,"..." Line Location: BYCL+29
Function Call: WRITE	Prompt: ! Line Location: BYCL+30
Function Call: WRITE	Prompt: !," "_ALCNT_" patient(s) added to list." Line Location: BYCL+57
Function Call: WRITE	Prompt: !," No linked patients found." Line Location: BYCL+58
Function Call: WRITE	Prompt: !," "_DUPCNT_" patient(s) already on list." Line Location: BYCL+59
Function Call: WRITE	Prompt: ! Line Location: BYCL+60
Function Call: WRITE	Prompt: !,$S(+CNT:" "_(+$G(CNTAPR)+(+CNT))_" patient(s) added.",1:" Linked patients already on list.") Line Location: LOOPTS+3
Function Call: WRITE	Prompt: " No linked patients found." Line Location: LOOPTS+4
Function Call: WRITE	Prompt: ! Line Location: LOOPTS+5
Function Call: WRITE	Prompt: ! Line Location: ASKUSER+2
Function Call: WRITE	Prompt: ! Line Location: ASKUSER+12
Function Call: WRITE	Prompt: ! Line Location: ASKDEV+4
Function Call: WRITE	Prompt: ! Line Location: ASKSUB+4
Function Call: WRITE	Prompt: !?5,MSG Line Location: STOR+6
Function Call: WRITE	Prompt: !?5," No patients found." Line Location: STOR+7
Function Call: WRITE	Prompt: !?5," Storing list " Line Location: STOR+8
Function Call: WRITE	Prompt: $P(TEAM,U,2)," " Condition for execution: $D(TEAM) Line Location: STOR+8
Function Call: WRITE	Prompt: "for future reference..." Line Location: STOR+8
Routine Call	DIE Line Location: AL+16 ASKLINK+9 ASKDEV+9 ASKSUB+9
Routine Call	DIC Line Location: AL+6 ASKLINK+5 ASKUSER+11 CHKNAM+4
Routine Call	DIR Line Location: AL+2

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)
^DPT - [#2]	LOOPTS+1
^OR(100.12	STOR+9
^OR(100.21 - [#100.21]	AL+8*, AL+10, AL+18, AL+24, AL+34, ASKLINK+10, BYCL+48, BYCL+49, ASKUSER+3, STOR+4 , ADDLOOP+1, ADDLOOP+2, END+1
^TMP("ORLP"	AL+11*
^TMP("SC TMP LIST"	BYCL+33!, BYCL+45, BYCL+46, BYCL+61!
^XUTL("OR"	CLEAR+1!, STOR+5

Label References

Name	Line Occurrences
$$CHKNAM	AL+4
ADDLOOP	LOOPTS+1, STOR+5
ADDLPTS	ASKLINK+14
AL	AL+10
ASKDEV	AL+25, AL+28, AL+38, AL+45
ASKLINK	AL+25, AL+38
ASKLIST	TM+6
ASKSUB	AL+25, AL+42
ASKUSER	AL+25, AL+28, AL+38, AL+45
BYCL	ASKLINK+12
CLEAR	TM+2
END	TM+6
LOOPTS	ADDLPTS+8, ADDLPTS+9, ADDLPTS+15, ADDLPTS+16, ADDLPTS+17, ADDLPTS+18

Naked Globals

Name	Field # of Occurrence
^(	STOR+5
^("ORU"	CLEAR+1!
^("ORV"	CLEAR+1!
^("ORW"	CLEAR+1!
^(0	AL+24, BYCL+49, ASKUSER+3, STOR+5, ADDLOOP+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END1!
ALCNT	BYCL+17~, BYCL+42, BYCL+53, BYCL+57, BYCL+58
CLINIC	BYCL~, BYCL+20, BYCL+21, BYCL+35
CNT	ADDLPTS+5, ADDLPTS+15, LOOPTS+3, STOR+5, STOR+6, STOR+8, ADDLOOP+5, END1!
CNTAPR	ADDLPTS+15~*, LOOPTS+3
DA	AL+16, AL+21, ASKLINK+1~, ASKLINK+3!, ASKLINK+9, BYCL+17~, BYCL+50!, ASKUSER+4!, ASKUSER+13!, ASKDEV+7 , ASKSUB+7*, ADDLOOP+3!, END1!
DA(1	ASKLINK+4, ASKLINK+9, BYCL+51, ASKUSER+5, ASKUSER+6, ADDLOOP+4*
DD	BYCL+17~, BYCL+50!, ADDLOOP+3!, END1!
DEX	LOOPTS~, LOOPTS+1, LOOPTS+6!
DFN	BYCL+17~, BYCL+46*, BYCL+47
DIC	AL~, AL+6~, AL+11!, ASKLINK+1~, ASKLINK+3!, ASKLINK+4, BYCL+17~, BYCL+50!, BYCL+51, ASKUSER+4! , ASKUSER+6, ASKUSER+13!, ADDLOOP+3!, ADDLOOP+4, CHKNAM+1~, CHKNAM+3, END1!
DIC("A"	ASKLINK+4, ASKUSER+7
DIC("P"	ASKUSER+6*
DIC("S"	ASKUSER+9*
DIC(0	AL+6, ASKLINK+4, BYCL+51, ASKUSER+6, ADDLOOP+4*
DIE	AL~, AL+16~, ASKLINK+9, ASKDEV+5~, ASKDEV+6, ASKDEV+10!, ASKSUB+5~, ASKSUB+6, ASKSUB+10!, END1!
DIK	AL~, AL+16, AL+21, END1!
DIR	AL+1~, AL+3!, AL+5!, END1!
DIR("A"	AL+1*
DIR(0	AL+1*
DIRUT	AL+3!, AL+7!
DLAYGO	AL~, AL+6, ASKLINK+1~, ASKLINK+4, ASKUSER+5, ASKUSER+13!, STOR+3
DO	BYCL+17~, BYCL+50!, ADDLOOP+3!, END1!
DR	AL~, AL+16, ASKLINK+9, ASKDEV+5~, ASKDEV+8, ASKSUB+5~, ASKSUB+8, END1!
DTOUT	ASKUSER+1, ASKDEV+3, ASKSUB+3, END1!
DUOUT	ASKLINK+1~, ASKLINK+3!, ASKUSER+1, ASKDEV+3, ASKSUB+3
DUPCNT	BYCL+17~, BYCL+43, BYCL+48, BYCL+59
DUZ	STOR+1
FILE	ADDLPTS+5*, ADDLPTS+8, ADDLPTS+9, ADDLPTS+10, ADDLPTS+18, LOOPTS+6!
IOF	TM+3
LINK	ADDLPTS+5*, ADDLPTS+15, ADDLPTS+16, ADDLPTS+17, ADDLPTS+18, END1!
LNAME	ASKLINK+1~, ASKLINK+7*, ADDLPTS+3, ADDLPTS+6, ADDLPTS+8, ADDLPTS+9, BYCL+26, BYCL+29
LVP	ASKLINK+1~, ASKLINK+3, ASKLINK+5*, ASKLINK+8, ASKLINK+9, ASKLINK+10, ASKLINK+12, ADDLPTS+5
LVPT	ASKLINK+1~, ASKLINK+10*, ADDLPTS+15, ADDLPTS+16, ADDLPTS+17, LOOPTS+2
MSG	LOOPTS+6!, STOR+6*
ORBROOT	END1!
ORBSTG	END1!
ORCNT	CLEAR+1*, STOR+1, END1!
ORDA	AL~, AL+11*, AL+21
ORERR	BYCL+17~, BYCL+35
ORFLAG	AL~
ORLI	STOR+5*, END1!
ORLIST	BYCL+17~, BYCL+35
ORLJ	STOR+5*, END1!
ORLPT	LOOPTS+1*, END1!
ORLTNAM	AL~, AL+4*, AL+10
ORLTYP	TM+1~, AL+17, AL+18, AL+20, AL+21, AL+24
OROWNER	AL~, AL+17*, AL+21
ORRET	BYCL+17~, BYCL+34, BYCL+37, BYCL+38
ORROOT	AL~, AL+6*, AL+16, AL+21
ORYY	AL~, AL+11*
RCD	BYCL+17~, BYCL+44, BYCL+45, BYCL+46
REF	LOOPTS~, LOOPTS+1, LOOPTS+2, LOOPTS+6!
RESULT	BYCL+17~, BYCL+35*, BYCL+36, BYCL+37
SEL	END1!
TEAM	AL+11, AL+13, AL+15, AL+18, AL+24, AL+28, AL+34, AL+45, ASKLINK+4, ASKLINK+9 , ASKLINK+10, BYCL+48, BYCL+49, BYCL+51, ASKUSER+3, ASKUSER+5, ASKDEV+7, ASKSUB+7, STOR+2, STOR+4 , STOR+8, STOR+9, ADDLOOP+1, ADDLOOP+2, ADDLOOP+4, END+1, END1!
TEAM(0	AL+11*, AL+14, AL+15, AL+37, AL+41, AL+45
U	AL+10, AL+13, AL+14, AL+18, AL+31, AL+37, AL+41, AL+45, ASKLINK+6, ASKLINK+10 , ASKLINK+12, ADDLPTS+5, STOR+5, STOR+8
X	AL+3, AL+6, AL+7, ADDLPTS+5, BYCL+17~, BYCL+47, BYCL+48, BYCL+53, LOOPTS+1, LOOPTS+3 , LOOPTS+6!, STOR+5, STOR+6, ADDLOOP+1, CHKNAM~, CHKNAM+2, CHKNAM+5*, CHKNAM+6, END1!
Y	AL+4, AL+7, AL+8, AL+10, AL+11, AL+15*, AL+16, ASKLINK+1~, ASKLINK+5, ASKLINK+6 , ASKLINK+8, ASKLINK+9, LOOPTS+6!, ASKUSER+10, ASKUSER+12, STOR+2, ADDLOOP+5, CHKNAM+5, END1!
Y(0	AL+11, AL+15*, AL+16, AL+31, ASKLINK+7

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORLP

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: