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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BUDHRPTD

Package: IHS Uniform Data System

Routine: BUDHRPTD


Information

BUDHRPTD ;IHS/CMI/LAB - UDS REPORT PROCESSOR;

Source Information

Source file <BUDHRPTD.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS Uniform Data System 3 $$VER^BUDHBAN  WDEL^BUDHRPTQ  (COVPAGED,COVPAGEP)^BUDHUTL1  
IHS VA Utilities 2 $$VAL^XBDIQ1  ^XBGSAVE  
Patient Care Component Reports 2 $$START1^APCLDF  ($$CLINIC,$$PRIMPOV,$$PRIMPROV,$$VD)^APCLV  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
IHS Uniform Data System 6 BUDHRP6B  BUDHRP7  BUDHRP71  BUDHRPTC  BUDHRPTL  BUDHRPTP  

Entry Points

Name Comments DBIA/ICR reference
ENAB
SAVEDEL ;EP
S(V) ;
SUB
T6DH ;EP
LOTE(P,V) ;
TZH1 ;
SET
CTR(X,Y) ;EP
DENT
A6
TZH ;EP
VISION
SCREEN ;
T5 ;now get visits for table 5 1 per provider type per day
WDEL ;EP - write out delimited file 9d
MEDC1
OTH
MEDC
MH
TZHD ;EP
GETV ;EP - get all visits for this patient and tally in BUDTV

External References

Name Field # of Occurrence
$$START1^APCLDF GETV+11
$$CLINIC^APCLV GETV+25, T5+10, A6+8
$$PRIMPOV^APCLV MH+3
$$PRIMPROV^APCLV GETV+23, GETV+28, GETV+30, T5+13, T5+16, T5+19
$$VD^APCLV GETV+35, GETV+36, T5+18, A6+13, A6+14, LOTE+5
$$VER^BUDHBAN TZH1+4, TZHD+3, T6DH+4
WDEL^BUDHRPTQ WDEL+1
COVPAGED^BUDHUTL1 SAVEDEL+7
COVPAGEP^BUDHUTL1 SCREEN+1
^DIR TZH+3
$$VAL^XBDIQ1 MEDC+3, A6+31, A6+45, LOTE+12, LOTE+15
^XBGSAVE SAVEDEL+13
$$FMTE^XLFDT GETV+11, A6+31, A6+45, TZH1+3, TZH1+7, TZHD+2, TZHD+6, T6DH+3, T6DH+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: TZH+3
Function Call: WRITE
  • Prompt: !,$$CTR("***** SENSITIVE INFORMATION *****",IOM)
  • Line Location: TZH1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?55,"Section "_BUDSCTC_" of "_BUDTSCTC_", Page "_BUDGPG,!
  • Line Location: TZH1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) "_$$VER^BUDHBAN()_" ***",80)
  • Line Location: TZH1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List: Patient by Zip Code/Insurance",80),!
  • Line Location: TZH1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: TZH1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: TZH1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: TZH1+9
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: TZH1+10
Function Call: WRITE
  • Prompt: !,"List of all patients with one or more visits during the calendar year."
  • Line Location: TZH1+11
Function Call: WRITE
  • Prompt: !,"Zip code is from patient registration."
  • Line Location: TZH1+12
Function Call: WRITE
  • Prompt: !!,"NOTE: Patients with a zip code included in the Other Zip Codes category"
  • Line Location: TZH1+13
Function Call: WRITE
  • Prompt: !,"have their zip code value followed by a ""","*",""" (e.g. 87015*)."
  • Line Location: TZH1+14
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"ZIP CODE",?65,"INS"
  • Line Location: TZH1+15
Function Call: WRITE
  • Prompt: !?5,"VISIT DATE",?25,"PROV TYPE",?41,"SRV",?45,"CLINIC",?62,"LOCATION"
  • Line Location: TZH1+16
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: TZH1+18
Function Call: WRITE
  • Prompt: !," "
  • Line Location: SCREEN+2
Function Call: WRITE
  • Prompt: !,^TMP($J,"BUDDEL",X)
  • Line Location: SCREEN+3
Function Call: WRITE
  • Prompt: !!,"***** END OF REPORT *****",!
  • Line Location: SCREEN+4
Routine Call
  • DIR
  • Line Location:
    • TZH+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] LOTE+7, LOTE+9, LOTE+10, LOTE+13
^AUPNVPOV("AD" GETV+32, T5+9
^AUPNVSIT - [#9000010] GETV+15, GETV+16, GETV+17, GETV+18, GETV+21, T5+2, T5+3, T5+4, T5+5, T5+8
, MEDC1+3, MEDC1+4, DENT+6, DENT+7, MH+8, MH+9, SUB+6, SUB+7, VISION+6, VISION+7
, OTH+5, OTH+6, ENAB+5, ENAB+6, A6+1, A6+2, A6+3, A6+4, A6+7, A6+13
, A6+14
^BUDDATA SAVEDEL+4, SAVEDEL+6!, SAVEDEL+15, SAVEDEL+16!, SAVEDEL+8*, SAVEDEL+9*, SAVEDEL+10*
^BUDHCNTL - [#90669.902] GETV+27, T5+12, MEDC1+1, DENT+4, MH+6, SUB+4, VISION+4, ENAB+3, A6+10
^BUDHCNTL("B" GETV+26, T5+11, MEDC+2, DENT+2, MH+2, SUB+2, VISION+2, ENAB+2, A6+9
^BUDHSITE - [#90669.901] GETV+20, GETV+24, T5+7, T5+17, A6+6, A6+29, A6+43
^BUDHTFIV - [#90669.905] OTH+3
^BUDHTFIV("AA" MEDC+5
^BUDHTFIV("B" OTH+1
^BUDHTFIV("C" MEDC+4
^BWPCD - [#9002086.1] A6+22, A6+23, A6+24, A6+27, A6+30, A6+36, A6+37, A6+38, A6+41, A6+44
^BWPCD("C" A6+21, A6+35
^BWPN("B" A6+17, A6+18, A6+19, A6+33
^DIC(4 - [#4] TZH1+6, TZHD+5, T6DH+6
^TMP($J GETV+5!, GETV+12, GETV+14, GETV+34*, T5+1, MEDC1+2, MEDC1+4*, DENT+5, DENT+7*, MH+7
, MH+9*, SUB+5, SUB+7*, VISION+5, VISION+7*, OTH+4, OTH+6*, ENAB+4, ENAB+6*, SET+1*
, A6, A6+13, A6+14*, A6+15*, A6+31*, A6+45*, S+2*, SAVEDEL+5!, SAVEDEL+9, SAVEDEL+17!
, SCREEN+3
^VA(200 - [#200] TZH1+3, TZHD+2, T6DH+3

Label References

Name Line Occurrences
$$CTR TZH1+2, TZH1+4, TZH1+5, TZH1+6, TZH1+7, TZH1+9
MEDC1 MEDC+3, MEDC+4
S TZHD+1, TZHD+2, TZHD+3, TZHD+4, TZHD+5, TZHD+6, TZHD+7, TZHD+8, TZHD+9, TZHD+10
, TZHD+11, TZHD+12, TZHD+13, T6DH+1, T6DH+2, T6DH+3, T6DH+4, T6DH+5, T6DH+6, T6DH+7
, T6DH+8, T6DH+9, T6DH+10, T6DH+11, T6DH+12, T6DH+13, T6DH+15, T6DH+16
SCREEN SAVEDEL+1
SUB MH+4
TZH1 TZH+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LOTE+4~, LOTE+6*
>> A GETV+11*
>> B GETV+11*
>> BUDBD GETV+11, A6+25, A6+39, TZH1+7, TZHD+6, T6DH+7
>> BUDBEN TZH1+8, TZHD+7, T6DH+8
>> BUDCLINC GETV+25*, GETV+27, T5+10*, T5+12, A6+8*, A6+10
>> BUDDECNT S+1*, S+2
>> BUDDELF SAVEDEL+12
>> BUDDELT SAVEDEL+1
>> BUDED GETV+11, A6+26, A6+40, TZH1+7, TZHD+6, T6DH+7
>> BUDFRSTV GETV+10*, GETV+36*
>> BUDGPG TZH+2, TZH1+1*, TZH1+3
>> BUDLASTV GETV+9*, GETV+35*
>> BUDLINE MEDC+3*, MEDC+4*, MEDC+5*, MEDC1+1, DENT+4, MH+6, SUB+4, VISION+4, ENAB+3
>> BUDMEDV GETV+7*, MEDC1+5*
>> BUDMEDVI GETV+8*, MEDC1+5*
>> BUDP TZH1+11, TZH1+12, TZH1+13, TZH1+14, TZH1+17*
>> BUDPP GETV+28*, GETV+29, T5+13*, T5+14
>> BUDPPD GETV+30*, GETV+31, T5+19*, T5+20, MEDC+3, MEDC+4, MEDC+5, OTH+3, OTH+4, OTH+6
, ENAB+4, ENAB+6
>> BUDQUIT TZH+3*
>> BUDROT TZH+1
>> BUDSCTC TZH1+3
>> BUDSITE GETV+20, GETV+24, T5+7, T5+17, A6+6, A6+29, A6+43, TZH1+6, TZHD+5, T6DH+6
>> BUDTIEN GETV+26*, GETV+27, T5+11*, T5+12, MEDC+2*, MEDC1+1, MEDC1+2, MEDC1+4, DENT+2*, DENT+4
, DENT+5, DENT+7, MH+2*, MH+6, MH+7, MH+9, SUB+2*, SUB+4, SUB+5, SUB+7
, VISION+2*, VISION+4, VISION+5, VISION+7, OTH+1*, OTH+3, ENAB+2*, ENAB+3, A6+9*, A6+10
>> BUDTSCTC TZH1+3
>> BUDUDSPT GETV+6*, GETV+33*, GETV+37
>> BUDVDATE T5+18*, MEDC1+2, MEDC1+4, DENT+5, DENT+7, MH+7, MH+9, SUB+5, SUB+7, VISION+5
, VISION+7, OTH+4, OTH+6, ENAB+4, ENAB+6
>> BUDVLOC GETV+18*, GETV+19, GETV+20, T5+5*, T5+6, T5+7, MEDC1+2, MEDC1+4, DENT+5, DENT+7
, MH+7, MH+9, SUB+5, SUB+7, VISION+5, VISION+7, OTH+4, OTH+6, ENAB+4, ENAB+6
, A6+4*, A6+5, A6+6
>> BUDVSIT GETV+14*, GETV+15, GETV+16, GETV+17, GETV+18, GETV+21, GETV+23, GETV+25, GETV+28, GETV+30
, GETV+32, GETV+34, GETV+35, GETV+36, T5+1*, T5+2, T5+3, T5+4, T5+5, T5+8
, T5+9, T5+10, T5+13, T5+16, T5+18, T5+19, MEDC+3, MEDC1+3, MEDC1+4, MEDC1+5
, DENT+6, DENT+7, MH+3, MH+8, MH+9, SUB+6, SUB+7, VISION+6, VISION+7, OTH+5
, OTH+6, ENAB+5, ENAB+6, SET+1, A6*, A6+1, A6+2, A6+3, A6+4, A6+7
, A6+8, A6+13, A6+14, A6+15
>> BUDX GETV+14*, T5+1*, A6*
>> BUDY MEDC+4*
>> C SAVEDEL+8*, SAVEDEL+9*, SAVEDEL+10*
D MEDC1+2*, MEDC1+3, DENT+5*, DENT+6, MH+7*, MH+8, SUB+5*, SUB+6, VISION+5*, VISION+6
, OTH+4*, OTH+5, ENAB+4*, ENAB+5, A6+23*, A6+25, A6+26, A6+31, A6+37*, A6+39
, A6+40, A6+45, LOTE+4~, LOTE+5*, LOTE+7
>> DFN GETV+11, MEDC1+2, MEDC1+4, DENT+5, DENT+7, MH+7, MH+9, SUB+5, SUB+7, VISION+5
, VISION+7, OTH+4, OTH+6, ENAB+4, ENAB+6, A6+13, A6+14, A6+21, A6+35
DIR TZH+3!
DIR(0 TZH+3*
DT TZH1+3, TZHD+2, T6DH+3
>> DTOUT TZH+3
DUZ TZH1+3, TZHD+2, T6DH+3
>> E GETV+11*
>> G A6+21*, A6+35*
IO TZH+3
IO(0 TZH+3
IOF TZH1+1
IOM TZH1+2, CTR+1
IOST TZH+3
IR LOTE+4~, LOTE+6*
>> J GETV+23*, GETV+24, T5+16*, T5+17, A6+24*, A6+38*
L A6+27*, A6+28, A6+29, A6+41*, A6+42, A6+43, LOTE+4~, LOTE+6*, LOTE+7*, LOTE+8
, LOTE+9, LOTE+10, LOTE+13
P MH+3*, MH+4, LOTE~, LOTE+7, LOTE+9, LOTE+10, LOTE+13
PL LOTE+4~, LOTE+6*, LOTE+10*, LOTE+11, LOTE+12, LOTE+13*, LOTE+14, LOTE+15
RL LOTE+4~, LOTE+6*
>> S MEDC+1*, MEDC1*, MEDC1+3*, MEDC1+6, DENT+1*, DENT+3*, DENT+6*, DENT+8, MH+1*, MH+5*
, MH+8*, MH+10, SUB+1*, SUB+3*, SUB+6*, SUB+8, VISION+1*, VISION+3*, VISION+6*, VISION+8
, OTH+2*, OTH+5*, OTH+7, ENAB+1*, ENAB+5*, ENAB+7
>> T A6+17*, A6+24, A6+33*, A6+38
>> T1 A6+18*, A6+24
>> T2 A6+19*, A6+24
U GETV+14, GETV+16, GETV+17, GETV+18, GETV+21, T5+1, T5+3, T5+4, T5+5, T5+8
, MEDC1+2, MEDC1+3, MEDC1+4, DENT+5, DENT+6, DENT+7, MH+7, MH+8, MH+9, SUB+5
, SUB+6, SUB+7, VISION+5, VISION+6, VISION+7, OTH+4, OTH+5, OTH+6, ENAB+4, ENAB+5
, ENAB+6, A6, A6+2, A6+3, A6+4, A6+7, A6+13, A6+14, A6+23, A6+24
, A6+27, A6+30, A6+31, A6+37, A6+38, A6+41, A6+44, A6+45, TZH1+3, TZH1+6
, LOTE+9, LOTE+10, LOTE+13, TZHD+2, TZHD+5, T6DH+3, T6DH+6
V A6+21*, A6+22, A6+23, A6+24, A6+27, A6+30, A6+31, A6+35*, A6+36, A6+37
, A6+38, A6+41, A6+44, A6+45, LOTE~, LOTE+5, S~, S+2
X TZH1+7*, TZH1+8*, TZH1+9, CTR~, CTR+1, LOTE+4~, LOTE+6*, LOTE+7*, TZHD+6*, TZHD+7*
, TZHD+12*, SAVEDEL+9*, SCREEN+3*, T6DH+7*, T6DH+8*
XBE SAVEDEL+14!
XBF SAVEDEL+12*, SAVEDEL+14!
XBFLT SAVEDEL+12*, SAVEDEL+14!
XBFN SAVEDEL+12*, SAVEDEL+14!
>> XBGL SAVEDEL+3*
XBMED SAVEDEL+12*, SAVEDEL+14!
>> XBQ SAVEDEL+12*
XBTLE SAVEDEL+12*, SAVEDEL+14!
Y TZH+3, CTR~, CTR+1, LOTE+4~, LOTE+6*, LOTE+7*
>> ZTQUEUED TZH+3, SAVEDEL+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All