Routine: PXRMHIST

Information

PXRMHIST ; SLC/PKR - Routines for dealing with edit histories. ;12/23/2004

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA FileMan	3	$$GET1^DID $$GET1^DIQ ^DIR
Clinical Reminders	2	$$SELECT^PXRMINQ FORMAT^PXRMTEXT
Kernel	1	$$FMTE^XLFDT

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: 1

Package	Total	Caller Graph
Clinical Reminders	1	PXRM REMINDER EDIT HISTORY

Entry Points

Name	Comments	DBIA/ICR reference
DISP(RIEN,MAX)	;Display edit history in reverse date order, newest to oldest.
MAX()	;Return the maximum number of occurrences to display.
REM	;Select reminder definition for displaying the history.
RMEH	;Remove edit history. This is for items sent directly via KIDS that

External References

Name	Field # of Occurrence
$$GET1^DID	RMEH+13, RMEH+16, RMEH+18
$$GET1^DIQ	DISP+11
^DIR	MAX+7, RMEH+9, RMEH+31
$$SELECT^PXRMINQ	REM+8
FORMAT^PXRMTEXT	DISP+18
$$FMTE^XLFDT	DISP+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Edit History for reminder "_RNAME_":" Line Location: DISP+6
Function Call: WRITE	Prompt: !!,?2,"Edit date: ",$$FMTE^XLFDT(ETIME,"1") Line Location: DISP+12
Function Call: WRITE	Prompt: ?38,"Edit by: ",USER Line Location: DISP+13
Function Call: WRITE	Prompt: !,?2,"Edit Comments:",?1,$P(TEXTOUT(1)," ",17,99) Line Location: DISP+20
Function Call: WRITE	Prompt: !,TEXTOUT(IC) Line Location: DISP+21
Function Call: WRITE	Prompt: ! Line Location: REM+7
Function Call: WRITE	Prompt: !,"Remove edit history from national reminder files.",! Line Location: RMEH+6
Function Call: WRITE	Prompt: !,"This is no Edit History in this file!" Line Location: RMEH+15
Function Call: WRITE	Prompt: !,"Looking for edit histories in file ",NAME Line Location: RMEH+17
Routine Call	DIR Line Location: MAX+7 RMEH+9 RMEH+31

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PXD(811.9 - [#811.9]	DISP+5, DISP+7, DISP+9, DISP+15, DISP+17
^PXRM(800 - [#800]	MAX+5

Label References

Name	Line Occurrences
$$MAX	REM+4
DISP	REM+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CLASS	RMEH+4~, RMEH+22, RMEH+23, RMEH+24
CNT	DISP+1~, DISP+4, DISP+7, DISP+11
DIR	MAX+1~, RMEH+4~, RMEH+27!
DIR("A"	MAX+3, RMEH+8, RMEH+29*
DIR("B"	MAX+6, RMEH+30
DIR(0	MAX+2, RMEH+7, RMEH+28*
DIROUT	MAX+1~, MAX+8, RMEH+4~, RMEH+10, RMEH+32
DIRUT	MAX+1~, MAX+8, RMEH+4~, RMEH+10, RMEH+32
DTOUT	MAX+1~, MAX+9, RMEH+4~, RMEH+11, RMEH+33
DUOUT	MAX+1~, MAX+9, RMEH+4~, RMEH+11, RMEH+21, RMEH+33
DUZ(0	RMEH+3
EDATA	DISP+1~, DISP+9*, DISP+10
EH	RMEH+4~, RMEH+35, RMEH+36, RMEH+37, RMEH+38
EIEN	DISP+1~, DISP+4, DISP+7, DISP+9, DISP+15, DISP+17
ENTRY	RMEH+4~, RMEH+19*, RMEH+21
ETIME	DISP+1~, DISP+10*, DISP+12
FIELD	RMEH+5~, RMEH+13*, RMEH+14
FILENUM	RMEH+5~, RMEH+12*, RMEH+13, RMEH+16, RMEH+18
GLOBAL	RMEH+5~, RMEH+18*, RMEH+19, RMEH+22, RMEH+25, RMEH+35, RMEH+37
IC	DISP+1~, DISP+14, DISP+15, DISP+17, DISP+21*
IEN	REM+1~, REM+10, REM+11, RMEH+4~, RMEH+20, RMEH+21*
IENN	REM+1~, REM+2, REM+6, REM+8, REM+9, REM+10
MAX	DISP~, DISP+7, MAX+1~, MAX+5, MAX+6, REM+1~, REM+4, REM+5, REM+11
NAME	RMEH+5~, RMEH+16, RMEH+17, RMEH+25, RMEH+26*, RMEH+29
NIN	DISP+1~, DISP+14, DISP+16, DISP+17, DISP+18
NOUT	DISP+1~, DISP+18, DISP+19, DISP+21
PXRMROOT	REM+1~, REM+3*, REM+8
RIEN	DISP~, DISP+5, DISP+7, DISP+9, DISP+15, DISP+17
RNAME	DISP+1~, DISP+5*, DISP+6
TEXTIN	DISP+2~, DISP+18
TEXTIN(	DISP+17*
TEXTOUT	DISP+2~, DISP+18
TEXTOUT(	DISP+21
TEXTOUT(1	DISP+20
U	DISP+5, DISP+10, REM+10, RMEH+23, RMEH+26
UIEN	DISP+2~, DISP+10*, DISP+11
USER	DISP+2~, DISP+11*, DISP+13
X	MAX+1~, RMEH+5~
Y	MAX+1~, MAX+10, RMEH+5~, RMEH+11, RMEH+12, RMEH+33, RMEH+34

Customize PDF page

Package: Clinical Reminders