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

Package: Diabetes Registry

Routine: BDMD41P


Information

BDMD41P ; IHS/CMI/LAB - 2012 DIABETES AUDIT PRINT ;

Source Information

Source file <BDMD41P.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Diabetes Registry 2 ($$LOCN,$$LOCT)^BDMD410  CUML^BDMD414  
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^BDMD410 BDMD41P+165
$$LOCT^BDMD410 BDMD41P+166
CUML^BDMD414 CUML+1
^DIR BDMD41P+168, PAGE+2
$$VAL^XBDIQ1 BDMD41P+120
$$FMTE^XLFDT BDMD41P+11, BDMD41P+12, BDMD41P+105, BDMD41P+120, PAGE+7, PAGE+8
$$REPEAT^XLFSTR PAGE+11
$$STRIP^XLFSTR BDMD41P+33

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"ZZZZZZZ",!
  • Line Location: BDMD41P+8
Function Call: WRITE
  • Prompt: !!
  • Condition for execution: $G(BDMGUI)
  • Line Location: BDMD41P+11
Function Call: WRITE
  • Prompt: $$CTR("ASSESSMENT OF DIABETES CARE, 2012 DATE AUDIT RUN: "_$$FMTE^XLFDT(DT)_" Page: "_BDMPG,80)
  • Line Location: BDMD41P+11
Function Call: WRITE
  • Prompt: !,$$I(26.5),!,$$I(26.6)
  • Line Location: BDMD41P+21
Function Call: WRITE
  • Prompt: $$I(28)
  • Line Location: BDMD41P+29
Function Call: WRITE
  • Prompt: ?5,$$I(40)
  • Line Location: BDMD41P+48
Function Call: WRITE
  • Prompt: !?10,$P($$I(44),U,2)
  • Line Location: BDMD41P+54
Function Call: WRITE
  • Prompt: " ",$P($$I(57),U,2)
  • Line Location: BDMD41P+81
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: BDMD41P+143
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: BDMD41P+147
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: BDMD41P+151
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: BDMD41P+155
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: BDMD41P+159
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: BDMD41P+163
Function Call: WRITE
  • Prompt: !!
  • Line Location: BDMD41P+168
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, 2012 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:
    • BDMD41P+168
    • PAGE+2

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % BDMD41P+33*, BDMD41P+34
BDMBTH BDMD41P+7, DONE+2!, I+1
>> BDMDMRG BDMD41P+165, BDMD41P+166
>> BDMDSP PAGE+1, PAGE+4
>> BDMDUZ2 BDMD41P+12
>> BDMGUI BDMD41P+4, BDMD41P+8, BDMD41P+11, BDMD41P+164, PAGE+4, PAGE+5
>> BDMGUIC BDMD41P+7*, BDMD41P+8, BDMD41P+9*, PAGE+4
>> BDMIOSL BDMD41P+4*, BDMD41P+20, BDMD41P+22, BDMD41P+24, BDMD41P+26, BDMD41P+28, BDMD41P+30, BDMD41P+32, BDMD41P+35, BDMD41P+37
, BDMD41P+39, BDMD41P+41, BDMD41P+43, BDMD41P+45, BDMD41P+47, BDMD41P+49, BDMD41P+51, BDMD41P+53, BDMD41P+55, BDMD41P+57
, BDMD41P+59, BDMD41P+61, BDMD41P+63, BDMD41P+66, BDMD41P+82, BDMD41P+84, BDMD41P+86, BDMD41P+96, BDMD41P+98, BDMD41P+100
, BDMD41P+102, BDMD41P+104, BDMD41P+107, BDMD41P+109, BDMD41P+111, BDMD41P+113, BDMD41P+115, BDMD41P+117, BDMD41P+119, BDMD41P+121
, BDMD41P+123, BDMD41P+127, BDMD41P+129, BDMD41P+131, BDMD41P+133, BDMD41P+135, BDMD41P+137, BDMD41P+139, BDMD41P+142, BDMD41P+144
, BDMD41P+146, BDMD41P+148, BDMD41P+150, BDMD41P+152, BDMD41P+154, BDMD41P+156, BDMD41P+158, BDMD41P+160, BDMD41P+162, BDMD41P+164
BDMJOB BDMD41P+7, DONE+2!, I+1
>> BDMPD BDMD41P+7*, BDMD41P+15, BDMD41P+165, BDMD41P+166, I+1, PAGE+9
>> BDMPG BDMD41P+4*, BDMD41P+11*, PAGE+3, PAGE+6*, PAGE+7
>> BDMPPN BDMD41P+15, PAGE+9
>> BDMPREP BDMD41P+5, CUML+1
>> BDMQUIT BDMD41P+4*, BDMD41P+7, BDMD41P+20, BDMD41P+22, BDMD41P+24, BDMD41P+26, BDMD41P+28, BDMD41P+30, BDMD41P+32, BDMD41P+35
, BDMD41P+37, BDMD41P+39, BDMD41P+41, BDMD41P+43, BDMD41P+45, BDMD41P+47, BDMD41P+49, BDMD41P+51, BDMD41P+53, BDMD41P+55
, BDMD41P+57, BDMD41P+59, BDMD41P+61, BDMD41P+63, BDMD41P+66, BDMD41P+82, BDMD41P+84, BDMD41P+86, BDMD41P+96, BDMD41P+98
, BDMD41P+100, BDMD41P+102, BDMD41P+104, BDMD41P+107, BDMD41P+109, BDMD41P+111, BDMD41P+113, BDMD41P+115, BDMD41P+117, BDMD41P+119
, BDMD41P+121, BDMD41P+123, BDMD41P+127, BDMD41P+129, BDMD41P+131, BDMD41P+133, BDMD41P+135, BDMD41P+137, BDMD41P+139, BDMD41P+142
, BDMD41P+144, BDMD41P+146, BDMD41P+148, BDMD41P+150, BDMD41P+152, BDMD41P+154, BDMD41P+156, BDMD41P+158, BDMD41P+160, BDMD41P+162
, BDMD41P+164, PAGE+2*
>> BDMRED BDMD41P+12, PAGE+8
>> BDMUTT BDMD41P+140*, BDMD41P+141, BDMD41P+143, BDMD41P+145, BDMD41P+147, BDMD41P+149, BDMD41P+151, BDMD41P+153, BDMD41P+155, BDMD41P+157
, BDMD41P+159, BDMD41P+161, BDMD41P+163
DIR BDMD41P+168!, PAGE+2!
DIR(0 BDMD41P+168*, PAGE+2*
DT BDMD41P+11, PAGE+7
>> DTOUT PAGE+2
DUZ(2 BDMD41P+12
I I~, I+1
IO PAGE+2
IO(0 PAGE+2
IOF BDMD41P+10, PAGE+3
IOM CTR+1
IOSL BDMD41P+4
IOST BDMD41P+168, PAGE+2
>> J BDMD41P+15*, BDMD41P+16, PAGE+9*, PAGE+10
U BDMD41P+12, BDMD41P+14, BDMD41P+15, BDMD41P+27, BDMD41P+54, BDMD41P+77, BDMD41P+79, BDMD41P+80, BDMD41P+81, BDMD41P+95
, BDMD41P+103, BDMD41P+120, BDMD41P+122, BDMD41P+124, BDMD41P+125, BDMD41P+126, BDMD41P+128, BDMD41P+130, BDMD41P+132, BDMD41P+136
, BDMD41P+140, BDMD41P+143, BDMD41P+147, BDMD41P+151, BDMD41P+155, BDMD41P+159, BDMD41P+163, 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