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

Package: IHS Uniform Data System

Routine: BUD1RP7N


Information

BUD1RP7N ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B ;

Source Information

Source file <BUD1RP7N.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 COMMA^%DTC  ^DIR  
IHS Uniform Data System 1 HEADER^BUD1RPTP  
Kernel 1 $$REPEAT^XLFSTR  

Entry Points

Name Comments DBIA/ICR reference
ETHN ;EP - called from taskman
PAUSE ;
C(X,Y) ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
T7H ;
LINE3 ;
LINE2 ;
LINE1 ;
USR() ;EP - Return name of current user from ^VA(200.
LINE ;

External References

Name Field # of Occurrence
COMMA^%DTC C+4
HEADER^BUD1RPTP ETHN+4, ETHN+20, ETHN+24, ETHN+28, ETHN+40, ETHN+43, ETHN+48, ETHN+64, ETHN+67, ETHN+70
, ETHN+74
^DIR PAUSE+1
$$REPEAT^XLFSTR T7H+1, LINE+1, LINE1+1, LINE2+1, LINE3+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?33,"|",?48,"|",?50,"All Other",?63,"|",?78,"|",!
  • Line Location: ETHN+5
Function Call: WRITE
  • Prompt: ?33,"|",?48,"|",?50,"including",?63,"|",?78,"|",!
  • Line Location: ETHN+6
Function Call: WRITE
  • Prompt: ?33,"|",?48,"|",?50,"Unreported/",?63,"|",?78,"|",!
  • Line Location: ETHN+7
Function Call: WRITE
  • Prompt: ?33,"|",?35,"Hispanic",?48,"|",?51,"Refused to",?63,"|",?78,"|",!
  • Line Location: ETHN+8
Function Call: WRITE
  • Prompt: ?33,"|",?35,"or Latino",?48,"|",?51,"Report",?63,"|",?67,"TOTAL",?78,"|",!
  • Line Location: ETHN+9
Function Call: WRITE
  • Prompt: ?33,"|",?37,"(i)",?48,"|",?52,"(j)",?63,"|",?67,"(k)",?78,"|",!
  • Line Location: ETHN+10
Function Call: WRITE
  • Prompt: $$CTR("SECTION D: DELIVERIES AND BIRTH WEIGHT BY ETHNICITY"),?78,"|",!
  • Line Location: ETHN+12
Function Call: WRITE
  • Prompt: ?2,"1",?5,"Prenatal care patients",?33,"|",?48,"|",?63,"|",?78,"|",!
  • Line Location: ETHN+16
Function Call: WRITE
  • Prompt: ?5,"who delivered during",?33,"|",?48,"|",?63,"|",?78,"|",!
  • Line Location: ETHN+17
Function Call: WRITE
  • Prompt: ?5,"the year",?33,"|",?48,"|",?63,"|",?78,"|",!
  • Line Location: ETHN+18
Function Call: WRITE
  • Prompt: ?2,"2",?5,"Live Births ",?33,"|",?48,"|",?63,"|",?78,"|",!
  • Line Location: ETHN+21
Function Call: WRITE
  • Prompt: ?5,"< 1500 grams",?33,"|",?48,"|",?63,"|",?78,"|",!
  • Line Location: ETHN+22
Function Call: WRITE
  • Prompt: ?2,"3",?5,"Live Births 1500-",?33,"|",?48,"|",?63,"|",?78,"|",!
  • Line Location: ETHN+25
Function Call: WRITE
  • Prompt: ?5,"2400 grams",?33,"|",?48,"|",?63,"|",?78,"|",!
  • Line Location: ETHN+26
Function Call: WRITE
  • Prompt: ?2,"4",?5,"Live Births ",?33,"|",?48,"|",?63,"|",?78,"|",!
  • Line Location: ETHN+29
Function Call: WRITE
  • Prompt: ?5,">= 2400 grams",?33,"|",?48,"|",?63,"|",?78,"|",!
  • Line Location: ETHN+30
Function Call: WRITE
  • Prompt: $$CTR("SECTION E: HYPERTENSION BY ETHNICITY"),?78,"|",!
  • Line Location: ETHN+32
Function Call: WRITE
  • Prompt: $$CTR("Patients diagnosed with hypertension whose last blood pressure"),?78,"|",!
  • Line Location: ETHN+34
Function Call: WRITE
  • Prompt: $$CTR("was less than 140/90"),?78,"|",!
  • Line Location: ETHN+35
Function Call: WRITE
  • Prompt: ?2,"6",?5,"Total patients aged",?33,"|",?48,"|",?63,"|",?78,"|",!
  • Line Location: ETHN+37
Function Call: WRITE
  • Prompt: ?5,"18 + with hypertension",?33,"|",$$C($P($G(BUDSECTE(6)),U)),?48,"|",$$C($P($G(BUDSECTE(6)),U,2)),?63,"|",$$C($P($G(BUDSECTE(6)),U,3)),?78,"|",!
  • Line Location: ETHN+38
Function Call: WRITE
  • Prompt: ?2,"7",?5,"Charts sampled / EHR Total",?33,"|",$$C($P($G(BUDSECTE(7)),U)),?48,"|",$$C($P($G(BUDSECTE(7)),U,2)),?63,"|",$$C($P($G(BUDSECTE(7)),U,3)),?78,"|",!
  • Line Location: ETHN+41
Function Call: WRITE
  • Prompt: ?2,"8",?5,"Patients with controlled",?33,"|",?48,"|",?63,"|",?78,"|",!
  • Line Location: ETHN+44
Function Call: WRITE
  • Prompt: ?5,"blood pressure",?33,"|",$$C($P($G(BUDSECTE(8)),U)),?48,"|",$$C($P($G(BUDSECTE(8)),U,2)),?63,"|",$$C($P($G(BUDSECTE(8)),U,3)),?78,"|",!
  • Line Location: ETHN+45
Function Call: WRITE
  • Prompt: ?33,"|",?48,"|",?50,"All Other",?63,"|",?78,"|",!
  • Line Location: ETHN+49
Function Call: WRITE
  • Prompt: ?33,"|",?48,"|",?50,"including",?63,"|",?78,"|",!
  • Line Location: ETHN+50
Function Call: WRITE
  • Prompt: ?33,"|",?48,"|",?50,"Unreported/",?63,"|",?78,"|",!
  • Line Location: ETHN+51
Function Call: WRITE
  • Prompt: ?33,"|",?35,"Hispanic",?48,"|",?51,"Refused to",?63,"|",?78,"|",!
  • Line Location: ETHN+52
Function Call: WRITE
  • Prompt: ?33,"|",?35,"or Latino",?48,"|",?51,"Report",?63,"|",?67,"TOTAL",?78,"|",!
  • Line Location: ETHN+53
Function Call: WRITE
  • Prompt: ?33,"|",?37,"(i)",?48,"|",?52,"(j)",?63,"|",?67,"(k)",?78,"|",!
  • Line Location: ETHN+54
Function Call: WRITE
  • Prompt: $$CTR("SECTION F: DIABETES BY ETHNICITY"),?78,"|",!
  • Line Location: ETHN+56
Function Call: WRITE
  • Prompt: $$CTR("Patients diagnosed with Type I or Type II diabetes: Most recent test results"),?78,"|",!
  • Line Location: ETHN+58
Function Call: WRITE
  • Prompt: ?2,"9",?5,"Total patients aged",?33,"|",?48,"|",?63,"|",?78,"|",!
  • Line Location: ETHN+60
Function Call: WRITE
  • Prompt: ?5,"18 + with Type I or II",?33,"|",?48,"|",?63,"|",?78,"|",!
  • Line Location: ETHN+61
Function Call: WRITE
  • Prompt: ?5,"diabetes",?33,"|",$$C($P($G(BUDSECTF(9)),U)),?48,"|",$$C($P($G(BUDSECTF(9)),U,2)),?63,"|",$$C($P($G(BUDSECTF(9)),U,3)),?78,"|",!
  • Line Location: ETHN+62
Function Call: WRITE
  • Prompt: ?1,"10",?5,"Charts sampled / EHR Total",?33,"|",$$C($P($G(BUDSECTF(10)),U)),?48,"|",$$C($P($G(BUDSECTF(10)),U,2)),?63,"|",$$C($P($G(BUDSECTF(10)),U,3)),?78,"|",!
  • Line Location: ETHN+65
Function Call: WRITE
  • Prompt: ?1,"11",?5,"Patients with HBA1c < 7%",?33,"|",$$C($P($G(BUDSECTF(11)),U)),?48,"|",$$C($P($G(BUDSECTF(11)),U,2)),?63,"|",$$C($P($G(BUDSECTF(11)),U,3)),?78,"|",!
  • Line Location: ETHN+68
Function Call: WRITE
  • Prompt: ?1,"12",?5,"Patients with ",?33,"|",?48,"|",?63,"|",?78,"|",!
  • Line Location: ETHN+71
Function Call: WRITE
  • Prompt: ?5,"7% >= HBA1c <= 9%",?33,"|",$$C($P($G(BUDSECTF(12)),U)),?48,"|",$$C($P($G(BUDSECTF(12)),U,2)),?63,"|",$$C($P($G(BUDSECTF(12)),U,3)),?78,"|",!
  • Line Location: ETHN+72
Function Call: WRITE
  • Prompt: ?1,"13",?5,"Patients with HBA1c > 9%",?33,"|",$$C($P($G(BUDSECTF(13)),U)),?48,"|",$$C($P($G(BUDSECTF(13)),U,2)),?63,"|",$$C($P($G(BUDSECTF(13)),U,3)),?78,"|",!
  • Line Location: ETHN+75
Function Call: WRITE
  • Prompt: !,$$CTR("TABLE 7 - HEALTH OUTCOMES AND DISPARITIES"),!,$$REPEAT^XLFSTR("_",79),!
  • Line Location: T7H+1
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",78),?78,"|",!
  • Line Location: LINE+1
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",33),?33,"|",$$REPEAT^XLFSTR("_",14),?48,"|",$$REPEAT^XLFSTR("_",14),?63,"|",$$REPEAT^XLFSTR("_",14),?78,"|",!
  • Line Location: LINE1+1
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",33),?33,"|",$$REPEAT^XLFSTR("_",39),?63,"|_________",?78,"|",!
  • Line Location: LINE2+1
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",33),?33,"|",$$REPEAT^XLFSTR("_",49),?78,"|",!
  • Line Location: LINE3+1
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$C ETHN+38, ETHN+41, ETHN+45, ETHN+62, ETHN+65, ETHN+68, ETHN+72, ETHN+75
$$CTR ETHN+12, ETHN+32, ETHN+34, ETHN+35, ETHN+56, ETHN+58, T7H+1
LINE ETHN+13, ETHN+33, ETHN+36, ETHN+57, ETHN+59
LINE1 ETHN+11, ETHN+19, ETHN+23, ETHN+27, ETHN+31, ETHN+39, ETHN+42, ETHN+46, ETHN+55, ETHN+63
, ETHN+66, ETHN+69, ETHN+73, ETHN+76
T7H ETHN+4, ETHN+20, ETHN+24, ETHN+28, ETHN+40, ETHN+43, ETHN+48, ETHN+64, ETHN+67, ETHN+70
, ETHN+74

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BUDQUIT ETHN+3*, ETHN+4, ETHN+20, ETHN+24, ETHN+28, ETHN+40, ETHN+43, ETHN+48, ETHN+64, ETHN+67
, ETHN+70, ETHN+74
>> BUDSECTE(6 ETHN+38
>> BUDSECTE(7 ETHN+41
>> BUDSECTE(8 ETHN+45
>> BUDSECTF(10 ETHN+65
>> BUDSECTF(11 ETHN+68
>> BUDSECTF(12 ETHN+72
>> BUDSECTF(13 ETHN+75
>> BUDSECTF(9 ETHN+62
DA PAUSE+1!
DIR PAUSE+1!
DIR("A" PAUSE+1*
DIR(0 PAUSE+1*
DUZ USR+1
DUZ(2 LOC+1
IOM CTR+1
IOSL ETHN+20, ETHN+24, ETHN+28, ETHN+40, ETHN+43, ETHN+64, ETHN+67, ETHN+70, ETHN+74
U ETHN+38, ETHN+41, ETHN+45, ETHN+62, ETHN+65, ETHN+68, ETHN+72, ETHN+75, USR+1, LOC+1
X CTR~, CTR+1, C~, C+1, C+5
>> X2 C+3*
>> X3 C+3*
Y CTR~, CTR+1, C~, C+1, C+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All