Routine: PXEDIEL

Information

PXEDIEL ;ISL/PKR - PCE device interface error listing utilities. ;6/7/96

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	2	$$S^%ZTLOAD $$FMTE^XLFDT
PCE Patient Care Encounter	1	PAGE^PXEDIP
Registration	1	(DEM,KVA)^VADPT
VA FileMan	1	$$GET1^DID

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
PCE Patient Care Encounter	1	PXEDIP

Entry Points

Name	Comments	DBIA/ICR reference
ARRAY(PXCAEIEN)	;Restores the local array PXCA from the error file.
ENC(ERRNUM)	;Try to return the encounter information for the error array.
ERRLST	;Write out the error list.

Name	Field # of Occurrence
$$S^%ZTLOAD	ERRLST+19
$$GET1^DID	ERRLST+63, ERRLST+72
PAGE^PXEDIP	ERRLST+35, ERRLST+65
DEM^VADPT	ERRLST+31
KVA^VADPT	ERRLST+78
$$FMTE^XLFDT	ERRLST+42, ERRLST+44

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"------------------------------------------------------------------------" Line Location: ERRLST+37
Function Call: WRITE	Prompt: !,"Error Number: ",ENUM Line Location: ERRLST+38
Function Call: WRITE	Prompt: !,?INDENT,"Patient: ",PATIENT Line Location: ERRLST+39
Function Call: WRITE	Prompt: !,?INDENT,"Hospital Location: ",HLOCNAM Line Location: ERRLST+40
Function Call: WRITE	Prompt: !,?INDENT,"Encounter date: " Line Location: ERRLST+41
Function Call: WRITE	Prompt: $$FMTE^XLFDT(ENCDATE) Line Location: ERRLST+42
Function Call: WRITE	Prompt: "Missing" Line Location: ERRLST+43
Function Call: WRITE	Prompt: !,?INDENT,"Processing date: ",$$FMTE^XLFDT($P(EM,U,1)) Line Location: ERRLST+44
Function Call: WRITE	Prompt: !!,?INDENT,"File: ",FILENO," (",FILENAM,")" Line Location: ERRLST+67
Function Call: WRITE	Prompt: " IEN: ",IEN Line Location: ERRLST+68
Function Call: WRITE	Prompt: " Field ",FIELD," (",FIELDNAM,")" Line Location: ERRLST+73
Function Call: WRITE	Prompt: !,?INDENT,"Error message: ",TEXT Line Location: ERRLST+74
Function Call: WRITE	Prompt: !,?INDENT,"Node: ",NODE Line Location: ERRLST+75
Function Call: WRITE	Prompt: !,?C1S,"Original: ",BEFORE Line Location: ERRLST+76
Function Call: WRITE	Prompt: !,?C1S," Updated: ",AFTER Line Location: ERRLST+77

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PX(839.01 - [#839.01]	ARRAY+5, ARRAY+6, ARRAY+7, ENC+4, ENC+5, ENC+6, ERRLST+47, ERRLST+48, ERRLST+49
^SC - [#44]	ERRLST+28
^TMP("PXCA"	ERRLST+58, ERRLST+60, ERRLST+61, ERRLST+80!
^TMP("PXEDI"	ERRLST+17, ERRLST+21

Label References

Name	Line Occurrences
$$ENC	ERRLST+22
ARRAY	ERRLST+34

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AFTER	ERRLST+1~, ERRLST+60, ERRLST+62, ERRLST+77
BEFORE	ERRLST+1~, ERRLST+61, ERRLST+62, ERRLST+76
C1S	ERRLST+1~, ERRLST+6*, ERRLST+76, ERRLST+77
DFN	ERRLST+1~, ERRLST+30*
DONE	ENC+1~, ENC+3, ENC+4, ENC+7, ERRLST+17, ERRLST+19*, ERRLST+36, ERRLST+47, ERRLST+66
EM	ERRLST+1~, ERRLST+21*, ERRLST+30, ERRLST+44
ENCDATE	ERRLST+1~, ERRLST+23, ERRLST+24, ERRLST+42
ENCNTER	ENC+1~, ENC+2, ENC+6, ENC+9, ERRLST+1~, ERRLST+22*, ERRLST+23, ERRLST+25
ENTRY	ERRLST+1~, ERRLST+51*, ERRLST+57, ERRLST+58, ERRLST+60, ERRLST+61
ENUM	ERRLST+1~, ERRLST+15, ERRLST+17, ERRLST+21, ERRLST+22, ERRLST+34, ERRLST+38, ERRLST+47, ERRLST+48, ERRLST+49
ERRMSG	ERRLST+1~
ERRNUM	ENC~, ENC+4, ENC+5, ENC+6
EVAR	ERRLST+1~, ERRLST+46, ERRLST+47
FIELD	ERRLST+2~, ERRLST+54*, ERRLST+71, ERRLST+72, ERRLST+73
FIELDNAM	ERRLST+2~, ERRLST+72*, ERRLST+73
FILE	ERRLST+2~, ERRLST+50*, ERRLST+55, ERRLST+57, ERRLST+58, ERRLST+60, ERRLST+61
FILENAM	ERRLST+2~, ERRLST+63, ERRLST+64, ERRLST+67
>> FILENO	ERRLST+55*, ERRLST+63, ERRLST+67, ERRLST+72
FILENUM	ERRLST+2~
FILENUM(	ERRLST+55
FILENUM("CPT"	ERRLST+9*
FILENUM("HF"	ERRLST+9*
FILENUM("IMM"	ERRLST+10*
FILENUM("PED"	ERRLST+10*
FILENUM("POV"	ERRLST+11*
FILENUM("PRV"	ERRLST+11*
FILENUM("SK"	ERRLST+12*
FILENUM("TRT"	ERRLST+12*
FILENUM("VST"	ERRLST+13*
FILENUM("XAM"	ERRLST+13*
HLOCIEN	ERRLST+2~, ERRLST+25*, ERRLST+28
HLOCNAM	ERRLST+2~, ERRLST+28, ERRLST+29, ERRLST+40
IEN	ERRLST+2~, ERRLST+52, ERRLST+53, ERRLST+68
IND	ENC+1~, ENC+3, ENC+4, ENC+5, ENC+6
INDENT	ERRLST+2~, ERRLST+5*, ERRLST+6, ERRLST+39, ERRLST+40, ERRLST+41, ERRLST+44, ERRLST+67, ERRLST+74, ERRLST+75
IOSL	ERRLST+35, ERRLST+65
NODE	ERRLST+2~, ERRLST+56, ERRLST+58, ERRLST+59, ERRLST+60, ERRLST+61, ERRLST+62*, ERRLST+75
>> PATDFN	ERRLST+17, ERRLST+21
PATIENT	ERRLST+3~, ERRLST+32, ERRLST+33, ERRLST+39
PXCA	ARRAY+2!, ERRLST+79!
PXCAEIEN	ARRAY~, ARRAY+5, ARRAY+6, ARRAY+7
PXCAINDX	ARRAY+3~, ARRAY+4, ARRAY+5, ARRAY+6, ARRAY+7
PXCAVAR	ARRAY+3~, ARRAY+6*, ARRAY+7
PXERR	ERRLST+3~, ERRLST+48*, ERRLST+50, ERRLST+51, ERRLST+52, ERRLST+54
TEMP	ENC+1~, ERRLST+3~
TEXT	ERRLST+3~, ERRLST+49*, ERRLST+74
>> TYPE	ERRLST+17, ERRLST+21
U	ERRLST+28, ERRLST+30, ERRLST+32, ERRLST+44
>> VADM(1	ERRLST+32
>> VADM(2	ERRLST+32
>> ZTSTOP	ERRLST+19*

Customize PDF page

Package: PCE Patient Care Encounter