Routine: PXRMCLEH

Information

PXRMCLEH ;SLC/PKR - Utilities for managing Change Logs/Edit Histories. ;02/28/2024

Package	Total	Call Graph
VA FileMan	6	($$GET1,FIELD)^DID UPDATE^DIE ^DIK $$FLDNUM^DILFD ^DIR EN^DIWE
Clinical Reminders	2	$$EDATE^PXRMDATE AWRITE^PXRMUTIL
Kernel	2	($$FMTE,$$NOW)^XLFDT (BMES,MES)^XPDUTL

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	PXRMDLGBREPAIR

Entry Points

Name	Comments	DBIA/ICR reference
CHANGELOG(CLOGSFN,IEN,CLOGTEXT)	;Add a CHANGE LOG/EDIT HISTORY entry.	ICR #7455 Status: Pending Usage: Private
GETCLOGSFN(FILENUM)	;Determine if this file has a CHANGE LOG or EDIT HISTORY field.	ICR #7455 Status: Pending Usage: Private
LASTINSTALL(PXRMRIEN,FILENUM,IEN)	;
RMEHIST(FILENUM,IEN)	;Remove the edit history for a reminder file.
SEHIST(FILENUM,ROOT,IEN)	;Set the edit date and edit by and prompt the

External References

Name	Field # of Occurrence
$$GET1^DID	LASTINSTALL+5, RMEHIST+6
FIELD^DID	GETCLOGSFN+6
UPDATE^DIE	CHANGELOG+7, SEHIST+26
^DIK	RMEHIST+12
$$FLDNUM^DILFD	GETCLOGSFN+3, GETCLOGSFN+4, LASTINSTALL+2, LASTINSTALL+3, RMEHIST+2, RMEHIST+3
^DIR	SEHIST+21
EN^DIWE	SEHIST+23
$$EDATE^PXRMDATE	LASTINSTALL+20
AWRITE^PXRMUTIL	CHANGELOG+10, CHANGELOG+12, SEHIST+29
$$FMTE^XLFDT	SEHIST+11
$$NOW^XLFDT	CHANGELOG+4, SEHIST+11
BMES^XPDUTL	CHANGELOG+9, SEHIST+28
MES^XPDUTL	CHANGELOG+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The last update was:" Line Location: LASTINSTALL+22
Function Call: WRITE	Prompt: !,CLTEXT(2) Line Location: LASTINSTALL+23
Function Call: WRITE	Prompt: !,CLTEXT(3) Line Location: LASTINSTALL+24
Function Call: WRITE	Prompt: !,"This is update:" Line Location: LASTINSTALL+25
Function Call: WRITE	Prompt: !,TESTTEXT(2) Line Location: LASTINSTALL+26
Function Call: WRITE	Prompt: !,TESTTEXT(3) Line Location: LASTINSTALL+27
Function Call: WRITE	Prompt: !,"Input your edit comments." Line Location: SEHIST+17
Function Call: WRITE	Prompt: ! Line Location: SEHIST+29
Routine Call	DIE Line Location: CHANGELOG+7 SEHIST+26
Routine Call	DIR Line Location: SEHIST+21

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PXD(811.8 - [#811.8]	LASTINSTALL+14
^TMP("PXRMWP"	SEHIST+3!, SEHIST+24!, SEHIST+25, SEHIST+30!

Label References

Name	Line Occurrences
$$GETCLOGSFN	SEHIST+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHANGELOG	LASTINSTALL+1~, LASTINSTALL+6*, LASTINSTALL+7, LASTINSTALL+9, LASTINSTALL+15, LASTINSTALL+18
CLOGSFN	CHANGELOG~, CHANGELOG+4, CHANGELOG+5, CHANGELOG+6
CLOGTEXT	CHANGELOG~
CLTEXT	LASTINSTALL+1~
CLTEXT(1	LASTINSTALL+9*, LASTINSTALL+11, LASTINSTALL+13
CLTEXT(2	LASTINSTALL+15*, LASTINSTALL+16, LASTINSTALL+21, LASTINSTALL+23
CLTEXT(3	LASTINSTALL+18*, LASTINSTALL+19, LASTINSTALL+21, LASTINSTALL+24
DA	RMEHIST+5~, RMEHIST+11, RMEHIST+12
DA(1	RMEHIST+8*
DIC	SEHIST+2~, SEHIST+14*
DIK	RMEHIST+5~, RMEHIST+9*
DIR	SEHIST+2~
DIR("A"	SEHIST+19*
DIR("B"	SEHIST+20*
DIR(0	SEHIST+18*
DUZ	CHANGELOG+5, SEHIST+12
DWLW	SEHIST+2~, SEHIST+15*
DWPK	SEHIST+2~, SEHIST+16*
ENTRY	SEHIST+2~, SEHIST+6*, SEHIST+7
FDA	CHANGELOG+1~, SEHIST+2~
FDA(	CHANGELOG+4, CHANGELOG+5, CHANGELOG+6, SEHIST+11, SEHIST+12, SEHIST+25
FDAIEN	SEHIST+2~
FDAIEN(	SEHIST+10*
FIELDNUM	GETCLOGSFN+2~, GETCLOGSFN+3, GETCLOGSFN+4, GETCLOGSFN+5, GETCLOGSFN+6, LASTINSTALL+1~, LASTINSTALL+2, LASTINSTALL+3, LASTINSTALL+4, LASTINSTALL+6 , RMEHIST+1~, RMEHIST+2, RMEHIST+3, RMEHIST+4, RMEHIST+9, RMEHIST+10
FILENUM	GETCLOGSFN~, GETCLOGSFN+3, GETCLOGSFN+4, GETCLOGSFN+6, LASTINSTALL~, LASTINSTALL+2, LASTINSTALL+3, LASTINSTALL+5, RMEHIST~, RMEHIST+2 , RMEHIST+3, RMEHIST+6, SEHIST~, SEHIST+4
GLOBAL	LASTINSTALL+1~, LASTINSTALL+5, LASTINSTALL+6, RMEHIST+5~, RMEHIST+6, RMEHIST+9, RMEHIST+10
IEN	CHANGELOG~, CHANGELOG+2, CHANGELOG+3, LASTINSTALL~, LASTINSTALL+6, RMEHIST~, RMEHIST+8, RMEHIST+9, RMEHIST+10, SEHIST~ , SEHIST+6, SEHIST+9, SEHIST+10
IENS	CHANGELOG+1~, CHANGELOG+3, CHANGELOG+4, CHANGELOG+5, CHANGELOG+6, SEHIST+2~, SEHIST+9, SEHIST+11, SEHIST+12, SEHIST+25
IND	SEHIST+2~, SEHIST+7, SEHIST+8, SEHIST+9
LAST	LASTINSTALL+1~, LASTINSTALL+7*, LASTINSTALL+8, LASTINSTALL+9, LASTINSTALL+15, LASTINSTALL+18
MSG	CHANGELOG+1~, CHANGELOG+8, SEHIST+2~, SEHIST+27
PXRMRIEN	LASTINSTALL~, LASTINSTALL+14
ROOT	RMEHIST+5~, RMEHIST+10*, RMEHIST+12, SEHIST~, SEHIST+6
SFN	SEHIST+2~, SEHIST+4*, SEHIST+5, SEHIST+11, SEHIST+12, SEHIST+25
SPECIFIER	GETCLOGSFN+2~
TARGET	GETCLOGSFN+2~, SEHIST+2~
TARGET("SPECIFIER"	GETCLOGSFN+7
TEMP	LASTINSTALL+1~, LASTINSTALL+14*, LASTINSTALL+17, LASTINSTALL+20
TESTTEXT	LASTINSTALL+1~
TESTTEXT(1	LASTINSTALL+12*, LASTINSTALL+13
TESTTEXT(2	LASTINSTALL+17*, LASTINSTALL+21, LASTINSTALL+26
TESTTEXT(3	LASTINSTALL+20*, LASTINSTALL+21, LASTINSTALL+27
U	LASTINSTALL+17, LASTINSTALL+20, SEHIST+18
X	SEHIST+2~
Y	SEHIST+2~, SEHIST+22

Customize PDF page

Package: Clinical Reminders