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

Package: Diabetes Registry

Routine: BDMDA1P


Information

BDMDA1P ; IHS/CMI/LAB - 2013 DIABETES AUDIT PRINT ;

Source Information

Source file <BDMDA1P.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Diabetes Registry 2 ($$LOCN,$$LOCT)^BDMDA10  CUML^BDMDA14  
Kernel 2 $$FMTE^XLFDT  ($$REPEAT,$$STRIP)^XLFSTR  
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
I(I) ;
ACPCRES() ;-- return result from UACR UPCR

External References

Name Field # of Occurrence
$$LOCN^BDMDA10 BDMDA1P+166
$$LOCT^BDMDA10 BDMDA1P+167
CUML^BDMDA14 CUML+1
^DIR BDMDA1P+169, PAGE+2
$$VAL^XBDIQ1 BDMDA1P+118
$$FMTE^XLFDT BDMDA1P+11, BDMDA1P+12, BDMDA1P+103, BDMDA1P+118, PAGE+7, PAGE+8
$$REPEAT^XLFSTR PAGE+11
$$STRIP^XLFSTR BDMDA1P+33

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"ZZZZZZZ",!
  • Line Location: BDMDA1P+8
Function Call: WRITE
  • Prompt: !!
  • Condition for execution: $G(BDMGUI)
  • Line Location: BDMDA1P+11
Function Call: WRITE
  • Prompt: $$CTR("ASSESSMENT OF DIABETES CARE, 2013 DATE AUDIT RUN: "_$$FMTE^XLFDT(DT)_" Page: "_BDMPG,80)
  • Line Location: BDMDA1P+11
Function Call: WRITE
  • Prompt: !,$$I(26.5),!,$$I(26.6)
  • Line Location: BDMDA1P+21
Function Call: WRITE
  • Prompt: $$I(28)
  • Line Location: BDMDA1P+29
Function Call: WRITE
  • Prompt: ?5,$$I(40)
  • Line Location: BDMDA1P+48
Function Call: WRITE
  • Prompt: !?10,$P($$I(44),U,2)
  • Line Location: BDMDA1P+54
Function Call: WRITE
  • Prompt: ?28,$P($$I(92),U,2),?43,$P($$I(92),U,3),?60,$E($P($$I(92),U,4),1,19)
  • Line Location: BDMDA1P+142
Function Call: WRITE
  • Prompt: !?28,$P($$I(92),U,2),?43,$P($$I(92),U,3),?60,$E($P($$I(92),U,4),1,19)
  • Line Location: BDMDA1P+146
Function Call: WRITE
  • Prompt: !?28,$P($$I(92),U,2),?43,$P($$I(92),U,3),?60,$E($P($$I(92),U,4),1,19)
  • Line Location: BDMDA1P+150
Function Call: WRITE
  • Prompt: !?28,$P($$I(92),U,2),?43,$P($$I(92),U,3),?60,$E($P($$I(92),U,4),1,19)
  • Line Location: BDMDA1P+154
Function Call: WRITE
  • Prompt: !?28,$P($$I(92),U,2),?43,$P($$I(92),U,3),?60,$E($P($$I(92),U,4),1,19)
  • Line Location: BDMDA1P+158
Function Call: WRITE
  • Prompt: !?28,$P($$I(92),U,2),?43,$P($$I(92),U,3),?60,$E($P($$I(92),U,4),1,19)
  • Line Location: BDMDA1P+162
Function Call: WRITE
  • Prompt: !!
  • Line Location: BDMDA1P+169
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, 2013 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:
    • BDMDA1P+169
    • PAGE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] BDMDA1P+12
