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

Package: IHS Uniform Data System

Routine: BUDHRP6J


Information

BUDHRP6J ;IHS/CMI/LAB - UDS REPORT T6B PROCESS;

Source Information

Source file <BUDHRP6J.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
IHS Uniform Data System 4 $$VER^BUDHBAN  (HT6B,IN6B)^BUDHDU  EN1^BUDHRP6B  $$DATE^BUDHUTL1  
IHS Patient 1 ($$AGE,$$HRN)^AUPNPAT  
IHS VA Utilities 1 EN^XBVK  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Uniform Data System 1 BUDHRP6I  

Entry Points

Name Comments DBIA/ICR reference
CAD2L ;EP
CAD1 ;EP
S(V) ;
PAUSE ;
CAD1L ;EP
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CAD2 ;EP
EOJ ;
CAD1HD ;
CAD2HD ;
CAD2LIST ;EP
CAD2L1 ;
USR() ;EP - Return name of current user from ^VA(200.
CAD2H ;
CADLIST1 ;EP
CTR(X,Y) ;EP - Center X in a field Y wide.
CAD2H1 ;
CAD1H ;
CAD1H1 ;
CAD1L1 ;
CAD2ALG ;

External References

Name Field # of Occurrence
$$AGE^AUPNPAT CAD1L1+11, CAD2ALG+11, CAD2L1+11
$$HRN^AUPNPAT CAD1L1+7, CAD1L1+11, CAD2ALG+7, CAD2ALG+11, CAD2L1+7, CAD2L1+11
$$VER^BUDHBAN CAD1HD+4, CAD1H1+4, CAD2HD+4, CAD2H1+4
HT6B^BUDHDU CAD1HD+9, CAD1H1+12, CAD2HD+10, CAD2H1+12
IN6B^BUDHDU CAD1+1, CAD2+1
EN1^BUDHRP6B CADLIST1+4, CAD2LIST+4
$$DATE^BUDHUTL1 CAD2HD+3
^DIR PAUSE+1, CAD1H+3, CAD2H+3
EN^XBVK EOJ+1
$$FMTE^XLFDT CAD1HD+3, CAD1HD+7, CAD1H1+3, CAD1H1+8, CAD2ALG+10, CAD2HD+8, CAD2H1+3, CAD2H1+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"TOTAL CAD PATIENTS WITH LIPID-LOWERING THERAPY: ",BUDTOT,!
  • Line Location: CAD1L+6
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U,1),1,25),?29,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?41,$E(BUDCCOM,1,25),?70,$P(^DPT(DFN,0),U,2),?75,BUDAGE,!
  • Line Location: CAD1L1+7
Function Call: WRITE
  • Prompt: ?5,$P(BUDALL,U,1),?30,$P(BUDALL,U,2),!?5,"LDL: ",$P(BUDALL,U,3)," ","MED: ",$P(BUDALL,U,4)
  • Line Location: CAD1L1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: CAD1H+3
Function Call: WRITE
  • Prompt: !,$$CTR("***** SENSITIVE INFORMATION *****",IOM)
  • Line Location: CAD1H1+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: CAD1H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) "_$$VER^BUDHBAN()_" ***",80)
  • Line Location: CAD1H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6B, Section I, With Lipid Therapy ",80)
  • Line Location: CAD1H1+5
Function Call: WRITE
  • Prompt: !,$$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: CAD1H1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: CAD1H1+8
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: CAD1H1+9
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: CAD1H1+10
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  • Line Location: CAD1H1+13
Function Call: WRITE
  • Prompt: !?5,"Date of DX",?16,"DX or Svc CD",?30,"Medication"
  • Line Location: CAD1H1+14
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: CAD1H1+15
Function Call: WRITE
  • Prompt: !!,"TOTAL CAD PATIENTS WITHOUT LIPID-LOWERING THERAPY: ",BUDTOT,!
  • Line Location: CAD2L+6
Function Call: WRITE
  • Prompt: !!,"TOTAL CAD PATIENTS WITH ALG OR ADV REACTION TO LIPID-LOWERING THERAPY: 0",!
  • Line Location: CAD2L+11
Function Call: WRITE
  • Prompt: !!,"TOTAL CAD PATIENTS WITH ALG OR ADV REACTION TO LIPID-LOWERING THERAPY: ",BUDTOT,!
  • Line Location: CAD2L+15
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U,1),1,25),?29,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?41,$E(BUDCCOM,1,25),?70,$P(^DPT(DFN,0),U,2),?75,BUDAGE,!
  • Line Location: CAD2ALG+7
Function Call: WRITE
  • Prompt: ?5,$P(BUDALL,U,1),?30,$P(BUDALL,U,2),!?5,"LDL: ",$P(BUDALL,U,3)," ",$$FMTE^XLFDT($P(BUDALL,U,4))
  • Line Location: CAD2ALG+10
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U,1),1,25),?29,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?41,$E(BUDCCOM,1,25),?70,$P(^DPT(DFN,0),U,2),?75,BUDAGE,!
  • Line Location: CAD2L1+7
Function Call: WRITE
  • Prompt: ?5,$P(BUDALL,U,1),?30,$P(BUDALL,U,2),!?5,"LDL: ",$P(BUDALL,U,3)," ","MED: ",$P(BUDALL,U,4)
  • Line Location: CAD2L1+10
Function Call: WRITE
  • Prompt: "CAD Patients w/o Lipid Lowering Medication",!
  • Line Location: CAD2HD+12
Function Call: WRITE
  • Prompt: "CAD Patients w/LDL =>130 and an ALG or ADV Reaction to Lipid Lowering Medication"
  • Line Location: CAD2HD+13
Function Call: WRITE
  • Prompt: !
  • Line Location: CAD2H+3
Function Call: WRITE
  • Prompt: !,$$CTR("***** SENSITIVE INFORMATION *****",IOM)
  • Line Location: CAD2H1+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: CAD2H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) "_$$VER^BUDHBAN()_" ***",80)
  • Line Location: CAD2H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6B, Section I, Without Lipid Therapy",80)
  • Line Location: CAD2H1+5
Function Call: WRITE
  • Prompt: !,$$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: CAD2H1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: CAD2H1+8
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: CAD2H1+9
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: CAD2H1+10
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  • Line Location: CAD2H1+13
Function Call: WRITE
  • Prompt: !?5,"Date of DX",?16,"DX or Svc CD",?30,"Medication"
  • Line Location: CAD2H1+14
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: CAD2H1+15
Function Call: WRITE
  • Prompt: "CAD Patients with LDL >=130 w/o Lipid Lowering Medication",!
  • Line Location: CAD2H1+16
Function Call: WRITE
  • Prompt: "CAD Patients w/LDL =>130 and an ALG or ADV Reaction to Lipid Lowering Medication"
  • Line Location: CAD2H1+17
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1
    • CAD1H+3
    • CAD2H+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] LOC+1, CAD1HD+6, CAD1H1+7, CAD2HD+7, CAD2H1+7
