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: BDMDG1P

Package: Diabetes Registry

Routine: BDMDG1P


Information

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

Source Information

Source file <BDMDG1P.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Diabetes Registry 5 ($$LOCN,$$LOCT)^BDMDG10  CUML^BDMDG14  SDPI16^BDMDG1U  QUALCHK^BDMDG1V  $$DATE^BDMS9B1  
IHS Patient 1 ($$AGE,$$DOB)^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 ($$REPEAT,$$STRIP)^XLFSTR  
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 BDMDG1P+172, BDMDG1P+175
$$DOB^AUPNPAT BDMDG1P+17
$$LOCN^BDMDG10 N1
$$LOCT^BDMDG10 N1+2
CUML^BDMDG14 CUML+1
SDPI16^BDMDG1U CUML+2
QUALCHK^BDMDG1V CUML+3
$$DATE^BDMS9B1 BDMDG1P+12, BDMDG1P+13, BDMDG1P+17, BDMDG1P+124, BDMDG1P+150, PAGE+7, PAGE+8
^DIR N1+3, PAGE+2
$$VAL^XBDIQ1 BDMDG1P+150
$$REPEAT^XLFSTR PAGE+11
$$STRIP^XLFSTR BDMDG1P+45

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"ZZZZZZZ",!
  • Line Location: BDMDG1P+9
Function Call: WRITE
  • Prompt: !!
  • Condition for execution: $G(BDMGUI)
  • Line Location: BDMDG1P+12
Function Call: WRITE
  • Prompt: $$CTR("Individual Diabetes Audit, 2019 DATE AUDIT RUN: "_$$DATE^BDMS9B1(DT)_" Page: "_BDMPG,80)
  • Line Location: BDMDG1P+12
Function Call: WRITE
  • Prompt: !,$$I(26.5),!,$$I(26.6)
  • Line Location: BDMDG1P+22
Function Call: WRITE
  • Prompt: $S($P(%,U,1)=3:"2 No",1:"1 Yes")
  • Line Location: BDMDG1P+30
Function Call: WRITE
  • Prompt: $$I(28)
  • Line Location: BDMDG1P+34
Function Call: WRITE
  • Prompt: !?10
  • Condition for execution: $E(Y)=1
  • Line Location: BDMDG1P+37
Function Call: WRITE
  • Prompt: Y," ",$S(Y=1:"Yes",1:"No")," ",$P($$I(31),U,3)
  • Line Location: BDMDG1P+37
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: BDMDG1P+39
Function Call: WRITE
  • Prompt: ?38,$$I(40)
  • Line Location: BDMDG1P+60
Function Call: WRITE
  • Prompt: !?10
  • Condition for execution: $E($$I(210))=1
  • Line Location: BDMDG1P+68
Function Call: WRITE
  • Prompt: $$I(210)
  • Line Location: BDMDG1P+68
Function Call: WRITE
  • Prompt: !?10,$P($$I(44),U,2)
  • Line Location: BDMDG1P+72
Function Call: WRITE
  • Prompt: !?10
  • Condition for execution: $E($$I(60),1)=1
  • Line Location: BDMDG1P+94
Function Call: WRITE
  • Prompt: $$I(60)
  • Line Location: BDMDG1P+94
Function Call: WRITE
  • Prompt: !?10
  • Condition for execution: $E($$I(300))=1
  • Line Location: BDMDG1P+112
Function Call: WRITE
  • Prompt: $$I(300)
  • Line Location: BDMDG1P+112
Function Call: WRITE
  • Prompt: !?4,"If 'No', screened for HCV at least once (ever): "
  • Line Location: BDMDG1P+128
Function Call: WRITE
  • Prompt: !?10
  • Condition for execution: $E($$I(223))=1
  • Line Location: BDMDG1P+128
Function Call: WRITE
  • Prompt: $$I(223)
  • Line Location: BDMDG1P+128
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: BDMDG1P+169
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: BDMDG1P+172
Function Call: WRITE
  • Prompt: !?5,$P($$I(118),U,1)
  • Line Location: BDMDG1P+173
Function Call: WRITE
  • Prompt: !!
  • Line Location: N1+3
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, 2019 DATE AUDIT RUN: "_$$DATE^BDMS9B1(DT)_" Page: "_BDMPG,80)
  • Line Location: PAGE+7
Function Call: WRITE
  • Prompt: !,"Audit Period Ending Date: ",$$DATE^BDMS9B1(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+3
    • PAGE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] BDMDG1P+13
