Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PXRRPCR3

Package: PCE Patient Care Encounter

Routine: PXRRPCR3


Information

PXRRPCR3 ;HIN/MjK - Clinic Specfic Workload Reports - Demographics ;6/7/96

Source Information

Source file <PXRRPCR3.m>

Call Graph

Call Graph

Call Graph Total: 4

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
PCE Patient Care Encounter 1 PXRRPCE  

Entry Points

Name Comments DBIA/ICR reference
DEMOGR
QLM
QT
HOLD

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J DEMOGR+1, DEMOGR+11, DEMOGR+13, DEMOGR+15, DEMOGR+17, DEMOGR+19, DEMOGR+24, DEMOGR+27, QLM+1, QLM+3
, QLM+5, QLM+7, QLM+10, QLM+12, QLM+14, QLM+16, QLM+18, QLM+20, QLM+29, QLM+32
, QLM+34

Label References

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

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All