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 |  Caller 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: BUDCRP7

Package: IHS Uniform Data System

Routine: BUDCRP7


Information

BUDCRP7 ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B 12 Dec 2015 6:51 AM 30 Dec 2015 8:19 PM 27 Aug 2015 12:41 PM ; 21 Jan 2015 2:52 PM

Source Information

Source file <BUDCRP7.m>

Call Graph

Call Graph Total: 25

Package Total Call Graph
IHS Uniform Data System 14 $$DEMO^BUDCDU  (PRINT,PROC)^BUDCRP7  PRINT^BUDCRP71  (PRGHLST,PRGRLST)^BUDCRP7A  HTN^BUDCRP7B  DM^BUDCRP7C  (GENI,PRGH,PRGR)^BUDCRP7I  (HTCR,HTR)^BUDCRP7J  
(DMR,DMR1)^BUDCRP7L  DMR2^BUDCRP7T  HTUR^BUDCRP7U  GETV^BUDCRPTD  PT^BUDCRPTE  TAXCHK^BUDCXTCH  
Kernel 5 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  $$REPEAT^XLFSTR  
VA Fileman 3 COMMA^%DTC  ^DIC  ^DIR  
IHS VA Utilities 2 ^XBDBQUE  EN^XBVK  
IHS Patient 1 ($$AGE,$$BEN,$$COMMRES)^AUPNPAT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Uniform Data System 3 BUDCRP7  BUDCRPT1  BUDCRPTP  

Entry Points

Name Comments DBIA/ICR reference
YEAR ;
EOJ ;
PRENATT ;EP
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
NODEV ;
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.
EN1 ;
EN2 ;
EN ;
ZIS ;call to XBDBQUE
DMR2LIST ;EP
T7 ;
DRIVER ;
PRGRLIST ;EP
PRGHLIST ;EP
MHT ;EP
LORIN
HTRLIST ;EP
PAUSE ;EP
HTURLIST ;EP
MPRG ;EP - called from option
ZIS1 ;
T7H ;
T7I ;EP
LIST ;
LINE2 ;
LINE1 ;
C(X,Y) ;
GENI ;general introductions
NODEV1 ;
PROC ;EP - called from taskman
LINE3 ;
DMRLIST ;EP

External References

Name Field # of Occurrence
COMMA^%DTC C+4
^%ZIS ZIS+2
^%ZISC DRIVER+4, NODEV1+3
^%ZTLOAD TSKMN+5
$$AGE^AUPNPAT LORIN+6, LORIN+7
$$BEN^AUPNPAT LORIN+1, LORIN+2
$$COMMRES^AUPNPAT LORIN+5
$$DEMO^BUDCDU PROC+16
PRINT^BUDCRP7 NODEV1+2
PROC^BUDCRP7 NODEV1+1
PRINT^BUDCRP71 PRINT+1
PRGHLST^BUDCRP7A LORIN+10
PRGRLST^BUDCRP7A LORIN+11
HTN^BUDCRP7B LORIN+12
DM^BUDCRP7C LORIN+13
GENI^BUDCRP7I MHT+2, MDM+2, MPRG+2
PRGH^BUDCRP7I PRGHLIST+3
PRGR^BUDCRP7I PRGRLIST+3
HTCR^BUDCRP7J HTCRLIST+3
HTR^BUDCRP7J HTRLIST+3
DMR^BUDCRP7L DMRLIST+3
DMR1^BUDCRP7L DMR1LIST+3
DMR2^BUDCRP7T DMR2LIST+3
HTUR^BUDCRP7U HTURLIST+3
GETV^BUDCRPTD LORIN+8
PT^BUDCRPTE EN2+18
TAXCHK^BUDCXTCH EN2+6
^DIC EN2+2
^DIR EN2+14, MHT+9, MDM+9, MPRG+8, PAUSE+1, YEAR+7
^XBDBQUE NODEV+2
EN^XBVK EOJ+1
$$FMADD^XLFDT PROC+2
$$FMTE^XLFDT EN2+10
$$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+10
Function Call: WRITE
  • Prompt: !!,"Classification not entered."
  • Line Location: EN2+15
