Routine: ORLPREML

Information

ORLPREML ;ISP/LMT - List Manager CPRS Team List from a Reminder Patient List ;11/13/17 12:55

Package	Total	Call Graph
Kernel	5	($$FMADD,$$FMTE)^XLFDT DISP^XQORM1 $$STA^XUAF4 $$NODEV^XUTMDEVQ OPTSTAT^XUTMOPT
List Manager	3	EN^VALM ($$SETFLD,FULL)^VALM1 (CLEAN,SET)^VALM10
VA FileMan	2	^DIC ^DIR
Order Entry Results Reporting	1	GETPARS^ORLPREML
Toolkit	1	($$GET,DEL,EN,ENVAL)^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: 11

Package	Total	Caller Graph
Order Entry Results Reporting	10	ORLP SETUP TEAM LIST FROM REM ORLP TEAM LIST FROM REM ORLPREM ORLPREM ADD ENTRY ORLPREM DEL ENTRY ORLPREM EDIT ENTRY ORLPREM MGMT MENU ORLPREM REFRESH ORLPREM RUN NOW ORLPREML
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for ORLP TEAM LIST FROM REM
HDR	; -- header code
INIT	; -- init variables and list array
HELP	; -- help code
EXIT	; -- exit code
EXPND	; -- expand code
KEYS	;
SELECT(ORACTION)	;
ADDENT	; Add an Entry
EDITENT	; Edit an Entry
DELENT	; Delete an Entry
RUNNOW	; Run one of the List Rules now
REFRESH	; Refresh List
ENPAR	; Configure paramaters - loop till exit
PAR(ORREM)	; configure paramaters. Add/Edit Entry
PARDIV(ORREM,ORPARS)	; Configure ORLP TEAM LIST FROM REM at the div level
PARSYS(ORREM,ORPARS,ORREQ)	; Configure ORLP TEAM LIST FROM REM at the sys level
SELFLTR()	; Ask user if they want to filter by div
SELDIV()	; prompt for div
SELREM()	; prompt for reminder list rule
SELLST(ORDEF,ORLSTSCR,ORREQ)	; prompt for OE/RR List
LSTSCR(ORRET,ORREM)	; return array of 100.21 entries that should be used for screening
SELFREQ(ORREM)	; Configure ORLP TEAM LIST FROM REM FREQ
SELOVER(ORREM)	; Configure ORLP TEAM LIST FROM REM OVER
GETPARS(ORRET,ORREM)	; Get team maapping for one list rule
GETAPARS(ORFORMAT)	; Get team maapping for all list rules
GETSCHED(ORREM)	;
GETLAST(ORREM)	; returns ORLP TEAM LIST FROM REM LAST par
GETFREQ(ORREM)	; returns ORLP TEAM LIST FROM REM FREQ par
GETOVER(ORREM)	; returns ORLP TEAM LIST FROM REM OVER par
GETTASK()	;
LASTUPD(ORLST)	; Returns Last Updated D/T (100.21, 12.1) for a given list

External References

