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

Package: IHS Uniform Data System

Routine: BUDDRP7I


Information

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

Source Information

Source file <BUDDRP7I.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS Patient 1 $$HRN^AUPNPAT  
IHS Uniform Data System 1 ($$HISP,$$RACE)^BUDDRPTC  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 $$FMTE^XLFDT  
Patient Care Component Reports 1 ($$CLINIC,$$PRIMPROV)^APCLV  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
IHS Uniform Data System 9 BUDDRP7  BUDDRP71  BUDDRP7A  BUDDRP7B  BUDDRP7C  BUDDRP7J  BUDDRP7L  BUDDRP7T  
BUDDRP7U  

Entry Points

Name Comments DBIA/ICR reference
S(V) ;
PRGRLX ;
PRGHL1 ;
USR() ;EP - Return name of current user from ^VA(200.
PRGRHD ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
PRGHH1 ;
RACE(R) ;EP
PAUSE ;
PRGHL ;EP
PRGHH ;
PRGHHD ;
PRGRL ;EP
PRGRH ;
RACEL(R,E) ;EP
PRGRH1 ;
PRGRL2 ;
PRGRL1 ;
PRGH ;EP
PRGR ;EP
GENI ;EP - general introductions
PRGHLX ;

External References

Name Field # of Occurrence
$$CLINIC^APCLV PRGHL1+21, PRGHL1+22, PRGHL1+28, PRGHL1+29, PRGRL2+26, PRGRL2+27
$$PRIMPROV^APCLV PRGHL1+21, PRGHL1+22, PRGHL1+28, PRGHL1+29, PRGRL2+26, PRGRL2+27
$$HRN^AUPNPAT PRGHL1+9, PRGHL1+15, PRGRL2+10, PRGRL2+11
$$HISP^BUDDRPTC PRGRL2+16
$$RACE^BUDDRPTC PRGRL2+13
^DIR PAUSE+1, GENI+4, PRGHH+3, PRGRH+3
$$VAL^XBDIQ1 PRGHL1+21, PRGHL1+22, PRGHL1+28, PRGHL1+29, PRGRL2+26, PRGRL2+27
$$FMTE^XLFDT PRGHL1+21, PRGHL1+22, PRGHL1+28, PRGHL1+29, PRGHHD+3, PRGHHD+7, PRGHH1+3, PRGHH1+7, PRGRL2+26, PRGRL2+27
, PRGRH1+3, PRGRH1+7, PRGRHD+3, PRGRHD+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NOTE: Patient lists may be hundreds of pages long, depending on the size of your"
  • Line Location: GENI+1
Function Call: WRITE
  • Prompt: !,"patient population. It is recommended that you run these reports at night and"
  • Line Location: GENI+2
Function Call: WRITE
  • Prompt: !,"print to an electronic file, not directly to a printer.",!
  • Line Location: GENI+3
Function Call: WRITE
  • Prompt: !!,"This Patient List option documents the individual patients and visits"
  • Line Location: GENI+5
Function Call: WRITE
  • Prompt: !,"that are counted and summarized on each Table report (main menu"
  • Line Location: GENI+6
Function Call: WRITE
  • Prompt: !,"option REP). The summary Table report is included at the beginning of each"
  • Line Location: GENI+7
Function Call: WRITE
  • Prompt: !,"List report."
  • Line Location: GENI+8
Function Call: WRITE
  • Prompt: !,"UDS searches your database to find all visits and related patients"
  • Line Location: GENI+9
Function Call: WRITE
  • Prompt: !,"during the time period selected. Based on the UDS definition, to be counted"
  • Line Location: GENI+10
Function Call: WRITE
  • Prompt: !,"as a patient, the patient must have had at least one visit meeting the "
  • Line Location: GENI+11
Function Call: WRITE
  • Prompt: !,"following criteria:"
  • Line Location: GENI+12
Function Call: WRITE
  • Prompt: !?4,"- must be to a location specified in your visit location setup"
  • Line Location: GENI+13
Function Call: WRITE
  • Prompt: !?4,"- must be to Service Category Ambulatory (A), Hospitalization (H), Day"
  • Line Location: GENI+14
Function Call: WRITE
  • Prompt: !?6,"Surgery (S), Observation (O), Telemedicine (M), Nursing home visit (R), "
  • Line Location: GENI+15
Function Call: WRITE
  • Prompt: !?6,"or In-Hospital (I) visit"
  • Line Location: GENI+16
Function Call: WRITE
  • Prompt: !?4,"- must NOT have an excluded clinic code (see User Manual for a list)"
  • Line Location: GENI+17
Function Call: WRITE
  • Prompt: !?4,"- must have a primary provider and a coded purpose of visit"
  • Line Location: GENI+18
Function Call: WRITE
  • Prompt: !?4,"- the patient must NOT have a gender of 'Unknown'"
  • Line Location: GENI+19
Function Call: WRITE
  • Prompt: !
  • Line Location: GENI+20
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: PRGH+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2016",80)
  • Line Location: PRGH+3
Function Call: WRITE
  • Prompt: !!,"Pregnant Patients w/HIV (Table 7, Section A)",!
  • Line Location: PRGH+4
Function Call: WRITE
  • Prompt: !!,"This report provides a list of patients that had pregnancy-related visits"
  • Line Location: PRGH+7
Function Call: WRITE
  • Prompt: !,"during the past 20 months, with at least one pregnancy-related visit"
  • Line Location: PRGH+8
Function Call: WRITE
  • Prompt: !,"during the report period, and who have been diagnosed with HIV."
  • Line Location: PRGH+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRGH+10
Function Call: WRITE
  • Prompt: !!,X,!
  • Line Location: PRGHL+7
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U,1),1,23),?25,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?41,$E(BUDCCOM,1,12),?54,BUDA,?59,$P(BUDX,"@",2),!
  • Line Location: PRGHL1+9
