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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BUD9RP7

Package: IHS Uniform Data System

Routine: BUD9RP7


Information

BUD9RP7 ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B 12 Dec 2009 6:51 AM 30 Dec 2009 8:19 PM 27 Aug 2010 12:41 PM ;

Source Information

Source file <BUD9RP7.m>

Call Graph

Call Graph Total: 24

Package Total Call Graph
IHS Uniform Data System 14 PRINT^BUD9RP71  (PRGHLST,PRGRLST)^BUD9RP7A  HTN^BUD9RP7B  DM^BUD9RP7C  (GENI,PRGE,PRGH,PRGR)^BUD9RP7I  (HTCR,HTR,HTUR)^BUD9RP7J  (HTCE,HTE,HTUE)^BUD9RP7K  (DMR,DMR1,DMR2)^BUD9RP7L  
(DME,DME1,DME2)^BUD9RP7M  DME3^BUD9RP7S  DMR3^BUD9RP7T  $$DEMO^BUD9RPTC  GETV^BUD9RPTD  TAXCHK^BUD9XTCH  
Kernel 5 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  $$REPEAT^XLFSTR  
VA Fileman 3 COMMA^%DTC  ^DIC  ^DIR  
IHS Patient 1 ($$AGE,$$COMMRES)^AUPNPAT  
IHS VA Utilities 1 EN^XBVK  

Entry Points

