Routine: PXRRFDP

Package	Total	Call Graph
PCE Patient Care Encounter	4	EXIT^PXRRFDD (FACNE,HDR,OSCAT,PAGE,PECLASS)^PXRRGPRT (EOR,EXIT)^PXRRGUT $$ABBRV^PXRRPECU
Kernel	3	$$S^%ZTLOAD $$FMTE^XLFDT $$MAX^XLFMTH

Package	Total	Caller Graph
PCE Patient Care Encounter	1	PXRRFDSD

Entry Points

Name	Comments	DBIA/ICR reference
EXIT	;
DHEAD(NEWPAGE)	;
NTOTDC
NPRV	;
NFAC
MAXP
NICD9
NLOC	;
NTOTICD
NINFO
DIAGCAT	;
HEAD(NEWPAGE)	;
PRINT	;
END	;
DCHEAD(NEWPAGE)	;
NDC
NVACODE	;

External References

Name	Field # of Occurrence
$$S^%ZTLOAD	NFAC+9
EXIT^PXRRFDD	NFAC+9
FACNE^PXRRGPRT	END+2
HDR^PXRRGPRT	PRINT+15
OSCAT^PXRRGPRT	PRINT+56
PAGE^PXRRGPRT	DHEAD+1, DHEAD+2, DCHEAD+1, DCHEAD+2, HEAD+2, HEAD+3
PECLASS^PXRRGPRT	PRINT+58
EOR^PXRRGUT	EXIT+2
EXIT^PXRRGUT	EXIT+1
$$ABBRV^PXRRPECU	NLOC+9, NLOC+14
$$FMTE^XLFDT	PRINT+18, PRINT+19, PRINT+33, PRINT+37, PRINT+41
$$MAX^XLFMTH	NLOC+28, DHEAD+5, DCHEAD+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Criteria for Frequency of Diagnoses Report" Line Location: PRINT+16
Function Call: WRITE	Prompt: !,?INDENT,"Encounter diagnoses:",?C1S,$P(PXRRFDDC,U,2) Line Location: PRINT+17
Function Call: WRITE	Prompt: !,?INDENT,"Encounter date range:",?C1S,BD," through ",ED Line Location: PRINT+20
Function Call: WRITE	Prompt: !,?INDENT,"Selected encounters:",?C1S,"ALL" Line Location: PRINT+22
Function Call: WRITE	Prompt: !,?INDENT,"Selected Providers:",?C1S,$P(PXRRPRSC,U,2) Line Location: PRINT+24
Function Call: WRITE	Prompt: !,?INDENT,$P(PXRRLCSC,U,2) Line Location: PRINT+27
Function Call: WRITE	Prompt: !,?INDENT,"Encounter type:",?C1S,PXRRETYP Line Location: PRINT+28
Function Call: WRITE	Prompt: !,?INDENT,"Patient age range:",?C1S,PXRRMINA," to ",PXRRMAXA Line Location: PRINT+32
Function Call: WRITE	Prompt: !,?INDENT,"Patient date of birth:",?C1S,BD," through ",ED Line Location: PRINT+34
Function Call: WRITE	Prompt: !,?INDENT,"Patient age range:",?C1S,PXRRMINA," or more" Line Location: PRINT+36
Function Call: WRITE	Prompt: !,?INDENT,"Patient date of birth:",?C1S,ED," or before" Line Location: PRINT+38
Function Call: WRITE	Prompt: !,?INDENT,"Patient age range:",?C1S,"Up to ",PXRRMAXA Line Location: PRINT+40
Function Call: WRITE	Prompt: !,?INDENT,"Patient date of birth:",?C1S,BD," through ",ED Line Location: PRINT+42
Function Call: WRITE	Prompt: !,?INDENT,"Patient age range:",?C1S,"ALL" Line Location: PRINT+43
Function Call: WRITE	Prompt: !?INDENT,"Patient ",RACE,":",?C1S,$P(PXRRRACE(1),U,2) Line Location: PRINT+49
Function Call: WRITE	Prompt: !,?C1S,$P(PXRRRACE(IC),U,2) Line Location: PRINT+50
Function Call: WRITE	Prompt: !?INDENT,"Patient race(s):",?C1S,"ALL" Line Location: PRINT+51
Function Call: WRITE	Prompt: !?INDENT,"Patient sex:",?C1S,$P(PXRRSEX,U,2) Line Location: PRINT+53
Function Call: WRITE	Prompt: !?INDENT,"Patient sex:",?C1S,"BOTH" Line Location: PRINT+54
Function Call: WRITE	Prompt: !!,?INDENT,"Maximum number of diagnoses to be displayed: ",PXRRDMAX Line Location: MAXP+0
Function Call: WRITE	Prompt: !!,?INDENT,"Total number of Encounters meeting the selection criteria:",?C1S,$J(ETOT,LEN) Line Location: NLOC+29
Function Call: WRITE	Prompt: !,?INDENT,TEMP,?C1S,$J(DTOT,LEN) Line Location: NLOC+30
Function Call: WRITE	Prompt: !,?INDENT,"Diagnoses/Encounter ratio:",?C1S,$J(RATIO,LEN,2) Line Location: NLOC+32
Function Call: WRITE	Prompt: !,?INDENT,$J(NUM,5),".",?C1S,$P(^ICD9(ICD9IEN,0),U,1),?C2S,$P(^ICD9(ICD9IEN,0),U,3),?C3S,TEMP Line Location: NICD9+9
Function Call: WRITE	Prompt: !!,"CANNOT CONTINUE, File 80.3 Major Diagnostic Category is corrupted!" Line Location: NDC+13
Function Call: WRITE	Prompt: !,"^ICM(",DCIEN,",0) is missing." Line Location: NDC+14
Function Call: WRITE	Prompt: !,"Please contact customer service for help." Line Location: NDC+15
Function Call: WRITE	Prompt: !,?INDENT,$J(NUM,5),".",?C1S,$P(^ICM(DCIEN,0),U,1),?C2S,TEMP Line Location: NDC+16
Function Call: WRITE	Prompt: !,?INDENT,$J(NUM,5),".",?C1S,"Unknown",?C2S,TEMP Line Location: NDC+17
Function Call: WRITE	Prompt: !!,?INDENT,PXRRDMAX," Most Frequent ICD Diagnoses:" Line Location: DHEAD+9
Function Call: WRITE	Prompt: !,?C1HS,"Code",?C2HS,"Description",?C3HS,"Frequency" Line Location: DHEAD+10
Function Call: WRITE	Prompt: !,?C1S,"------",?C2S,"------------------------------",?C3HS,"---------" Line Location: DHEAD+11
Function Call: WRITE	Prompt: !!,?INDENT,PXRRDMAX," Most Frequent Diagnostic Categories:" Line Location: DCHEAD+9
Function Call: WRITE	Prompt: !,?C1HS,"Diagnostic Category",?C2HS,"Frequency" Line Location: DCHEAD+10
Function Call: WRITE	Prompt: !,?C1S,"------------------------------",?C2HS,"---------" Line Location: DCHEAD+11
Function Call: WRITE	Prompt: !!,"___________________________________________________________________" Line Location: HEAD+6
Function Call: WRITE	Prompt: !,"Facility: ",FACPNAME Line Location: HEAD+7
Function Call: WRITE	Prompt: !,PLOCNAM,$P(HLOC,U,1)_" (",$P(HLOC,U,3)_")" Line Location: HEAD+8
Function Call: WRITE	Prompt: !,$E(TEMP,1,CMAX) Line Location: HEAD+13
Function Call: WRITE	Prompt: !," ",$E(TEMP,CMAX+1,LEN) Line Location: HEAD+14
Function Call: WRITE	Prompt: !,TEMP Line Location: HEAD+15
Function Call: WRITE	Prompt: !,"Person Class (Occupation+Specialty+Subspecialty): " Line Location: HEAD+17
Function Call: WRITE	Prompt: !,?INDENT,$E(PCLASS,1,CMAX) Line Location: HEAD+20
Function Call: WRITE	Prompt: !,?(INDENT+1),$E(PCLASS,CMAX+1,LEN) Line Location: HEAD+21
Function Call: WRITE	Prompt: !,?INDENT,PCLASS Line Location: HEAD+22

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ICD9 - [#80]	NICD9+9
^ICM - [#80.3]	NDC+12, NDC+16
^XTMP(	NFAC+1, NINFO, NPRV+1, NVACODE+1, NLOC+1, NLOC+4, NLOC+24, NLOC+26, NTOTICD, NICD9 , NTOTDC, NDC

Label References

Name	Line Occurrences
DCHEAD	NDC+6
DHEAD	NICD9+6
DIAGCAT	NTOTICD+1
END	NFAC+2
EXIT	NLOC+18, NLOC+21, NICD9+7, NDC+7, NDC+12
HEAD	NLOC+17, NLOC+20
MAXP	PRINT+21
NDC	NDC+18
NFAC	NINFO+1
NICD9	NICD9+10
NINFO	NPRV+2
NLOC	NTOTDC+1, NDC+21
NPRV	NVACODE+2
NTOTDC	NDC+1
NTOTICD	NICD9+1
NVACODE	NLOC+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS	PRINT+1~, PRINT+25, PRINT+26
BD	PRINT+1~, PRINT+18, PRINT+20, PRINT+33, PRINT+34, PRINT+41*, PRINT+42
BMARG	PRINT+1~, PRINT+11*, NLOC+20, NICD9+4, NDC+4, DHEAD+2, DCHEAD+2, HEAD+3
BYLOC	PRINT+3~, NINFO+3, NINFO+4, HEAD+8
BYPC	PRINT+3~, NINFO+5, NINFO+6, NLOC+13, HEAD+16
BYPRV	PRINT+3~, NINFO+7, NINFO+8, NLOC+7, HEAD+9
C1E	PRINT+1~, DIAGCAT+1*, DCHEAD+6
C1HS	PRINT+1~, NLOC+35, DIAGCAT+2, DHEAD+10, DCHEAD+10
C1S	PRINT+1~, PRINT+12, PRINT+17, PRINT+20, PRINT+22, PRINT+24, PRINT+28, PRINT+32, PRINT+34, PRINT+36 , PRINT+38, PRINT+40, PRINT+42, PRINT+43, PRINT+49, PRINT+50, PRINT+51, PRINT+53, PRINT+54, NLOC+19 , NLOC+29, NLOC+30, NLOC+32, NLOC+34, NICD9+9, DIAGCAT+1, NDC+16, NDC+17, DHEAD+11, DCHEAD+11
C2E	PRINT+1~, NLOC+34, NDC+8, DHEAD+6, DCHEAD+8
C2HS	PRINT+1~, NLOC+35, DHEAD+10, DCHEAD+7, DCHEAD+10, DCHEAD+11
C2S	PRINT+1~, NLOC+34, NICD9+9, NDC+8, NDC+16, NDC+17, DHEAD+11
C3E	PRINT+1~, NICD9+8, DHEAD+8*
C3HS	PRINT+1~, DHEAD+7*, DHEAD+10, DHEAD+11
C3S	PRINT+1~, NICD9+8*, NICD9+9
CMAX	PRINT+1~, MAXP+2*, HEAD+12, HEAD+13, HEAD+14, HEAD+19, HEAD+20, HEAD+21
DCIEN	PRINT+3~, NTOTDC+3, NDC, NDC+1, NDC+12, NDC+14, NDC+16
DONE	PRINT+3~, PRINT+14*, NLOC+18, NLOC+21, NICD9+7, NDC+7, DHEAD+3, DCHEAD+3, HEAD+4
DT	PRINT+31, PRINT+39, PRINT+41
DTOT	PRINT+3~, NLOC+26, NLOC+27, NLOC+28, NLOC+30, NLOC+31
ED	PRINT+3~, PRINT+19, PRINT+20, PRINT+33, PRINT+34, PRINT+37, PRINT+38, PRINT+41, PRINT+42
ETOT	PRINT+3~, NLOC+24, NLOC+25, NLOC+28, NLOC+29, NLOC+31
FACILITY	PRINT+4~, MAXP+8, NFAC+1, NFAC+2, NFAC+4, NFAC+6, NPRV+1, NVACODE+1, NLOC+1, NLOC+4
FACPNAME	PRINT+4~, NFAC+6*, HEAD+7
FOUND	PRINT+3~
HEAD	PRINT+2~, NLOC+16, NICD9+3, NDC+3, DHEAD+4, DHEAD+12, DCHEAD+4, DCHEAD+12, HEAD+5, HEAD+23
HLOC	PRINT+3~, NVACODE+4, NLOC+1, NLOC+2, NLOC+4, HEAD+8
IC	PRINT+3~, PRINT+4~, PRINT+50, NFAC+4, NFAC+5
ICD9IEN	PRINT+3~, NTOTICD+3, NICD9, NICD9+1, NICD9+9
INDENT	PRINT+1~, PRINT+12*, PRINT+17, PRINT+20, PRINT+22, PRINT+24, PRINT+27, PRINT+28, PRINT+32, PRINT+34 , PRINT+36, PRINT+38, PRINT+40, PRINT+42, PRINT+43, PRINT+49, PRINT+51, PRINT+53, PRINT+54, PRINT+56 , PRINT+58, MAXP, NLOC+19, NLOC+29, NLOC+30, NLOC+32, NLOC+34, NLOC+35, NICD9+9, DIAGCAT+1 , NDC+16, NDC+17, END+2, DHEAD+9, DCHEAD+9, HEAD+18, HEAD+20, HEAD+21, HEAD+22
INFOTYPE	PRINT+4~, NFAC, NFAC+1, NINFO, NINFO+1, NINFO+3, NINFO+5, NINFO+7, NPRV+1, NVACODE+1 , NLOC+1, NLOC+4
IO	PRINT+10
IOSL	NLOC+20, NICD9+4, NDC+4, DHEAD+2, DCHEAD+2, HEAD+3
LEN	PRINT+2~, NLOC+28, NLOC+29, NLOC+30, NLOC+32, DHEAD+5, DHEAD+6, DCHEAD+5, DCHEAD+6, HEAD+1~ , HEAD+11, HEAD+12, HEAD+14, HEAD+18*, HEAD+19, HEAD+21
LOCPNAM	PRINT+4~
MID	PRINT+1~, DHEAD+6, DHEAD+7, DHEAD+8, DCHEAD+6, DCHEAD+7, DCHEAD+8
NEWPAGE	PRINT+4~, NICD9+4, NICD9+5, NICD9+6, NDC+4, NDC+5, NDC+6, DHEAD~, DHEAD+1, DCHEAD~ , DCHEAD+1, HEAD~, HEAD+2
>> NFAC	NFAC+4
>> NRACE	PRINT+48, PRINT+50
NUM	PRINT+2~, NLOC+37, NICD9+2, NICD9+3, NICD9+9, NICD9+10, DIAGCAT+4, NDC+2, NDC+3, NDC+16 , NDC+17, NDC+18
PAGE	PRINT+2~, PRINT+12*, PRINT+15
PCLASS	PRINT+4~, NLOC+9, NLOC+10, NLOC+14*, HEAD+10, HEAD+18, HEAD+20, HEAD+21, HEAD+22
>> PLOCNAM	MAXP+5, MAXP+6, HEAD+8
PRV	PRINT+4~, NINFO+10, NPRV+1, NPRV+2, NVACODE+1, NLOC+1, NLOC+4, NLOC+8, HEAD+10
>> PXRRBDT	PRINT+18
>> PXRRCS	PRINT+25
>> PXRRDMAX	MAXP, NICD9+10, NDC+18, DHEAD+9, DCHEAD+9
>> PXRRDOB	PRINT+30
>> PXRRDOBE	PRINT+31, PRINT+33, PRINT+37, PRINT+39
>> PXRRDOBS	PRINT+31, PRINT+33, PRINT+35, PRINT+41
>> PXRRECAT	PRINT+21
>> PXRREDT	PRINT+19
>> PXRRETYP	PRINT+28
>> PXRRFAC(	NFAC+4, NFAC+5*
>> PXRRFACN(	NFAC+6
>> PXRRFDDC	PRINT+17, NLOC+22
>> PXRRLCSC	PRINT+27, MAXP+4, MAXP+5, MAXP+6
>> PXRRMAXA	PRINT+32, PRINT+40
>> PXRRMINA	PRINT+32, PRINT+36
>> PXRRPRSC	PRINT+24, PRINT+58
>> PXRRRACE	PRINT+45
>> PXRRRACE(	PRINT+50
>> PXRRRACE(1	PRINT+49
>> PXRRSCAT	PRINT+56
>> PXRRSEX	PRINT+53
>> PXRRXTMP	NFAC+1, NINFO, NPRV+1, NVACODE+1, NLOC+1, NLOC+4, NLOC+24, NLOC+26, NTOTICD, NICD9 , NTOTDC, NDC
RACE	PRINT+46~, PRINT+47, PRINT+48, PRINT+49
RATIO	PRINT+5~, NLOC+31*, NLOC+32, DHEAD+4, DCHEAD+4
STOIND	PRINT+5~, NLOC+4*, NLOC+24, NLOC+26, NTOTICD, NICD9, NTOTDC, NDC
TEMP	PRINT+5~, NLOC+8, NLOC+9, NLOC+22, NLOC+23, NLOC+30, NTOTICD+2, NICD9+8, NICD9+9, NTOTDC+2* , NDC+8, NDC+16, NDC+17, DHEAD+5, DHEAD+8, DCHEAD+5, DCHEAD+8, HEAD+1~, HEAD+10*, HEAD+11 , HEAD+13, HEAD+14, HEAD+15
TOTAL	PRINT+5~, NLOC+36, NTOTICD, NTOTICD+1, NTOTICD+2, NICD9, DIAGCAT+3, NTOTDC, NTOTDC+1, NTOTDC+2 , NDC
U	PRINT+17, PRINT+24, PRINT+27, PRINT+49, PRINT+50, PRINT+53, PRINT+58, NFAC+4, NFAC+5, NFAC+6 , NLOC+8, NLOC+22, NICD9+9, NDC+16, HEAD+8, HEAD+10
VACODE	PRINT+5~, NPRV+4, NVACODE+1, NVACODE+2, NLOC+1, NLOC+4, NLOC+14
>> ZTREQ	PRINT+8*
>> ZTSTOP	NFAC+9*

Customize PDF page

Package: PCE Patient Care Encounter

Routine: PXRRFDP

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: