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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BUD2RPL5

Package: IHS Uniform Data System

Routine: BUD2RPL5


Information

BUD2RPL5 ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B ;

Source Information

Source file <BUD2RPL5.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS Patient 1 ($$AGE,$$HRN)^AUPNPAT  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Uniform Data System 1 BUD2RPTL  

Entry Points

Name Comments DBIA/ICR reference
T4IPPL2 ;
T4IPPL ;EP
T4IPPL1 ;
T4CHAR1 ;
T4IPPH ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
T4PMIS1 ;
T4PMIH1 ;
CTR(X,Y) ;EP - Center X in a field Y wide.
T4IPPLX ;
T4PMIH ;
T4PMISX ;
T4PMIS2 ;
T4CHAH ;
T4CHAR2 ;
USR() ;EP - Return name of current user from ^VA(200.
T4CHAH1 ;
T4PMIS ;EP
T4CHARX ;
T4CHAR ;EP
T4IPPH1 ;

External References

Name Field # of Occurrence
$$AGE^AUPNPAT T4IPPL2+10, T4PMIS2+10, T4CHAR2+10
$$HRN^AUPNPAT T4IPPL2+9, T4PMIS2+9, T4CHAR2+9
^DIR T4IPPH+2, T4PMIH+2, T4CHAH+2
$$FMTE^XLFDT T4IPPH1+3, T4IPPH1+7, T4PMIH1+3, T4PMIH1+8, T4CHAH1+3, T4CHAH1+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No patients to report."
  • Line Location: T4IPPL+3
Function Call: WRITE
  • Prompt: !!,"TOTAL PATIENTS: ",BUDTOT,!
  • Line Location: T4IPPL+6
Function Call: WRITE
  • Prompt: !,"Income as Percent of Poverty Level: ",BUDINC,!
  • Line Location: T4IPPL2+2
Function Call: WRITE
  • Prompt: !,"Income as Percent of Poverty Level: ",BUDINC,!
  • Line Location: T4IPPL2+7
Function Call: WRITE
  • Prompt: !!,"Sub-Total Line ",BUDINCI," ",BUDINC,": ",BUDSTOT,!
  • Line Location: T4IPPL2+13
Function Call: WRITE
  • Prompt: !
  • Line Location: T4IPPH+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: T4IPPH1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: T4IPPH1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: T4IPPH1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 4, Income As Percent of Poverty Level",80),!
  • Line Location: T4IPPH1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: T4IPPH1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T4IPPH1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T4IPPH1+8
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: T4IPPH1+9
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE"
  • Line Location: T4IPPH1+16
Function Call: WRITE
  • Prompt: !,?5,"INCOME PERCENT OF POVERTY LEVEL"
  • Line Location: T4IPPH1+17
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: T4IPPH1+19
Function Call: WRITE
  • Prompt: !!,"No patients to report."
  • Line Location: T4PMIS+3
Function Call: WRITE
  • Prompt: !!,"TOTAL PATIENTS: ",BUDTOT,!
  • Line Location: T4PMIS+6
Function Call: WRITE
  • Prompt: !,"Principle Third Party Medical Insurance Source: ",BUDINC,!
  • Line Location: T4PMIS2+2
Function Call: WRITE
  • Prompt: !,"Principle Third Party Medical Insurance Source: ",BUDINC,!
  • Line Location: T4PMIS2+7
Function Call: WRITE
  • Prompt: !!,"Sub-Total Line ",$S(BUDINCI=8.1:"8a",BUDINCI=8.2:"8b",BUDINCI=10.1:"10a",BUDINCI=10.2:"10b",1:BUDINCI)," ",BUDINC,": ",BUDSTOT,!
  • Line Location: T4PMIS2+13
Function Call: WRITE
  • Prompt: !
  • Line Location: T4PMIH+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: T4PMIH1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: T4PMIH1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: T4PMIH1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 4",80)
  • Line Location: T4PMIH1+5
Function Call: WRITE
  • Prompt: !,$$CTR("Principle Third Party Medical Insurance Source",80),!
  • Line Location: T4PMIH1+6
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: T4PMIH1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T4PMIH1+8
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T4PMIH1+9
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: T4PMIH1+10
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE"
  • Line Location: T4PMIH1+16
Function Call: WRITE
  • Prompt: !,?5,"PRINCIPLE THIRD PARTY MEDICAL INSURANCE SOURCE"
  • Line Location: T4PMIH1+17
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: T4PMIH1+19
Function Call: WRITE
  • Prompt: !!,"No patients to report."
  • Line Location: T4CHAR+3
Function Call: WRITE
  • Prompt: !!,"TOTAL PATIENTS: ",BUDTOT,!
  • Line Location: T4CHAR+6
Function Call: WRITE
  • Prompt: !,"Special Characteristics: ",BUDINC,!
  • Line Location: T4CHAR2+2
Function Call: WRITE
  • Prompt: !,"Special Characteristics: ",BUDINC,!
  • Line Location: T4CHAR2+7
Function Call: WRITE
  • Prompt: !!,"Sub-Total Line ",BUDINCI," ",BUDINC,": ",BUDSTOT,!
  • Line Location: T4CHAR2+13
Function Call: WRITE
  • Prompt: !
  • Line Location: T4CHAH+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: T4CHAH1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: T4CHAH1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: T4CHAH1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 4")
  • Line Location: T4CHAH1+5
Function Call: WRITE
  • Prompt: !,$$CTR("Characteristics - Special Characteristics",80),!
  • Line Location: T4CHAH1+6
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: T4CHAH1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T4CHAH1+8
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T4CHAH1+9
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: T4CHAH1+10
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE"
  • Line Location: T4CHAH1+17
Function Call: WRITE
  • Prompt: !,?5,"SPECIAL CHARACTERISTIC"
  • Line Location: T4CHAH1+18
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: T4CHAH1+20
Routine Call
  • DIR
  • Line Location:
    • T4IPPH+2
    • T4PMIH+2
    • T4CHAH+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] LOC+1, T4IPPH1+6, T4PMIH1+7, T4CHAH1+7
