Routine: PXRMETH

Package	Total	Call Graph
Clinical Reminders	7	BLDLIST^PXRMETH1 START^PXRMETHL START^PXRMETT TRANS^PXRMETX DELETE^PXRMETXU ($$ASKYN,CALC)^PXRMEUT ASK^PXRMXD
Kernel	4	ENDR^%ZISS ^%ZTLOAD ($$FMDIFF,$$FMTE,$$NOW)^XLFDT ($$LJ,$$UP)^XLFSTR
Registration	4	EN^VALM FULL^VALM1 CLEAN^VALM10 EN^VALM2
VA Fileman	2	EN^DDIOL ^DIR

Package	Total	Caller Graph
Clinical Reminders	1	PXRMETM

Name	Comments	DBIA/ICR reference
SURE	;
HDR	; Header code
EXTRACT(EDIEN)	;Run Extract/Transmission
TLIST	;Extract summary display
START(EDIEN)	;
EXSEL
PEXIT	;PXRM EXCH MENU protocol exit code
LMSEL()	;Return selection list
INIT	;Init
EXIT	;Exit code
WARN(NEXT,STATUS)	;Warn if period is not completed
XQORM
ENTRY	;Entry code
TRANS	;Run Transmission
TRHIST	;Transmission History
HLP	;Help code
SELECT(FREQ,SEL)	;Select extract period
XSEL	;PXRM EXTRACT HISTORY SELECT ENTRY validation
VALID(FREQ,INP)	;Validate Period input
DELETE	;Delete an extract, called by protocol PXRM EXTRACT SUMMARY DELETE.
PLIST	;
VIEW	;Select view

Name	Field # of Occurrence
ENDR^%ZISS	START+10
^%ZTLOAD	PLIST+49
EN^DDIOL	VALID+6, VALID+10, VALID+12, VALID+14
^DIR	PLIST+43, SELECT+16, VIEW+12, XSEL+29
BLDLIST^PXRMETH1	DELETE+7, ENTRY+1, TRANS+14, VIEW+19, XSEL+38
START^PXRMETHL	TRHIST+5, XSEL+55
START^PXRMETT	TLIST+5, XSEL+43
TRANS^PXRMETX	TRANS+11, XSEL+52
DELETE^PXRMETXU	DELETE+5, XSEL+36
$$ASKYN^PXRMEUT	SURE+1, PLIST+7, PLIST+13, TRANS+10, XSEL+51
CALC^PXRMEUT	SELECT+18, WARN+3
ASK^PXRMXD	PLIST+1, PLIST+3
EN^VALM	START+12, HLP+3
FULL^VALM1	EXIT+4, XSEL+17
CLEAN^VALM10	EXIT+3
EN^VALM2	LMSEL+2
$$FMDIFF^XLFDT	SELECT+20, WARN+5
$$FMTE^XLFDT	PLIST+40, HDR+5, SELECT+21, WARN+7
$$NOW^XLFDT	PLIST+37, SELECT+20, WARN+5
$$LJ^XLFSTR	HDR+6
$$UP^XLFSTR	SELECT+18, VALID+4

