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

Package: IHS Uniform Data System

Routine: BUDDRP6W


Information

BUDDRP6W ; IHS/CMI/LAB - UDS REPORT PROCESSOR 01 Dec 2016 4:03 PM ;

Source Information

Source file <BUDDRP6W.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
IHS Patient 1 ($$AGE,$$HRN)^AUPNPAT  
IHS Uniform Data System 1 (GENI,PAUSE)^BUDDRP6I  
IHS VA Utilities 1 ($$VAL,$$VALI)^XBDIQ1  
Kernel 1 $$FMTE^XLFDT  
Patient Care Component Reports 1 $$CLINIC^APCLV  
Taxonomy 1 $$ICD^ATXCHK  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Uniform Data System 3 BUDDRP6B  BUDDRP6H  BUDDRP6I  

Entry Points

Name Comments DBIA/ICR reference
PRGALX ;
TRIM(V) ;any trimester code on this visit?
S(V) ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
PRGA ;EP
PRGAHD ;delimited header
PRGAL1 ;
PRGAH ;
PRGAL ;EP
USR() ;EP - Return name of current user from ^VA(200.
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
$$ICD^ATXCHK TRIM+8, TRIM+9, TRIM+10
$$AGE^AUPNPAT PRGAL1+10, PRGAL1+16, PRGAL1+19
$$HRN^AUPNPAT PRGAL1+10, PRGAL1+16, PRGAL1+19
GENI^BUDDRP6I PRGA+5
PAUSE^BUDDRP6I PRGA+6
^DIR PRGAH+3
$$VAL^XBDIQ1 PRGAL1+18, PRGAL1+20
$$VALI^XBDIQ1 TRIM+7
$$FMTE^XLFDT PRGAL1+18, PRGAL1+20, PRGAHD+3, PRGAHD+7, PRGAH1+3, PRGAH1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: PRGA+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2016",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(BUDCCOM,1,25),?70,$$AGE^AUPNPAT(DFN,BUDCCAD),!
  • 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,?30,T,?41,$P(^AUPNVSIT(V,0),U,7),?49,$E($$CLINIC^APCLV(V,"E"),1,15),?65,$E($$VAL^XBDIQ1(9000010,V,.06),1,15),!
  • 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/SVC CD",?30,"TRIMESTER",?41,"SRV CAT",?49,"CLINIC",?65,"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)
^ATXAX("B" TRIM+3, TRIM+4, TRIM+5
^AUPNVPOV("AD" TRIM+6
^AUPNVSIT - [#9000010] PRGAL1+18, PRGAL1+20
^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
^TMP($J S+2*
^VA(200 - [#200] PRGAHD+3, PRGAH1+3, USR+1
^XTMP("BUDDRP6B" 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
$$TRIM PRGAL1+17
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
>> 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
>> BUDBD PRGAHD+7, PRGAH1+7
>> BUDBEN PRGAHD+8, PRGAH1+8
>> BUDCCAD PRGAL1+10, PRGAL1+16, PRGAL1+19
>> BUDCCOM PRGAL1+7*, PRGAL1+8, PRGAL1+10, PRGAL1+12, PRGAL1+16, PRGAL1+19
>> BUDDECNT S+1*, S+2
>> BUDED PRGAHD+7, PRGAH1+7
>> 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
>> 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 PRGAL1+13*
C ROTACONT~, ROTACONT+2, 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
ED ROTACONT~
>> G ROTACONT+2*, ROTACONT+8*, ROTACONT+9*, ROTACONT+10*, ROTACONT+11
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
P ROTACONT~, ROTACONT+2
>> R ROTACONT+3*, ROTACONT+4, ROTACONT+5, ROTACONT+8, ROTACONT+9, ROTACONT+10
>> T PRGAL1+17*, PRGAL1+18, PRGAL1+20
T1 TRIM+1~, TRIM+3*, TRIM+8
T2 TRIM+1~, TRIM+4*, TRIM+9
T3 TRIM+1~, TRIM+5*, TRIM+10
U ROTACONT+3, ROTACONT+6, ROTACONT+8, ROTACONT+9, ROTACONT+10, 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 PRGAL1+17*, PRGAL1+18, PRGAL1+20, S~, S+2, TRIM~, TRIM+6
X ROTACONT+1~, ROTACONT+2*, ROTACONT+3, ROTACONT+6, PRGAL1+16*, PRGAL1+19*, PRGAL1+20*, PRGAHD+7*, PRGAHD+8*, PRGAH1+7*
, PRGAH1+8*, CTR~, CTR+1, TRIM+1~, TRIM+6*, TRIM+7
Y ROTACONT+2*, PRGAH+3, CTR~, CTR+1, TRIM+1~, TRIM+7*, TRIM+8, TRIM+9, TRIM+10
Z TRIM+1~, TRIM+2*, TRIM+6, TRIM+8*, TRIM+9*, TRIM+10*, TRIM+11
>> 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