^DPT - [#2] BDMDG1P+16, PAGE+9
^TMP($J DONE+1!
^XTMP("BDMDM19" BDMDG1P+8, BDMDG1P+172, DONE+3!, I+1
^XTMP("BDMTAX" DONE+2!

Label References

Name Line Occurrences
$$CTR BDMDG1P+12, PAGE+7
$$I BDMDG1P+14, BDMDG1P+15, BDMDG1P+17, BDMDG1P+18, BDMDG1P+20, BDMDG1P+22, BDMDG1P+24, BDMDG1P+26, BDMDG1P+30, BDMDG1P+32
, BDMDG1P+34, BDMDG1P+37, BDMDG1P+39, BDMDG1P+42, BDMDG1P+45, BDMDG1P+46, BDMDG1P+48, BDMDG1P+50, BDMDG1P+52, BDMDG1P+54
, BDMDG1P+58, BDMDG1P+60, BDMDG1P+62, BDMDG1P+66, BDMDG1P+68, BDMDG1P+72, BDMDG1P+74, BDMDG1P+76, BDMDG1P+80, BDMDG1P+81
, BDMDG1P+82, BDMDG1P+83, BDMDG1P+84, BDMDG1P+85, BDMDG1P+86, BDMDG1P+87, BDMDG1P+88, BDMDG1P+89, BDMDG1P+90, BDMDG1P+91
, BDMDG1P+92, BDMDG1P+94, BDMDG1P+103, BDMDG1P+112, BDMDG1P+114, BDMDG1P+118, BDMDG1P+120, BDMDG1P+122, BDMDG1P+124, BDMDG1P+127
, BDMDG1P+128, BDMDG1P+131, BDMDG1P+134, BDMDG1P+138, BDMDG1P+140, BDMDG1P+142, BDMDG1P+144, BDMDG1P+146, BDMDG1P+150, BDMDG1P+151
, BDMDG1P+153, BDMDG1P+155, BDMDG1P+159, BDMDG1P+161, BDMDG1P+163, BDMDG1P+166, BDMDG1P+169, BDMDG1P+173, BDMDG1P+176, PAGE+10
, ACPCOQ+1, ACPCOQ+2, ACPCOQ+3, ACPCRES+1, ACPCRES+2, QUANCHK+1, QUANCHK+2, QUANCHK+3
CUML BDMDG1P+5, BDMDG1P+6
N1 BDMDG1P+175
PAGE BDMDG1P+21, BDMDG1P+23, BDMDG1P+25, BDMDG1P+27, BDMDG1P+29, BDMDG1P+31, BDMDG1P+33, BDMDG1P+35, BDMDG1P+38, BDMDG1P+40
, BDMDG1P+44, BDMDG1P+47, BDMDG1P+49, BDMDG1P+51, BDMDG1P+53, BDMDG1P+55, BDMDG1P+57, BDMDG1P+59, BDMDG1P+61, BDMDG1P+63
, BDMDG1P+65, BDMDG1P+67, BDMDG1P+69, BDMDG1P+71, BDMDG1P+73, BDMDG1P+75, BDMDG1P+77, BDMDG1P+93, BDMDG1P+95, BDMDG1P+101
, BDMDG1P+104, BDMDG1P+110, BDMDG1P+115, BDMDG1P+117, BDMDG1P+119, BDMDG1P+121, BDMDG1P+123, BDMDG1P+125, BDMDG1P+129, BDMDG1P+132
, BDMDG1P+135, BDMDG1P+137, BDMDG1P+139, BDMDG1P+141, BDMDG1P+143, BDMDG1P+145, BDMDG1P+147, BDMDG1P+149, BDMDG1P+152, BDMDG1P+154
, BDMDG1P+158, BDMDG1P+160, BDMDG1P+162, BDMDG1P+168, BDMDG1P+170, BDMDG1P+174, BDMDG1P+177

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % BDMDG1P+30*, BDMDG1P+45*, BDMDG1P+46
>> BDMADAT BDMDG1P+172, BDMDG1P+175
BDMBTH BDMDG1P+8, BDMDG1P+172, DONE+2, DONE+3!, I+1
>> BDMDMRG N1, N1+2
>> BDMDSP PAGE+1, PAGE+4
>> BDMDUZ2 BDMDG1P+13
>> BDMGUI BDMDG1P+4, BDMDG1P+9, BDMDG1P+12, BDMDG1P+177, PAGE+4, PAGE+5
>> BDMGUIC BDMDG1P+8*, BDMDG1P+9, BDMDG1P+10, BDMDG1P+11*, PAGE+4
>> BDMIOSL BDMDG1P+4*, BDMDG1P+21, BDMDG1P+23, BDMDG1P+25, BDMDG1P+27, BDMDG1P+29, BDMDG1P+31, BDMDG1P+33, BDMDG1P+35, BDMDG1P+38
, BDMDG1P+40, BDMDG1P+44, BDMDG1P+47, BDMDG1P+49, BDMDG1P+51, BDMDG1P+53, BDMDG1P+55, BDMDG1P+57, BDMDG1P+59, BDMDG1P+61
, BDMDG1P+63, BDMDG1P+65, BDMDG1P+67, BDMDG1P+69, BDMDG1P+71, BDMDG1P+73, BDMDG1P+75, BDMDG1P+77, BDMDG1P+93, BDMDG1P+101
, BDMDG1P+110, BDMDG1P+115, BDMDG1P+117, BDMDG1P+119, BDMDG1P+121, BDMDG1P+123, BDMDG1P+125, BDMDG1P+129, BDMDG1P+132, BDMDG1P+135
, BDMDG1P+137, BDMDG1P+139, BDMDG1P+141, BDMDG1P+143, BDMDG1P+145, BDMDG1P+147, BDMDG1P+149, BDMDG1P+152, BDMDG1P+154, BDMDG1P+158
, BDMDG1P+160, BDMDG1P+162, BDMDG1P+168, BDMDG1P+170, BDMDG1P+174, BDMDG1P+177
BDMJOB BDMDG1P+8, BDMDG1P+172, DONE+2, DONE+3!, I+1
>> BDMPD BDMDG1P+8*, BDMDG1P+16, BDMDG1P+17, BDMDG1P+172, BDMDG1P+175, N1, N1+2, I+1, PAGE+9
>> BDMPG BDMDG1P+4*, BDMDG1P+12*, PAGE+3, PAGE+6*, PAGE+7
>> BDMPPN BDMDG1P+16, PAGE+9
>> BDMPREP BDMDG1P+5, BDMDG1P+6, CUML+1, CUML+2, CUML+3
>> BDMQUIT BDMDG1P+4*, BDMDG1P+8, BDMDG1P+21, BDMDG1P+23, BDMDG1P+25, BDMDG1P+27, BDMDG1P+29, BDMDG1P+31, BDMDG1P+33, BDMDG1P+35
, BDMDG1P+38, BDMDG1P+40, BDMDG1P+44, BDMDG1P+47, BDMDG1P+49, BDMDG1P+51, BDMDG1P+53, BDMDG1P+55, BDMDG1P+57, BDMDG1P+59
, BDMDG1P+61, BDMDG1P+63, BDMDG1P+65, BDMDG1P+67, BDMDG1P+69, BDMDG1P+71, BDMDG1P+73, BDMDG1P+75, BDMDG1P+77, BDMDG1P+93
, BDMDG1P+95, BDMDG1P+101, BDMDG1P+104, BDMDG1P+110, BDMDG1P+115, BDMDG1P+117, BDMDG1P+119, BDMDG1P+121, BDMDG1P+123, BDMDG1P+125
, BDMDG1P+129, BDMDG1P+132, BDMDG1P+135, BDMDG1P+137, BDMDG1P+139, BDMDG1P+141, BDMDG1P+143, BDMDG1P+145, BDMDG1P+147, BDMDG1P+149
, BDMDG1P+152, BDMDG1P+154, BDMDG1P+158, BDMDG1P+160, BDMDG1P+162, BDMDG1P+168, BDMDG1P+170, BDMDG1P+174, BDMDG1P+177, PAGE+2*
>> BDMRED BDMDG1P+13, PAGE+8
>> BDMUTT BDMDG1P+166*, BDMDG1P+169
DIR N1+3!, PAGE+2!
DIR(0 N1+3*, PAGE+2*
DT BDMDG1P+12, PAGE+7
>> DTOUT PAGE+2
DUZ(2 BDMDG1P+13
I I~, I+1
IO PAGE+2
IO(0 PAGE+2
IOF BDMDG1P+10, PAGE+3
IOM CTR+1
IOSL BDMDG1P+4, BDMDG1P+95, BDMDG1P+104
IOST N1+3, PAGE+2
>> J BDMDG1P+16*, BDMDG1P+17, PAGE+9*, PAGE+10
U BDMDG1P+13, BDMDG1P+15, BDMDG1P+16, BDMDG1P+30, BDMDG1P+32, BDMDG1P+37, BDMDG1P+39, BDMDG1P+72, BDMDG1P+86, BDMDG1P+90
, BDMDG1P+91, BDMDG1P+92, BDMDG1P+122, BDMDG1P+150, BDMDG1P+151, BDMDG1P+153, BDMDG1P+155, BDMDG1P+159, BDMDG1P+161, BDMDG1P+163
, BDMDG1P+166, BDMDG1P+169, BDMDG1P+173, BDMDG1P+176, PAGE+9, ACPCOQ+1, ACPCOQ+2, ACPCOQ+3, ACPCRES+1, ACPCRES+2
, QUANCHK+1, QUANCHK+2
X BDMDG1P+42*, BDMDG1P+43, CTR~, CTR+1
Y BDMDG1P+37*, BDMDG1P+39*, PAGE+2, CTR~, CTR+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All