Function Call: WRITE
  • Prompt: !,"Report Aborted"
  • Line Location: ZIS1+1
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+6
Function Call: WRITE
  • Prompt: !?5,"3 All HTN Pts w/Uncontrolled BP by Race and Hispanic or Latino Identity"
  • Line Location: MHT+7
Function Call: WRITE
  • Prompt: !?5,"4 ALL Lists for HTN Patients"
  • Line Location: MHT+8
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 <8 by Race and Hispanic or Latino Identity"
  • Line Location: MDM+6
Function Call: WRITE
  • Prompt: !?5,"3 All Patients w/DM and A1c >9 or No Test by Race and Hispanic or Latino Identity"
  • Line Location: MDM+7
Function Call: WRITE
  • Prompt: !?5,"4 ALL Lists for DM Patients"
  • Line Location: MDM+8
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+7
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 Hispanic/Latino identity for deliveries and birth weights, controlled"
  • Line Location: T7I+3
Function Call: WRITE
  • Prompt: !,"hypertension, and controlled diabetes Glycemic control. Patients must meet "
  • Line Location: T7I+4
Function Call: WRITE
  • Prompt: !,"additional criteria as 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 2015",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, 2015."
  • Line Location: GENI+4
Function Call: WRITE
  • Prompt: !,"Based on the UDS definition, 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: !?4,"- the patient must NOT have a gender of 'Unknown'"
  • Line Location: GENI+13
Function Call: WRITE
  • Prompt: !
  • Line Location: GENI+14
Function Call: WRITE
  • Prompt: !!,"UDS does not calculate the deliveries and 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 or were referred elsewhere by your facility for prenatal"
  • Line Location: PRENATT+4
Function Call: WRITE
  • Prompt: !,"and perinatal services to assist you with completing Table 7, Section A."
  • Line Location: PRENATT+5
Function Call: WRITE
  • Prompt: !,"The menu options you would select to run the patient list are: LST, LST3,"
  • Line Location: PRENATT+6
Function Call: WRITE
  • Prompt: !,"PRG, PRGR (list by race and Hispanic or Latino identity)."
  • Line Location: PRENATT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRENATT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: YEAR+2