Name Comments DBIA/ICR reference
DME2LIST ;EP
YEAR ;
EOJ ;
PRENATT ;
HTELIST ;EP
LINE2 ;
USR() ;EP - Return name of current user from ^VA(200.
HTCRLIST ;EP
TSKMN ;EP ENTRY POINT FROM TASKMAN
PRINT ;EP - called from taskman
LINE ;
DMR1LIST ;EP
C(X,Y) ;
DMR3LIST ;EP
LOC() ;EP - Return location name from file 4 based on DUZ(2).
MDM ;EP
CTR(X,Y) ;EP - Center X in a field Y wide.
HTUELIST ;EP
EN1 ;
EN2 ;
DME3LIST ;EP
PRGELIST ;EP
EN ;
ZIS ;call to XBDBQUE
DMR2LIST ;EP
T7 ;
DRIVER ;
HTCELIST ;EP
PRGRLIST ;EP
PRGHLIST ;EP
MHT ;EP
HTRLIST ;EP
PAUSE ;
HTURLIST ;EP
MPRG ;EP - called from option
ZIS1 ;
T7H ;
T7I ;
LIST ;
DMELIST ;EP
LINE1 ;
GENI ;general introductions
PNC ;
PROC ;EP - called from taskman
LINE3 ;
DMRLIST ;EP
DME1LIST ;EP

External References

Name Field # of Occurrence
COMMA^%DTC C+4
^%ZIS ZIS+2
^%ZISC DRIVER+4
^%ZTLOAD TSKMN+5
$$AGE^AUPNPAT PROC+19, PROC+20
$$COMMRES^AUPNPAT PROC+18
PRINT^BUD9RP71 PRINT+1
PRGHLST^BUD9RP7A PROC+23
PRGRLST^BUD9RP7A PROC+24
HTN^BUD9RP7B PROC+26
DM^BUD9RP7C PROC+27
GENI^BUD9RP7I MHT+2, MDM+2, MPRG+2
PRGE^BUD9RP7I PRGELIST+3
PRGH^BUD9RP7I PRGHLIST+3
PRGR^BUD9RP7I PRGRLIST+3
HTCR^BUD9RP7J HTCRLIST+3
HTR^BUD9RP7J HTRLIST+3
HTUR^BUD9RP7J HTURLIST+3
HTCE^BUD9RP7K HTCELIST+3
HTE^BUD9RP7K HTELIST+3
HTUE^BUD9RP7K HTUELIST+3
DMR^BUD9RP7L DMRLIST+3
DMR1^BUD9RP7L DMR1LIST+3
DMR2^BUD9RP7L DMR2LIST+3
DME^BUD9RP7M DMELIST+3
DME1^BUD9RP7M DME1LIST+3
DME2^BUD9RP7M DME2LIST+3
DME3^BUD9RP7S DME3LIST+3
DMR3^BUD9RP7T DMR3LIST+3
$$DEMO^BUD9RPTC PROC+13
GETV^BUD9RPTD PROC+21
TAXCHK^BUD9XTCH EN2+6
^DIC EN2+2
^DIR PNC+2, MHT+12, MDM+14, MPRG+9, PAUSE+1, YEAR+7
EN^XBVK EOJ+1
$$FMADD^XLFDT PROC+2
$$FMTE^XLFDT EN2+14
$$REPEAT^XLFSTR T7H+1, LINE+1, LINE1+1, LINE2+1, LINE3+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Warning: There are no locations defined in the site parameter file for this",!,"site. Report will not be accurate!"
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: !!,"Your report will be run for the time period: ",$$FMTE^XLFDT(BUDBD)," to ",$$FMTE^XLFDT(BUDED)
  • Line Location: EN2+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: ZIS+2
Function Call: WRITE
  • Prompt: !!,"UDS Table 7 Hypertension Patient List Selection"
  • Line Location: MHT+4
Function Call: WRITE
  • Prompt: !!?5,"1 All HTN Patients by Race and Hispanic or Latino Identity"
  • Line Location: MHT+5
Function Call: WRITE
  • Prompt: !?5,"2 All HTN Pts w/Controlled BP by Race and Hispanic or Latino Identity"
  • Line Location: MHT+7
Function Call: WRITE
  • Prompt: !?5,"3 All HTN Pts w/Uncontrolled BP by Race and Hispanic or Latino Identity"
  • Line Location: MHT+8
Function Call: WRITE
  • Prompt: !?5,"4 ALL Lists for HTN Patients"
  • Line Location: MHT+11
Function Call: WRITE
  • Prompt: !!,"UDS Table 7 Diabetes Patient List Selection"
  • Line Location: MDM+4
Function Call: WRITE
  • Prompt: !!?5,"1 All Patients w/DM by Race and Hispanic or Latino Identity"
  • Line Location: MDM+5
Function Call: WRITE
  • Prompt: !?5,"2 All Patients w/DM and A1c <7 by Race and Hispanic or Latino Identity"
  • Line Location: MDM+7
Function Call: WRITE
  • Prompt: !?5,"3 All Pts w/DM and A1c >=7 and <=9 by Race and Hispanic or Latino Identity"
  • Line Location: MDM+8
Function Call: WRITE
  • Prompt: !?5,"4 All Patients w/DM and A1c >9 by Race and Hispanic or Latino Identity"
  • Line Location: MDM+9
Function Call: WRITE
  • Prompt: !?5,"5 ALL Lists for DM Patients"
  • Line Location: MDM+13
Function Call: WRITE
  • Prompt: !!,"UDS Table 7 Pregnant Patient List Selection"
  • Line Location: MPRG+4
Function Call: WRITE
  • Prompt: !!?5,"1 All Pregnant Patients w/HIV"
  • Line Location: MPRG+5
Function Call: WRITE
  • Prompt: !?5,"2 All Pregnant Patients by Race"
  • Line Location: MPRG+6
Function Call: WRITE
  • Prompt: !?5,"3 ALL Lists"
  • Line Location: MPRG+8
Function Call: WRITE
  • Prompt: !,$$CTR("TABLE 7 - HEALTH OUTCOMES AND DISPARITIES"),!,$$REPEAT^XLFSTR("_",79),!
  • Line Location: T7H+1
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",79),?79,"|",!
  • Line Location: LINE+1
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",9),?39,"|",$$REPEAT^XLFSTR("_",9),?49,"|",$$REPEAT^XLFSTR("_",9),?59,"|",$$REPEAT^XLFSTR("_",9),?69,"|",$$REPEAT^XLFSTR("_",9),?79,"|",!
  • Line Location: LINE1+1
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",39),?69,"|_________",?79,"|",!
  • Line Location: LINE2+1
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",49),?79,"|",!
  • Line Location: LINE3+1
Function Call: WRITE
  • Prompt: !!,"TABLE 7: HEALTH OUTCOMES AND DISPARITIES"
  • Line Location: T7I+1
Function Call: WRITE
  • Prompt: !,"This report will produce UDS Table 7, health outcomes indicators by race"
  • Line Location: T7I+2
Function Call: WRITE
  • Prompt: !,"and ethnicity for deliveries and low birth weights, hypertension, and "
  • Line Location: T7I+3
Function Call: WRITE
  • Prompt: !,"diabetes Glycemic control. Patients must meet additional criteria as"
  • Line Location: T7I+4
Function Call: WRITE
  • Prompt: !,"specified for each indicator."
  • Line Location: T7I+5
Function Call: WRITE
  • Prompt: !
  • Line Location: T7I+6
Function Call: WRITE
  • Prompt: !!,$$CTR($$LOC,80),!,$$CTR("UDS 2009",80),!
  • Line Location: GENI+2
Function Call: WRITE
  • Prompt: !,"UDS searches your database to find all patients reported for the quality"
  • Line Location: GENI+3
Function Call: WRITE
  • Prompt: !,"of care indicators during the time period January 1 - December 31, 2009."
  • Line Location: GENI+4
Function Call: WRITE
  • Prompt: !,"Based on the UDS defintion, to be considered a patient, the patient must"
  • Line Location: GENI+5
Function Call: WRITE
  • Prompt: !,"have had at least one visit meeting the following criteria:"
  • Line Location: GENI+6
Function Call: WRITE
  • Prompt: !?4,"- must be to a location specified in your visit location setup"
  • Line Location: GENI+7
Function Call: WRITE
  • Prompt: !?4,"- must be to Service Category Ambulatory (A), Hospitalization (H), Day"
  • Line Location: GENI+8
Function Call: WRITE
  • Prompt: !?6,"Surgery (S), Observation (O), Telemedicine (M), Nursing home visit (R), "
  • Line Location: GENI+9
Function Call: WRITE
  • Prompt: !?6,"or In-Hospital (I) visit"
  • Line Location: GENI+10
Function Call: WRITE
  • Prompt: !?4,"- must NOT have an excluded clinic code (see User Manual for a list)"
  • Line Location: GENI+11
Function Call: WRITE
  • Prompt: !?4,"- must have a primary provider and a coded purpose of visit"
  • Line Location: GENI+12
Function Call: WRITE
  • Prompt: !
  • Line Location: GENI+13
Function Call: WRITE
  • Prompt: !!,"UDS does not calculate the deliveries and low birth weight indicators"
  • Line Location: PRENATT+1
Function Call: WRITE
  • Prompt: !,"in Section A. However, you can run a list of patients identified "
  • Line Location: PRENATT+2
Function Call: WRITE
  • Prompt: !,"by UDS as pregnant to determine which of them received prenatal care at"
  • Line Location: PRENATT+3
Function Call: WRITE
  • Prompt: !,"your facility to assist you with completing Table 7, Section A."
  • Line Location: PRENATT+4
Function Call: WRITE
  • Prompt: !,"The menu options you would select to run the patient list are: LST, LST3,"
  • Line Location: PRENATT+5
Function Call: WRITE
  • Prompt: !,"and PRGR (list by race and Hispanic or Latino identity)."
  • Line Location: PRENATT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRENATT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: YEAR+2
Function Call: WRITE
  • Prompt: !,"Enter the Calendar Year. Use a 4 digit year, e.g. 2003, 2007"
  • Line Location: YEAR+3
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: YEAR+11
Routine Call
  • DIC
  • Line Location:
    • EN2+2
Routine Call
  • DIR
  • Line Location:
    • PNC+2
    • MHT+12
    • MDM+14
    • MPRG+9
    • PAUSE+1
    • YEAR+7
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BUDNSITE - [#90661.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] PROC+4, PROC+8
^BUDNSITE - [#90661.1] EN2+5
^DIC(4 - [#4] LOC+1
^DPT - [#2] PROC+9, PROC+10, PROC+11, PROC+12, PROC+17
^TMP($J PROC+7!
^VA(200 - [#200] USR+1
^XTMP("BUD9RP7B" PROC+2*

Label References

Name Line Occurrences
$$CTR T7H+1, GENI+2
$$LOC GENI+2
EN EN2+5
EN1 PRGHLIST+4, PRGRLIST+4, PRGELIST+4, HTRLIST+4, HTCRLIST+4, HTURLIST+4, HTELIST+4, HTCELIST+4, HTUELIST+4, MHT+18
, DMRLIST+4, DMR1LIST+4, DMR2LIST+4, DMR3LIST+4, DMELIST+4, DME1LIST+4, DME2LIST+4, DME3LIST+4, MDM+21, MPRG+15
EOJ T7+1, PNC+3, EN2+13, ZIS+3, DRIVER+5, TSKMN+5, PRGHLIST+1, PRGRLIST+1, PRGELIST+1, HTRLIST+1
, HTCRLIST+1, HTURLIST+1, HTELIST+1, HTCELIST+1, HTUELIST+1, MHT+1, MHT+13, DMRLIST+1, DMR1LIST+1, DMR2LIST+1
, DMR3LIST+1, DMELIST+1, DME1LIST+1, DME2LIST+1, DME3LIST+1, MDM+1, MDM+15, MPRG+1, MPRG+10
GENI EN+1
PAUSE EN+3, EN+5
PNC EN2+3
PRENATT EN+4
PRINT DRIVER+3
PROC DRIVER+1
T7I EN+2
TSKMN ZIS1+1
YEAR EN2+12, YEAR+11

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ZIS+1!, ZIS+2*
>> BUDAGE PROC+19*
>> BUDAGEP PROC+20*
>> BUDBD EN2+14, YEAR+12*
>> BUDCAD PROC+20, YEAR+13*
>> BUDCOM PROC+18*
>> BUDDME1L DME1LIST+2*
>> BUDDME2L DME2LIST+2*
>> BUDDME3L DME3LIST+2*
>> BUDDMEL DMELIST+2*
>> BUDDMR1L DMR1LIST+2*, MDM+3*, MDM+16*, MDM+18*
>> BUDDMR2L DMR2LIST+2*, MDM+16*, MDM+19*
>> BUDDMR3L DMR3LIST+2*, MDM+16*, MDM+20*
>> BUDDMRL DMRLIST+2*, MDM+16*, MDM+17*
>> BUDED EN2+14, PROC+19, YEAR+12*
>> BUDH PROC+1*
>> BUDHTCEL HTCELIST+2*, MHT+3*, MDM+3*
>> BUDHTCRL HTCRLIST+2*, MHT+3*, MHT+14*, MHT+16*
>> BUDHTEL HTELIST+2*, MHT+3*, MDM+3*
>> BUDHTRL HTRLIST+2*, MHT+3*, MHT+14*, MHT+15*, MDM+3*
>> BUDHTUEL HTUELIST+2*, MHT+3*, MDM+3*
>> BUDHTURL HTURLIST+2*, MHT+3*, MHT+14*, MHT+17*, MDM+3*
>> BUDJ PROC+1*
>> BUDPREN PNC+1*, PNC+4*
>> BUDPRGEL PRGELIST+2*, MPRG+3*
>> BUDPRGHL PRGHLIST+2*, MPRG+3*, MPRG+11*, MPRG+12*, PROC+23
>> BUDPRGRL PRGRLIST+2*, MPRG+3*, MPRG+11*, MPRG+13*, PROC+24
>> BUDSEX PROC+17*
>> BUDSITE EN2+1*, EN2+4*, EN2+5
>> BUDT35V PROC+22
>> BUDTAXT EN2+6*
>> BUDYEAR EN2+11*, EN2+13, YEAR+1*, YEAR+12*, YEAR+13
DA PNC+2!, MHT+12!, MDM+14!, MPRG+9!, PAUSE+1!
>> DFN PROC+4*, PROC+8, PROC+9, PROC+10, PROC+11, PROC+12, PROC+13, PROC+17, PROC+18, PROC+19
, PROC+20
DIC EN2+2*, YEAR+8!
DIC("A" EN2+2*
DIC(0 EN2+2*
DIR PNC+2!, MHT+12!, MDM+14!, MPRG+9!, PAUSE+1!, YEAR+7!
DIR("?" YEAR+6*
DIR("A" PNC+2*, MHT+12*, MDM+14*, MPRG+9*, PAUSE+1*, YEAR+5*
DIR("B" PNC+2*, MHT+12*, MDM+14*, MPRG+9*
DIR(0 PNC+2*, MHT+12*, MDM+14*, MPRG+9*, PAUSE+1*, YEAR+4*
>> DIRUT PNC+3, MHT+13, MDM+15, MPRG+10, YEAR+9*, YEAR+10
DT PROC+2
>> DUOUT YEAR+9
DUZ USR+1
DUZ(2 LOC+1
IO DRIVER+2, TSKMN+1
IO("DOC" TSKMN+2
IO("Q" ZIS1+1
>> IOCPU TSKMN+5
IOF GENI+1
IOM TSKMN+3, CTR+1
ION TSKMN+1
IOP ZIS+1!
IOSL TSKMN+3
IOST TSKMN+1
>> POP ZIS+3
U PROC+10, PROC+11, PROC+12, PROC+17, USR+1, LOC+1
X CTR~, CTR+1, C~, C+1, C+5
>> X2 C+3*
>> X3 C+3*
Y PNC+4, EN2+3, EN2+4, MHT+14, MHT+15, MHT+16, MHT+17, MDM+16, MDM+17, MDM+18
, MDM+19, MDM+20, MPRG+11, MPRG+12, MPRG+13, CTR~, CTR+1, C~, C+1, C+2
, YEAR+11, YEAR+12
>> ZTCPU TSKMN+5*
>> ZTDESC TSKMN+5*
>> ZTDTH TSKMN+5*
>> ZTIO TSKMN+1*, TSKMN+2*, TSKMN+3*
>> ZTRTN TSKMN+5*
ZTSAVE TSKMN+4!
ZTSAVE("BUD*" TSKMN+4*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All