Routine: BTPWRMDR

Information

BTPWRMDR ;VNGT/HS/ALA-CMET Reminders ; 13 Nov 2009 1:49 PM

Source Information

Source file <BTPWRMDR.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Kernel	2	^%ZTER $$NOW^XLFDT
Tracking Procedure Workflow	1	$$CAT^BTPWPDSP
iCare	1	$$FMTE^BQIUL1

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
iCare	1	BQIRMDR1

Entry Points

Name	Comments	DBIA/ICR reference
EVT(BQIDFN,EVNT,SYS)	; PEP ; Input ; BQIDFN - Patient IEN ; EVNT - CMET Event IEN ; SYS - '1' = EHR ; Output ; Result - -1 is an error,1 is the most recent event due, 0 is none found ; If SYS is EHR (1) then Last Event Date^Date Next Due ; If SYS is not EHR (0) then Category^Event Code^Event Name^Last Event Date^Next Event Due^next event due fileman^Last Updated Date^Event Visit IEN ;
PAT(DATA,DFN)	; EP -- BTPW GET CMET REMINDERS BY PAT ; Input ; DFN - Patient internal entry number
REC(BQIDFN,DATA)	; PEP - Get future CMET records for a patient ; Input ; BQIDFN - Patient IEN ; DATA - Target ; Output ; Identifier^Category^Event Name^Next Event Due ;
HDR	; Header
ERR	;

External References

Name	Field # of Occurrence
^%ZTER	ERR+1
$$FMTE^BQIUL1	PAT+32, PAT+33, REC+15, REC+17, EVT+34, EVT+35, EVT+38
$$CAT^BTPWPDSP	PAT+32, REC+17, EVT+34
$$NOW^XLFDT	ERR+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BTPW(90621 - [#90621]	PAT+21, REC+15, EVT+13, EVT+19
^BTPWP - [#90620]	PAT+22, PAT+23, PAT+24, EVT+20, EVT+21, EVT+22
^BTPWP("AG"	PAT+16, PAT+18, PAT+20, REC+10, REC+12, REC+14, EVT+16, EVT+18
^DD("DD"	ERR+3
^TMP("BTPWRMDR"	PAT+6
^XTMP("BTPWPRC"	PAT+26, PAT+28, PAT+30, EVT+24, EVT+26, EVT+28

Label References

Name	Line Occurrences
HDR	PAT+11

Naked Globals

Name	Field # of Occurrence
^(0	PAT+24, EVT+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BMXSEC	PAT+13, ERR+4
BQIDFN	PAT+4~, PAT+12*, PAT+13, PAT+16, PAT+18, PAT+20, PAT+26, PAT+28, PAT+30, REC~ , REC+10, REC+12, REC+14, EVT~, EVT+16, EVT+18, EVT+24, EVT+26, EVT+28
CMIEN	PAT+4~, PAT+19, PAT+20, PAT+22, PAT+23, REC+7~, REC+13, REC+14, EVT+11~, EVT+17* , EVT+18*, EVT+20, EVT+21
CODE	PAT+4~, PAT+31, PAT+32, EVT+11~, EVT+31, EVT+34
DATA	PAT~, PAT+6*, PAT+7, PAT+32, PAT+33, PAT+35, ERR+5, ERR+6, HDR+1, HDR+2 , REC~, REC+8, REC+17
DFN	PAT~, PAT+12
ERRDTM	ERR+2~, ERR+3*, ERR+4
ERROR	PAT+4~
EVDATE	PAT+4~, PAT+31*, PAT+33
EVDT	PAT+4~, PAT+17, PAT+18, PAT+20, PAT+31, REC+7~, REC+11, REC+12, REC+14, REC+16 , EVT+11~, EVT+15, EVT+16, EVT+18, EVT+29
EVDUE	REC+7~, REC+16, REC+17, EVT+11~, EVT+29, EVT+35, EVT+38
EVNAM	PAT+4~, PAT+21, PAT+32, REC+7~, REC+15, REC+17, EVT+11~, EVT+19*, EVT+33, EVT+34 , EVT+37
EVNT	EVT~, EVT+13*, EVT+14, EVT+16, EVT+18, EVT+19, EVT+22, EVT+24, EVT+26, EVT+28 , EVT+31, EVT+34
EVT	PAT+4~, PAT+15, PAT+16, PAT+18, PAT+20, PAT+21, PAT+24, PAT+26, PAT+28, PAT+30 , PAT+31, PAT+32, REC+7~, REC+9, REC+10, REC+12, REC+14, REC+15, REC+17
II	PAT+4~, PAT+9, PAT+32, PAT+33, PAT+35, ERR+5, ERR+6, HDR+1, HDR+2, REC+7~ , REC+9, REC+17*
LAST	PAT+4~, PAT+21, PAT+24, PAT+25, PAT+26, PAT+28, PAT+30, PAT+32, REC+7~, REC+15 , EVT+11~, EVT+15, EVT+19, EVT+22, EVT+23, EVT+24, EVT+26, EVT+28, EVT+34, EVT+38
LSTN	PAT+4~, PAT+23, PAT+24, EVT+11~, EVT+21, EVT+22
LSUPD	PAT+4~, PAT+22, PAT+33, EVT+11~, EVT+20, EVT+35
PRI	PAT+27, PAT+28, PAT+30, EVT+11~, EVT+25, EVT+26, EVT+28
QFL	PAT+4~, PAT+17, PAT+18, PAT+20, PAT+31, REC+7~, REC+11, REC+12, REC+14, REC+15
RESULT	EVT+11~, EVT+15, EVT+33, EVT+34, EVT+35, EVT+37, EVT+38, EVT+39
SYS	EVT~, EVT+12*, EVT+32, EVT+36
U	PAT+21, PAT+22, PAT+23, PAT+24, PAT+32, PAT+33, REC+15, REC+17, EVT+19, EVT+20 , EVT+21, EVT+22, EVT+34, EVT+35, EVT+38
UID	PAT+4~, PAT+5*, PAT+6
VIS	PAT+29, PAT+30, EVT+11~, EVT+27, EVT+28
VISIT	PAT+4~, PAT+21, PAT+24, PAT+30, PAT+33, EVT+11~, EVT+19, EVT+22, EVT+28, EVT+35
Y	ERR+2~, ERR+3*
>> ZTSK	PAT+5

Customize PDF page

Package: Tracking Procedure Workflow

Routine: BTPWRMDR

Call Graph Total: 4

Caller Graph Total: 1