Function Call: WRITE
  • Prompt: !,"Enter the Calendar Year. Use a 4 digit year, e.g. 2015"
  • 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:
    • EN2+14
    • MHT+9
    • MDM+9
    • MPRG+8
    • PAUSE+1
    • YEAR+7
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BUDCSITE - [#90667.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] PROC+4, PROC+6
^BUDCSITE - [#90667.1] EN2+5
^DIC(4 - [#4] LOC+1
^DPT - [#2] PROC+7, PROC+12, LORIN+3
^TMP($J PROC+5!
^VA(200 - [#200] USR+1
^XTMP("BUDCRP7B" PROC+2*

Label References

Name Line Occurrences
$$CTR T7H+1, GENI+2
$$LOC GENI+2
EN EN2+5
EN1 EN2+19, PRGHLIST+4, PRGRLIST+4, HTRLIST+4, HTCRLIST+4, HTURLIST+4, MHT+15, DMRLIST+4, DMR1LIST+4, DMR2LIST+4
, MDM+15, MPRG+13
EOJ T7+1, EN2+3, EN2+9, EN2+15, ZIS+1, ZIS1+1, DRIVER+5, NODEV1+4, TSKMN+5, PRGHLIST+1
, PRGRLIST+1, HTRLIST+1, HTCRLIST+1, HTURLIST+1, MHT+1, MHT+10, DMRLIST+1, DMR1LIST+1, DMR2LIST+1, MDM+1
, MDM+10, MPRG+1, MPRG+9
GENI EN+2
NODEV ZIS+1
PAUSE EN+4, EN+6
PRENATT EN+5
PRINT DRIVER+3
PROC DRIVER+1
T7I EN+3
TSKMN ZIS1+2
YEAR EN2+8, YEAR+11
ZIS EN2+17

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 LORIN+6*
>> BUDAGEP LORIN+7*
>> BUDBD EN2+10, YEAR+12*
>> BUDCAD LORIN+7, YEAR+13*
>> BUDCEN EN2+12*, EN2+16*, LORIN+1, LORIN+2
>> BUDCOM LORIN+5*
>> BUDDELT EN2+17*, ZIS+1, ZIS+2
>> BUDDMR1L DMR1LIST+2*, MDM+3*, MDM+11*, MDM+13*
>> BUDDMR2L DMR2LIST+2*, MDM+11*, MDM+14*
>> BUDDMRL DMRLIST+2*, MDM+11*, MDM+12*
>> BUDED EN2+10, LORIN+6, YEAR+12*
>> BUDH PROC+1*
>> BUDHTCEL MHT+3*, MDM+3*
>> BUDHTCRL HTCRLIST+2*, MHT+3*, MHT+11*, MHT+13*
>> BUDHTEL MHT+3*, MDM+3*
>> BUDHTRL HTRLIST+2*, MHT+3*, MHT+11*, MHT+12*, MDM+3*
>> BUDHTUEL MHT+3*, MDM+3*
>> BUDHTURL HTURLIST+2*, MHT+3*, MHT+11*, MHT+14*, MDM+3*
>> BUDJ PROC+1*
>> BUDNOLI EN+1*, EN2+17
>> BUDPRGEL MPRG+3*
>> BUDPRGHL PRGHLIST+2*, MPRG+3*, MPRG+10*, MPRG+11*
>> BUDPRGRL PRGRLIST+2*, MPRG+3*, MPRG+10*, MPRG+12*
>> BUDROT EN2+17*, EN2+19, ZIS+1
>> BUDSEX LORIN+3*, LORIN+4
>> BUDSITE EN2+1*, EN2+4*, EN2+5
>> BUDT35V LORIN+9
>> BUDTAXT EN2+6*
>> BUDYEAR EN2+7*, EN2+9, YEAR+1*, YEAR+12*, YEAR+13
DA EN2+14!, MHT+9!, MDM+9!, MPRG+8!, PAUSE+1!
>> DFN PROC+4*, PROC+6, PROC+7, PROC+12, PROC+16, LORIN+1, LORIN+2, LORIN+3, LORIN+5, LORIN+6
, LORIN+7
DIC EN2+2*, YEAR+8!
DIC("A" EN2+2*
DIC(0 EN2+2*
DIR EN2+14!, MHT+9!, MDM+9!, MPRG+8!, PAUSE+1!, YEAR+7!
DIR("?" YEAR+6*
DIR("A" EN2+13*, MHT+9*, MDM+9*, MPRG+8*, PAUSE+1*, YEAR+5*
DIR("B" EN2+14*, MHT+9*, MDM+9*, MPRG+8*
DIR(0 EN2+13*, MHT+9*, MDM+9*, MPRG+8*, PAUSE+1*, YEAR+4*
>> DIRUT EN2+15, MHT+10, MDM+10, MPRG+9, 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+2
>> IOCPU TSKMN+5
IOF GENI+1
IOM TSKMN+3, CTR+1
ION TSKMN+1
IOP ZIS+1!
IOSL TSKMN+3
IOST TSKMN+1
>> POP ZIS1+1
U PROC+12, LORIN+3, USR+1, LOC+1
X CTR~, CTR+1, C~, C+1, C+5
>> X2 C+3*
>> X3 C+3*
>> XBNS NODEV+1*
>> XBRC NODEV+1*
>> XBRP NODEV+1*
>> XBRX NODEV+1*
Y EN2+3, EN2+4, EN2+16, MHT+11, MHT+12, MHT+13, MHT+14, MDM+11, MDM+12, MDM+13
, MDM+14, MPRG+10, MPRG+11, MPRG+12, 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 |  Caller 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