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

Package: IHS Uniform Data System

Routine: BUDCRP6W


Information

BUDCRP6W ; IHS/CMI/LAB - UDS REPORT PROCESSOR 01 Dec 2015 4:03 PM ;

Source Information

Source file <BUDCRP6W.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS Uniform Data System 4 ($$PLCODE,$$PLTAX)^BUDCDU  ($$ANAREACT,GETIMMS)^BUDCRP6C  (GENI,PAUSE)^BUDCRP6I  ($$DATE,$$LASTDX,$$LASTDXI)^BUDCUTL1  
Kernel 2 ($$FMDIFF,$$FMTE)^XLFDT  $$UP^XLFSTR  
DRG Grouper 1 $$CPT^ICPTCOD  
IHS Patient 1 ($$AGE,$$DOB,$$HRN)^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Patient Care Component Reports 1 $$CLINIC^APCLV  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Uniform Data System 3 BUDCRP6B  BUDCRP6I  BUDCRP6Y  

Entry Points

Name Comments DBIA/ICR reference
PRGALX ;
S(V) ;
PRGAH ;
ROTAIMM ;get all immunizations
ROT3IMM ;get all immunizations
PRGA ;EP
PRGAHD ;delimited header
PRGAL1 ;
ROTA(P,BDATE,EDATE) ;EP
PRGAL ;EP
USR() ;EP - Return name of current user from ^VA(200.
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
PRGAH1 ;
ROTACONT(P,C,ED) ;EP - ANALPHYLAXIS/IMMUNE DEF

External References

Name Field # of Occurrence
$$CLINIC^APCLV PRGAL1+18, PRGAL1+20
$$AGE^AUPNPAT PRGAL1+10, PRGAL1+16, PRGAL1+19
$$DOB^AUPNPAT ROTA+4, ROTA+6
$$HRN^AUPNPAT PRGAL1+10, PRGAL1+16, PRGAL1+19
$$PLCODE^BUDCDU ROTA+8
$$PLTAX^BUDCDU ROTA+9
$$ANAREACT^BUDCRP6C ROTA+16
GETIMMS^BUDCRP6C ROTAIMM+2, ROT3IMM+2
GENI^BUDCRP6I PRGA+5
PAUSE^BUDCRP6I PRGA+6
$$DATE^BUDCUTL1 ROTA+5, ROTA+7, ROTA+11, ROTA+17, ROTAIMM+12, ROTAIMM+15, ROT3IMM+12, ROT3IMM+15, ROT3IMM+18
$$LASTDX^BUDCUTL1 ROTA+6
$$LASTDXI^BUDCUTL1 ROTA+4
^DIR PRGAH+3
$$CPT^ICPTCOD ROTAIMM+11, ROTAIMM+14, ROT3IMM+11, ROT3IMM+14
$$VAL^XBDIQ1 ROT3IMM+17, PRGAL1+18, PRGAL1+20
$$FMDIFF^XLFDT ROTAIMM+19, ROT3IMM+21
$$FMTE^XLFDT PRGAL1+18, PRGAL1+20, PRGAHD+3, PRGAHD+7, PRGAH1+3, PRGAH1+7
$$UP^XLFSTR ROTA+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: PRGA+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2015",80)
  • Line Location: PRGA+3
Function Call: WRITE
  • Prompt: !!,"Prenatal Patients by Age (Table 6B)",!
  • Line Location: PRGA+4
Function Call: WRITE
  • Prompt: !!,"This report provides a list of patients by age that had pregnancy-related"
  • Line Location: PRGA+7
Function Call: WRITE
  • Prompt: !,"visits during the past 20 months, with at least one pregnancy-related visit"
  • Line Location: PRGA+8
Function Call: WRITE
  • Prompt: !,"during the report period."
  • Line Location: PRGA+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRGA+10
Function Call: WRITE
  • Prompt: !!,"TOTAL PREGNANT PATIENTS: ",BUDTOT,!
  • Line Location: PRGAL+15
Function Call: WRITE
  • Prompt: !,BUDAB,!
  • Line Location: PRGAL1+2
Function Call: WRITE
  • Prompt: !?2,$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(BUDCOM,1,25),?70,$$AGE^AUPNPAT(DFN,BUDCAD),!
  • Line Location: PRGAL1+10
Function Call: WRITE
  • Prompt: ?5,BUDV,!
  • Line Location: PRGAL1+15
Function Call: WRITE
  • Prompt: ?5,$$FMTE^XLFDT($P($P(^AUPNVSIT(V,0),U),".")),?20,C,?33,$P(^AUPNVSIT(V,0),U,7),?41,$E($$CLINIC^APCLV(V,"E"),1,15),?60,$E($$VAL^XBDIQ1(9000010,V,.06),1,19),!
  • Line Location: PRGAL1+18
Function Call: WRITE
  • Prompt: !,"Sub-Total ",BUDAB,": ",BUDSTOT,!
  • Line Location: PRGAL1+21
Function Call: WRITE
  • Prompt: !
  • Line Location: PRGAH+3
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: PRGAH1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: PRGAH1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: PRGAH1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6B, Sections A & B, Pregnant Patients",80),!
  • Line Location: PRGAH1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: PRGAH1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: PRGAH1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: PRGAH1+8
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: PRGAH1+9
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"AGE"
  • Line Location: PRGAH1+16
Function Call: WRITE
  • Prompt: !?5,"VISIT DATE",?20,"DX OR SVC CD",?33,"SVC CAT",?41,"CLINIC",?60,"LOCATION"
  • Line Location: PRGAH1+17
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: PRGAH1+18
Routine Call
  • DIR
  • Line Location:
    • PRGAH+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVCPT - [#9000010.18] ROTAIMM+11, ROT3IMM+11
^AUPNVCPT("AD" ROTAIMM+10, ROT3IMM+10
^AUPNVPOV("AD" ROT3IMM+16
^AUPNVSIT - [#9000010] ROTAIMM+9, ROT3IMM+9, PRGAL1+18, PRGAL1+20
^AUPNVSIT("AA" ROTAIMM+7, ROTAIMM+8, ROT3IMM+7, ROT3IMM+8
^AUPNVTC - [#9000010.33] ROTAIMM+14, ROT3IMM+14
^AUPNVTC("AD" ROTAIMM+13, ROT3IMM+13
^AUTTIMM("C" ROTACONT+2
^BICONT - [#9002084.81] ROTACONT+5, ROTACONT+8, ROTACONT+9, ROTACONT+10
^BIPC - [#9002084.11] ROTACONT+3, ROTACONT+6
^BIPC("AC" ROTACONT+2
^DIC(4 - [#4] PRGAHD+6, PRGAH1+6, LOC+1
^DPT - [#2] PRGAL1+10, PRGAL1+16, PRGAL1+19
^GMR(120.8 - [#120.8] ROTA+13, ROTA+15, ROTA+17
^TMP($J S+2*
^VA(200 - [#200] PRGAHD+3, PRGAH1+3, USR+1
^XTMP("BUDCRP6B" PRGAL+3, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+8, PRGAL1+12

Label References

Name Line Occurrences
$$CTR PRGA+2, PRGA+3, PRGAH1+4, PRGAH1+5, PRGAH1+6, PRGAH1+7, PRGAH1+8
$$LOC PRGA+2
$$ROTACONT ROTA+10
PRGAH PRGAL+2, PRGAL+14, PRGAL1+1, PRGAL1+9, PRGAL1+14
PRGAH1 PRGAH+2
PRGAHD PRGAH+1
PRGAL1 PRGAL+4, PRGAL+6, PRGAL+8, PRGAL+10, PRGAL+12
PRGALX PRGAL+5, PRGAL+7, PRGAL+9, PRGAL+11, PRGAL+13, PRGAL+14
S PRGAL+3, PRGAL+16, PRGAL1+3, PRGAL1+16, PRGAL1+20, PRGAL1+22, PRGAHD+1, PRGAHD+2, PRGAHD+3, PRGAHD+4
, PRGAHD+5, PRGAHD+6, PRGAHD+7, PRGAHD+8, PRGAHD+9, PRGAHD+10, PRGAHD+11, PRGAHD+12, PRGAHD+13, PRGAHD+14
, PRGAHD+15, PRGAHD+16

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BD ROTA+2~, ROTAIMM+6*, ROTAIMM+7, ROT3IMM+6*, ROT3IMM+7
BDATE ROTA~, ROTAIMM+2, ROTAIMM+6, ROT3IMM+2, ROT3IMM+6
>> BUDA PRGAL1+5*, PRGAL1+6, PRGAL1+7, PRGAL1+8, PRGAL1+12
>> BUDAB PRGAL+4*, PRGAL+6*, PRGAL+8*, PRGAL+10*, PRGAL+12*, PRGAL1+2, PRGAL1+3, PRGAL1+5, PRGAL1+6, PRGAL1+7
, PRGAL1+8, PRGAL1+12, PRGAL1+21, PRGAL1+22
>> BUDALL PRGAL1+12*, PRGAL1+13
BUDAPOV ROTA+2~, ROTA+21!, ROTAIMM+28!
BUDAPOV( ROTAIMM+4*, ROT3IMM+4*
BUDAPOV(9999999 ROTAIMM+12*, ROTAIMM+15*, ROT3IMM+12*, ROT3IMM+15*, ROT3IMM+18*
>> BUDBD PRGAHD+7, PRGAH1+7
BUDC ROTA+2~, ROTA+20!, ROTAIMM+27!
>> BUDCAD PRGAL1+10, PRGAL1+16, PRGAL1+19
>> BUDCEN PRGAHD+8, PRGAH1+8
>> BUDCOM PRGAL1+7*, PRGAL1+8, PRGAL1+10, PRGAL1+12, PRGAL1+16, PRGAL1+19
>> BUDDECNT S+1*, S+2
>> BUDED PRGAHD+7, PRGAH1+7
BUDG ROTA+2~, ROTA+20!, ROTAIMM+27!
>> BUDGPG PRGAH+2, PRGAH1+1*, PRGAH1+3
>> BUDH PRGAL+3, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+8, PRGAL1+12
>> BUDJ PRGAL+3, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+8, PRGAL1+12
>> BUDNAME PRGAL1+6*, PRGAL1+7, PRGAL1+8, PRGAL1+12
BUDOPV ROTA+2~, ROTA+21!, ROTAIMM+22*, ROTAIMM+23, ROTAIMM+24, ROTAIMM+25, ROTAIMM+28!, ROT3IMM+24*, ROT3IMM+25, ROT3IMM+26
, ROT3IMM+27*, ROT3IMM+28, ROT3IMM+29, ROT3IMM+30
BUDOPV( ROTAIMM+4*, ROTAIMM+17, ROTAIMM+19!, ROTAIMM+22, ROTAIMM+23, ROT3IMM+4*, ROT3IMM+19, ROT3IMM+21!, ROT3IMM+24, ROT3IMM+25
, ROT3IMM+28
BUDOPV(9999999 ROTAIMM+12*, ROTAIMM+15*, ROT3IMM+12*, ROT3IMM+15*, ROT3IMM+18*
>> BUDOPV2 ROTA+22*, ROTAIMM+25*, ROT3IMM+27
>> BUDP PRGAL+1*, PRGAH1+10, PRGAH1+19*
>> BUDQUIT PRGAL+1*, PRGAL+2, PRGAL+5, PRGAL+7, PRGAL+9, PRGAL+11, PRGAL+13, PRGAL+14, PRGAL1+1, PRGAL1+5
, PRGAL1+6, PRGAL1+7, PRGAL1+8, PRGAL1+9, PRGAL1+13, PRGAL1+14, PRGAH+3*
>> BUDROT PRGAL+3, PRGAL+14, PRGAL+15, PRGAL+16, PRGAL1+1, PRGAL1+2, PRGAL1+3, PRGAL1+9, PRGAL1+10, PRGAL1+14
, PRGAL1+15, PRGAL1+16, PRGAL1+18, PRGAL1+19, PRGAL1+21, PRGAL1+22, PRGAH+1
>> BUDSITE PRGAL1+10, PRGAL1+16, PRGAL1+19, PRGAHD+6, PRGAH1+6
>> BUDSTOT PRGAL1+4*, PRGAL1+11*, PRGAL1+21, PRGAL1+22
>> BUDTOT PRGAL+1*, PRGAL+15, PRGAL+16, PRGAL1+11*
>> BUDV PRGAL1+13*, PRGAL1+15, PRGAL1+16, PRGAL1+17
BUDX ROTA+2~, ROTA+20!, ROTAIMM+2!, ROTAIMM+27!, ROT3IMM+2!, PRGAL1+13*
BUDX( ROTAIMM+4, ROT3IMM+4
>> BUDZ ROTA+10*
C ROTACONT~, ROTACONT+2, ROTA+2~, ROTAIMM+1*, ROTAIMM+2, ROTAIMM+17*, ROTAIMM+18, ROT3IMM+1*, ROT3IMM+2, ROT3IMM+19*
, ROT3IMM+20, PRGAL1+17*, PRGAL1+18, PRGAL1+20
>> D ROTACONT+6*, ROTACONT+7, ROTACONT+8, ROTACONT+9, ROTACONT+10
>> DFN PRGAL1+8*, PRGAL1+10, PRGAL1+12, PRGAL1+16, PRGAL1+19
DIR PRGAH+3!
DIR(0 PRGAH+3*
DT PRGAHD+3, PRGAH1+3
>> DTOUT PRGAH+3
DUZ PRGAHD+3, PRGAH1+3, USR+1
DUZ(2 PRGAL1+10, PRGAL1+16, PRGAL1+19, LOC+1
E ROTA+2~
ED ROTACONT~, ROTA+2~, ROTAIMM+6*, ROTAIMM+7*, ROTAIMM+8, ROTAIMM+12, ROTAIMM+15, ROT3IMM+6*, ROT3IMM+7*, ROT3IMM+8
, ROT3IMM+12, ROT3IMM+15, ROT3IMM+18
EDATE ROTA~, ROTA+4, ROTA+6, ROTA+10, ROTAIMM+2, ROTAIMM+6, ROT3IMM+2, ROT3IMM+6
G ROTACONT+2*, ROTACONT+8*, ROTACONT+9*, ROTACONT+10*, ROTACONT+11, ROTA+2~, ROTA+12*, ROTA+13, ROTA+17*, ROTA+18
, ROTAIMM+6*, ROT3IMM+6*
IO PRGAH+3
IO(0 PRGAH+3
IOF PRGA+1, PRGAH1+1
IOM CTR+1
IOSL PRGAL+14, PRGAL1+1, PRGAL1+9, PRGAL1+14
IOST PRGAH+3
N ROTA+2~, ROTA+15*, ROTA+17
P ROTACONT~, ROTACONT+2, ROTA~, ROTA+4, ROTA+6, ROTA+8, ROTA+9, ROTA+10, ROTA+13, ROTAIMM+2
, ROTAIMM+7, ROTAIMM+8, ROT3IMM+2, ROT3IMM+7, ROT3IMM+8
>> R ROTACONT+3*, ROTACONT+4, ROTACONT+5, ROTACONT+8, ROTACONT+9, ROTACONT+10
U ROTACONT+3, ROTACONT+6, ROTACONT+8, ROTACONT+9, ROTACONT+10, ROTA+5, ROTA+7, ROTA+9, ROTA+11, ROTA+15
, ROTA+17, ROTAIMM+11, ROTAIMM+14, ROT3IMM+11, ROT3IMM+14, PRGAL1+10, PRGAL1+13, PRGAL1+16, PRGAL1+18, PRGAL1+19
, PRGAL1+20, PRGAHD+3, PRGAHD+6, PRGAH1+3, PRGAH1+6, USR+1, LOC+1
V ROTA+2~, ROTAIMM+8*, ROTAIMM+9, ROTAIMM+10, ROTAIMM+13, ROT3IMM+8*, ROT3IMM+9, ROT3IMM+10, ROT3IMM+13, ROT3IMM+16
, PRGAL1+17*, PRGAL1+18, PRGAL1+20, S~, S+2
X ROTACONT+1~, ROTACONT+2*, ROTACONT+3, ROTACONT+6, ROTA+2~, ROTA+4*, ROTA+5, ROTA+6*, ROTA+7, ROTA+9*
, ROTA+10*, ROTA+11, ROTA+13*, ROTA+15, ROTA+16, ROTA+17, ROTAIMM+4*, ROTAIMM+10*, ROTAIMM+11, ROTAIMM+13*
, ROTAIMM+14, ROTAIMM+17*, ROTAIMM+18, ROTAIMM+19, ROTAIMM+20, ROTAIMM+22*, ROTAIMM+23*, ROT3IMM+4*, ROT3IMM+10*, ROT3IMM+11
, ROT3IMM+13*, ROT3IMM+14, ROT3IMM+16*, ROT3IMM+17, ROT3IMM+19*, ROT3IMM+20, ROT3IMM+21, ROT3IMM+22, ROT3IMM+24*, ROT3IMM+25*
, ROT3IMM+28*, PRGAL1+16*, PRGAL1+19*, PRGAL1+20*, PRGAHD+7*, PRGAHD+8*, PRGAH1+7*, PRGAH1+8*, CTR~, CTR+1
Y ROTACONT+2*, ROTA+2~, ROTAIMM+11*, ROTAIMM+12, ROTAIMM+14*, ROTAIMM+15, ROTAIMM+17*, ROTAIMM+18*, ROTAIMM+19, ROTAIMM+20*
, ROTAIMM+23*, ROTAIMM+24, ROT3IMM+11*, ROT3IMM+12, ROT3IMM+14*, ROT3IMM+15, ROT3IMM+17*, ROT3IMM+18, ROT3IMM+19*, ROT3IMM+20*
, ROT3IMM+21, ROT3IMM+22*, ROT3IMM+25*, ROT3IMM+26, ROT3IMM+28*, ROT3IMM+29, PRGAH+3, CTR~, CTR+1
>> ZTQUEUED PRGAH+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All