Routine: PXRRPCR3

Package	Total	Call Graph
PCE Patient Care Encounter	3	CLEAN^PXRRPCEQ (DEMOG,PREVMD,QLM,UTIL)^PXRRPCR SET^PXRRPCR4
VA Fileman	1	^DIR

Package	Total	Caller Graph
PCE Patient Care Encounter	1	PXRRPCE

Entry Points

External References

Name	Field # of Occurrence
^DIR	HOLD
CLEAN^PXRRPCEQ	QT
DEMOG^PXRRPCR	DEMOGR
PREVMD^PXRRPCR	DEMOGR+22
QLM^PXRRPCR	DEMOGR+30
UTIL^PXRRPCR	QLM+23
SET^PXRRPCR4	DEMOGR

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"o There were no encounters recorded for this clinic within the",!?7,"selected date range." Line Location: DEMOGR+1
Function Call: WRITE	Prompt: ?2,"Number of patient encounters",?55,$P($J(PXRRRTVS,5,1),".") Line Location: DEMOGR+2
Function Call: WRITE	Prompt: ?65,"-",?74,"-" Line Location: DEMOGR+3
Function Call: WRITE	Prompt: !?2,"Number of clinic sessions",?55,$P($J(PXRRSESS,5,1),".") Line Location: DEMOGR+4
Function Call: WRITE	Prompt: ?65,"-",?74,"-" Line Location: DEMOGR+5
Function Call: WRITE	Prompt: !?2,"Number of patients per clinic session",?55,$J(PXRRPTSS,5,1) Line Location: DEMOGR+6
Function Call: WRITE	Prompt: ?65,"-",?74,"-" Line Location: DEMOGR+7
Function Call: WRITE	Prompt: !?2,"Median patient age in years",?55,$P($J(PXRRAG,5,1),".") Line Location: DEMOGR+8
Function Call: WRITE	Prompt: ?65,"-",?74,"-" Line Location: DEMOGR+9
Function Call: WRITE	Prompt: !?2,"Patients with:",?17,"Coronary Artery Disease",?55,$P($J(PXRRCAD,5,1),".") Line Location: DEMOGR+10
Function Call: WRITE	Prompt: ?64,$J(PXRR("CAD"),5,1),?73,$J(^TMP($J,"MEAN",5),5,1) Line Location: DEMOGR+11
Function Call: WRITE	Prompt: !?17,"Diabetes ",?55,$P($J(PXRRDM,5,1),".") Line Location: DEMOGR+12
Function Call: WRITE	Prompt: ?64,$J(PXRR("DM"),5,1),?73,$J(^TMP($J,"MEAN",7),5,1) Line Location: DEMOGR+13
Function Call: WRITE	Prompt: !?17,"Hypertension",?55,$P($J(PXRRHTN,5,1),".") Line Location: DEMOGR+14
Function Call: WRITE	Prompt: ?64,$J(PXRR("HTN"),5,1),?73,$J(^TMP($J,"MEAN",9),5,1) Line Location: DEMOGR+15
Function Call: WRITE	Prompt: !?17,"Hyperlipidemia",?55,$P($J(PXRRHLIP,5,1),".") Line Location: DEMOGR+16
Function Call: WRITE	Prompt: ?64,$J(PXRR("HLIP"),5,1),?73,$J(^TMP($J,"MEAN",25),5,1) Line Location: DEMOGR+17
Function Call: WRITE	Prompt: !?17,"Diabetes and Hypertension",?55,$P($J(PXRRHTDM,5,1),".") Line Location: DEMOGR+18
Function Call: WRITE	Prompt: ?64,$J(PXRR("HTDM"),5,1),?73,$J(^TMP($J,"MEAN",11),5,1) Line Location: DEMOGR+19
Function Call: WRITE	Prompt: ! Line Location: DEMOGR+20
Function Call: WRITE	Prompt: "_" Line Location: DEMOGR+20
Function Call: WRITE	Prompt: !?2,"Patients who smoke.",?55,$P($J(PXRRSMYR,5,1),"."),?64,$J(PXRR("SMOKE"),5,1) Line Location: DEMOGR+23
Function Call: WRITE	Prompt: !?2,"Females >50 who had a mammogram in the last year",?55,$S(PXRR("MAMGRM")="N/A":"N/A",1:$P($J(PXRRMMYR,5,1),".")) Line Location: DEMOGR+25
Function Call: WRITE	Prompt: ?64,$S(PXRR("MAMGRM")="N/A":"N/A",1:$J(PXRR("MAMGRM"),5,1)) Line Location: DEMOGR+26
Function Call: WRITE	Prompt: ?73,$S(PXRR("MAMGRM")="N/A":"N/A",1:$J(^TMP($J,"MEAN",23),5,1)) Line Location: DEMOGR+27
Function Call: WRITE	Prompt: !?4,"(There were ",PXRRF50," females >50 years of age)." Line Location: DEMOGR+28
Function Call: WRITE	Prompt: ! Line Location: DEMOGR+30
Function Call: WRITE	Prompt: !?2,"Average HBA1C of your patients with Diabetes",?64,$S(+PXRRHBA1:$J(PXRRHBA1,5,1),1:PXRRHBA1) Line Location: QLM+0
Function Call: WRITE	Prompt: ?73,$S(+^TMP($J,"MEAN",12):$J(^TMP($J,"MEAN",12),5,1),1:^TMP($J,"MEAN",12)) Line Location: QLM+1
Function Call: WRITE	Prompt: !?2,"Patients with HBA1C> 7%",?64,$P($J(PXRRHBG7,5,1),".") Line Location: QLM+2
Function Call: WRITE	Prompt: ?73,$J(^TMP($J,"MEAN",30),5,1) Line Location: QLM+3
Function Call: WRITE	Prompt: !?2,"Patients w/ Coronary Artery Disease who smoke",?64,$P($J(PXRRCDSM,5,1),".") Line Location: QLM+4
Function Call: WRITE	Prompt: ?73,$J(^TMP($J,"MEAN",13),5,1) Line Location: QLM+5
Function Call: WRITE	Prompt: !?2,"Ave. LDL for patients with Coronary Artery Disease",?64,$S(+PXRRLDL:$J(PXRRLDL,5,1),1:PXRRLDL) Line Location: QLM+6
Function Call: WRITE	Prompt: ?73,$S(^TMP($J,"MEAN",14)="N/A":"N/A",1:$J(^TMP($J,"MEAN",14),5,1)) Line Location: QLM+7
Function Call: WRITE	Prompt: !?5,"(",PXRRNOLD," of ",PXRRCDSX," pats. with CAD had no LDL results.)" Line Location: QLM+8
Function Call: WRITE	Prompt: !?2,"Number of patients with:",?27,"Glucose >240",?64,$P($J(PXRRGL,5,1),".") Line Location: QLM+9
Function Call: WRITE	Prompt: ?73,$J(^TMP($J,"MEAN",31),5,1) Line Location: QLM+10
Function Call: WRITE	Prompt: !?27,"Cholesterol >200",?64,$P($J(PXRRCHOL,5,1),".") Line Location: QLM+11
Function Call: WRITE	Prompt: ?73,$J(^TMP($J,"MEAN",32),5,1) Line Location: QLM+12
Function Call: WRITE	Prompt: !?27,"Either a Systolic bp >160 or",!?36,"Diastolic bp > 90" Line Location: QLM+13
Function Call: WRITE	Prompt: ?64,$P($J(PXRRBPT,5,1),"."),?73,$J(^TMP($J,"MEAN",36),5,1) Line Location: QLM+14
Function Call: WRITE	Prompt: !?2,"Unscheduled encounters per patient.",?64,$J(PXRR("SXUN"),5,1) Line Location: QLM+15
Function Call: WRITE	Prompt: ?73,$J(^TMP($J,"MEAN",16),5,1) Line Location: QLM+16
Function Call: WRITE	Prompt: !?2,"Emergency Room encounters per patient.",?64,$J(PXRR("SXER"),5,1) Line Location: QLM+17
Function Call: WRITE	Prompt: ?73,$J(^TMP($J,"MEAN",17),5,1) Line Location: QLM+18
Function Call: WRITE	Prompt: !?2,"Hospitalizations per patient.",?64,$J(PXRR("SXHP"),5,1) Line Location: QLM+19
Function Call: WRITE	Prompt: ?73,$J(^TMP($J,"MEAN",18),5,1) Line Location: QLM+20
Function Call: WRITE	Prompt: ! Line Location: QLM+22
Function Call: WRITE	Prompt: "_" Line Location: QLM+22
Function Call: WRITE	Prompt: ! Line Location: QLM+23
Function Call: WRITE	Prompt: !?2,"Number of male patients",?64,$P($J(PXRRMPAT,5,1),".") Line Location: QLM+24
Function Call: WRITE	Prompt: ?74,"-" Line Location: QLM+25
Function Call: WRITE	Prompt: !?2,"Number of female patients",?64,$P($J(PXRRFPAT,5,1),".") Line Location: QLM+26
Function Call: WRITE	Prompt: ?74,"-" Line Location: QLM+27
Function Call: WRITE	Prompt: !?2,"Average number of encounters per patient",?64,$J(PXRRUTVS,5,1) Line Location: QLM+28
Function Call: WRITE	Prompt: ?73,$J(^TMP($J,"MEAN",21),5,1) Line Location: QLM+29
Function Call: WRITE	Prompt: !?2,"Average number of active outpt. medications per patient" Line Location: QLM+30
Function Call: WRITE	Prompt: ?64,$J(PXRRPSUT,5,1) Line Location: QLM+31
Function Call: WRITE	Prompt: ?73,$J(^TMP($J,"MEAN",34),5,1) Line Location: QLM+32
Function Call: WRITE	Prompt: !?2,"Average pharmacy cost per patient",?61,"$",?64,$J(PXRRCOST,5,1) Line Location: QLM+33
Function Call: WRITE	Prompt: ?73,$J(^TMP($J,"MEAN",35),5,1) Line Location: QLM+34
Routine Call	DIR Line Location: HOLD

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	HOLD!
DIR(0	HOLD*
IOF	HOLD
IOM	DEMOGR+20, QLM+22
IOSL	HOLD
IOST	HOLD
>> L	DEMOGR+20, QLM+22
>> PXRR("CAD"	DEMOGR+11
>> PXRR("DM"	DEMOGR+13
>> PXRR("HLIP"	DEMOGR+17
>> PXRR("HTDM"	DEMOGR+19
>> PXRR("HTN"	DEMOGR+15
>> PXRR("MAMGRM"	DEMOGR+25, DEMOGR+26, DEMOGR+27
>> PXRR("SMOKE"	DEMOGR+23
>> PXRR("SXER"	QLM+17
>> PXRR("SXHP"	QLM+19
>> PXRR("SXUN"	QLM+15
>> PXRRAG	DEMOGR+8
>> PXRRBPT	QLM+14
>> PXRRCAD	DEMOGR+10
>> PXRRCDSM	QLM+4
>> PXRRCDSX	QLM+8
>> PXRRCHOL	QLM+11
>> PXRRCLIN	DEMOGR+1
>> PXRRCOST	QLM+33
>> PXRRDM	DEMOGR+12
>> PXRRF50	DEMOGR+28
>> PXRRFPAT	QLM+26
>> PXRRGL	QLM+9
>> PXRRHBA1	QLM
>> PXRRHBG7	QLM+2
>> PXRRHLIP	DEMOGR+16
>> PXRRHTDM	DEMOGR+18
>> PXRRHTN	DEMOGR+14
>> PXRRLDL	QLM+6
>> PXRRMMYR	DEMOGR+25
>> PXRRMPAT	QLM+24
>> PXRRNOLD	QLM+8
>> PXRRPSUT	QLM+31
>> PXRRPTSS	DEMOGR+6
>> PXRRRTVS	DEMOGR+2
>> PXRRSESS	DEMOGR+4
>> PXRRSMYR	DEMOGR+23
>> PXRRUTVS	QLM+28
>> PXRS	DEMOGR, DEMOGR+21, DEMOGR+22, DEMOGR+24, DEMOGR+29, QLM+21, QLM+35, HOLD
>> Y	HOLD

Customize PDF page

Package: PCE Patient Care Encounter

Routine: PXRRPCR3

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
HOLD	DEMOGR+21, DEMOGR+22, DEMOGR+24, DEMOGR+29, QLM+21, QLM+35
QT	DEMOGR+1, DEMOGR+21, DEMOGR+22, DEMOGR+24, DEMOGR+29, QLM+21, QLM+35