Function Call: WRITE
  • Prompt: ?5,BUDV,!
  • Line Location: PRGHL1+18
Function Call: WRITE
  • Prompt: ?5,$$FMTE^XLFDT($P($P(^AUPNVSIT(V,0),U),".")),?19,C,?35,$$PRIMPROV^APCLV(V,"D"),?45,$P(^AUPNVSIT(V,0),U,7),?53,$$CLINIC^APCLV(V,"C"),?65,$E($$VAL^XBDIQ1(9000010,V,.06),1,15),!
  • Line Location: PRGHL1+21
Function Call: WRITE
  • Prompt: ?5,BUDV,!
  • Line Location: PRGHL1+25
Function Call: WRITE
  • Prompt: ?5,$$FMTE^XLFDT($P($P(^AUPNVSIT(V,0),U),".")),?19,C,?35,$$PRIMPROV^APCLV(V,"D"),?45,$P(^AUPNVSIT(V,0),U,7),?53,$$CLINIC^APCLV(V,"C"),?65,$E($$VAL^XBDIQ1(9000010,V,.06),1,15),!
  • Line Location: PRGHL1+28
Function Call: WRITE
  • Prompt: !
  • Line Location: PRGHH+3
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: PRGHH1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: PRGHH1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: PRGHH1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 7, HIV Positive Pregnant Women",80),!
  • Line Location: PRGHH1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: PRGHH1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: PRGHH1+7
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: PRGHH1+8
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?25,"HRN",?41,"COMMUNITY",?53,"AGE",?59,"CD & Date Last HIV DX"
  • Line Location: PRGHH1+14
Function Call: WRITE
  • Prompt: !?5,"VISIT DATE",?19,"DX OR SVC CD",?35,"PROV TYPE",?45,"SVC CAT",?53,"CLINIC",?65,"LOCATION"
  • Line Location: PRGHH1+15
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: PRGHH1+16
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: PRGR+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2016",80)
  • Line Location: PRGR+3
Function Call: WRITE
  • Prompt: !!,"All Pregnant Patients by Race and Hispanic or Latino Identity",!,"(Table 7, Section A)",!
  • Line Location: PRGR+4
Function Call: WRITE
  • Prompt: !!,"This report provides a list by race and Hispanic or Latino Identity"
  • Line Location: PRGR+7