Name	Field # of Occurrence
^DIC	SELDIV+9, SELREM+7
^DIR	SELECT+16, DELENT+13, RUNNOW+12, RUNNOW+32, SELFLTR+11, SELLST+12, SELFREQ+13, SELOVER+14
GETPARS^ORLPREML	RUNNOW+21
EN^VALM	EN+1
$$SETFLD^VALM1	INIT+17, INIT+44, INIT+45, INIT+46, INIT+47, INIT+49, INIT+50, INIT+53, INIT+57, INIT+58
FULL^VALM1	SELECT+5, ADDENT+2, RUNNOW+4
CLEAN^VALM10	EXIT+1, REFRESH+1
SET^VALM10	INIT+18, INIT+59
$$FMADD^XLFDT	GETSCHED+18
$$FMTE^XLFDT	HDR+9, INIT+46, INIT+52, INIT+56
$$GET^XPAR	SELFREQ+4, SELOVER+4, GETLAST+1, GETFREQ+1, GETOVER+2
DEL^XPAR	DELENT+16, DELENT+17, DELENT+23, DELENT+25
EN^XPAR	RUNNOW+36, PARDIV+17, PARSYS+11, SELFREQ+18, SELOVER+19
ENVAL^XPAR	LSTSCR+4, GETPARS+6, GETAPARS+6
DISP^XQORM1	HELP+2
$$STA^XUAF4	INIT+39
$$NODEV^XUTMDEVQ	RUNNOW+39
OPTSTAT^XUTMOPT	GETTASK+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+2
Function Call: WRITE	Prompt: !,"There are no items to "_ORACTION_".",! Line Location: SELECT+8
Function Call: WRITE	Prompt: !,"This entry does not have a list rule mapping to "_ORACTION_".",! Line Location: SELECT+22
Function Call: WRITE	Prompt: !,"There are no items to select from.",! Line Location: RUNNOW+7
Function Call: WRITE	Prompt: !,"This entry does not have a list rule mapping to run.",! Line Location: RUNNOW+18
Function Call: WRITE	Prompt: !,"This entry is not mapped to any Team Lists.",! Line Location: RUNNOW+23
Function Call: WRITE	Prompt: !!,"Task #"_ORTSK_" queued.",!! Line Location: RUNNOW+40
Function Call: WRITE	Prompt: ! Line Location: PAR+16
Function Call: WRITE	Prompt: !!,?3,">> First, you will need to select a team list to be used in cases" Line Location: PAR+19
Function Call: WRITE	Prompt: !,?3,">> where it cannot be determined which division a patient belongs to." Line Location: PAR+20
Function Call: WRITE	Prompt: ! Line Location: PAR+21
Function Call: WRITE	Prompt: !!,?3,">> Now, you can select the team lists to be used for each division." Line Location: PAR+27
Function Call: WRITE	Prompt: ! Line Location: PAR+39
Function Call: WRITE	Prompt: ! Line Location: PARDIV+10
Function Call: WRITE	Prompt: !,"Error: "_$P(ORERR,U,2),! Line Location: PARDIV+18
Function Call: WRITE	Prompt: !,"Error: "_$P(ORERR,U,2),! Line Location: PARSYS+12
Function Call: WRITE	Prompt: ! Line Location: SELFLTR+4
Function Call: WRITE	Prompt: ! Line Location: SELFLTR+14
Function Call: WRITE	Prompt: ! Line Location: SELFREQ+6
Function Call: WRITE	Prompt: !,"Error: "_$P(ORERR,U,2),! Line Location: SELFREQ+19
Function Call: WRITE	Prompt: ! Line Location: SELOVER+6
Function Call: WRITE	Prompt: !,"Error: "_$P(ORERR,U,2),! Line Location: SELOVER+20
Routine Call	DIC Line Location: SELDIV+9 SELREM+7
Routine Call	DIR Line Location: SELECT+16 DELENT+13 RUNNOW+12 RUNNOW+32 SELFLTR+11 SELLST+12 SELFREQ+13 SELOVER+14
Routine Call	VALM Line Location: EN+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^OR(100.21 - [#100.21]	SELLST+10, LSTSCR+12, GETPARS+11, GETAPARS+14, LASTUPD+1
^ORD(101 - [#101]	KEYS+6
^PXRM(810.4 - [#810.4]	DELENT+9, RUNNOW+26, GETAPARS+11
^TMP("ORLPREM"	INIT+6!, INIT+14, INIT+21, INIT+23, INIT+32, INIT+34, INIT+63!, GETAPARS+17, GETAPARS+25, GETAPARS+27*
^TMP("ORLPREM-MAP"	INIT+7!, INIT+24*, EXIT+2!, KEYS+10, SELECT+7, SELECT+14, SELECT+20, RUNNOW+6, RUNNOW+10, RUNNOW+16

Label References

Name	Line Occurrences
$$GETFREQ	INIT+26, GETSCHED+9
$$GETLAST	INIT+25, GETSCHED+8
$$GETOVER	INIT+27
$$GETPARS	PAR+7, PAR+33, GETSCHED+13
$$GETSCHED	INIT+55
$$GETTASK	HDR+5, GETSCHED+11
$$LASTUPD	INIT+51
$$PAR	ENPAR+6
$$PARDIV	PAR+28
$$PARSYS	PAR+24, PAR+30
$$SELDIV	PARDIV+11
$$SELECT	EDITENT+4, DELENT+5
$$SELFLTR	PAR+12
$$SELFREQ	PAR+35
$$SELLST	PARDIV+14, PARSYS+8
$$SELOVER	PAR+37
$$SELREM	PAR+4
GETAPARS	INIT+9
GETPARS	DELENT+19
INIT	REFRESH+2
LSTSCR	PARDIV+7, PARSYS+5
PAR	ADDENT+4, EDITENT+7
REFRESH	ADDENT+7, EDITENT+9, DELENT+27, RUNNOW+43

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIC	SELDIV+2~, SELDIV+6, SELREM+2~, SELREM+4
DIC("A"	SELDIV+8*
DIC("S"	SELREM+6*
DIC(0	SELDIV+7, SELREM+5
DINUM	SELDIV+2~, SELREM+2~
DIR	SELECT+3~, DELENT+3~, RUNNOW+2~, RUNNOW+28!, SELFLTR+2~, SELLST+6~, SELFREQ+2~, SELOVER+2~
DIR("?"	DELENT+10, DELENT+11, SELFLTR+8, SELFLTR+9, SELFLTR+10, SELFREQ+11, SELFREQ+12, SELOVER+12, SELOVER+13*
DIR("A"	SELECT+15, DELENT+9, RUNNOW+11, RUNNOW+31, SELFLTR+7, SELFREQ+10, SELOVER+11*
DIR("B"	DELENT+12, RUNNOW+30, SELFLTR+6, SELLST+10, SELFREQ+9, SELOVER+9, SELOVER+10*
DIR("S"	SELLST+11*
DIR(0	SELECT+14, DELENT+8, RUNNOW+10, RUNNOW+29, SELFLTR+5, SELLST+8, SELLST+9, SELFREQ+8, SELOVER+8*
DIRUT	SELECT+3~, SELECT+17, DELENT+3~, DELENT+14, RUNNOW+2~, RUNNOW+13, RUNNOW+33, SELFLTR+2~, SELFLTR+12, SELLST+6~ , SELFREQ+2~, SELOVER+2~
DLAYGO	SELDIV+2~, SELREM+2~
DTOUT	SELDIV+2~, SELDIV+10, SELREM+2~, SELREM+8, SELLST+6~, SELLST+13, SELFREQ+2~, SELFREQ+14, SELOVER+2~, SELOVER+15
DUOUT	SELDIV+2~, SELDIV+10, SELREM+2~, SELREM+8, SELLST+6~, SELLST+13, SELFREQ+2~, SELFREQ+14, SELOVER+2~, SELOVER+15
ORACTION	SELECT~, SELECT+8, SELECT+22
ORARR	RUNNOW+2~, RUNNOW+39
ORARR("ZTDTH"	RUNNOW+38*
ORCNT	INIT+3~, INIT+11, INIT+22, INIT+24, INIT+44, INIT+59
ORDEF	SELLST~, SELLST+10
ORDIV	INIT+3~, INIT+37, INIT+38, INIT+39, INIT+49, PARDIV+2~, PARDIV+5, PARDIV+9, PARDIV+11, PARDIV+12 , PARDIV+13, PARDIV+15, PARDIV+17, PARDIV+20, SELDIV+2~, SELDIV+4, SELDIV+11, SELDIV+12, SELDIV+14
ORENT	INIT+3~, INIT+31, INIT+32, INIT+34, INIT+37, INIT+38, INIT+39, DELENT+3~, DELENT+20, DELENT+21 , DELENT+22, DELENT+24, DELENT+25, LSTSCR+2~, LSTSCR+5, LSTSCR+6, LSTSCR+8, LSTSCR+10, GETAPARS+2~, GETAPARS+7* , GETAPARS+8*, GETAPARS+10, GETAPARS+13, GETAPARS+19, GETAPARS+21, GETAPARS+22
ORENTCNT	INIT+3~, INIT+30, INIT+33, INIT+37, INIT+38, INIT+43, INIT+54
ORENTNM	INIT+3~, GETAPARS+2~, GETAPARS+18, GETAPARS+20, GETAPARS+22*, GETAPARS+23, GETAPARS+25, GETAPARS+27
ORERR	PARDIV+2~, PARDIV+17, PARDIV+18, PARSYS+2~, PARSYS+11, PARSYS+12, SELFREQ+2~, SELFREQ+18, SELOVER+2~, SELOVER+19
ORFILTER	PAR+2~, PAR+9, PAR+10, PAR+12, PAR+13, PAR+18, PAR+30, SELFLTR+2~, SELFLTR+13, SELFLTR+16
ORFLAG	PAR+2~, PAR+15, PAR+24, PAR+25, PAR+28, PAR+30, PAR+36, PAR+38, PAR+43, PARDIV+2~ , PARDIV+4, PARDIV+20, PARDIV+22, PARSYS+2~, PARSYS+4, PARSYS+14, PARSYS+16
ORFORMAT	GETAPARS~, GETAPARS+4*, GETAPARS+16, GETAPARS+24, GETAPARS+26
ORFREQ	INIT+3~, INIT+26, INIT+47, PAR+2~, PAR+35, PAR+36, SELFREQ+2~, SELFREQ+4, SELFREQ+9, SELFREQ+15 , SELFREQ+17, SELFREQ+18, SELFREQ+21, GETSCHED+6~, GETSCHED+9*, GETSCHED+14, GETSCHED+18, GETSCHED+20
ORI	KEYS+3~, KEYS+9, KEYS+10, KEYS+11
ORLASTRUN	INIT+3~, INIT+25, INIT+46, GETSCHED+6~, GETSCHED+8, GETSCHED+15, GETSCHED+17, GETSCHED+20
ORLASTUPD	INIT+3~, INIT+51, INIT+52, INIT+53
ORLINE	INIT+3~, INIT+12, INIT+15, INIT+18, INIT+41*, INIT+59, INIT+61
ORLINEVAR	INIT+3~, INIT+16, INIT+17, INIT+18, INIT+42, INIT+44, INIT+45, INIT+46, INIT+47, INIT+49 , INIT+50, INIT+53, INIT+57, INIT+58, INIT+59
ORLST	INIT+3~, INIT+35, INIT+51, DELENT+3~, DELENT+19, PARDIV+2~, PARDIV+6, PARDIV+9, PARDIV+13, PARDIV+14 , PARDIV+15, PARDIV+16, PARDIV+17, PARDIV+20, PARSYS+2~, PARSYS+7, PARSYS+8, PARSYS+9, PARSYS+10, PARSYS+11 , PARSYS+14, SELLST+6~, SELLST+14, SELLST+15, SELLST+17, LSTSCR+2~, LSTSCR+10, LSTSCR+11, LSTSCR+12, LSTSCR+13 , GETPARS+2~, GETPARS+9, GETPARS+10, GETPARS+11, GETPARS+13, GETPARS+16, GETAPARS+2~, GETAPARS+13*, GETAPARS+14, GETAPARS+25 , GETAPARS+27, GETTASK+5~, GETTASK+8, LASTUPD~, LASTUPD+1
ORLST(	DELENT+21, GETTASK+10, GETTASK+11
ORLST(0	GETTASK+9
ORLSTMAP	RUNNOW+2~, RUNNOW+21, RUNNOW+22
ORLSTNM	INIT+4~, INIT+36, INIT+50, GETAPARS+2~, GETAPARS+14, GETAPARS+15, GETAPARS+25
ORLSTSCR	PARDIV+2~, PARDIV+7, PARDIV+14, PARSYS+2~, PARSYS+5, PARSYS+8, SELLST~
ORNEXTRUN	INIT+4~, INIT+55, INIT+56, INIT+57, GETSCHED+6~, GETSCHED+10, GETSCHED+16, GETSCHED+17, GETSCHED+18, GETSCHED+20
ORNODE	INIT+4~, INIT+34*, INIT+35, INIT+36
OROVER	INIT+4~, INIT+27, INIT+28, INIT+58, PAR+2~, PAR+37, PAR+38, SELOVER+2~, SELOVER+4, SELOVER+10 , SELOVER+16, SELOVER+18, SELOVER+19, SELOVER+22, GETOVER+1~, GETOVER+2, GETOVER+3*, GETOVER+4
ORPAR	ENPAR+2~, ENPAR+4, ENPAR+5, ENPAR+6, GETPARS+2~, GETPARS+7, GETPARS+8, GETPARS+9, GETPARS+12, GETPARS+15 , GETPARS+16
ORPARDEF	PAR+2~, PAR+7, PAR+10, PAR+12, PAR+23, PAR+33, PAR+34, GETPARS+2~, GETPARS+4, GETPARS+14 , GETPARS+17, GETPARS+19, GETSCHED+6~, GETSCHED+13, GETSCHED+14
ORPARS	PAR+2~, PAR+7, PAR+24, PAR+28, PAR+30, PAR+32!, PAR+33, PARDIV~, PARSYS~, LSTSCR+2~ , LSTSCR+4, GETPARS+2~, GETPARS+6, GETAPARS+2~, GETAPARS+6, GETSCHED+6~, GETSCHED+13
ORPARS(	PARDIV+13, PARDIV+15, LSTSCR+6, LSTSCR+8, LSTSCR+10, GETPARS+8, GETPARS+9, GETAPARS+8, GETAPARS+10, GETAPARS+13
ORPARS("SYS"	PARSYS+7, PARSYS+9
ORPROT	KEYS+3~, KEYS+6*, KEYS+7, KEYS+11
ORREM	INIT+4~, INIT+23, INIT+24, INIT+25, INIT+26, INIT+27, INIT+55, SELECT+3~, SELECT+20, SELECT+21 , SELECT+25, EDITENT+2~, EDITENT+4, EDITENT+5, EDITENT+7, DELENT+3~, DELENT+5, DELENT+6, DELENT+9, DELENT+16 , DELENT+17, DELENT+19, DELENT+23, DELENT+25, RUNNOW+2~, RUNNOW+16, RUNNOW+17, RUNNOW+21, RUNNOW+26, RUNNOW+36 , PAR~, PAR+4, PAR+5, PAR+7, PAR+24, PAR+28, PAR+30, PAR+33, PAR+35, PAR+37 , PARDIV~, PARDIV+7, PARDIV+17, PARSYS~, PARSYS+5, PARSYS+11, SELREM+2~, SELREM+9, SELREM+10, SELREM+12 , LSTSCR~, LSTSCR+9, SELFREQ~, SELFREQ+4, SELFREQ+18, SELOVER~, SELOVER+4, SELOVER+19, GETPARS~, GETPARS+6 , GETPARS+9, GETAPARS+2~, GETAPARS+9, GETAPARS+10, GETAPARS+11, GETAPARS+13, GETAPARS+17, GETAPARS+27, GETSCHED~, GETSCHED+8 , GETSCHED+9, GETSCHED+13, GETLAST~, GETLAST+1, GETFREQ~, GETFREQ+1, GETOVER~, GETOVER+2
ORREM2	LSTSCR+2~, LSTSCR+7, LSTSCR+8, LSTSCR+9, LSTSCR+10
ORREMNM	INIT+4~, INIT+20, INIT+21, INIT+23, INIT+32, INIT+34, INIT+45, RUNNOW+2~, RUNNOW+26, RUNNOW+31 , GETAPARS+2~, GETAPARS+11, GETAPARS+12, GETAPARS+17, GETAPARS+25
ORREQ	PAR+2~, PAR+22, PAR+23, PAR+24, PARSYS~, PARSYS+8, SELLST~, SELLST+9
ORRET	LSTSCR~, GETPARS~, GETTASK+5~, GETTASK+7, GETTASK+11, GETTASK+13
ORRET(	LSTSCR+13, GETPARS+16
ORRET("SYS"	GETPARS+13*
ORTASK	HDR+3~, HDR+5, HDR+6, HDR+9, GETSCHED+6~, GETSCHED+11, GETSCHED+12
ORTASKDT	GETSCHED+6~, GETSCHED+12*, GETSCHED+14, GETSCHED+16, GETSCHED+17
ORTSK	RUNNOW+2~, RUNNOW+39*, RUNNOW+40
ORVAR	RUNNOW+2~, RUNNOW+37*, RUNNOW+39
ORX	GETTASK+5~, GETTASK+9*, GETTASK+10, GETTASK+11
U	HDR+9, INIT+35, INIT+36, INIT+55, DELENT+9, RUNNOW+26, PARDIV+18, PARSYS+12, SELLST+10, GETAPARS+11 , GETAPARS+14, GETAPARS+25, GETSCHED+12, GETSCHED+20, GETTASK+10, LASTUPD+1
>> VALMCNT	INIT+61*
>> VALMHDR(1	HDR+7, HDR+9
X	HELP+1~, HELP+2*, SELECT+3~, DELENT+3~, RUNNOW+2~, RUNNOW+28!, SELFLTR+2~, SELDIV+2~, SELREM+2~, SELLST+6~ , SELFREQ+2~, SELOVER+2~
>> XQORM("KEY"	KEYS+5!, KEYS+11*
>> XQORNOD(0	SELECT+11
Y	SELECT+3~, SELECT+11*, SELECT+13, SELECT+18, SELECT+20, DELENT+3~, DELENT+14, RUNNOW+2~, RUNNOW+14, RUNNOW+16 , RUNNOW+28!, RUNNOW+34, SELFLTR+2~, SELFLTR+13, SELDIV+2~, SELDIV+11, SELREM+2~, SELREM+9, SELLST+6~, SELLST+14 , SELFREQ+2~, SELFREQ+15, SELOVER+2~, SELOVER+16

Customize PDF page

Package: Order Entry Results Reporting