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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BDMPC1A

Package: Diabetes Registry

Routine: BDMPC1A


Information

BDMPC1A ; IHS/CMI/LAB -IHS -CUMULATIVE REPORT ;

Source Information

Source file <BDMPC1A.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 COMMA^%DTC  ^DIR  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Diabetes Registry 1 BDMPC14  

Entry Points

Name Comments DBIA/ICR reference
LOC() ;EP - Return location name from file 4 based on DUZ(2).
TOTAL ;
HDL ;
LIPID ;
ACE ;
EKG ;
CTR(X,Y) ;EP - Center X in a field Y wide.
TRIG ;
P(D,N) ;return %
FAST ;
LDL ;
G75 ;
HEADER ;EP
USR() ;EP -
HEADER1 ;
EXIT ;
C(X,X2,X3) ;
CALC(N,O) ;ENTRY POINT
EDUC ;
ASPIRIN ;

External References

Name Field # of Occurrence
COMMA^%DTC CALC+5, CALC+6, C+3
^DIR EXIT+1, HEADER+2
$$FMTE^XLFDT HEADER1+3, HEADER1+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: ASPIRIN+2
Function Call: WRITE
  • Prompt: !?7,"Aspirin",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: ASPIRIN+3
Function Call: WRITE
  • Prompt: !?7,"Other Anti-platelet Rx",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: ASPIRIN+4
Function Call: WRITE
  • Prompt: !?7,"Both ASA & Other Rx",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: ASPIRIN+5
Function Call: WRITE
  • Prompt: !?7,"None",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: ASPIRIN+6
Function Call: WRITE
  • Prompt: !?7,"Refused",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: ASPIRIN+7
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: ACE+2
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: LIPID+2
Function Call: WRITE
  • Prompt: !?7,"Use in pts with total chol >=240",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,3),$P(V,U,4))
  • Line Location: LIPID+3
Function Call: WRITE
  • Prompt: !?7,"Use in pts with LDL chol > 100",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,5),$P(V,U,6))
  • Line Location: LIPID+4
Function Call: WRITE
  • Prompt: !!?7,"Of the ",$P(V,U,7)," pts taking a lipid agent:"
  • Line Location: LIPID+5
Function Call: WRITE
  • Prompt: !?9,"Statin drug prescribed:",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,7),$P(V,U,8))
  • Line Location: LIPID+6
Function Call: WRITE
  • Prompt: !?9,"Non-statin drug prescribed:",?53,$$C($P(V,U,9)),?65,$$P($P(V,U,7),$P(V,U,9))
  • Line Location: LIPID+7
Function Call: WRITE
  • Prompt: !?9,"Statin AND non-statin prescribed:",?53,$$C($P(V,U,10)),?65,$$P($P(V,U,7),$P(V,U,10))
  • Line Location: LIPID+8
Function Call: WRITE
  • Prompt: !!,$P(V,U),?69,"(% refused)"
  • Line Location: EDUC+2
Function Call: WRITE
  • Prompt: !?7,"Diet Instruction",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3)),?71,"( ",$$P($P(V,U,2),$P(V,U,7))," )"
  • Line Location: EDUC+3
Function Call: WRITE
  • Prompt: !?7,"Exercise Instruction",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4)),?71,"( ",$$P($P(V,U,2),$P(V,U,8))," )"
  • Line Location: EDUC+4
Function Call: WRITE
  • Prompt: !!,$P(V,U),?53,$$C(T),?65,$$P($P(V,U,2),T)
  • Line Location: FAST+4
Function Call: WRITE
  • Prompt: !?7,"Not tested",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: FAST+5
Function Call: WRITE
  • Prompt: !!,$P(V,U),?53,$$C(T),?65,$$P($P(V,U,2),T)
  • Line Location: G75+4
Function Call: WRITE
  • Prompt: !?7,"Not tested",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: G75+5
Function Call: WRITE
  • Prompt: !!,"Total Cholesterol obtained in the past 12 months",?53,$$C(T),?65,$$P($P(V,U,2),T)
  • Line Location: TOTAL+4
Function Call: WRITE
  • Prompt: !?7,"Desirable (<200 mg/dl)",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: TOTAL+5
Function Call: WRITE
  • Prompt: !?7,"Borderline (200-239 mg/dl)",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: TOTAL+6
Function Call: WRITE
  • Prompt: !?7,"High (240 mg/dl or more)",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: TOTAL+7
Function Call: WRITE
  • Prompt: !?7,"Unable to determine result",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: TOTAL+8
Function Call: WRITE
  • Prompt: !?7,"Not tested",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: TOTAL+9
Function Call: WRITE
  • Prompt: !!,"LDL Cholesterol obtained in the past 12 months",?53,$$C(T),?65,$$P($P(V,U,2),T)
  • Line Location: LDL+4
Function Call: WRITE
  • Prompt: !?7,"LDL <100 mg/dl",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: LDL+5
Function Call: WRITE
  • Prompt: !?7,"LDL 100-129 mg/dl",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: LDL+6
Function Call: WRITE
  • Prompt: !?7,"LDL 130-160 mg/dl",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: LDL+7
Function Call: WRITE
  • Prompt: !?7,"LDL >160",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: LDL+8
Function Call: WRITE
  • Prompt: !?7,"Unable to determine result",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,2),$P(V,U,8))
  • Line Location: LDL+9
Function Call: WRITE
  • Prompt: !?7,"Not tested",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: LDL+10
Function Call: WRITE
  • Prompt: !!,"HDL Cholesterol obtained in the past 12 months",?53,$$C(T),?65,$$P($P(V,U,2),T)
  • Line Location: HDL+4
Function Call: WRITE
  • Prompt: !?7,"HDL <35 mg/dl",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: HDL+5
Function Call: WRITE
  • Prompt: !?7,"HDL 35-45 mg/dl",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: HDL+6
Function Call: WRITE
  • Prompt: !?7,"HDL 46-55 mg/dl",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: HDL+7
Function Call: WRITE
  • Prompt: !?7,"HDL >55",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: HDL+8
Function Call: WRITE
  • Prompt: !?7,"Unable to determine result",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,2),$P(V,U,8))
  • Line Location: HDL+9
Function Call: WRITE
  • Prompt: !?7,"Not tested",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: HDL+10
Function Call: WRITE
  • Prompt: !!,"Triglycerides obtained in the past 12 months",?53,$$C(T),?65,$$P($P(V,U,2),T)
  • Line Location: TRIG+4
Function Call: WRITE
  • Prompt: !?7,"TG <150 mg/dl",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: TRIG+5
Function Call: WRITE
  • Prompt: !?7,"TG 150-199 mg/dl",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: TRIG+6
Function Call: WRITE
  • Prompt: !?7,"TG 200-400 mg/dl",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: TRIG+7
Function Call: WRITE
  • Prompt: !?7,"TG >400 mg/dl",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: TRIG+8
Function Call: WRITE
  • Prompt: !?7,"Unable to determine result",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,2),$P(V,U,8))
  • Line Location: TRIG+9
Function Call: WRITE
  • Prompt: !?7,"Not tested",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: TRIG+10
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: EKG+2
Function Call: WRITE
  • Prompt: !?7,"Performed in past 3 years",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: EKG+3
Function Call: WRITE
  • Prompt: !?7,"Performed in past 5 years",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: EKG+4
Function Call: WRITE
  • Prompt: !?7,"Ever performed",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: EKG+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"ZZZZZZZ"
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BDMPG,!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** HEALTH STATUS OF DIABETIC PATIENTS ***",80),!
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,$S($G(BDMDUZ2):BDMDUZ2,1:DUZ(2)),0),U)),!
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(10),U,2)," patients were reviewed"
  • Line Location: HEADER1+8
Function Call: WRITE
  • Prompt: ?55," n",?63,"Percent"
  • Line Location: HEADER1+9
Routine Call
  • DIR
  • Line Location:
    • EXIT+1
    • HEADER+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] HEADER1+5, LOC+1
^VA(200 - [#200] HEADER1+3, USR+1

Label References

Name Line Occurrences
$$C ASPIRIN+3, ASPIRIN+4, ASPIRIN+5, ASPIRIN+6, ASPIRIN+7, LIPID+3, LIPID+4, LIPID+6, LIPID+7, LIPID+8
, EDUC+3, EDUC+4, FAST+4, FAST+5, G75+4, G75+5, TOTAL+4, TOTAL+5, TOTAL+6, TOTAL+7
, TOTAL+8, TOTAL+9, LDL+4, LDL+5, LDL+6, LDL+7, LDL+8, LDL+9, LDL+10, HDL+4
, HDL+5, HDL+6, HDL+7, HDL+8, HDL+9, HDL+10, TRIG+4, TRIG+5, TRIG+6, TRIG+7
, TRIG+8, TRIG+9, TRIG+10, EKG+3, EKG+4, EKG+5
$$CTR HEADER1+4, HEADER1+5, HEADER1+6
$$P ASPIRIN+3, ASPIRIN+4, ASPIRIN+5, ASPIRIN+6, ASPIRIN+7, LIPID+3, LIPID+4, LIPID+6, LIPID+7, LIPID+8
, EDUC+3, EDUC+4, FAST+4, FAST+5, G75+4, G75+5, TOTAL+4, TOTAL+5, TOTAL+6, TOTAL+7
, TOTAL+8, TOTAL+9, LDL+4, LDL+5, LDL+6, LDL+7, LDL+8, LDL+9, LDL+10, HDL+4
, HDL+5, HDL+6, HDL+7, HDL+8, HDL+9, HDL+10, TRIG+4, TRIG+5, TRIG+6, TRIG+7
, TRIG+8, TRIG+9, TRIG+10, EKG+3, EKG+4, EKG+5
HEADER ASPIRIN+1, ACE+1, LIPID+1, EDUC+1, FAST+1, G75+1, TOTAL+1, LDL+1, HDL+1, TRIG+1
, EKG+1
HEADER1 HEADER+1

Naked Globals

Name Field # of Occurrence
^(0 USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BDMADAT HEADER1+6
>> BDMBDAT HEADER1+6
>> BDMCUML(10 HEADER1+8
>> BDMCUML(100 ASPIRIN+2
>> BDMCUML(110 ACE+2
>> BDMCUML(115 LIPID+2
>> BDMCUML(130 EDUC+2
>> BDMCUML(150 EKG+2
>> BDMCUML(180 TOTAL+2
>> BDMCUML(190 LDL+2
>> BDMCUML(195 HDL+2
>> BDMCUML(200 TRIG+2
>> BDMCUML(600 FAST+2
>> BDMCUML(610 G75+2
>> BDMDUZ2 HEADER1+5
>> BDMGUI HEADER1+2
>> BDMIOSL ASPIRIN+1, ACE+1, LIPID+1, EDUC+1, FAST+1, G75+1, TOTAL+1, LDL+1, HDL+1, TRIG+1
, EKG+1
>> BDMPG HEADER+1, HEADER1+1*, HEADER1+3
>> BDMQUIT ASPIRIN+1, ACE+1, LIPID+1, EDUC+1, FAST+1, G75+1, TOTAL+1, LDL+1, HDL+1, TRIG+1
, EKG+1, HEADER+2*
D P~, P+1, P+3
DIR EXIT+1!, HEADER+2!
DIR("A" EXIT+1*
DIR(0 EXIT+1*, HEADER+2*
>> DIRUT EXIT+1*
DT HEADER1+3
>> DTOUT HEADER+2
>> DUOUT EXIT+1
DUZ HEADER1+3, USR+1
DUZ(2 HEADER1+5, LOC+1
IO EXIT+1, HEADER+2
IO(0 EXIT+1, HEADER+2
IOF HEADER1+1
IOM CTR+1
IOST EXIT+1, HEADER+2
N CALC~, CALC+3, CALC+5*, CALC+7, P~, P+2, P+3
O CALC~, CALC+3, CALC+6*, CALC+7
>> T FAST+3*, FAST+4, G75+3*, G75+4, TOTAL+3*, TOTAL+4, LDL+3*, LDL+4, HDL+3*, HDL+4
, TRIG+3*, TRIG+4
U ASPIRIN+2, ASPIRIN+3, ASPIRIN+4, ASPIRIN+5, ASPIRIN+6, ASPIRIN+7, ACE+2, LIPID+2, LIPID+3, LIPID+4
, LIPID+5, LIPID+6, LIPID+7, LIPID+8, EDUC+2, EDUC+3, EDUC+4, FAST+3, FAST+4, FAST+5
, G75+3, G75+4, G75+5, TOTAL+3, TOTAL+4, TOTAL+5, TOTAL+6, TOTAL+7, TOTAL+8, TOTAL+9
, LDL+3, LDL+4, LDL+5, LDL+6, LDL+7, LDL+8, LDL+9, LDL+10, HDL+3, HDL+4
, HDL+5, HDL+6, HDL+7, HDL+8, HDL+9, HDL+10, TRIG+3, TRIG+4, TRIG+5, TRIG+6
, TRIG+7, TRIG+8, TRIG+9, TRIG+10, EKG+2, EKG+3, EKG+4, EKG+5, HEADER1+3, HEADER1+5
, HEADER1+8, USR+1, LOC+1
>> V ASPIRIN+2*, ASPIRIN+3, ASPIRIN+4, ASPIRIN+5, ASPIRIN+6, ASPIRIN+7, ACE+2*, LIPID+2*, LIPID+3, LIPID+4
, LIPID+5, LIPID+6, LIPID+7, LIPID+8, EDUC+2*, EDUC+3, EDUC+4, FAST+2*, FAST+3, FAST+4
, FAST+5, G75+2*, G75+3, G75+4, G75+5, TOTAL+2*, TOTAL+3, TOTAL+4, TOTAL+5, TOTAL+6
, TOTAL+7, TOTAL+8, TOTAL+9, LDL+2*, LDL+3, LDL+4, LDL+5, LDL+6, LDL+7, LDL+8
, LDL+9, LDL+10, HDL+2*, HDL+3, HDL+4, HDL+5, HDL+6, HDL+7, HDL+8, HDL+9
, HDL+10, TRIG+2*, TRIG+3, TRIG+4, TRIG+5, TRIG+6, TRIG+7, TRIG+8, TRIG+9, TRIG+10
, EKG+2*, EKG+3, EKG+4, EKG+5
X CALC+4~, CALC+5*, CALC+6*, P+3~*, P+4, C~, C+4, HEADER1+6*, CTR~, CTR+1
X2 CALC+4~, CALC+5*, CALC+6*, C~, C+1*
X3 CALC+4~, CALC+5*, CALC+6*, C~, C+2*
Y HEADER+2, CTR~, CTR+1
Z CALC+2~, CALC+7*, CALC+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All