^DPT - [#2] T4IPPL2+9, T4IPPL2+10, T4PMIS2+9, T4PMIS2+10, T4CHAR2+9, T4CHAR2+10
^VA(200 - [#200] USR+1, T4IPPH1+3, T4PMIH1+3, T4CHAH1+3
^XTMP("BUD2RPT1" T4IPPL+3, T4IPPL1+3, T4IPPL1+4, T4IPPL2+3, T4IPPL2+4, T4IPPL2+5, T4IPPL2+6, T4PMIS+3, T4PMIS1+3, T4PMIS1+4
, T4PMIS2+3, T4PMIS2+4, T4PMIS2+5, T4PMIS2+6, T4CHAR+3, T4CHAR1+3, T4CHAR1+4, T4CHAR2+3, T4CHAR2+4, T4CHAR2+5
, T4CHAR2+6

Label References

Name Line Occurrences
$$CTR T4IPPH1+4, T4IPPH1+5, T4IPPH1+6, T4IPPH1+7, T4IPPH1+8, T4PMIH1+4, T4PMIH1+5, T4PMIH1+6, T4PMIH1+7, T4PMIH1+8
, T4PMIH1+9, T4CHAH1+4, T4CHAH1+5, T4CHAH1+6, T4CHAH1+7, T4CHAH1+8, T4CHAH1+9
T4CHAH T4CHAR+2, T4CHAR+5, T4CHAR1+1, T4CHAR2+7, T4CHAR2+12
T4CHAH1 T4CHAH+1
T4CHAR1 T4CHAR+4
T4CHAR2 T4CHAR1+4
T4CHARX T4CHAR+5
T4IPPH T4IPPL+2, T4IPPL+5, T4IPPL1+1, T4IPPL2+7, T4IPPL2+12
T4IPPH1 T4IPPH+1
T4IPPL1 T4IPPL+4
T4IPPL2 T4IPPL1+4
T4IPPLX T4IPPL+5
T4PMIH T4PMIS+2, T4PMIS+5, T4PMIS1+1, T4PMIS2+7, T4PMIS2+12
T4PMIH1 T4PMIH+1
T4PMIS1 T4PMIS+4
T4PMIS2 T4PMIS1+4
T4PMISX T4PMIS+5

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BUDAGE T4IPPL2+5*, T4IPPL2+6, T4PMIS2+3*, T4PMIS2+4, T4PMIS2+5, T4PMIS2+6, T4CHAR2+3*, T4CHAR2+4, T4CHAR2+5, T4CHAR2+6
>> BUDBD T4IPPH1+7, T4PMIH1+8, T4CHAH1+8
>> BUDBEN T4IPPH1+8, T4PMIH1+9, T4CHAH1+9
>> BUDCAD T4IPPL2+10, T4PMIS2+10, T4CHAR2+10
>> BUDCOM T4IPPL2+3*, T4IPPL2+4, T4IPPL2+5, T4IPPL2+6, T4IPPL2+10, T4PMIS2+4*, T4PMIS2+5, T4PMIS2+6, T4PMIS2+10, T4CHAR2+4*
, T4CHAR2+5, T4CHAR2+6, T4CHAR2+10
>> BUDED T4IPPH1+7, T4PMIH1+8, T4CHAH1+8
>> BUDGPG T4IPPH+1, T4IPPH1+1*, T4IPPH1+3, T4PMIH+1, T4PMIH1+1*, T4PMIH1+3, T4CHAH+1, T4CHAH1+1*, T4CHAH1+3
>> BUDH T4IPPL+3, T4IPPL1+3, T4IPPL1+4, T4IPPL2+3, T4IPPL2+4, T4IPPL2+5, T4IPPL2+6, T4PMIS+3, T4PMIS1+3, T4PMIS1+4
, T4PMIS2+3, T4PMIS2+4, T4PMIS2+5, T4PMIS2+6, T4CHAR+3, T4CHAR1+3, T4CHAR1+4, T4CHAR2+3, T4CHAR2+4, T4CHAR2+5
, T4CHAR2+6
>> BUDINC T4IPPL1+4*, T4IPPL2+2, T4IPPL2+3, T4IPPL2+4, T4IPPL2+5, T4IPPL2+6, T4IPPL2+7, T4IPPL2+11, T4IPPL2+13, T4PMIS1+4*
, T4PMIS2+2, T4PMIS2+3, T4PMIS2+4, T4PMIS2+5, T4PMIS2+6, T4PMIS2+7, T4PMIS2+11, T4PMIS2+13, T4CHAR1+4*, T4CHAR2+2
, T4CHAR2+3, T4CHAR2+4, T4CHAR2+5, T4CHAR2+6, T4CHAR2+7, T4CHAR2+11, T4CHAR2+13
>> BUDINCI T4IPPL1+3*, T4IPPL1+4, T4IPPL2+3, T4IPPL2+4, T4IPPL2+5, T4IPPL2+6, T4IPPL2+13, T4PMIS1+3*, T4PMIS1+4, T4PMIS2+3
, T4PMIS2+4, T4PMIS2+5, T4PMIS2+6, T4PMIS2+13, T4CHAR1+3*, T4CHAR1+4, T4CHAR2+3, T4CHAR2+4, T4CHAR2+5, T4CHAR2+6
, T4CHAR2+13
>> BUDJ T4IPPL+3, T4IPPL1+3, T4IPPL1+4, T4IPPL2+3, T4IPPL2+4, T4IPPL2+5, T4IPPL2+6, T4PMIS+3, T4PMIS1+3, T4PMIS1+4
, T4PMIS2+3, T4PMIS2+4, T4PMIS2+5, T4PMIS2+6, T4CHAR+3, T4CHAR1+3, T4CHAR1+4, T4CHAR2+3, T4CHAR2+4, T4CHAR2+5
, T4CHAR2+6
>> BUDP T4IPPL+1*, T4IPPH1+10, T4IPPH1+20*, T4PMIS+1*, T4PMIH1+11, T4PMIH1+20*, T4CHAR+1*, T4CHAH1+11, T4CHAH1+21*
>> BUDQUIT T4IPPL+1*, T4IPPL+2, T4IPPL+5, T4IPPL1+1, T4IPPL1+3, T4IPPL1+4, T4IPPL2+3, T4IPPL2+4, T4IPPL2+5, T4IPPL2+6
, T4IPPL2+7, T4IPPL2+12, T4IPPH+2*, T4PMIS+1*, T4PMIS+2, T4PMIS+5, T4PMIS1+1, T4PMIS1+3, T4PMIS1+4, T4PMIS2+3
, T4PMIS2+4, T4PMIS2+5, T4PMIS2+6, T4PMIS2+7, T4PMIS2+12, T4PMIH+2*, T4CHAR+1*, T4CHAR+2, T4CHAR+5, T4CHAR1+1
, T4CHAR1+3, T4CHAR1+4, T4CHAR2+3, T4CHAR2+4, T4CHAR2+5, T4CHAR2+6, T4CHAR2+7, T4CHAR2+12, T4CHAH+2*
>> BUDSEX T4IPPL2+4*, T4IPPL2+5, T4IPPL2+6, T4PMIS2+5*, T4PMIS2+6, T4CHAR2+5*, T4CHAR2+6
>> BUDSITE T4IPPL2+9, T4IPPH1+6, T4PMIS2+9, T4PMIH1+7, T4CHAR2+9, T4CHAH1+7
>> BUDSTOT T4IPPL2+1*, T4IPPL2+8*, T4IPPL2+13, T4PMIS2+1*, T4PMIS2+8*, T4PMIS2+13, T4CHAR2+1*, T4CHAR2+8*, T4CHAR2+13
>> BUDTOT T4IPPL+1*, T4IPPL+6, T4IPPL1+2*, T4IPPL2+8*, T4PMIS+1*, T4PMIS+6, T4PMIS1+2*, T4PMIS2+8*, T4CHAR+1*, T4CHAR+6
, T4CHAR1+2*, T4CHAR2+8*
>> DFN T4IPPL2+6*, T4IPPL2+9, T4IPPL2+10, T4PMIS2+6*, T4PMIS2+9, T4PMIS2+10, T4CHAR2+6*, T4CHAR2+9, T4CHAR2+10
DIR T4IPPH+2!, T4PMIH+2!, T4CHAH+2!
DIR(0 T4IPPH+2*, T4PMIH+2*, T4CHAH+2*
DT T4IPPH1+3, T4PMIH1+3, T4CHAH1+3
>> DTOUT T4IPPH+2, T4PMIH+2, T4CHAH+2
DUZ USR+1, T4IPPH1+3, T4PMIH1+3, T4CHAH1+3
DUZ(2 LOC+1, T4IPPL2+9, T4PMIS2+9, T4CHAR2+9
IO T4IPPH+2, T4PMIH+2, T4CHAH+2
IO(0 T4IPPH+2, T4PMIH+2, T4CHAH+2
IOF T4IPPH1+1, T4PMIH1+1, T4CHAH1+1
IOM CTR+1
IOSL T4IPPL+5, T4IPPL1+1, T4IPPL2+7, T4IPPL2+12, T4PMIS+5, T4PMIS1+1, T4PMIS2+7, T4PMIS2+12, T4CHAR+5, T4CHAR1+1
, T4CHAR2+7, T4CHAR2+12
IOST T4IPPH+2, T4PMIH+2, T4CHAH+2
U USR+1, LOC+1, T4IPPL2+9, T4IPPL2+10, T4IPPH1+3, T4IPPH1+6, T4PMIS2+9, T4PMIS2+10, T4PMIH1+3, T4PMIH1+7
, T4CHAR2+9, T4CHAR2+10, T4CHAH1+3, T4CHAH1+7
X CTR~, CTR+1, T4IPPH1+7*, T4IPPH1+8*, T4PMIH1+8*, T4PMIH1+9*, T4CHAH1+8*, T4CHAH1+9*
Y CTR~, CTR+1, T4IPPH+2, T4PMIH+2, T4CHAH+2
>> ZTQUEUED T4IPPH+2, T4PMIH+2, T4CHAH+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All