^DPT - [#2] CAD1L1+7, CAD1L1+11, CAD2ALG+7, CAD2ALG+11, CAD2L1+7, CAD2L1+11
^TMP($J S+2*
^VA(200 - [#200] USR+1, CAD1HD+3, CAD1H1+3, CAD2HD+3, CAD2H1+3
^XTMP("BUDHRP6B" CAD1L+3, CAD1L1+2, CAD1L1+3, CAD1L1+4, CAD1L1+5, CAD1L1+9, CAD2L+3, CAD2ALG+2, CAD2ALG+3, CAD2ALG+4
, CAD2ALG+5, CAD2ALG+9, CAD2L1+2, CAD2L1+3, CAD2L1+4, CAD2L1+5, CAD2L1+9

Label References

Name Line Occurrences
$$CTR CAD1H1+2, CAD1H1+4, CAD1H1+5, CAD1H1+7, CAD1H1+8, CAD1H1+9, CAD2H1+2, CAD2H1+4, CAD2H1+5, CAD2H1+7
, CAD2H1+8, CAD2H1+9
CAD1 CADLIST1+3
CAD1H CAD1L+2, CAD1L+5, CAD1L1+1, CAD1L1+6
CAD1H1 CAD1H+2
CAD1HD CAD1H+1
CAD1L1 CAD1L+4
CAD2 CAD2LIST+3
CAD2H CAD2L+2, CAD2L+5, CAD2ALG+1, CAD2ALG+6, CAD2L1+1, CAD2L1+6
CAD2H1 CAD2H+2
CAD2HD CAD2H+1
CAD2L1 CAD2L+4
EOJ CADLIST1+1, CAD2LIST+1
S CAD1L+3, CAD1L+7, CAD1L1+12, CAD1HD+1, CAD1HD+2, CAD1HD+3, CAD1HD+4, CAD1HD+5, CAD1HD+6, CAD1HD+7
, CAD1HD+8, CAD1HD+10, CAD2L+3, CAD2L+7, CAD2ALG+12, CAD2L1+12, CAD2HD+1, CAD2HD+2, CAD2HD+3, CAD2HD+4
, CAD2HD+5, CAD2HD+7, CAD2HD+8, CAD2HD+9, CAD2HD+11

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 CAD1L1+2*, CAD1L1+3, CAD1L1+4, CAD1L1+5, CAD1L1+7, CAD1L1+9, CAD2ALG+2*, CAD2ALG+3, CAD2ALG+4, CAD2ALG+5
, CAD2ALG+7, CAD2ALG+9, CAD2L1+2*, CAD2L1+3, CAD2L1+4, CAD2L1+5, CAD2L1+7, CAD2L1+9
>> BUDALL CAD1L1+9*, CAD1L1+10, CAD1L1+12, CAD2ALG+9*, CAD2ALG+10, CAD2ALG+12, CAD2L1+9*, CAD2L1+10, CAD2L1+12
>> BUDBD CAD1HD+7, CAD1H1+8, CAD2HD+8, CAD2H1+8
>> BUDBEN CAD1HD+8, CAD1H1+9, CAD2HD+9, CAD2H1+9
>> BUDCAD1L CADLIST1+2*
>> BUDCAD2L CAD2LIST+2*
>> BUDCCAD CAD1L1+11, CAD2ALG+11, CAD2L1+11
>> BUDCCOM CAD1L1+4*, CAD1L1+5, CAD1L1+7, CAD1L1+9, CAD1L1+11, CAD2ALG+4*, CAD2ALG+5, CAD2ALG+7, CAD2ALG+9, CAD2ALG+11
, CAD2L1+4*, CAD2L1+5, CAD2L1+7, CAD2L1+9, CAD2L1+11
>> BUDDECNT S+1*, S+2
>> BUDED CAD1HD+7, CAD1H1+8, CAD2HD+8, CAD2H1+8
>> BUDGPG CAD1H+2, CAD1H1+1*, CAD1H1+3, CAD2H+2, CAD2H1+1*, CAD2H1+3
>> BUDH CAD1L+3, CAD1L1+2, CAD1L1+3, CAD1L1+4, CAD1L1+5, CAD1L1+9, CAD2L+3, CAD2ALG+2, CAD2ALG+3, CAD2ALG+4
, CAD2ALG+5, CAD2ALG+9, CAD2L1+2, CAD2L1+3, CAD2L1+4, CAD2L1+5, CAD2L1+9
>> BUDJ CAD1L+3, CAD1L1+2, CAD1L1+3, CAD1L1+4, CAD1L1+5, CAD1L1+9, CAD2L+3, CAD2ALG+2, CAD2ALG+3, CAD2ALG+4
, CAD2ALG+5, CAD2ALG+9, CAD2L1+2, CAD2L1+3, CAD2L1+4, CAD2L1+5, CAD2L1+9
>> BUDNAME CAD1L1+3*, CAD1L1+4, CAD1L1+5, CAD1L1+9, CAD2ALG+3*, CAD2ALG+4, CAD2ALG+5, CAD2ALG+9, CAD2L1+3*, CAD2L1+4
, CAD2L1+5, CAD2L1+9
>> BUDP CAD1L+1*, CAD1H1+11, CAD1H1+16*, CAD2L+1*, CAD2L+8*, CAD2H1+11, CAD2H1+18*
>> BUDQUIT CAD1L+1*, CAD1L+2, CAD1L+5, CAD1L1+1, CAD1L1+2, CAD1L1+3, CAD1L1+4, CAD1L1+5, CAD1L1+6, CAD1H+3*
, CAD2L+1*, CAD2L+2, CAD2L+5, CAD2L+8*, CAD2ALG+1, CAD2ALG+2, CAD2ALG+3, CAD2ALG+4, CAD2ALG+5, CAD2ALG+6
, CAD2L1+1, CAD2L1+2, CAD2L1+3, CAD2L1+4, CAD2L1+5, CAD2L1+6, CAD2H+3*
>> BUDROT CAD1L+3, CAD1L+5, CAD1L+6, CAD1L+7, CAD1L1+1, CAD1L1+6, CAD1L1+7, CAD1L1+10, CAD1L1+11, CAD1H+1
, CAD2L+3, CAD2L+5, CAD2L+6, CAD2L+7, CAD2ALG+1, CAD2ALG+6, CAD2ALG+7, CAD2ALG+10, CAD2ALG+11, CAD2L1+1
, CAD2L1+6, CAD2L1+7, CAD2L1+10, CAD2L1+11, CAD2HD+12, CAD2H+1
>> BUDSCTC CAD1H1+3, CAD2H1+3
>> BUDSITE CAD1L1+7, CAD1L1+11, CAD1HD+6, CAD1H1+7, CAD2ALG+7, CAD2ALG+11, CAD2L1+7, CAD2L1+11, CAD2HD+7, CAD2H1+7
>> BUDTOT CAD1L+1*, CAD1L+6, CAD1L+7, CAD1L1+8*, CAD2L+1*, CAD2L+6, CAD2L+7, CAD2L+8*, CAD2ALG+8*, CAD2L1+8*
>> BUDTSCTC CADLIST1+4*, CAD2LIST+4*, CAD1H1+3, CAD2H1+3
>> BUDX2ALG CAD2L+1*, CAD2L+8*
>> BUDZLIST CADLIST1+4*, CAD2LIST+4*
DA PAUSE+1!
>> DFN CAD1L1+5*, CAD1L1+7, CAD1L1+9, CAD1L1+11, CAD2ALG+5*, CAD2ALG+7, CAD2ALG+9, CAD2ALG+11, CAD2L1+5*, CAD2L1+7
, CAD2L1+9, CAD2L1+11
DIR PAUSE+1!, CAD1H+3!, CAD2H+3!
DIR("A" PAUSE+1*
DIR(0 PAUSE+1*, CAD1H+3*, CAD2H+3*
DT CAD1HD+3, CAD1H1+3, CAD2HD+3, CAD2H1+3
>> DTOUT CAD1H+3, CAD2H+3
DUZ USR+1, CAD1HD+3, CAD1H1+3, CAD2HD+3, CAD2H1+3
DUZ(2 LOC+1, CAD1L1+7, CAD1L1+11, CAD2ALG+7, CAD2ALG+11, CAD2L1+7, CAD2L1+11
IO CAD1H+3, CAD2H+3
IO(0 CAD1H+3, CAD2H+3
IOF CAD1H1+1, CAD2H1+1
IOM CTR+1, CAD1H1+2, CAD2H1+2
IOSL CAD1L+5, CAD1L1+1, CAD1L1+6, CAD2L+5, CAD2ALG+1, CAD2ALG+6, CAD2L1+1, CAD2L1+6
IOST CAD1H+3, CAD2H+3
U USR+1, LOC+1, CAD1L1+7, CAD1L1+10, CAD1L1+11, CAD1L1+12, CAD1HD+3, CAD1HD+6, CAD1H1+3, CAD1H1+7
, CAD2ALG+7, CAD2ALG+10, CAD2ALG+11, CAD2ALG+12, CAD2L1+7, CAD2L1+10, CAD2L1+11, CAD2L1+12, CAD2HD+3, CAD2HD+7
, CAD2H1+3, CAD2H1+7
V S~, S+2
X CTR~, CTR+1, CAD1L1+11*, CAD1L1+12*, CAD1HD+7*, CAD1HD+8*, CAD1H1+8*, CAD1H1+9*, CAD2ALG+11*, CAD2ALG+12*
, CAD2L1+11*, CAD2L1+12*, CAD2HD+8*, CAD2HD+9*, CAD2H1+8*, CAD2H1+9*
Y CTR~, CTR+1, CAD1H+3, CAD2H+3
>> ZTQUEUED CAD1H+3, CAD2H+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All