Routine: PXRMLRED

Package	Total	Call Graph
Clinical Reminders	5	SETSTART^PXRMCOPY $$FILE^PXRMEXCS ($$TXT,EDIT,LROUT)^PXRMLRED (COMP,DELETE)^PXRMLREX ($$VEDIT,DIP,SEHIST)^PXRMUTIL
Registration	3	EN^VALM FULL^VALM1 CLEAN^VALM10
VA Fileman	3	^DIC ^DIE $$EXTERNAL^DILFD
Kernel	2	ENDR^%ZISS $$RJ^XLFSTR

Package	Total	Caller Graph
Clinical Reminders	4	PXRMEPM PXRMEUT PXRMLRED PXRMLRM

Entry Points

Name	Comments	DBIA/ICR reference
HDR	; Header code
START(IEN,PXRMTYP)	;
USET	;Usage display called from PXRM LIST RULE print template
LROUT(IEN,RJC)	;Output list rule display
LREDIT	;Edit Rule
PEXIT	;PXRM EXCH MENU protocol exit code
LRDESC	;Display list rule fields - called by [PXRM RULE SET]
TXT()	;Return Rule Type text
BLDLIST(IEN,TYP)	;Build workfile
INIT	;Init
LIT(VIEW)	;Header text depnds on view
USE(DA,EDIT)	;Display usage of list rule
SCREEN	;validate rule type
LOCK(DA)	;Lock the record
ADD	;Add Rule
EDIT(DA,TYP)	;Edit Rule
UNLOCK(DA)	;Unlock the record
ENTRY	;Entry code
LRSTRT(BEG,RJC)	;Display start date
SEQPRT	;Display list rule sequence fields - called by [PXRM RULE SET]
HLP	;Help code
LREND(END,RJC)	;Display end date
EXIT	;Exit code

External References

Name	Field # of Occurrence
ENDR^%ZISS	START+3
^DIC	ADD+11
^DIE	EDIT+29
$$EXTERNAL^DILFD	SEQPRT+9
SETSTART^PXRMCOPY	ADD+7
$$FILE^PXRMEXCS	EDIT+9, EDIT+38
$$TXT^PXRMLRED	USE+14
EDIT^PXRMLRED	LREDIT+1
LROUT^PXRMLRED	SEQPRT+19
COMP^PXRMLREX	EDIT+26
DELETE^PXRMLREX	EDIT+33
$$VEDIT^PXRMUTIL	EDIT+1
DIP^PXRMUTIL	BLDLIST+10
SEHIST^PXRMUTIL	EDIT+39
EN^VALM	START+5, HLP+3
FULL^VALM1	EXIT+4
CLEAN^VALM10	EXIT+3
$$RJ^XLFSTR	LREND+1, LROUT+7, LROUT+9, LROUT+11, LROUT+15, LROUT+21, LROUT+32, LROUT+34, LRSTRT+1, SEQPRT+14 , SEQPRT+15, SEQPRT+16, SEQPRT+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: IORESET,! Line Location: ADD+3
Function Call: WRITE	Prompt: !,"This rule name already exists" Line Location: ADD+15
Function Call: WRITE	Prompt: IORESET Line Location: EDIT+6
Function Call: WRITE	Prompt: !!,?5,"Another user is editing this file, try later" Line Location: LOCK+2
Function Call: WRITE	Prompt: !,$$RJ^XLFSTR("LR Ending Date: ",RJC)_END Line Location: LREND+1
Function Call: WRITE	Prompt: !,$$RJ^XLFSTR("List Rule: ",RJC),LRN Line Location: LROUT+7
Function Call: WRITE	Prompt: !,$$RJ^XLFSTR("Description: ",RJC),$P(DATA,U,2) Line Location: LROUT+9
Function Call: WRITE	Prompt: !,$$RJ^XLFSTR("Rule Type: ",RJC) Line Location: LROUT+11
Function Call: WRITE	Prompt: !,$$RJ^XLFSTR("Use Existing PT List: ",RJC+2),EXISTPL Line Location: LROUT+32
Function Call: WRITE	Prompt: !,$$RJ^XLFSTR("Use Extract PT List Named: ",RJC+5) Line Location: LROUT+34
Function Call: WRITE	Prompt: !," " Line Location: LROUT+35
Function Call: WRITE	Prompt: !,$$RJ^XLFSTR("LR Beginning Date: ",RJC)_BEG Line Location: LRSTRT+1
Function Call: WRITE	Prompt: !!,$$RJ^XLFSTR("Sequence: ",RJC),SEQ Line Location: SEQPRT+14
Function Call: WRITE	Prompt: !,$$RJ^XLFSTR("Seq Beginning Date: ",RJC),SEQBDT Line Location: SEQPRT+15
Function Call: WRITE	Prompt: !,$$RJ^XLFSTR("Seq Ending Date: ",RJC),SEQEDT Line Location: SEQPRT+16
Function Call: WRITE	Prompt: !,$$RJ^XLFSTR("Operation: ",RJC),OPER Line Location: SEQPRT+17
Function Call: WRITE	Prompt: !!,?TAB,"Used by:" Line Location: USE+3
Function Call: WRITE	Prompt: " Not used by any rule set",! Line Location: USE+5
Routine Call	VALM Line Location: START+5 HLP+3
Routine Call	DIE Line Location: EDIT+29
Routine Call	DIC Line Location: ADD+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PXRM(810.4 - [#810.4]	Classic Fileman Calls
810.41	EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PXD(811.9 - [#811.9]	LROUT+24
^PXRM(810.4 - [#810.4]	LOCK+1, LROUT+3, LROUT+33, SCREEN+3, SEQPRT+5, SEQPRT+6, SEQPRT+7, SEQPRT+10, SEQPRT+12, UNLOCK+1 , USE+5, USE+11, USE+12
^PXRMD(811.5 - [#811.5]	LROUT+18
^PXRMXP(810.5 - [#810.5]	LROUT+31
^TMP("PXRMLRED"	BLDLIST+9!, BLDLIST+11, EXIT+1!
^TMP("PXRMLREDH"	EXIT+2!

Label References

Name	Line Occurrences
$$LIT	HDR+1
$$LOCK	EDIT+5
$$TXT	ADD+2, ADD+9
BLDLIST	ENTRY+1, LREDIT+3
EDIT	ADD+18
LREND	LROUT+38
LROUT	LRDESC+3
LRSTRT	LROUT+38
UNLOCK	EDIT+29
USE	EDIT+23, USET+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BEG	LROUT+2~, LROUT+6*, LROUT+38, LRSTRT~, LRSTRT+1
COMP	EDIT+26~, EDIT+33
CS1	EDIT+7~, EDIT+9*, EDIT+38
CS2	EDIT+7~, EDIT+38*
>> D0	SEQPRT+5, SEQPRT+6, SEQPRT+7, SEQPRT+10, SEQPRT+12
DA	ADD+1~, ADD+16*, ADD+18, ADD+19, EDIT~, EDIT+1, EDIT+5, EDIT+9, EDIT+11, EDIT+23 , EDIT+26, EDIT+31, EDIT+38, EDIT+39, LOCK~, LOCK+1, UNLOCK~, UNLOCK+1, USE~, USE+5 , USE+11
DA(1	SCREEN+1, SCREEN+3
DATA	LROUT+2~, LROUT+3, LROUT+4, LROUT+6, LROUT+9, LROUT+16, LROUT+22, LROUT+29, USE+12, USE+13 , USE+14
DIC	ADD+1~, ADD+5*, ADD+7, ADD+14!, EDIT+7~, EDIT+39
DIC("A"	ADD+9*
DIC("DR"	ADD+10*
DIC("S"	SCREEN+3*
DIC(0	ADD+8*
DIDEL	EDIT+7~, EDIT+11*
DIE	EDIT+7~, EDIT+11*
DLAYGO	ADD+1~, ADD+8*
DONE	ADD+1~, ADD+2, ADD+4, ADD+19
DR	EDIT+7~, EDIT+13, EDIT+15, EDIT+17, EDIT+19, EDIT+21*
DTOUT	ADD+1~, ADD+4, ADD+12, ADD+13, ADD+14, EDIT+7~
DUOUT	ADD+1~, ADD+12, ADD+13, EDIT+7~
EDIT	USE~, USE+2
END	LREND~, LREND+1, LROUT+2~, LROUT+6*, LROUT+38
EXISTPL	LROUT+28~, LROUT+29, LROUT+30, LROUT+31, LROUT+32
EXTRPL	LROUT+28~, LROUT+33, LROUT+34, LROUT+35, LROUT+36, SEQPRT+1~, SEQPRT+12
FLDS	BLDLIST+1~, BLDLIST+2, BLDLIST+3, BLDLIST+4, BLDLIST+5, BLDLIST+10
GBL	BLDLIST+1~, BLDLIST+6, BLDLIST+7, BLDLIST+10
HED	ADD+1~, ADD+2*
IEN	START~, BLDLIST~, BLDLIST+10, ENTRY+1, LRDESC+1~, LRDESC+2*, LRDESC+3, LREDIT+1, LREDIT+3, LROUT~ , LROUT+3, LROUT+33, USET+1
IND	SEQPRT+1~, SEQPRT+6*, SEQPRT+7, SEQPRT+10
>> IORESET	ADD+3, EDIT+6
LR	SEQPRT+1~, SEQPRT+8*, SEQPRT+19
LRN	LROUT+2~, LROUT+4*, LROUT+7, SEQPRT+1~
LRNAM	USE+7~, USE+13*, USE+15
LRTYP	USE+7~, USE+14*, USE+15
ODA	EDIT+7~, EDIT+11*, EDIT+29
OPER	SEQPRT+1~, SEQPRT+8, SEQPRT+9, SEQPRT+17
ORU	HLP+1~
ORUPRMT	HLP+1~
PLIEN	LROUT+2~
PLIST	LROUT+2~
PXRMDONE	START+1~
PXRMROOT	BLDLIST+1~, BLDLIST+8*, BLDLIST+10
PXRMTYP	START~, ADD+2, ENTRY+1, HDR+1, LIT+1, LREDIT+1, LREDIT+3, TXT+3, TXT+4, TXT+5 , TXT+6, USE+7~, USE+14*
>> RIEN	LROUT+22*, LROUT+24
RJC	LREND~, LREND+1, LROUT~, LROUT+7, LROUT+9, LROUT+11, LROUT+15, LROUT+21, LROUT+32, LROUT+34 , LROUT+35, LROUT+38, LRSTRT~, LRSTRT+1, SEQPRT+1~, SEQPRT+3*, SEQPRT+14, SEQPRT+15, SEQPRT+16, SEQPRT+17 , SEQPRT+19
RR	SEQPRT+1~
SEQ	SEQPRT+2~, SEQPRT+4, SEQPRT+5, SEQPRT+6, SEQPRT+14
SEQBDT	SEQPRT+2~, SEQPRT+11*, SEQPRT+15
SEQEDT	SEQPRT+2~, SEQPRT+11*, SEQPRT+16
SUB	HLP+1~, HLP+2, USE+10, USE+11*, USE+12
>> TAB	USE+2, USE+3, USE+8, USE+15
TEMP	SEQPRT+2~, SEQPRT+7, SEQPRT+8, SEQPRT+10, SEQPRT+11
TERM	LROUT+2~
TEXT	SEQPRT+2~, TXT+1~, TXT+2, TXT+3, TXT+4, TXT+5, TXT+6*, TXT+7
TIEN	LROUT+2~, LROUT+16*, LROUT+18
TTAB	USE+1~
TYP	ADD+1~, ADD+2*, ADD+10, ADD+18, BLDLIST~, BLDLIST+2, BLDLIST+3, BLDLIST+4, BLDLIST+5, EDIT~ , EDIT+13, EDIT+15, EDIT+17, EDIT+19, EDIT+21, EDIT+23, EDIT+26, EDIT+33
TYPE	LROUT+2~, LROUT+6*, LROUT+13, LROUT+19, LROUT+26
U	ADD+15, ADD+16, LRDESC+2, LROUT+4, LROUT+6, LROUT+9, LROUT+16, LROUT+18, LROUT+22, LROUT+24 , LROUT+29, LROUT+31, SCREEN+3, SEQPRT+8, SEQPRT+11, USE+13, USE+14
VALMBCK	START+1~, EDIT+3, EDIT+34, EDIT+40, EXIT+5
VALMCNT	START+1~, START+4, BLDLIST+11, INIT+1*
>> VALMHDR(1	HDR+1*
VALMSG	START+1~, HDR+2, PEXIT+1
VIEW	LIT~
X	START+1~, START+2*, LRDESC+2
XMZ	START+1~
XQORM	START+1~, HLP+1~
XQORNOD	START+1~
Y	ADD+1~, ADD+14, ADD+15, ADD+16, EDIT+7~

Customize PDF page

Package: Clinical Reminders

Routine: PXRMLRED

Information

Source Information

Call Graph

Call Graph Total: 13

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: