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

Package: IHS Uniform Data System

Routine: BUDCRPTD


Information

BUDCRPTD ; IHS/CMI/LAB - UDS REPORT PROCESSOR 05 Oct 2015 5:03 PM ;

Source Information

Source file <BUDCRPTD.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
IHS VA Utilities 2 $$VAL^XBDIQ1  ^XBGSAVE  
Kernel 2 $$FMTE^XLFDT  $$VERSION^XPDUTL  
Patient Care Component Reports 2 $$START1^APCLDF  ($$CLINIC,$$PRIMPOV,$$PRIMPROV,$$VD)^APCLV  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
IHS Uniform Data System 6 BUDCRP6B  BUDCRP7  BUDCRP71  BUDCRPTC  BUDCRPTL  BUDCRPTP  

Entry Points

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

External References

Name Field # of Occurrence
$$START1^APCLDF GETV+7
$$CLINIC^APCLV GETV+17
$$PRIMPOV^APCLV MH+3, SET+5
$$PRIMPROV^APCLV GETV+22, GETV+31
$$VD^APCLV GETV+21, SET+13, LOTE+5
^DIR TZH+3
$$VAL^XBDIQ1 MEDC+4, SET+31, LOTE+12, LOTE+15
^XBGSAVE WDEL+13, SAVEDEL+10
$$FMTE^XLFDT GETV+7, SET+31, SET+45, TZH1+3, TZH1+7, TZHD+2, TZHD+6, T6DH+3, T6DH+7
$$VERSION^XPDUTL SET+20, SET+34

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+24, SET+3
^AUPNVSIT - [#9000010] GETV+10, GETV+11, GETV+12, GETV+13, GETV+16, GETV+23, GETV+28, GETV+29, 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+6, ENAB+7, SET+9
^BUDCCNTL - [#90667.2] GETV+19, MEDC1+1, DENT+4, MH+6, SUB+4, VISION+4, ENAB+4, SET+8
^BUDCCNTL("B" GETV+18, MEDC+2, DENT+2, MH+2, SUB+2, VISION+2, ENAB+2, SET+7
^BUDCSITE - [#90667.1] GETV+15, SET+30, SET+44
^BUDCTFIV - [#90667.5] OTH+3
^BUDCTFIV("AA" MEDC+6
^BUDCTFIV("B" OTH+1
^BUDCTFIV("C" MEDC+5
^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*
^BWPCD - [#9002086.1] SET+22, SET+23, SET+24, SET+27, SET+28, SET+36, SET+37, SET+38, SET+41, SET+42
^BWPCD("C" SET+21, SET+35
^BWPN("B" SET+17, SET+18, SET+19, SET+33
^DIC(4 - [#4] TZH1+6, TZHD+5, T6DH+6
^TMP($J GETV+5!, GETV+8, GETV+9, GETV+27, GETV+29*, 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+5, ENAB+7*, SET+1*
, SET+12*, SET+31*, SET+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+4, MEDC+5
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
SET GETV+23, GETV+24, GETV+32
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+7*
>> B GETV+7*
>> BUDBD GETV+7, SET+25, SET+39, TZH1+7, TZHD+6, T6DH+7
>> BUDCEN TZH1+8, TZHD+7, T6DH+8
>> BUDCLINC GETV+17*, GETV+19, SET+8
>> BUDDECNT S+1*, S+2
>> BUDDELF SAVEDEL+9
>> BUDDELT SAVEDEL+1
>> BUDED GETV+7, SET+26, SET+40, TZH1+7, TZHD+6, T6DH+7
>> BUDFILE WDEL+12
>> BUDGPG TZH+2, TZH1+1*, TZH1+3
>> BUDH WDEL+9, WDEL+10, WDEL+11
>> BUDJ WDEL+9, WDEL+10, WDEL+11
>> BUDLASTV GETV+6*, SET+13*
>> BUDLINE MEDC+4*, MEDC+5*, MEDC+6*, MEDC1+1, DENT+4, MH+6, SUB+4, VISION+4, ENAB+4
>> BUDMEDV GETV+6*, MEDC1+5*
>> BUDMEDVI GETV+6*, MEDC1+5*
>> BUDP TZH1+10, TZH1+11, TZH1+12, TZH1+13, TZH1+16*
>> BUDPP GETV+22*, GETV+26, GETV+27, GETV+29, GETV+31*, GETV+32, MEDC+4, MEDC+5, MEDC+6, OTH+3
, OTH+4, OTH+6, ENAB+5, ENAB+7, SET+10
>> BUDQUIT TZH+3*
>> BUDROT TZH+1
>> BUDSITE GETV+15, SET+30, SET+44, TZH1+6, TZHD+5, T6DH+6
>> BUDT35V GETV+6*, SET+11*, SET+15
>> BUDT6V GETV+6*
>> BUDTIEN GETV+18*, GETV+19, 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+4, SET+7*, SET+8
>> BUDTV GETV+6*, SET*
>> BUDVDATE GETV+21*, GETV+27, GETV+29, 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+5, ENAB+7
>> BUDVLOC GETV+13*, GETV+14, GETV+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+5, ENAB+7
>> BUDVSIT GETV+9*, GETV+10, GETV+11, GETV+12, GETV+13, GETV+16, GETV+17, GETV+21, GETV+22, GETV+23
, GETV+24, GETV+28, GETV+29, GETV+31, MEDC+4, 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+6
, ENAB+7, SET+1, SET+3, SET+5, SET+9, SET+12, SET+13, SET+22, SET+23, SET+24
, SET+27, SET+28, SET+35*, SET+36, SET+37, SET+38, SET+41, SET+42, SET+45
>> BUDX GETV+9*
>> BUDY MEDC+5*
>> C WDEL+9*, WDEL+11*, SAVEDEL+7*
D GETV+27*, GETV+28, 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+5*, ENAB+6, SET+23*, SET+25, SET+26, SET+31
, SET+37*, SET+39, SET+40, SET+45, WDEL+9*, WDEL+10, WDEL+11, LOTE+4~, LOTE+5*, LOTE+7
>> DFN GETV+7, GETV+27, GETV+29, 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+5, ENAB+7, SET+21, SET+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+7*
>> G SET+21*, SET+35*
IO TZH+3
IO(0 TZH+3
IOF TZH1+1
IOM CTR+1
IOST TZH+3
IR LOTE+4~, LOTE+6*
>> J SET+24*, SET+38*
L SET+28*, SET+29, SET+30, SET+42*, SET+43, SET+44, 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 GETV+25*, GETV+28*, GETV+30, 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+3*, ENAB+6*, ENAB+8
>> T SET+17*, SET+24, SET+33*, SET+38
>> T1 SET+18*, SET+24
>> T2 SET+19*, SET+24
U GETV+9, GETV+11, GETV+12, GETV+13, GETV+16, GETV+23, GETV+27, GETV+28, GETV+29, 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+5, ENAB+6, ENAB+7
, SET+9, SET+23, SET+24, SET+27, SET+28, SET+31, SET+37, SET+38, SET+41, SET+42
, SET+45, TZH1+3, TZH1+6, LOTE+9, LOTE+10, LOTE+13, TZHD+2, TZHD+5, T6DH+3, T6DH+6
V SET+21*, SET+31, 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 SET+5*, 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