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

Package: IHS Uniform Data System

Routine: BUD1RPL2


Information

BUD1RPL2 ; IHS/CMI/LAB - UDS print lists ;

Source Information

Source file <BUD1RPL2.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Patient 1 ($$AGE,$$HRN)^AUPNPAT  
IHS Uniform Data System 1 $$RACE^BUD1RPTC  
Kernel 1 $$FMTE^XLFDT  
Patient Care Component Reports 1 ($$CLINIC,$$LOCENC,$$PRIMPROV)^APCLV  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Uniform Data System 1 BUD1RPTL  

Entry Points

Name Comments DBIA/ICR reference
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
T52 ;EP
T51H ;
T5H2 ;
T51 ;EP
USR() ;EP - Return name of current user from ^VA(200.
T51H1 ;
T52H ;
T5W ;

External References

Name Field # of Occurrence
$$CLINIC^APCLV T5W+8
$$LOCENC^APCLV T5W+8
$$PRIMPROV^APCLV T5W+8
$$AGE^AUPNPAT T5W+2
$$HRN^AUPNPAT T5W+1
$$RACE^BUD1RPTC T5W+2
^DIR T52H+2, T51H+2
$$FMTE^XLFDT T5W+8, T5H2+3, T5H2+7, T51H1+3, T51H1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No Uncategorized Provider visits to report."
  • Line Location: T52+2
Function Call: WRITE
  • Prompt: !!,"Line ",BUD1L," ",BUDY
  • Line Location: T52+5
Function Call: WRITE
  • Prompt: !
  • Line Location: T52+13
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U,1),1,22),?24,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?36,$E(BUDCOM,1,12)
  • Line Location: T5W+1
Function Call: WRITE
  • Prompt: ?51,$P(^DPT(DFN,0),U,2),?55,$$AGE^AUPNPAT(DFN,BUDCAD),?60,$E($P($$RACE^BUD1RPTC(DFN),U,4),1,15)," (",$P($$RACE^BUD1RPTC(DFN),U,3),")"
  • Line Location: T5W+2
Function Call: WRITE
  • Prompt: !!,"Line ",BUD1L," ",BUDY
  • Line Location: T5W+7
Function Call: WRITE
  • Prompt: !
  • Line Location: T52H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: T5H2+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: T5H2+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** BPHC Uniform Data System (UDS) ***",80)
  • Line Location: T5H2+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 5 Columns B & C, Uncategorized Provider Visits",80),!
  • Line Location: T5H2+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: T5H2+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T5H2+7
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: T5H2+8
Function Call: WRITE
  • Prompt: !,"List of all patients, for uncategorized provider visits. Displays",!,"community, gender, age and visit data, including Provider codes."
  • Line Location: T5H2+9
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE",?60,"RACE*"
  • Line Location: T5H2+13
Function Call: WRITE
  • Prompt: !?5,"VISIT DATE",?25,"PROV TYPE",?41,"PROV CD",?50,"SRV",?55,"CLINIC",?70,"LOCATION"
  • Line Location: T5H2+14
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T5H2+15
Function Call: WRITE
  • Prompt: !!,"Line ",BUD1LL," ",BUDY
  • Line Location: T51+10
Function Call: WRITE
  • Prompt: !
  • Line Location: T51+13
Function Call: WRITE
  • Prompt: !
  • Line Location: T51H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: T51H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: T51H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** BPHC Uniform Data System (UDS) ***",80)
  • Line Location: T51H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Personnel List for Table 5 Column A, By Service Category",80),!
  • Line Location: T51H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: T51H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T51H1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: T51H1+8
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: T51H1+9
Function Call: WRITE
  • Prompt: !,"List of all Active Provider Personnel sorted by Major Service Category.",!
  • Line Location: T51H1+10
Function Call: WRITE
  • Prompt: !,"PROVIDER NAME",?35,"PROVIDER CODE",?70,"FTE"
  • Line Location: T51H1+11
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: T51H1+12
Routine Call
  • DIR
  • Line Location:
    • T52H+2
    • T51H+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] T5W+4, T5W+8
^BUDLTFIV - [#90663.5] T52+4, T51+5
^BUDLTFIV("B" T52+4, T51+5
^DIC(4 - [#4] T5H2+6, LOC+1, T51H1+6
^DPT - [#2] T5W+1, T5W+2
^VA(200 - [#200] T5H2+3, USR+1, T51H1+3
^XTMP("BUD1RPT1" T52+2, T52+6, T52+7, T52+8, T52+9, T5W+3, T51+2, T51+3, T51+9, T51+11

Label References

Name Line Occurrences
$$CTR T5H2+4, T5H2+5, T5H2+6, T5H2+7, T51H1+4, T51H1+5, T51H1+6, T51H1+7, T51H1+8
T51H T51+7, T51+10
T51H1 T51H+1
T52H T52+2, T52+3, T5W+7
T5H2 T52H+1
T5W T52+9

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BUD1L T52+1*, T52+2, T52+4*, T52+5, T52+6, T52+7, T52+8, T52+9, T5W+3, T5W+7
, T51+2*, T51+3, T51+4, T51+9, T51+11
>> BUD1L2 T52+4*, T52+6, T52+7, T52+8, T52+9, T5W+3, T51+3*, T51+4, T51+9, T51+11
>> BUD1LL T51+4*, T51+5, T51+6, T51+8, T51+10
>> BUDAGE T52+7*, T52+8, T52+9, T5W+3
>> BUDBD T5H2+7, T51H1+7
>> BUDBEN T51H1+8
>> BUDCAD T5W+2
>> BUDCOM T52+6*, T52+7, T52+8, T52+9, T5W+1, T5W+3
>> BUDDD T5W+5*, T5W+6
>> BUDED T5H2+7, T51H1+7
>> BUDGPG T52H+1, T5H2+1*, T5H2+3, T51H+1, T51H1+1*, T51H1+3
>> BUDH T52+2, T52+6, T52+7, T52+8, T52+9, T5W+3, T51+2, T51+3, T51+9, T51+11
>> BUDJ T52+2, T52+6, T52+7, T52+8, T52+9, T5W+3, T51+2, T51+3, T51+9, T51+11
BUDNEWR T51+1*, T51+7!
>> BUDP T52+1*, T5H2+9, T5H2+16*
>> BUDPROV T51+9*, T51+11
>> BUDQUIT T52+6, T52+7, T52+8, T52+9, T5W+3, T5W+5, T5W+6, T5W+7, T52H+2*, T51+2
, T51+3, T51+7, T51+9, T51+10, T51H+2*
>> BUDSEX T52+8*, T52+9, T5W+3
>> BUDSITE T5W+1, T5H2+6, T51H1+6
>> BUDSUBT T51+6*
>> BUDV T5W+3*, T5W+4, T5W+6*, T5W+8
BUDVLST T5W+3!
BUDVLST( T5W+4*, T5W+5, T5W+6
>> BUDY T52+4*, T52+5, T5W+7, T51+5*, T51+6, T51+8, T51+10
>> DFN T52+9*, T5W+1, T5W+2, T5W+3
DIR T52H+2!, T51H+2!
DIR(0 T52H+2*, T51H+2*
DT T5H2+3, T51H1+3
>> DTOUT T52H+2, T51H+2
DUZ T5H2+3, USR+1, T51H1+3
DUZ(2 T5W+1, LOC+1
IO T52H+2, T51H+2
IO(0 T52H+2, T51H+2
IOF T5H2+1, T51H1+1
IOM CTR+1
IOSL T5W+7, T51+7, T51+10
IOST T52H+2, T51H+2
U T52+4, T5W+1, T5W+2, T5W+4, T5W+8, T5H2+3, T5H2+6, USR+1, LOC+1, T51+5
, T51H1+3, T51H1+6
X T5H2+7*, CTR~, CTR+1, T51H1+7*, T51H1+8*
Y T52H+2, CTR~, CTR+1, T51H+2
>> ZTQUEUED T52H+2, T51H+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All