Function Call: WRITE
  • Prompt: !,"of patients that had pregnancy-related visits during the past 20 months,"
  • Line Location: PRGR+8
Function Call: WRITE
  • Prompt: !,"with at least one pregnancy related visit during the report period."
  • Line Location: PRGR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRGR+10
Function Call: WRITE
  • Prompt: !!,X,!
  • Line Location: PRGRL+7
Function Call: WRITE
  • Prompt: !,BUDRACEL
  • Line Location: PRGRL2+3
Function Call: WRITE
  • Prompt: !,BUDRACEL,!
  • Line Location: PRGRL2+9
Function Call: WRITE
  • Prompt: !?2,$E($P(^DPT(DFN,0),U,1),1,20),?24,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?36,$E(BUDCCOM,1,10),?47,BUDA,!
  • Line Location: PRGRL2+10
Function Call: WRITE
  • Prompt: ?2,$E($P(BUDRACV,U,4),1,16)_" ("_$P(BUDRACV,U,3),")"
  • Line Location: PRGRL2+14
Function Call: WRITE
  • Prompt: ?24,$P(BUDHISV,U,3)," (",$P(BUDHISV,U,2),")",!
  • Line Location: PRGRL2+17
Function Call: WRITE
  • Prompt: !,BUDRACEL,!
  • Line Location: PRGRL2+22
Function Call: WRITE
  • Prompt: ?5,BUDV,!
  • Line Location: PRGRL2+23
Function Call: WRITE
  • Prompt: ?5,$$FMTE^XLFDT($P($P(^AUPNVSIT(V,0),U),".")),?19,C,?35,$$PRIMPROV^APCLV(V,"D"),?45,$P(^AUPNVSIT(V,0),U,7),?53,$$CLINIC^APCLV(V,"C"),?65,$E($$VAL^XBDIQ1(9000010,V,.06),1,15),!
  • Line Location: PRGRL2+26
Function Call: WRITE
  • Prompt: !,BUDRACEL,!
  • Line Location: PRGRL2+28
Function Call: WRITE
  • Prompt: !,X,!
  • Line Location: PRGRL2+30
Function Call: WRITE
  • Prompt: !
  • Line Location: PRGRH+3
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: PRGRH1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: PRGRH1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: PRGRH1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 7, Section A",80),!,$$CTR("All Pregnant Patients by Race and Hispanic or Latino Identity",80),!
  • Line Location: PRGRH1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: PRGRH1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: PRGRH1+7
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: PRGRH1+8
Function Call: WRITE
  • Prompt: !?2,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?47,"AGE"
  • Line Location: PRGRH1+17
Function Call: WRITE
  • Prompt: !?2,"RACE*",?24,"HISPANIC OR LATINO IDENTITY*"
  • Line Location: PRGRH1+18
Function Call: WRITE
  • Prompt: !?5,"VISIT DATE",?19,"DX OR SVC CD",?35,"PROV TYPE",?45,"SVC CAT",?53,"CLINIC",?65,"LOCATION"
  • Line Location: PRGRH1+19
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: PRGRH1+20
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1
    • GENI+4
    • PRGHH+3
    • PRGRH+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] PRGHL1+21, PRGHL1+22, PRGHL1+28, PRGHL1+29, PRGRL2+26, PRGRL2+27