Name	Line Occurrences
Function Call: WRITE	Prompt: IORESET Line Location: EXTRACT+2
Function Call: WRITE	Prompt: !,"Reminder evaluation is disabled, cannot start an Extract." Line Location: EXTRACT+8
Function Call: WRITE	Prompt: !,"Queue a "_ZTDESC_" for "_NEXT Line Location: PLIST+38
Function Call: WRITE	Prompt: !,"Task number ",ZTSK," queued." Line Location: PLIST+50
Function Call: WRITE	Prompt: ! Line Location: VALID+1
Function Call: WRITE	Prompt: IORESET Line Location: VIEW+1
Function Call: WRITE	Prompt: !!,"WARNING -This period is not complete until "_FDATE Line Location: WARN+9
Routine Call	VALM Line Location: START+12 HLP+3
Routine Call	DIR Line Location: PLIST+43 SELECT+16 VIEW+12 XSEL+29

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101 - [#101]	XQORM
^PXRM(810.2 - [#810.2]	START+5, EXTRACT+14, EXTRACT+15, HDR+3
^PXRMXT(810.3 - [#810.3]	TRANS+5, XSEL+48
^TMP("PXRMETH"	EXIT+1!, LMSEL+9, XSEL+14
^TMP("PXRMETHH"	EXIT+2!
^XTMP("PXRM_DISEV"	EXTRACT+7

Name	Line Occurrences
$$LMSEL	DELETE+2, TLIST+2, TRANS+2, TRHIST+2
HDR	VIEW+19
PLIST	PLIST+4
SELECT	EXSEL
SURE	PLIST+2
WARN	EXSEL+2
XQORM	ENTRY+1, PEXIT+2

Name	Field # of Occurrence
ANS	EXTRACT+12~, SURE+1, TRANS+8~, TRANS+9, TRANS+10, TRANS+11, XSEL+47~, XSEL+50, XSEL+51*, XSEL+52
BDATE	SELECT+1~, SELECT+18, SELECT+20, SELECT+21, WARN+1~, WARN+3
CLASS	DELETE+1~
CODE	VIEW+3~
DA	SELECT+1~
DATA	START+4~, START+5, START+6, EXTRACT+12~, EXTRACT+14, EXTRACT+17
DIE	SELECT+1~
DIK	SELECT+1~
DIR	PLIST+36~, SELECT+1~, VIEW+3~, VIEW+12!, XSEL+20~, XSEL+29!
DIR("?"	VIEW+9, XSEL+27
DIR("??"	VIEW+11, XSEL+28
DIR("A"	PLIST+39, PLIST+40, PLIST+41, SELECT+4, SELECT+6, SELECT+9, SELECT+12, VIEW+7, XSEL+25*
DIR("B"	SELECT+15, VIEW+8, XSEL+26*
DIR(0	PLIST+42, SELECT+7, SELECT+10, SELECT+13, VIEW+5, VIEW+6, XSEL+21, XSEL+22, XSEL+23, XSEL+24
DIROUT	VIEW+4!, VIEW+13, XSEL+20!, XSEL+30
DIRUT	VIEW+4!, XSEL+20!
DR	SELECT+1~
DTOUT	EXTRACT+12~, EXSEL, SURE+1, PLIST+2, PLIST+4, PLIST+7, PLIST+11, PLIST+13, PLIST+36~, PLIST+44 , SELECT+3, SELECT+16, TRANS+8~, TRANS+10, VIEW+4!, VIEW+13, VIEW+14, XSEL+20!, XSEL+30, XSEL+31 , XSEL+47~, XSEL+51
DUOUT	EXTRACT+12~, EXSEL, SURE+1, PLIST+2, PLIST+4, PLIST+7, PLIST+11, PLIST+13, PLIST+36~, PLIST+44 , SELECT+3, SELECT+16, TRANS+8~, TRANS+10, VIEW+4!, VIEW+14, XSEL+20!, XSEL+31, XSEL+47~, XSEL+51
EDATE	EXTRACT+12~, SELECT+1~, SELECT+18, WARN+1~, WARN+3, WARN+5, WARN+7
EDIEN	START~, START+5, DELETE+7, ENTRY+1, EXTRACT~, EXTRACT+14, EXTRACT+15, HDR+3, TRANS+14, VIEW+19
EXSUMPUG	EXTRACT+12~, PLIST+3*
FDATE	SELECT+1~, SELECT+21, SELECT+22, WARN+1~, WARN+7, WARN+9
FREQ	EXTRACT+12~, EXTRACT+17*, EXSEL, SELECT~, SELECT+5, SELECT+8, SELECT+11, VALID~, VALID+6, VALID+8 , VALID+12, VALID+14
IEN	DELETE+1~, DELETE+4, DELETE+5, TLIST+1~, TLIST+4, TLIST+5, TRANS+1~, TRANS+4, TRANS+5, TRANS+11 , TRHIST+1~, TRHIST+4, TRHIST+5
IENLIST	DELETE+1~, DELETE+2, DELETE+3, DELETE+4, LMSEL+1~, LMSEL+5, LMSEL+10, LMSEL+11, TLIST+1~, TLIST+2 , TLIST+3, TLIST+4, TRANS+1~, TRANS+2, TRANS+3, TRANS+4, TRHIST+1~, TRHIST+2, TRHIST+3, TRHIST+4
IND	DELETE+1~, DELETE+3, DELETE+4, LMSEL+1~, LMSEL+6, LMSEL+7, LMSEL+9, TLIST+1~, TLIST+3, TLIST+4 , TRANS+1~, TRANS+3, TRANS+4, TRHIST+1~, TRHIST+3, TRHIST+4
INP	VALID~, VALID+4*, VALID+6, VALID+7
>> IORESET	EXTRACT+2, VIEW+1
MINDT	PLIST+36~, PLIST+37*, PLIST+40, PLIST+42
MODE	EXTRACT+12~, PLIST+20, PLIST+22
NAME	EXTRACT+13~, EXTRACT+17*, EXSEL+4
NAT	EXTRACT+13~, EXTRACT+15*, PLIST+7
NEXT	EXTRACT+13~, EXTRACT+17*, EXTRACT+19, EXSEL, EXSEL+2, EXSEL+4, PLIST+11, PLIST+38, SELECT+15, WARN~ , WARN+3
NPERIOD	START+4~, START+6*, HDR+4
NSDATE	START+4~, START+6*, HDR+5
NTAS	START+4~
OPTION	XSEL+20~, XSEL+32*, XSEL+35, XSEL+43, XSEL+46, XSEL+55
ORU	HLP+1~
ORUPRMT	HLP+1~
PERIOD	VALID+2~, VALID+7, VALID+8, VALID+12, VALID+14
PLISTPUG	EXTRACT+13~, PLIST+1*
>> PXRMDONE	LMSEL+5*, LMSEL+7
PXRMSIEN	XSEL+1~, XSEL+14*, XSEL+36, XSEL+38, XSEL+43, XSEL+48, XSEL+52, XSEL+55
PXRMVIEW	START+4~, START+8, HDR+2, VIEW+8, VIEW+16
REPL	EXTRACT+13~, PLIST+10, PLIST+13, PLIST+22
RTN	EXTRACT+13~, EXTRACT+17, SURE+1, PLIST+7, PLIST+13, TRANS+8~, TRANS+9, TRANS+10, XSEL+47~, XSEL+50* , XSEL+51
SDTIME	PLIST+36~, PLIST+45*, PLIST+48
SEL	SELECT~, SELECT+3, SELECT+23, XSEL+1~, XSEL+2, XSEL+4*, XSEL+6, XSEL+9, XSEL+10, XSEL+14
SNEXT	EXTRACT+13~, EXTRACT+19*, PLIST+11
STATUS	EXTRACT+13~, EXSEL+2, PLIST+11, WARN~, WARN+5, WARN+7
STIME	PLIST+36~
SUB	HLP+1~, HLP+2*
TEXT	EXTRACT+13~, EXSEL+4, SURE+1, PLIST+6, PLIST+7, PLIST+12, PLIST+13, TRANS+8~, TRANS+9, TRANS+10 , XSEL+47~, XSEL+50*, XSEL+51
U	START+6, DELETE+3, DELETE+4, EXTRACT+15, EXTRACT+17, PLIST+42, HDR+3, LMSEL+10, SELECT+7, SELECT+10 , SELECT+13, TLIST+3, TLIST+4, TRANS+3, TRANS+4, TRANS+5, TRHIST+3, TRHIST+4, VIEW+5, VIEW+11 , XQORM, XSEL+21, XSEL+28, XSEL+48
VALID	SELECT+1~
>> VALMAR	XSEL+9
VALMBCK	START+2~, DELETE+9, EXIT+5, EXTRACT+4, PLIST+51, TLIST+6, TLIST+7, TRANS+16, TRHIST+6, VIEW+2* , XSEL+8, XSEL+11, XSEL+31, XSEL+40, XSEL+57*
VALMCNT	START+2~, START+11, INIT+1, XQORM, XSEL+9
>> VALMHDR(2	HDR+3*
>> VALMHDR(3	HDR+4*
>> VALMHDR(4	HDR+5, HDR+6
VALMSG	START+2~, HDR+7, PEXIT+1
VALMY	LMSEL+1~, LMSEL+4
VALMY(	LMSEL+7
VIEW	HDR+1~, HDR+2*, HDR+6
X	START+2~, START+9*, PLIST+36~, SELECT+1~, VIEW+3~, XSEL+20~
XIEN	LMSEL+1~, LMSEL+9*, LMSEL+10
XMIT	EXTRACT+13~, PLIST+7, PLIST+8, PLIST+11, PLIST+20, PLIST+22
XMZ	START+2~
XQORM	START+2~, HLP+1~
XQORM("#"	XQORM*
XQORM("A"	XQORM+1*
XQORNOD	START+2~
XQORNOD(0	LMSEL+2, XSEL+2
Y	PLIST+36~, PLIST+45, SELECT+18*, SELECT+23, VIEW+3~, VIEW+16, XSEL+20~, XSEL+32
YEAR	VALID+2~, VALID+7*, VALID+10
ZTDESC	PLIST+25~, PLIST+26*, PLIST+38
ZTDTH	PLIST+25~, PLIST+48*
ZTIO	PLIST+25~, PLIST+33*
ZTRTN	PLIST+25~, PLIST+27*
ZTSAVE	PLIST+25~
ZTSAVE("EDIEN"	PLIST+28*
ZTSAVE("EXSUMPUG"	PLIST+32*
ZTSAVE("MODE"	PLIST+29*
ZTSAVE("NEXT"	PLIST+30*
ZTSAVE("PLISTPUG"	PLIST+31*
>> ZTSK	PLIST+50

Name

Field # of Occurrence

ANS

EXTRACT+12~, SURE+1*, TRANS+8~, TRANS+9*, TRANS+10*, TRANS+11, XSEL+47~, XSEL+50*, XSEL+51*, XSEL+52

BDATE

SELECT+1~, SELECT+18, SELECT+20, SELECT+21, WARN+1~, WARN+3

CLASS

DELETE+1~

CODE

VIEW+3~

DA

SELECT+1~

DATA

START+4~, START+5*, START+6, EXTRACT+12~, EXTRACT+14*, EXTRACT+17

DIE

SELECT+1~

DIK

SELECT+1~

DIR

PLIST+36~, SELECT+1~, VIEW+3~, VIEW+12!, XSEL+20~, XSEL+29!

DIR("?"

VIEW+9*, XSEL+27*

DIR("??"

VIEW+11*, XSEL+28*

DIR("A"

PLIST+39*, PLIST+40*, PLIST+41*, SELECT+4*, SELECT+6*, SELECT+9*, SELECT+12*, VIEW+7*, XSEL+25*

DIR("B"

SELECT+15*, VIEW+8*, XSEL+26*

DIR(0

PLIST+42*, SELECT+7*, SELECT+10*, SELECT+13*, VIEW+5*, VIEW+6*, XSEL+21*, XSEL+22*, XSEL+23*, XSEL+24*

DIROUT

VIEW+4!, VIEW+13, XSEL+20!, XSEL+30

DIRUT

VIEW+4!, XSEL+20!

DR

SELECT+1~

DTOUT

EXTRACT+12~, EXSEL, SURE+1, PLIST+2, PLIST+4, PLIST+7, PLIST+11, PLIST+13, PLIST+36~, PLIST+44
, SELECT+3, SELECT+16, TRANS+8~, TRANS+10, VIEW+4!, VIEW+13*, VIEW+14, XSEL+20!, XSEL+30*, XSEL+31
, XSEL+47~, XSEL+51

DUOUT

EXTRACT+12~, EXSEL, SURE+1, PLIST+2, PLIST+4, PLIST+7, PLIST+11, PLIST+13, PLIST+36~, PLIST+44
, SELECT+3, SELECT+16, TRANS+8~, TRANS+10, VIEW+4!, VIEW+14, XSEL+20!, XSEL+31, XSEL+47~, XSEL+51

EDATE

EXTRACT+12~, SELECT+1~, SELECT+18, WARN+1~, WARN+3, WARN+5, WARN+7

EDIEN

START~, START+5, DELETE+7, ENTRY+1, EXTRACT~, EXTRACT+14, EXTRACT+15, HDR+3, TRANS+14, VIEW+19

EXSUMPUG

EXTRACT+12~, PLIST+3*

FDATE

SELECT+1~, SELECT+21*, SELECT+22, WARN+1~, WARN+7*, WARN+9

FREQ

EXTRACT+12~, EXTRACT+17*, EXSEL, SELECT~, SELECT+5, SELECT+8, SELECT+11, VALID~, VALID+6, VALID+8
, VALID+12, VALID+14

IEN

DELETE+1~, DELETE+4*, DELETE+5, TLIST+1~, TLIST+4*, TLIST+5, TRANS+1~, TRANS+4*, TRANS+5, TRANS+11
, TRHIST+1~, TRHIST+4*, TRHIST+5

IENLIST

DELETE+1~, DELETE+2*, DELETE+3, DELETE+4, LMSEL+1~, LMSEL+5*, LMSEL+10*, LMSEL+11, TLIST+1~, TLIST+2*
, TLIST+3, TLIST+4, TRANS+1~, TRANS+2*, TRANS+3, TRANS+4, TRHIST+1~, TRHIST+2*, TRHIST+3, TRHIST+4

IND

DELETE+1~, DELETE+3*, DELETE+4, LMSEL+1~, LMSEL+6*, LMSEL+7*, LMSEL+9, TLIST+1~, TLIST+3*, TLIST+4
, TRANS+1~, TRANS+3*, TRANS+4, TRHIST+1~, TRHIST+3*, TRHIST+4

INP

VALID~, VALID+4*, VALID+6, VALID+7

>> IORESET

EXTRACT+2, VIEW+1

MINDT

PLIST+36~, PLIST+37*, PLIST+40, PLIST+42

MODE

EXTRACT+12~, PLIST+20*, PLIST+22*

NAME

EXTRACT+13~, EXTRACT+17*, EXSEL+4

NAT

EXTRACT+13~, EXTRACT+15*, PLIST+7

NPERIOD

START+4~, START+6*, HDR+4

NSDATE

START+4~, START+6*, HDR+5

NTAS

START+4~

OPTION

XSEL+20~, XSEL+32*, XSEL+35, XSEL+43, XSEL+46, XSEL+55

ORU

HLP+1~

ORUPRMT

HLP+1~

PERIOD

VALID+2~, VALID+7*, VALID+8*, VALID+12, VALID+14

PLISTPUG

EXTRACT+13~, PLIST+1*

>> PXRMDONE

LMSEL+5*, LMSEL+7

PXRMSIEN

XSEL+1~, XSEL+14*, XSEL+36, XSEL+38, XSEL+43, XSEL+48, XSEL+52, XSEL+55

PXRMVIEW

START+4~, START+8*, HDR+2, VIEW+8, VIEW+16*

REPL

EXTRACT+13~, PLIST+10*, PLIST+13*, PLIST+22

RTN

EXTRACT+13~, EXTRACT+17*, SURE+1, PLIST+7, PLIST+13, TRANS+8~, TRANS+9*, TRANS+10, XSEL+47~, XSEL+50*
, XSEL+51

SDTIME

PLIST+36~, PLIST+45*, PLIST+48

SEL

SELECT~, SELECT+3, SELECT+23*, XSEL+1~, XSEL+2*, XSEL+4*, XSEL+6, XSEL+9, XSEL+10, XSEL+14

SNEXT

EXTRACT+13~, EXTRACT+19*, PLIST+11

STATUS

EXTRACT+13~, EXSEL+2, PLIST+11, WARN~, WARN+5*, WARN+7*

STIME

PLIST+36~

SUB

HLP+1~, HLP+2*

TEXT

EXTRACT+13~, EXSEL+4*, SURE+1, PLIST+6*, PLIST+7, PLIST+12*, PLIST+13, TRANS+8~, TRANS+9*, TRANS+10
, XSEL+47~, XSEL+50*, XSEL+51

U

START+6, DELETE+3, DELETE+4, EXTRACT+15, EXTRACT+17, PLIST+42, HDR+3, LMSEL+10, SELECT+7, SELECT+10
, SELECT+13, TLIST+3, TLIST+4, TRANS+3, TRANS+4, TRANS+5, TRHIST+3, TRHIST+4, VIEW+5, VIEW+11
, XQORM, XSEL+21, XSEL+28, XSEL+48

VALID

SELECT+1~

>> VALMAR

XSEL+9

VALMBCK

START+2~, DELETE+9*, EXIT+5*, EXTRACT+4*, PLIST+51*, TLIST+6*, TLIST+7*, TRANS+16*, TRHIST+6*, VIEW+2*
, XSEL+8*, XSEL+11*, XSEL+31*, XSEL+40*, XSEL+57*

VALMCNT

START+2~, START+11*, INIT+1*, XQORM, XSEL+9

>> VALMHDR(2

HDR+3*

>> VALMHDR(3

HDR+4*

>> VALMHDR(4

HDR+5*, HDR+6*

VALMSG

START+2~, HDR+7*, PEXIT+1*

VALMY

LMSEL+1~, LMSEL+4

VALMY(

LMSEL+7

VIEW

HDR+1~, HDR+2*, HDR+6

X

START+2~, START+9*, PLIST+36~, SELECT+1~, VIEW+3~, XSEL+20~

XIEN

LMSEL+1~, LMSEL+9*, LMSEL+10

XMIT

EXTRACT+13~, PLIST+7*, PLIST+8*, PLIST+11, PLIST+20, PLIST+22

XMZ

START+2~

XQORM

START+2~, HLP+1~

XQORM("#"

XQORM*

XQORM("A"

XQORM+1*

XQORNOD

START+2~

XQORNOD(0

LMSEL+2, XSEL+2

Y

PLIST+36~, PLIST+45, SELECT+18*, SELECT+23, VIEW+3~, VIEW+16, XSEL+20~, XSEL+32

YEAR

VALID+2~, VALID+7*, VALID+10

ZTDESC

PLIST+25~, PLIST+26*, PLIST+38

ZTDTH

PLIST+25~, PLIST+48*

ZTIO

PLIST+25~, PLIST+33*

ZTRTN

PLIST+25~, PLIST+27*

ZTSAVE

PLIST+25~

ZTSAVE("EDIEN"

PLIST+28*

ZTSAVE("EXSUMPUG"

PLIST+32*

ZTSAVE("MODE"

PLIST+29*

ZTSAVE("NEXT"

PLIST+30*

ZTSAVE("PLISTPUG"

PLIST+31*

>> ZTSK

PLIST+50

Customize PDF page

Package: Clinical Reminders

Routine: PXRMETH

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed