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

Package: IHS Uniform Data System

Routine: BUDDRPTD


Information

BUDDRPTD ; IHS/CMI/LAB - UDS REPORT PROCESSOR 05 Oct 2016 5:03 PM ;

Source Information

Source file <BUDDRPTD.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
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 BUDDRP6B  BUDDRP7  BUDDRP71  BUDDRPTC  BUDDRPTL  BUDDRPTP  

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+22, T5+10, A6+8
$$PRIMPOV^APCLV MH+3
$$PRIMPROV^APCLV GETV+25, GETV+27, T5+13, T5+16
$$VD^APCLV GETV+32, GETV+33, T5+15, A6+13, A6+14, LOTE+5
^DIR TZH+3
$$VAL^XBDIQ1 MEDC+3, A6+31, A6+45, LOTE+12, LOTE+15
^XBGSAVE WDEL+13, SAVEDEL+10
$$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: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: TZH1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: TZH1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",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+8
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: TZH1+9
Function Call: WRITE
  • Prompt: !,"List of all patients with one or more visits during the calendar year."
  • Line Location: TZH1+10
Function Call: WRITE
  • Prompt: !,"Zip code is from patient registration."
  • Line Location: TZH1+11
Function Call: WRITE
  • Prompt: !!,"NOTE: Patients with a zip code included in the Other Zip Codes category"
  • Line Location: TZH1+12
Function Call: WRITE
  • Prompt: !,"have their zip code value followed by a ""","*",""" (e.g. 87015*)."
  • Line Location: TZH1+13
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"ZIP CODE",?65,"INS"
  • Line Location: TZH1+14
Function Call: WRITE
  • Prompt: !?5,"VISIT DATE",?25,"PROV TYPE",?41,"SRV",?45,"CLINIC",?62,"LOCATION"
  • Line Location: TZH1+15
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: TZH1+17
Function Call: WRITE
  • Prompt: !,^TMP($J,"BUDDEL",X)
  • Line Location: SCREEN+1
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+29, 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 WDEL+3, WDEL+5!, WDEL+15, WDEL+16!, SAVEDEL+4, SAVEDEL+6!, SAVEDEL+12, SAVEDEL+13!, WDEL+11*, SAVEDEL+7*
^BUDDATA(1 WDEL+8*
^BUDDCNTL - [#90668.2] GETV+24, T5+12, MEDC1+1, DENT+4, MH+6, SUB+4, VISION+4, ENAB+3, A6+10
^BUDDCNTL("B" GETV+23, T5+11, MEDC+2, DENT+2, MH+2, SUB+2, VISION+2, ENAB+2, A6+9
^BUDDSITE - [#90668.1] GETV+20, T5+7, A6+6, A6+29, A6+43
^BUDDTFIV - [#90668.5] OTH+3
^BUDDTFIV("AA" MEDC+5
^BUDDTFIV("B" OTH+1
^BUDDTFIV("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+31*, 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*, WDEL+4!, S+2*, SAVEDEL+5!, SAVEDEL+7
, SAVEDEL+14!, SCREEN+1
^VA(200 - [#200] TZH1+3, TZHD+2, T6DH+3
^XTMP("BUDARP9DEL" WDEL+9, WDEL+10, WDEL+11

Label References

Name Line Occurrences
$$CTR TZH1+4, TZH1+5, TZH1+6, TZH1+7, TZH1+8
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+22*, GETV+24, T5+10*, T5+12, A6+8*, A6+10
>> BUDDECNT S+1*, S+2
>> BUDDELF SAVEDEL+9
>> BUDDELT SAVEDEL+1
>> BUDED GETV+11, A6+26, A6+40, TZH1+7, TZHD+6, T6DH+7
>> BUDFILE WDEL+12
>> BUDFRSTV GETV+10*, GETV+33*
>> BUDGPG TZH+2, TZH1+1*, TZH1+3
>> BUDH WDEL+9, WDEL+10, WDEL+11
>> BUDJ WDEL+9, WDEL+10, WDEL+11
>> BUDLASTV GETV+9*, GETV+32*
>> 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+10, TZH1+11, TZH1+12, TZH1+13, TZH1+16*
>> BUDPP GETV+25*, GETV+26, T5+13*, T5+14
>> BUDPPD GETV+27*, GETV+28, T5+16*, T5+17, MEDC+3, MEDC+4, MEDC+5, OTH+3, OTH+4, OTH+6
, ENAB+4, ENAB+6
>> BUDQUIT TZH+3*
>> BUDROT TZH+1
>> BUDSITE GETV+20, T5+7, A6+6, A6+29, A6+43, TZH1+6, TZHD+5, T6DH+6
>> BUDTIEN GETV+23*, GETV+24, 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
>> BUDUDSPT GETV+6*, GETV+30*, GETV+34
>> BUDVDATE T5+15*, 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+22, GETV+25, GETV+27, GETV+29
, GETV+31, GETV+32, GETV+33, T5+1*, T5+2, T5+3, T5+4, T5+5, T5+8, T5+9
, T5+10, T5+13, T5+15, T5+16, 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 WDEL+9*, WDEL+11*, SAVEDEL+7*
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, WDEL+9*, WDEL+10, WDEL+11, 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 CTR+1
IOST TZH+3
IR LOTE+4~, LOTE+6*
>> J 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*, CTR~, CTR+1, WDEL+6*, WDEL+7*, WDEL+8, WDEL+10*, WDEL+11, LOTE+4~
, LOTE+6*, LOTE+7*, TZHD+6*, TZHD+7*, TZHD+12*, SAVEDEL+7*, SCREEN+1*, T6DH+7*, T6DH+8*
XBE WDEL+14!, SAVEDEL+11!
XBF WDEL+12*, WDEL+14!, SAVEDEL+9*, SAVEDEL+11!
XBFLT WDEL+12*, WDEL+14!, SAVEDEL+9*, SAVEDEL+11!
XBFN WDEL+12*, WDEL+14!, SAVEDEL+9*, SAVEDEL+11!
>> XBGL WDEL+2*, SAVEDEL+3*
XBMED WDEL+12*, WDEL+14!, SAVEDEL+9*, SAVEDEL+11!
>> XBQ WDEL+12*, SAVEDEL+9*
XBTLE WDEL+12*, WDEL+14!, SAVEDEL+9*, SAVEDEL+11!
Y TZH+3, CTR~, CTR+1, LOTE+4~, LOTE+6*, LOTE+7*
>> ZTQUEUED TZH+3, WDEL+3, SAVEDEL+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All