Routine: PXRRPAPR

Package	Total	Call Graph
Kernel	3	$$S^%ZTLOAD ($$FMDIFF,$$FMTE)^XLFDT $$MAX^XLFMTH
PCE Patient Care Encounter	2	(FACNE,HDR)^PXRRGPRT (EOR,EXIT)^PXRRGUT
VA Fileman	2	$$EXTERNAL^DILFD ^DIR

Package	Total	Caller Graph
PCE Patient Care Encounter	1	PXRRPAPI

Entry Points

Name	Comments	DBIA/ICR reference
SET	;Set up print fields
PHEAD(NEWPAGE)	;Print the patient header
NFAC
PPRINT	;Print the information for a patient.
NPAT	;
MHEAD(NEWPAGE)	;Write the main report header.
EXIT	;
NHLOC
HEAD(NEWPAGE)	;
PAGE	;form feed to new page
FINAL	;Check for facilities that were listed but had no encounters.
SHEAD(INDENT,TEXT,FC)	;Write a section header. INDENT is the number

External References

Name	Field # of Occurrence
$$S^%ZTLOAD	NHLOC+11
$$EXTERNAL^DILFD	PPRINT+20
^DIR	PAGE+4
FACNE^PXRRGPRT	FINAL+2
HDR^PXRRGPRT	PAGE+8
EOR^PXRRGUT	EXIT+2
EXIT^PXRRGUT	EXIT+1
$$FMDIFF^XLFDT	PPRINT+59
$$FMTE^XLFDT	MHEAD+5, MHEAD+6, MHEAD+8, MHEAD+9, MHEAD+11, MHEAD+12, PPRINT+21, PPRINT+56, PPRINT+57, PPRINT+94 , PPRINT+112
$$MAX^XLFMTH	HEAD+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?CEN,"Facility: ",FACPNAME Line Location: HEAD+8
Function Call: WRITE	Prompt: !,?CEN,"Location: ",HLOCNAM,CSTOP Line Location: HEAD+9
Function Call: WRITE	Prompt: !!,"Criteria for Patient Activity Report" Line Location: MHEAD+3
Function Call: WRITE	Prompt: !?INDENT,"Location selection criteria:",?35,$P(PXRRLCSC,U,2) Line Location: MHEAD+4
Function Call: WRITE	Prompt: !?INDENT,"Patient appointment date range:",?35,SD," through ",ED Line Location: MHEAD+7
Function Call: WRITE	Prompt: !?INDENT,"Patient activity date range:",?35,SD," through ",ED Line Location: MHEAD+10
Function Call: WRITE	Prompt: !?INDENT,"Future appointment date range:",?35,SD," through ",ED Line Location: MHEAD+13
Function Call: WRITE	Prompt: !,"____________________________________________________________________" Line Location: MHEAD+14
Function Call: WRITE	Prompt: ! Line Location: PAGE+3
Function Call: WRITE	Prompt: !,"_______________________________________________________________________________" Line Location: PHEAD+7
Function Call: WRITE	Prompt: !,NAME,?C2S,$P(TEMP,U,1),?C3S,$P(TEMP,U,9) Line Location: PHEAD+8
Function Call: WRITE	Prompt: ! Line Location: PHEAD+9
Function Call: WRITE	Prompt: T1 Line Location: PHEAD+11
Function Call: WRITE	Prompt: " ",T1 Line Location: PHEAD+13
Function Call: WRITE	Prompt: " ",T1 Line Location: PHEAD+15
Function Call: WRITE	Prompt: " ",T1 Line Location: PHEAD+17
Function Call: WRITE	Prompt: " ",T1 Line Location: PHEAD+19
Function Call: WRITE	Prompt: " ",T1 Line Location: PHEAD+21
Function Call: WRITE	Prompt: !!,?C1HS,"Appointment criteria met:" Line Location: PPRINT+10
Function Call: WRITE	Prompt: !!,?C1HS,"Appointment criteria met:" Line Location: PPRINT+25
Function Call: WRITE	Prompt: !,?C1S,DATE,?C2S,HLOCNAM,?C3S,POV(PV) Line Location: PPRINT+26
Function Call: WRITE	Prompt: !!,?C1HS,"Future Appointments:" Line Location: PPRINT+33
Function Call: WRITE	Prompt: !!,?C1HS,"Future Appointments:" Line Location: PPRINT+42
Function Call: WRITE	Prompt: !,?C1S,DATE,?C2S,LOC,?C3S,TYPE Line Location: PPRINT+43
Function Call: WRITE	Prompt: ! Line Location: PPRINT+51
Function Call: WRITE	Prompt: ! Line Location: PPRINT+73
Function Call: WRITE	Prompt: ! Line Location: PPRINT+76
Function Call: WRITE	Prompt: !,?C1S,DATE," - ",DISDATE,?C2S,$P(TEMP,U,1),?C3S,"LOS: ",LOS Line Location: PPRINT+77
Function Call: WRITE	Prompt: !,?C1S," Last Tr. Specialty: ",?C2S,$P(TEMP,U,2) Line Location: PPRINT+78
Function Call: WRITE	Prompt: ?C3S,"Last Prov: ",$P($P(TEMP,U,3),",",1) Line Location: PPRINT+79
Function Call: WRITE	Prompt: !,?C1S,"Admitting Diagnosis: ",?C2S,$P(TEMP,U,4) Line Location: PPRINT+80
Function Call: WRITE	Prompt: !,?(C1S+15),"DXLS:",?C2S,DXLS Line Location: PPRINT+82
Function Call: WRITE	Prompt: ! Line Location: PPRINT+90
Function Call: WRITE	Prompt: ! Line Location: PPRINT+98
Function Call: WRITE	Prompt: !?C1S,DATE,?C2S,$P(TEMP,U,2) Line Location: PPRINT+99
Function Call: WRITE	Prompt: ! Line Location: PPRINT+106
Function Call: WRITE	Prompt: ! Line Location: PPRINT+116
Function Call: WRITE	Prompt: !,?C1S,DATE,?C2S,$P(TEMP,U,1),?C3S,$P(TEMP,U,2)," ",$P(TEMP,U,4) Line Location: PPRINT+117
Function Call: WRITE	Prompt: !,?INDENT,HEAD Line Location: SHEAD+16
Function Call: WRITE	Prompt: !,?IC,TEXT Line Location: SHEAD+19
Routine Call	DIR Line Location: PAGE+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
2.98	EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	NHLOC+5
^SC - [#44]	NHLOC+4
^XTMP(	NFAC, NHLOC, NPAT+1, NPAT+3, NPAT+4, PHEAD+4, PPRINT+7, PPRINT+12, PPRINT+13, PPRINT+30 , PPRINT+35, PPRINT+36, PPRINT+47, PPRINT+54, PPRINT+55, PPRINT+69, PPRINT+87, PPRINT+92, PPRINT+93, PPRINT+103 , PPRINT+108, PPRINT+110, PPRINT+111

Label References

Name	Line Occurrences
EXIT	NHLOC+11, NPAT+6
FINAL	NFAC+1
HEAD	NHLOC+8, PHEAD+1
MHEAD	PXRRPAPR+25, NHLOC+7
NFAC	NHLOC+1
NHLOC	NPAT+2
NPAT	NPAT+7
PAGE	FINAL+1, HEAD+1, HEAD+2, MHEAD+1, MHEAD+2
PHEAD	PPRINT+4, PPRINT+8, PPRINT+24, PPRINT+31, PPRINT+41, PPRINT+49, PPRINT+71, PPRINT+88, PPRINT+97, PPRINT+104 , PPRINT+115
PPRINT	NPAT+5
SHEAD	PPRINT+51, PPRINT+73, PPRINT+90, PPRINT+98, PPRINT+106, PPRINT+116

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BMARG	PXRRPAPR+3~, PXRRPAPR+23, PXRRPAPR+24, FINAL+1, HEAD+2, MHEAD+2, PPRINT+2, PPRINT+8, PPRINT+23, PPRINT+31 , PPRINT+40, PPRINT+49, PPRINT+70, PPRINT+88, PPRINT+96, PPRINT+104, PPRINT+114
C1HS	PXRRPAPR+3~, PXRRPAPR+16*, PXRRPAPR+17, PPRINT+10, PPRINT+25, PPRINT+33, PPRINT+42, PPRINT+51, PPRINT+73, PPRINT+90 , PPRINT+98, PPRINT+106, PPRINT+116
C1S	PXRRPAPR+3~, PXRRPAPR+17*, PXRRPAPR+18, PPRINT+26, PPRINT+43, PPRINT+77, PPRINT+78, PPRINT+80, PPRINT+82, PPRINT+99 , PPRINT+117
C2S	PXRRPAPR+3~, PXRRPAPR+18, PXRRPAPR+19, PHEAD+3~, PHEAD+5, PHEAD+6, PHEAD+8, PPRINT+26, PPRINT+43, PPRINT+77 , PPRINT+78, PPRINT+80, PPRINT+82, PPRINT+99, PPRINT+117
C3S	PXRRPAPR+3~, PXRRPAPR+19, PHEAD+3~, PHEAD+6, PHEAD+8, PPRINT+26, PPRINT+43, PPRINT+77, PPRINT+79, PPRINT+117
CEN	HEAD+5~, HEAD+7*, HEAD+8, HEAD+9
CLIEN	PXRRPAPR+4~, NHLOC+4*, NHLOC+5
CSTOP	PXRRPAPR+4~, NHLOC+5*, HEAD+9
DATE	PXRRPAPR+4~, PPRINT+1~, PPRINT+21, PPRINT+22, PPRINT+26, PPRINT+37, PPRINT+43, PPRINT+56, PPRINT+62, PPRINT+77 , PPRINT+94, PPRINT+95, PPRINT+99, PPRINT+112, PPRINT+113*, PPRINT+117
DFN	PXRRPAPR+4~, NPAT+4*, PHEAD+4, PPRINT+7, PPRINT+12, PPRINT+13, PPRINT+30, PPRINT+35, PPRINT+36, PPRINT+47 , PPRINT+54, PPRINT+55, PPRINT+69, PPRINT+87, PPRINT+92, PPRINT+93, PPRINT+103, PPRINT+108, PPRINT+110, PPRINT+111
DIR	PAGE+4!
DIR(0	PAGE+2*
>> DIROUT	PAGE+5
DISDATE	PXRRPAPR+4~, PPRINT+57, PPRINT+58, PPRINT+67*, PPRINT+77
DONE	PXRRPAPR+4~, PXRRPAPR+13, NPAT+6, HEAD+3, PAGE+5, PHEAD+2, PPRINT+5, PPRINT+9, PPRINT+12, PPRINT+25 , PPRINT+26, PPRINT+27, PPRINT+32, PPRINT+35, PPRINT+42, PPRINT+43, PPRINT+44, PPRINT+50, PPRINT+54, PPRINT+72 , PPRINT+75, PPRINT+84, PPRINT+89, PPRINT+92, PPRINT+98, PPRINT+99, PPRINT+100, PPRINT+105, PPRINT+108, PPRINT+116 , PPRINT+117
DT	PPRINT+66
>> DTOUT	PAGE+5
>> DUOUT	PAGE+5
DXLS	PPRINT+1~, PPRINT+81*, PPRINT+82
ED	PXRRPAPR+4~, MHEAD+6, MHEAD+7, MHEAD+9, MHEAD+10, MHEAD+12*, MHEAD+13
EM	PPRINT+1~, PPRINT+20
FACIEN	PXRRPAPR+5~, NFAC+3*, NFAC+6, PPRINT+7, PPRINT+12, PPRINT+13, PPRINT+30, PPRINT+35, PPRINT+36, PPRINT+47 , PPRINT+54, PPRINT+55, PPRINT+69, PPRINT+87, PPRINT+92, PPRINT+93, PPRINT+103, PPRINT+108, PPRINT+110, PPRINT+111
FACILITY	PXRRPAPR+5~, SET+1, NFAC, NFAC+1, NFAC+3, NFAC+4, NHLOC, NPAT+1, NPAT+3, NPAT+4
FACPNAME	PXRRPAPR+5~, NFAC+4*, HEAD+6, HEAD+8
FC	SHEAD~, SHEAD+12, SHEAD+15
FILLEND	SHEAD+3~, SHEAD+8*, SHEAD+11
FILLLEN	SHEAD+3~, SHEAD+7*, SHEAD+8, SHEAD+9
HEAD	PXRRPAPR+3~, PXRRPAPR+21, NFAC+2, HEAD+4, HEAD+10, PAGE+9, SHEAD+3~, SHEAD+10, SHEAD+12, SHEAD+13* , SHEAD+14, SHEAD+15*, SHEAD+16
HLOC	PXRRPAPR+5~, NFAC+9, NHLOC, NHLOC+1, NHLOC+2, NHLOC+3, NPAT+1, NPAT+3, NPAT+4
HLOCIEN	PXRRPAPR+5~, NHLOC+3*, NHLOC+4, PPRINT+7, PPRINT+12, PPRINT+13, PPRINT+30, PPRINT+35, PPRINT+36, PPRINT+47 , PPRINT+54, PPRINT+55, PPRINT+69, PPRINT+87, PPRINT+92, PPRINT+93, PPRINT+103, PPRINT+108, PPRINT+110, PPRINT+111
HLOCNAM	PXRRPAPR+5~, NHLOC+2*, HEAD+6, HEAD+9, PPRINT+26
IC	PXRRPAPR+6~, NFAC+6, NFAC+7, PPRINT+1~, PPRINT+11, PPRINT+12, PPRINT+13, PPRINT+21, PPRINT+34, PPRINT+35* , PPRINT+36, PPRINT+53, PPRINT+54, PPRINT+55, PPRINT+56, PPRINT+59, PPRINT+61, PPRINT+69, PPRINT+91, PPRINT+92 , PPRINT+93, PPRINT+94, PPRINT+107, PPRINT+108, PPRINT+110, PPRINT+111, PPRINT+112, SHEAD+3~, SHEAD+11, SHEAD+14 , SHEAD+18*, SHEAD+19
INDENT	PXRRPAPR+3~, PXRRPAPR+15*, PXRRPAPR+16, FINAL+2, MHEAD+4, MHEAD+7, MHEAD+10, MHEAD+13, SHEAD~, SHEAD+6 , SHEAD+8, SHEAD+11, SHEAD+16
IO	PXRRPAPR+12, PXRRPAPR+23, PAGE+1
IO(0	PXRRPAPR+23, PAGE+1
IOF	PAGE+6
IOM	HEAD+7, SHEAD+6, SHEAD+18
IOSL	FINAL+1, HEAD+2, MHEAD+2, PPRINT+2, PPRINT+8, PPRINT+23, PPRINT+31, PPRINT+40, PPRINT+49, PPRINT+70 , PPRINT+88, PPRINT+96, PPRINT+104, PPRINT+114
IOST	PXRRPAPR+23, PAGE+1
JC	PXRRPAPR+6~, PPRINT+1~, PPRINT+55, PPRINT+57, PPRINT+59, PPRINT+66, PPRINT+69, PPRINT+109, PPRINT+110*, PPRINT+111
LEN	HEAD+5~, HEAD+6*, HEAD+7
LINELEN	SHEAD+3~, SHEAD+6*, SHEAD+7, SHEAD+14
LOC	PXRRPAPR+6~, PPRINT+38*, PPRINT+43
LOS	PXRRPAPR+6~, PPRINT+59, PPRINT+63, PPRINT+68*, PPRINT+77
NAME	PXRRPAPR+7~, NHLOC+13, NPAT+1, NPAT+2, NPAT+3, NPAT+4, PHEAD+5, PHEAD+8
NEEDBL	PPRINT+48~, PPRINT+52, PPRINT+74, PPRINT+76, PPRINT+83*
NEWPAGE	HEAD~, HEAD+1, MHEAD~, MHEAD+1, PHEAD~, PHEAD+1, PPRINT+1~, PPRINT+2, PPRINT+3, PPRINT+4
>> NFAC	NFAC+6
PAGE	PXRRPAPR+3~, PXRRPAPR+22, PAGE+7, PAGE+8
POV	PXRRPAPR+7~
POV(	PPRINT+20*, PPRINT+26
PTEXT	SHEAD+3~, SHEAD+4*, SHEAD+5, SHEAD+13
PV	PPRINT+1~, PPRINT+19*, PPRINT+20, PPRINT+26
>> PXRRBADT	MHEAD+5
>> PXRRBCDT	MHEAD+8
>> PXRRBFDT	MHEAD+11
>> PXRREADT	MHEAD+6
>> PXRRECDT	MHEAD+9
>> PXRREFDT	MHEAD+12
>> PXRRFAC(	NFAC+6, NFAC+7*
>> PXRRLCNP	PXRRPAPR+25, NHLOC+7
>> PXRRLCSC	MHEAD+4
>> PXRRXTMP	NFAC, NHLOC, NPAT+1, NPAT+3, NPAT+4, PHEAD+4, PPRINT+7, PPRINT+12, PPRINT+13, PPRINT+30 , PPRINT+35, PPRINT+36, PPRINT+47, PPRINT+54, PPRINT+55, PPRINT+69, PPRINT+87, PPRINT+92, PPRINT+93, PPRINT+103 , PPRINT+108, PPRINT+110, PPRINT+111
SD	PXRRPAPR+7~, MHEAD+5, MHEAD+7, MHEAD+8, MHEAD+10, MHEAD+11*, MHEAD+13
SSN	PXRRPAPR+7~, NPAT+3*, NPAT+4
ST	PPRINT+1~
STATUS	PXRRPAPR+7~
STATUS(0	PXRRPAPR+27*
T1	PHEAD+3~, PHEAD+10, PHEAD+11, PHEAD+12, PHEAD+13, PHEAD+14, PHEAD+15, PHEAD+16, PHEAD+17, PHEAD+18* , PHEAD+19, PHEAD+20*, PHEAD+21
TEMP	PXRRPAPR+7~, PHEAD+3~, PHEAD+4, PHEAD+8, PHEAD+10, PHEAD+12, PHEAD+14, PHEAD+16, PHEAD+18, PHEAD+20 , PPRINT+13, PPRINT+19, PPRINT+36, PPRINT+37, PPRINT+38, PPRINT+39, PPRINT+69, PPRINT+77, PPRINT+78, PPRINT+79 , PPRINT+80, PPRINT+81, PPRINT+93, PPRINT+99, PPRINT+111, PPRINT+117
TEXT	SHEAD~, SHEAD+4, SHEAD+18, SHEAD+19
TEXTLEN	SHEAD+3~, SHEAD+5*, SHEAD+7
>> TYPE	PPRINT+39*, PPRINT+43
U	NFAC+3, NFAC+4, NFAC+6, NFAC+7, NHLOC+2, NHLOC+3, NHLOC+4, NHLOC+5, MHEAD+4, PHEAD+8 , PHEAD+10, PHEAD+12, PHEAD+14, PHEAD+16, PHEAD+18, PHEAD+20, PPRINT+19, PPRINT+37, PPRINT+38, PPRINT+39 , PPRINT+77, PPRINT+78, PPRINT+79, PPRINT+80, PPRINT+81, PPRINT+99, PPRINT+117
>> ZTREQ	PXRRPAPR+10*
>> ZTSTOP	NHLOC+11*

Customize PDF page

Package: PCE Patient Care Encounter

Routine: PXRRPAPR

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: