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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BDMDF1P

Package: Diabetes Registry

Routine: BDMDF1P


Information

BDMDF1P ; IHS/CMI/LAB - 2018 DIABETES AUDIT PRINT 15 Dec 2016 3:05 PM ;

Source Information

Source file <BDMDF1P.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Diabetes Registry 6 ($$LOCN,$$LOCT)^BDMDF10  CUML^BDMDF14  SDPI^BDMDF1Q  SDPI16^BDMDF1U  QUALCHK^BDMDF1V  $$DATE^BDMS9B1  
Kernel 2 $$FMTE^XLFDT  ($$REPEAT,$$STRIP)^XLFSTR  
IHS Patient 1 $$AGE^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
CUML ;
CTR(X,Y) ;EP - Center X in a field Y wide.
PAGE ;
ACPCOQ() ;-- return none if no UACR, UPCR, Quant
DONE ;
QUANCHK() ;--check quantitative
N1
I(I) ;
ACPCRES() ;-- return result from UACR UPCR

External References

Name Field # of Occurrence
$$AGE^AUPNPAT BDMDF1P+155, BDMDF1P+158
$$LOCN^BDMDF10 N1
$$LOCT^BDMDF10 N1+1
CUML^BDMDF14 CUML+1
SDPI^BDMDF1Q CUML+2
SDPI16^BDMDF1U CUML+3
QUALCHK^BDMDF1V CUML+4
$$DATE^BDMS9B1 BDMDF1P+110, BDMDF1P+133
^DIR N1+2, PAGE+2
$$VAL^XBDIQ1 BDMDF1P+133
$$FMTE^XLFDT BDMDF1P+13, BDMDF1P+14, PAGE+7, PAGE+8
$$REPEAT^XLFSTR PAGE+11
$$STRIP^XLFSTR BDMDF1P+46

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"ZZZZZZZ",!
  • Line Location: BDMDF1P+10
Function Call: WRITE
  • Prompt: !!
  • Condition for execution: $G(BDMGUI)
  • Line Location: BDMDF1P+13
Function Call: WRITE
  • Prompt: $$CTR("ASSESSMENT OF DIABETES CARE, 2018 DATE AUDIT RUN: "_$$FMTE^XLFDT(DT)_" Page: "_BDMPG,80)
  • Line Location: BDMDF1P+13
Function Call: WRITE
  • Prompt: !,$$I(26.5),!,$$I(26.6)
  • Line Location: BDMDF1P+23
Function Call: WRITE
  • Prompt: $S($P(%,U,1)=3:"2 No",1:"1 Yes")
  • Line Location: BDMDF1P+31
Function Call: WRITE
  • Prompt: $$I(28)
  • Line Location: BDMDF1P+35
Function Call: WRITE
  • Prompt: Y," ",$S(Y=1:"Yes",1:"No")," ",$P($$I(31),U,3)
  • Line Location: BDMDF1P+38
Function Call: WRITE
  • Prompt: $S(Y=1:"1 Current user",Y=2:"2 Not a current user",Y=3:"3 Not Documented",1:"")," ",$P($$I(33),U,3)
  • Line Location: BDMDF1P+40
Function Call: WRITE
  • Prompt: ?34,$$I(40)
  • Line Location: BDMDF1P+61
Function Call: WRITE
  • Prompt: !?10,$P($$I(44),U,2)
  • Line Location: BDMDF1P+74
Function Call: WRITE
  • Prompt: !,"If born 1945-1965, screened at least once ever? ",$$I(223)
  • Line Location: BDMDF1P+114
Function Call: WRITE
  • Prompt: !?28,$P($$I(92),U,2)_" "_$P($$I(92),U,12),?43,$P($$I(92),U,3),?55,$E($P($$I(92),U,4),1,19)
  • Line Location: BDMDF1P+152
Function Call: WRITE
  • Prompt: !?5,"This is only calculated for patients 40 years of age and older without,",!,"a statin allegry or intolerance."
  • Line Location: BDMDF1P+155
Function Call: WRITE
  • Prompt: !?5,$P($$I(118),U,1)
  • Line Location: BDMDF1P+156
Function Call: WRITE
  • Prompt: !!
  • Line Location: N1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: !,"ZZZZZZZ",!
  • Line Location: PAGE+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAGE+5
Function Call: WRITE
  • Prompt: $$CTR("ASSESSMENT OF DIABETES CARE, 2018 DATE AUDIT RUN: "_$$FMTE^XLFDT(DT)_" Page: "_BDMPG,80)
  • Line Location: PAGE+7
Function Call: WRITE
  • Prompt: !,"Audit Period Ending Date: ",$$FMTE^XLFDT(BDMRED)
  • Line Location: PAGE+8
Function Call: WRITE
  • Prompt: !,$S($G(BDMPPN):"NAME: "_$P($G(^DPT(BDMPD,0)),U),1:"")
  • Line Location: PAGE+9
Function Call: WRITE
  • Prompt: ?J,"CHART #: ",$$I(16)," DOB: ",$$I(18)," SEX: ",$$I(20)
  • Line Location: PAGE+10
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: PAGE+11
Routine Call
  • DIR
  • Line Location:
    • N1+2
    • PAGE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] BDMDF1P+14
^DPT - [#2] BDMDF1P+17, PAGE+9
^TMP($J DONE+1!
^XTMP("BDMDM18" BDMDF1P+9, BDMDF1P+155, DONE+3!, I+1
^XTMP("BDMTAX" DONE+2!

Label References

Name Line Occurrences
$$CTR BDMDF1P+13, PAGE+7
$$I BDMDF1P+15, BDMDF1P+16, BDMDF1P+18, BDMDF1P+19, BDMDF1P+21, BDMDF1P+23, BDMDF1P+25, BDMDF1P+27, BDMDF1P+31, BDMDF1P+33
, BDMDF1P+35, BDMDF1P+38, BDMDF1P+40, BDMDF1P+43, BDMDF1P+46, BDMDF1P+47, BDMDF1P+49, BDMDF1P+51, BDMDF1P+53, BDMDF1P+55
, BDMDF1P+59, BDMDF1P+61, BDMDF1P+63, BDMDF1P+67, BDMDF1P+70, BDMDF1P+74, BDMDF1P+76, BDMDF1P+78, BDMDF1P+81, BDMDF1P+82
, BDMDF1P+83, BDMDF1P+84, BDMDF1P+85, BDMDF1P+86, BDMDF1P+87, BDMDF1P+88, BDMDF1P+89, BDMDF1P+90, BDMDF1P+91, BDMDF1P+92
, BDMDF1P+93, BDMDF1P+95, BDMDF1P+97, BDMDF1P+99, BDMDF1P+100, BDMDF1P+104, BDMDF1P+106, BDMDF1P+108, BDMDF1P+110, BDMDF1P+113
, BDMDF1P+114, BDMDF1P+117, BDMDF1P+121, BDMDF1P+123, BDMDF1P+125, BDMDF1P+127, BDMDF1P+129, BDMDF1P+133, BDMDF1P+134, BDMDF1P+136
, BDMDF1P+138, BDMDF1P+142, BDMDF1P+144, BDMDF1P+146, BDMDF1P+149, BDMDF1P+152, BDMDF1P+156, BDMDF1P+159, PAGE+10, ACPCOQ+1
, ACPCOQ+2, ACPCOQ+3, ACPCRES+1, ACPCRES+2, QUANCHK+1, QUANCHK+2, QUANCHK+3
CUML BDMDF1P+5, BDMDF1P+6, BDMDF1P+7
N1 BDMDF1P+158
PAGE BDMDF1P+22, BDMDF1P+24, BDMDF1P+26, BDMDF1P+28, BDMDF1P+30, BDMDF1P+32, BDMDF1P+34, BDMDF1P+36, BDMDF1P+39, BDMDF1P+41
, BDMDF1P+45, BDMDF1P+48, BDMDF1P+50, BDMDF1P+52, BDMDF1P+54, BDMDF1P+56, BDMDF1P+58, BDMDF1P+60, BDMDF1P+62, BDMDF1P+64
, BDMDF1P+66, BDMDF1P+68, BDMDF1P+71, BDMDF1P+73, BDMDF1P+75, BDMDF1P+77, BDMDF1P+79, BDMDF1P+94, BDMDF1P+96, BDMDF1P+98
, BDMDF1P+101, BDMDF1P+103, BDMDF1P+105, BDMDF1P+107, BDMDF1P+109, BDMDF1P+111, BDMDF1P+115, BDMDF1P+118, BDMDF1P+120, BDMDF1P+122
, BDMDF1P+124, BDMDF1P+126, BDMDF1P+128, BDMDF1P+130, BDMDF1P+132, BDMDF1P+135, BDMDF1P+137, BDMDF1P+141, BDMDF1P+143, BDMDF1P+145
, BDMDF1P+151, BDMDF1P+153, BDMDF1P+157, BDMDF1P+160

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % BDMDF1P+31*, BDMDF1P+46*, BDMDF1P+47
>> BDMADAT BDMDF1P+155, BDMDF1P+158
BDMBTH BDMDF1P+9, BDMDF1P+155, DONE+2, DONE+3!, I+1
>> BDMDMRG N1, N1+1
>> BDMDSP PAGE+1, PAGE+4
>> BDMDUZ2 BDMDF1P+14
>> BDMGUI BDMDF1P+4, BDMDF1P+10, BDMDF1P+13, BDMDF1P+160, PAGE+4, PAGE+5
>> BDMGUIC BDMDF1P+9*, BDMDF1P+10, BDMDF1P+11*, PAGE+4
>> BDMIOSL BDMDF1P+4*, BDMDF1P+22, BDMDF1P+24, BDMDF1P+26, BDMDF1P+28, BDMDF1P+30, BDMDF1P+32, BDMDF1P+34, BDMDF1P+36, BDMDF1P+39
, BDMDF1P+41, BDMDF1P+45, BDMDF1P+48, BDMDF1P+50, BDMDF1P+52, BDMDF1P+54, BDMDF1P+56, BDMDF1P+58, BDMDF1P+60, BDMDF1P+62
, BDMDF1P+64, BDMDF1P+66, BDMDF1P+68, BDMDF1P+71, BDMDF1P+73, BDMDF1P+75, BDMDF1P+77, BDMDF1P+79, BDMDF1P+94, BDMDF1P+96
, BDMDF1P+98, BDMDF1P+101, BDMDF1P+103, BDMDF1P+105, BDMDF1P+107, BDMDF1P+109, BDMDF1P+111, BDMDF1P+115, BDMDF1P+118, BDMDF1P+120
, BDMDF1P+122, BDMDF1P+124, BDMDF1P+126, BDMDF1P+128, BDMDF1P+130, BDMDF1P+132, BDMDF1P+135, BDMDF1P+137, BDMDF1P+141, BDMDF1P+143
, BDMDF1P+145, BDMDF1P+151, BDMDF1P+153, BDMDF1P+157, BDMDF1P+160
BDMJOB BDMDF1P+9, BDMDF1P+155, DONE+2, DONE+3!, I+1
>> BDMPD BDMDF1P+9*, BDMDF1P+17, BDMDF1P+155, BDMDF1P+158, N1, N1+1, I+1, PAGE+9
>> BDMPG BDMDF1P+4*, BDMDF1P+13*, PAGE+3, PAGE+6*, PAGE+7
>> BDMPPN BDMDF1P+17, PAGE+9
>> BDMPREP BDMDF1P+5, BDMDF1P+6, BDMDF1P+7, CUML+1, CUML+2, CUML+3, CUML+4
>> BDMQUIT BDMDF1P+4*, BDMDF1P+9, BDMDF1P+22, BDMDF1P+24, BDMDF1P+26, BDMDF1P+28, BDMDF1P+30, BDMDF1P+32, BDMDF1P+34, BDMDF1P+36
, BDMDF1P+39, BDMDF1P+41, BDMDF1P+45, BDMDF1P+48, BDMDF1P+50, BDMDF1P+52, BDMDF1P+54, BDMDF1P+56, BDMDF1P+58, BDMDF1P+60
, BDMDF1P+62, BDMDF1P+64, BDMDF1P+66, BDMDF1P+68, BDMDF1P+71, BDMDF1P+73, BDMDF1P+75, BDMDF1P+77, BDMDF1P+79, BDMDF1P+94
, BDMDF1P+96, BDMDF1P+98, BDMDF1P+101, BDMDF1P+103, BDMDF1P+105, BDMDF1P+107, BDMDF1P+109, BDMDF1P+111, BDMDF1P+115, BDMDF1P+118
, BDMDF1P+120, BDMDF1P+122, BDMDF1P+124, BDMDF1P+126, BDMDF1P+128, BDMDF1P+130, BDMDF1P+132, BDMDF1P+135, BDMDF1P+137, BDMDF1P+141
, BDMDF1P+143, BDMDF1P+145, BDMDF1P+151, BDMDF1P+153, BDMDF1P+157, BDMDF1P+160, PAGE+2*
>> BDMRED BDMDF1P+14, PAGE+8
>> BDMUTT BDMDF1P+149*, BDMDF1P+152
DIR N1+2!, PAGE+2!
DIR(0 N1+2*, PAGE+2*
DT BDMDF1P+13, PAGE+7
>> DTOUT PAGE+2
DUZ(2 BDMDF1P+14
I I~, I+1
IO PAGE+2
IO(0 PAGE+2
IOF BDMDF1P+12, PAGE+3
IOM CTR+1
IOSL BDMDF1P+4
IOST N1+2, PAGE+2
>> J BDMDF1P+17*, BDMDF1P+18, PAGE+9*, PAGE+10
U BDMDF1P+14, BDMDF1P+16, BDMDF1P+17, BDMDF1P+31, BDMDF1P+33, BDMDF1P+38, BDMDF1P+40, BDMDF1P+74, BDMDF1P+90, BDMDF1P+91
, BDMDF1P+92, BDMDF1P+93, BDMDF1P+108, BDMDF1P+133, BDMDF1P+134, BDMDF1P+136, BDMDF1P+138, BDMDF1P+142, BDMDF1P+144, BDMDF1P+146
, BDMDF1P+149, BDMDF1P+152, BDMDF1P+156, BDMDF1P+159, PAGE+9, ACPCOQ+1, ACPCOQ+2, ACPCOQ+3, ACPCRES+1, ACPCRES+2
, QUANCHK+1, QUANCHK+2
X BDMDF1P+43*, BDMDF1P+44, CTR~, CTR+1
Y BDMDF1P+38*, BDMDF1P+40*, PAGE+2, CTR~, CTR+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All