^DPT - [#2] BDMDA1P+15, PAGE+9
^TMP($J DONE+1!
^XTMP("BDMDM13" BDMDA1P+7, DONE+2!, I+1

Label References

Name Line Occurrences
$$CTR BDMDA1P+11, PAGE+7
$$I BDMDA1P+13, BDMDA1P+14, BDMDA1P+16, BDMDA1P+17, BDMDA1P+19, BDMDA1P+21, BDMDA1P+23, BDMDA1P+25, BDMDA1P+27, BDMDA1P+29
, BDMDA1P+31, BDMDA1P+33, BDMDA1P+34, BDMDA1P+36, BDMDA1P+38, BDMDA1P+40, BDMDA1P+42, BDMDA1P+46, BDMDA1P+48, BDMDA1P+50
, BDMDA1P+54, BDMDA1P+56, BDMDA1P+58, BDMDA1P+62, BDMDA1P+65, BDMDA1P+68, BDMDA1P+69, BDMDA1P+70, BDMDA1P+71, BDMDA1P+72
, BDMDA1P+73, BDMDA1P+74, BDMDA1P+75, BDMDA1P+76, BDMDA1P+77, BDMDA1P+78, BDMDA1P+79, BDMDA1P+81, BDMDA1P+83, BDMDA1P+86
, BDMDA1P+87, BDMDA1P+88, BDMDA1P+89, BDMDA1P+90, BDMDA1P+91, BDMDA1P+92, BDMDA1P+93, BDMDA1P+97, BDMDA1P+99, BDMDA1P+101
, BDMDA1P+103, BDMDA1P+104, BDMDA1P+108, BDMDA1P+110, BDMDA1P+112, BDMDA1P+114, BDMDA1P+118, BDMDA1P+120, BDMDA1P+122, BDMDA1P+123
, BDMDA1P+125, BDMDA1P+127, BDMDA1P+129, BDMDA1P+131, BDMDA1P+135, BDMDA1P+139, BDMDA1P+142, BDMDA1P+146, BDMDA1P+150, BDMDA1P+154
, BDMDA1P+158, BDMDA1P+162, BDMDA1P+164, PAGE+10, ACPCOQ+1, ACPCOQ+2, ACPCOQ+3, ACPCRES+1, ACPCRES+2, QUANCHK+1
, QUANCHK+2, QUANCHK+3
CUML BDMDA1P+5
PAGE BDMDA1P+20, BDMDA1P+22, BDMDA1P+24, BDMDA1P+26, BDMDA1P+28, BDMDA1P+30, BDMDA1P+32, BDMDA1P+35, BDMDA1P+37, BDMDA1P+39
, BDMDA1P+41, BDMDA1P+43, BDMDA1P+45, BDMDA1P+47, BDMDA1P+49, BDMDA1P+51, BDMDA1P+53, BDMDA1P+55, BDMDA1P+57, BDMDA1P+59
, BDMDA1P+61, BDMDA1P+63, BDMDA1P+66, BDMDA1P+80, BDMDA1P+82, BDMDA1P+84, BDMDA1P+94, BDMDA1P+96, BDMDA1P+98, BDMDA1P+100
, BDMDA1P+102, BDMDA1P+105, BDMDA1P+107, BDMDA1P+109, BDMDA1P+111, BDMDA1P+113, BDMDA1P+115, BDMDA1P+117, BDMDA1P+119, BDMDA1P+121
, BDMDA1P+124, BDMDA1P+126, BDMDA1P+128, BDMDA1P+130, BDMDA1P+132, BDMDA1P+134, BDMDA1P+136, BDMDA1P+138, BDMDA1P+141, BDMDA1P+143
, BDMDA1P+145, BDMDA1P+147, BDMDA1P+149, BDMDA1P+151, BDMDA1P+153, BDMDA1P+155, BDMDA1P+157, BDMDA1P+159, BDMDA1P+161, BDMDA1P+163
, BDMDA1P+165

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % BDMDA1P+33*, BDMDA1P+34
BDMBTH BDMDA1P+7, DONE+2!, I+1
>> BDMDMRG BDMDA1P+166, BDMDA1P+167
>> BDMDSP PAGE+1, PAGE+4
>> BDMDUZ2 BDMDA1P+12
>> BDMGUI BDMDA1P+4, BDMDA1P+8, BDMDA1P+11, BDMDA1P+165, PAGE+4, PAGE+5
>> BDMGUIC BDMDA1P+7*, BDMDA1P+8, BDMDA1P+9*, PAGE+4
>> BDMIOSL BDMDA1P+4*, BDMDA1P+20, BDMDA1P+22, BDMDA1P+24, BDMDA1P+26, BDMDA1P+28, BDMDA1P+30, BDMDA1P+32, BDMDA1P+35, BDMDA1P+37
, BDMDA1P+39, BDMDA1P+41, BDMDA1P+43, BDMDA1P+45, BDMDA1P+47, BDMDA1P+49, BDMDA1P+51, BDMDA1P+53, BDMDA1P+55, BDMDA1P+57
, BDMDA1P+59, BDMDA1P+61, BDMDA1P+63, BDMDA1P+66, BDMDA1P+80, BDMDA1P+82, BDMDA1P+84, BDMDA1P+94, BDMDA1P+96, BDMDA1P+98
, BDMDA1P+100, BDMDA1P+102, BDMDA1P+105, BDMDA1P+107, BDMDA1P+109, BDMDA1P+111, BDMDA1P+113, BDMDA1P+115, BDMDA1P+117, BDMDA1P+119
, BDMDA1P+121, BDMDA1P+124, BDMDA1P+126, BDMDA1P+128, BDMDA1P+130, BDMDA1P+132, BDMDA1P+134, BDMDA1P+136, BDMDA1P+138, BDMDA1P+141
, BDMDA1P+143, BDMDA1P+145, BDMDA1P+147, BDMDA1P+149, BDMDA1P+151, BDMDA1P+153, BDMDA1P+155, BDMDA1P+157, BDMDA1P+159, BDMDA1P+161
, BDMDA1P+163, BDMDA1P+165
BDMJOB BDMDA1P+7, DONE+2!, I+1
>> BDMPD BDMDA1P+7*, BDMDA1P+15, BDMDA1P+166, BDMDA1P+167, I+1, PAGE+9
>> BDMPG BDMDA1P+4*, BDMDA1P+11*, PAGE+3, PAGE+6*, PAGE+7
>> BDMPPN BDMDA1P+15, PAGE+9
>> BDMPREP BDMDA1P+5, CUML+1
>> BDMQUIT BDMDA1P+4*, BDMDA1P+7, BDMDA1P+20, BDMDA1P+22, BDMDA1P+24, BDMDA1P+26, BDMDA1P+28, BDMDA1P+30, BDMDA1P+32, BDMDA1P+35
, BDMDA1P+37, BDMDA1P+39, BDMDA1P+41, BDMDA1P+43, BDMDA1P+45, BDMDA1P+47, BDMDA1P+49, BDMDA1P+51, BDMDA1P+53, BDMDA1P+55
, BDMDA1P+57, BDMDA1P+59, BDMDA1P+61, BDMDA1P+63, BDMDA1P+66, BDMDA1P+80, BDMDA1P+82, BDMDA1P+84, BDMDA1P+94, BDMDA1P+96
, BDMDA1P+98, BDMDA1P+100, BDMDA1P+102, BDMDA1P+105, BDMDA1P+107, BDMDA1P+109, BDMDA1P+111, BDMDA1P+113, BDMDA1P+115, BDMDA1P+117
, BDMDA1P+119, BDMDA1P+121, BDMDA1P+124, BDMDA1P+126, BDMDA1P+128, BDMDA1P+130, BDMDA1P+132, BDMDA1P+134, BDMDA1P+136, BDMDA1P+138
, BDMDA1P+141, BDMDA1P+143, BDMDA1P+145, BDMDA1P+147, BDMDA1P+149, BDMDA1P+151, BDMDA1P+153, BDMDA1P+155, BDMDA1P+157, BDMDA1P+159
, BDMDA1P+161, BDMDA1P+163, BDMDA1P+165, PAGE+2*
>> BDMRED BDMDA1P+12, PAGE+8
>> BDMUTT BDMDA1P+139*, BDMDA1P+140, BDMDA1P+142, BDMDA1P+144, BDMDA1P+146, BDMDA1P+148, BDMDA1P+150, BDMDA1P+152, BDMDA1P+154, BDMDA1P+156
, BDMDA1P+158, BDMDA1P+160, BDMDA1P+162
DIR BDMDA1P+169!, PAGE+2!
DIR(0 BDMDA1P+169*, PAGE+2*
DT BDMDA1P+11, PAGE+7
>> DTOUT PAGE+2
DUZ(2 BDMDA1P+12
I I~, I+1
IO PAGE+2
IO(0 PAGE+2
IOF BDMDA1P+10, PAGE+3
IOM CTR+1
IOSL BDMDA1P+4
IOST BDMDA1P+169, PAGE+2
>> J BDMDA1P+15*, BDMDA1P+16, PAGE+9*, PAGE+10
U BDMDA1P+12, BDMDA1P+14, BDMDA1P+15, BDMDA1P+27, BDMDA1P+54, BDMDA1P+77, BDMDA1P+78, BDMDA1P+79, BDMDA1P+93, BDMDA1P+101
, BDMDA1P+118, BDMDA1P+120, BDMDA1P+122, BDMDA1P+123, BDMDA1P+125, BDMDA1P+127, BDMDA1P+129, BDMDA1P+131, BDMDA1P+135, BDMDA1P+139
, BDMDA1P+142, BDMDA1P+146, BDMDA1P+150, BDMDA1P+154, BDMDA1P+158, BDMDA1P+162, BDMDA1P+164, PAGE+9, ACPCOQ+1, ACPCOQ+2
, ACPCOQ+3, ACPCRES+1, ACPCRES+2, QUANCHK+1, QUANCHK+2
X CTR~, CTR+1
Y PAGE+2, CTR~, CTR+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All