^DIC(4 - [#4] LOC+1, PRGHHD+6, PRGHH1+6, PRGRH1+6, PRGRHD+6
^DPT - [#2] PRGHL1+9, PRGHL1+15, PRGRL2+10, PRGRL2+11
^TMP($J S+2*
^VA(200 - [#200] USR+1, PRGHHD+3, PRGHH1+3, PRGRH1+3, PRGRHD+3
^XTMP("BUDDRP7" PRGHL+3, PRGHL1+3, PRGHL1+4, PRGHL1+5, PRGHL1+6, PRGHL1+8, PRGHL1+11, PRGRL+3, PRGRL1+3, PRGRL1+4
, PRGRL2+5, PRGRL2+6, PRGRL2+7, PRGRL2+8, PRGRL2+19

Label References

Name Line Occurrences
$$CTR PRGH+2, PRGH+3, PRGHH1+4, PRGHH1+5, PRGHH1+6, PRGHH1+7, PRGR+2, PRGR+3, PRGRH1+4, PRGRH1+5
, PRGRH1+6, PRGRH1+7
$$LOC PRGH+2, PRGR+2
$$RACEL PRGRL2+2
GENI PRGH+5, PRGR+5
PAUSE PRGH+6, PRGR+6
PRGHH PRGHL+2, PRGHL+5, PRGHL1+1, PRGHL1+7, PRGHL1+17, PRGHL1+24
PRGHH1 PRGHH+2
PRGHHD PRGHH+1
PRGHL1 PRGHL+4
PRGHLX PRGHL+5
PRGRH PRGRL+2, PRGRL+5, PRGRL1+1, PRGRL2+9, PRGRL2+22, PRGRL2+28
PRGRH1 PRGRH+2
PRGRHD PRGRH+1
PRGRL1 PRGRL+4
PRGRL2 PRGRL1+4
PRGRLX PRGRL+5
S PRGHL+3, PRGHL+8, PRGHL1+19, PRGHL1+22, PRGHL1+26, PRGHL1+29, PRGHHD+1, PRGHHD+2, PRGHHD+3, PRGHHD+4
, PRGHHD+5, PRGHHD+6, PRGHHD+7, PRGHHD+8, PRGHHD+9, PRGHHD+10, PRGHHD+11, PRGHHD+12, PRGHHD+13, PRGHHD+14
, PRGRL+3, PRGRL+8, PRGRL2+4, PRGRL2+24, PRGRL2+27, PRGRL2+31, PRGRHD+1, PRGRHD+2, PRGRHD+3, PRGRHD+4
, PRGRHD+5, PRGRHD+6, PRGRHD+7, PRGRHD+8, PRGRHD+9, PRGRHD+10, PRGRHD+11, PRGRHD+12, PRGRHD+13, PRGRHD+14
, PRGRHD+15, PRGRHD+16, PRGRHD+17

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 PRGHL1+3*, PRGHL1+4, PRGHL1+5, PRGHL1+6, PRGHL1+8, PRGHL1+9, PRGHL1+11, PRGHL1+15, PRGRL2+6*, PRGRL2+7
, PRGRL2+8, PRGRL2+10, PRGRL2+11, PRGRL2+19
>> BUDALL PRGHL1+11*, PRGHL1+12, PRGHL1+13, PRGRL2+19*, PRGRL2+20
>> BUDBD PRGHHD+7, PRGHH1+7, PRGRH1+7, PRGRHD+7
>> BUDBEN PRGHHD+8, PRGRHD+8
>> BUDCCOM PRGHL1+5*, PRGHL1+6, PRGHL1+8, PRGHL1+9, PRGHL1+11, PRGHL1+15, PRGRL2+5*, PRGRL2+6, PRGRL2+7, PRGRL2+8
, PRGRL2+10, PRGRL2+11, PRGRL2+19
>> BUDDECNT S+1*, S+2
>> BUDED PRGHHD+7, PRGHH1+7, PRGRH1+7, PRGRHD+7
>> BUDETH PRGRL1+4*, PRGRL2+2, PRGRL2+5, PRGRL2+6, PRGRL2+7, PRGRL2+8, PRGRL2+19
>> BUDGPG PRGHH+2, PRGHH1+1*, PRGHH1+3, PRGRH+2, PRGRH1+1*, PRGRH1+3
>> BUDH PRGHL+3, PRGHL1+3, PRGHL1+4, PRGHL1+5, PRGHL1+6, PRGHL1+8, PRGHL1+11, PRGRL+3, PRGRL1+3, PRGRL1+4
, PRGRL2+5, PRGRL2+6, PRGRL2+7, PRGRL2+8, PRGRL2+19
>> BUDHISV PRGRL2+16*, PRGRL2+17, PRGRL2+18
>> BUDHIV PRGHL1+13*, PRGHL1+14*, PRGHL1+23
>> BUDJ PRGHL+3, PRGHL1+3, PRGHL1+4, PRGHL1+5, PRGHL1+6, PRGHL1+8, PRGHL1+11, PRGRL+3, PRGRL1+3, PRGRL1+4
, PRGRL2+5, PRGRL2+6, PRGRL2+7, PRGRL2+8, PRGRL2+19
>> BUDNAME PRGHL1+4*, PRGHL1+5, PRGHL1+6, PRGHL1+8, PRGHL1+11, PRGRL2+7*, PRGRL2+8, PRGRL2+19
>> BUDP PRGHL+1*, PRGHH1+9, PRGHH1+17*, PRGRL+1*, PRGRH1+9, PRGRH1+21*
>> BUDPPV PRGHL1+12*, PRGHL1+16, PRGRL2+20*, PRGRL2+21
>> BUDPV PRGHL1+15*, PRGHL1+19*, PRGHL1+22, PRGHL1+26*, PRGHL1+29, PRGRL2+11*, PRGRL2+15*, PRGRL2+18*, PRGRL2+24, PRGRL2+27
>> BUDQUIT PRGHL+1*, PRGHL+2, PRGHL+5, PRGHL1+1, PRGHL1+3, PRGHL1+4, PRGHL1+5, PRGHL1+6, PRGHL1+7, PRGHL1+16
, PRGHL1+17, PRGHL1+23, PRGHL1+24, PRGHH+3*, PRGRL+1*, PRGRL+2, PRGRL+5, PRGRL1+1, PRGRL1+3, PRGRL1+4
, PRGRL2+5, PRGRL2+6, PRGRL2+7, PRGRL2+8, PRGRL2+9, PRGRL2+21, PRGRL2+22, PRGRL2+28, PRGRH+3*
>> BUDRACE PRGRL1+3*, PRGRL1+4, PRGRL2+2, PRGRL2+5, PRGRL2+6, PRGRL2+7, PRGRL2+8, PRGRL2+19
>> BUDRACEL PRGRL2+2*, PRGRL2+3, PRGRL2+4, PRGRL2+9, PRGRL2+22, PRGRL2+28, PRGRL2+29
>> BUDRACV PRGRL2+13*, PRGRL2+14, PRGRL2+15
>> BUDROT PRGHL+3, PRGHL+5, PRGHL+7, PRGHL+8, PRGHL1+1, PRGHL1+7, PRGHL1+9, PRGHL1+15, PRGHL1+17, PRGHL1+18
, PRGHL1+19, PRGHL1+21, PRGHL1+22, PRGHL1+24, PRGHL1+25, PRGHL1+26, PRGHL1+28, PRGHL1+29, PRGHH+1, PRGRL+3
, PRGRL+5, PRGRL+7, PRGRL+8, PRGRL1+1, PRGRL2+3, PRGRL2+4, PRGRL2+9, PRGRL2+10, PRGRL2+11, PRGRL2+14
, PRGRL2+15, PRGRL2+17, PRGRL2+18, PRGRL2+22, PRGRL2+23, PRGRL2+24, PRGRL2+26, PRGRL2+27, PRGRL2+28, PRGRL2+30
, PRGRL2+31, PRGRH+1
>> BUDSITE PRGHL1+9, PRGHL1+15, PRGHHD+6, PRGHH1+6, PRGRL2+10, PRGRL2+11, PRGRH1+6, PRGRHD+6
>> BUDSTOT PRGRL2+1*, PRGRL2+12*, PRGRL2+29
>> BUDTOT PRGHL+1*, PRGHL+6, PRGHL1+2*, PRGHL1+10*, PRGRL+1*, PRGRL+6, PRGRL1+2*, PRGRL2+12*
>> BUDV PRGHL1+16*, PRGHL1+18, PRGHL1+19, PRGHL1+20, PRGHL1+23*, PRGHL1+25, PRGHL1+26, PRGHL1+27, PRGRL2+21*, PRGRL2+23
, PRGRL2+24, PRGRL2+25
>> BUDX PRGHL1+8*, PRGHL1+9, PRGHL1+15, PRGHL1+16*, PRGHL1+23*, PRGRL2+21*
>> C PRGHL1+20*, PRGHL1+21, PRGHL1+22, PRGHL1+27*, PRGHL1+28, PRGHL1+29, PRGRL2+25*, PRGRL2+26, PRGRL2+27
DA PAUSE+1!
>> DFN PRGHL1+6*, PRGHL1+8, PRGHL1+9, PRGHL1+11, PRGHL1+15, PRGRL2+8*, PRGRL2+10, PRGRL2+11, PRGRL2+13, PRGRL2+16
, PRGRL2+19
DIR PAUSE+1!, GENI+4!, PRGHH+3!, PRGRH+3!
DIR("A" PAUSE+1*, GENI+4*
DIR(0 PAUSE+1*, GENI+4*, PRGHH+3*, PRGRH+3*
DT PRGHHD+3, PRGHH1+3, PRGRH1+3, PRGRHD+3
>> DTOUT PRGHH+3, PRGRH+3
DUZ USR+1, PRGHHD+3, PRGHH1+3, PRGRH1+3, PRGRHD+3
DUZ(2 LOC+1, PRGHL1+9, PRGHL1+15, PRGRL2+10, PRGRL2+11
E RACEL~, RACEL+1, RACEL+2, RACEL+3, RACEL+4, RACEL+5, RACEL+6, RACEL+7, RACEL+8, RACEL+9
, RACEL+10, RACEL+11, RACEL+12, RACEL+13, RACEL+14, RACEL+15, RACEL+16, RACEL+17
IO PRGHH+3, PRGRH+3
IO(0 PRGHH+3, PRGRH+3
IOF PRGH+1, PRGHH1+1, PRGR+1, PRGRH1+1
IOM CTR+1
IOSL PRGHL+5, PRGHL1+1, PRGHL1+7, PRGHL1+17, PRGHL1+24, PRGRL+5, PRGRL1+1, PRGRL2+9, PRGRL2+22, PRGRL2+28
IOST PRGHH+3, PRGRH+3
R RACE~, RACE+1, RACE+2, RACE+3, RACE+4, RACE+5, RACE+6, RACE+7, RACE+8, RACE+9
, RACE+10, RACEL~, RACEL+1, RACEL+2, RACEL+3, RACEL+4, RACEL+5, RACEL+6, RACEL+7, RACEL+8
, RACEL+9, RACEL+10, RACEL+11, RACEL+12, RACEL+13, RACEL+14, RACEL+15, RACEL+16, RACEL+17
U USR+1, LOC+1, PRGHL1+9, PRGHL1+15, PRGHL1+16, PRGHL1+19, PRGHL1+21, PRGHL1+22, PRGHL1+23, PRGHL1+26
, PRGHL1+28, PRGHL1+29, PRGHHD+3, PRGHHD+6, PRGHH1+3, PRGHH1+6, PRGRL2+10, PRGRL2+11, PRGRL2+14, PRGRL2+15
, PRGRL2+17, PRGRL2+18, PRGRL2+21, PRGRL2+24, PRGRL2+26, PRGRL2+27, PRGRH1+3, PRGRH1+6, PRGRHD+3, PRGRHD+6
V S~, S+2, PRGHL1+20*, PRGHL1+21, PRGHL1+22, PRGHL1+27*, PRGHL1+28, PRGHL1+29, PRGRL2+25*, PRGRL2+26
, PRGRL2+27
X CTR~, CTR+1, PRGHL+3*, PRGHL+6*, PRGHL+7, PRGHL+8, PRGHL1+22*, PRGHL1+29*, PRGHHD+7*, PRGHHD+8*
, PRGHH1+7*, PRGRL+3*, PRGRL+6*, PRGRL+7, PRGRL+8, PRGRL2+24*, PRGRL2+27*, PRGRL2+29*, PRGRL2+30, PRGRL2+31
, PRGRH1+7*, PRGRHD+7*, PRGRHD+8*
Y CTR~, CTR+1, PRGHH+3, PRGRH+3
>> ZTQUEUED PRGHH+3, PRGRH+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All