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

Package: IHS Uniform Data System

Routine: BUD2RP71


Information

BUD2RP71 ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE ;

Source Information

Source file <BUD2RP71.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
IHS Uniform Data System 5 (PRGHL,PRGRL)^BUD2RP7I  (HTCRL,HTRL,HTURL)^BUD2RP7J  (DMR1L,DMR2L,DMRL)^BUD2RP7L  (DMR3L,DMR4L)^BUD2RP7T  HEADER^BUD2RPTP  
VA Fileman 2 COMMA^%DTC  ^DIR  
Kernel 1 $$REPEAT^XLFSTR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Uniform Data System 2 BUD2RP7  BUD2RP7O  

Entry Points

Name Comments DBIA/ICR reference
R2C ;EP
R2B ;EP
USR() ;EP - Return name of current user from ^VA(200.
LINE1 ;EP
PRINT ;EP
LINE ;EP
R1 ;EP
LOC() ;EP - Return location name from file 4 based on DUZ(2).
P71 ;
P71A ;W !!,$$REPEAT^XLFSTR("_",80),!
RB ;EP
RC ;EP
C7 ;
PAUSE ;
C(X,Y) ;
T7H1 ;EP
R ;EP
P7B ;
P7C ;
T7H ;EP
LINE4 ;EP
LISTS ;
B7 ;
CTR(X,Y) ;EP - Center X in a field Y wide.
R1B ;EP
LINE5 ;EP
R1C ;EP

External References

Name Field # of Occurrence
COMMA^%DTC C+4
PRGHL^BUD2RP7I LISTS+1
PRGRL^BUD2RP7I LISTS+2
HTCRL^BUD2RP7J LISTS+5
HTRL^BUD2RP7J LISTS+4
HTURL^BUD2RP7J LISTS+6
DMR1L^BUD2RP7L LISTS+11
DMR2L^BUD2RP7L LISTS+12
DMRL^BUD2RP7L LISTS+10
DMR3L^BUD2RP7T LISTS+13
DMR4L^BUD2RP7T LISTS+14
HEADER^BUD2RPTP P71+1, P7B+1, P7C+1
^DIR PAUSE+1
$$REPEAT^XLFSTR PRINT+12, B7+8, C7+8, P71+3, P71+5, P71+6, P71+7, P71+8, P71A+9, P7B+3
, P7B+9, P7C+3, P7C+13, LINE1+1, T7H1+1, LINE4+1, LINE5+1, LINE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Unreported/Refused to Report Ethnicity",!
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",80),!
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: "h",?5,"|Unreported/"
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: ?5,"| Refused"
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: ?5,"| to Report Race"
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: ?5,"| and Ethnicity"
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: "i",?5,"| Total"
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: "Unreported/Refused to Report Ethnicity",!
  • Line Location: B7+7
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",80),!
  • Line Location: B7+8
Function Call: WRITE
  • Prompt: "h",?5,"|Unreported/"
  • Line Location: B7+9
Function Call: WRITE
  • Prompt: ?5,"| Refused"
  • Line Location: B7+10
Function Call: WRITE
  • Prompt: ?5,"| to Report Race"
  • Line Location: B7+11
Function Call: WRITE
  • Prompt: ?5,"| and Ethnicity"
  • Line Location: B7+12
Function Call: WRITE
  • Prompt: "i",?5,"| Total"
  • Line Location: B7+14
Function Call: WRITE
  • Prompt: ?23,"|",?28,$$C($P($G(BUDSECTB(4)),U,1),8),?42,"|",?47,$$C($P($G(BUDSECTB(4)),U,2),8),?61,"|",?66,$$C($P($G(BUDSECTB(4)),U,3),8),!
  • Line Location: B7+14
Function Call: WRITE
  • Prompt: "Unreported/Refused to Report Ethnicity",!
  • Line Location: C7+7
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",80),!
  • Line Location: C7+8
Function Call: WRITE
  • Prompt: "h",?5,"|Unreported/"
  • Line Location: C7+9
Function Call: WRITE
  • Prompt: ?5,"| Refused"
  • Line Location: C7+10
Function Call: WRITE
  • Prompt: ?5,"| to Report Race"
  • Line Location: C7+11
Function Call: WRITE
  • Prompt: ?5,"| and Ethnicity"
  • Line Location: C7+12
Function Call: WRITE
  • Prompt: "i",?5,"| Total"
  • Line Location: C7+14
Function Call: WRITE
  • Prompt: $$CTR("SECTION A: DELIVERIES AND BIRTH WEIGHT BY RACE AND HISPANIC/LATINO ETHNICITY",80),!
  • Line Location: P71+2
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",80),!
  • Line Location: P71+3
Function Call: WRITE
  • Prompt: !,"0",?5,"HIV Positive Pregnant Women",$$REPEAT^XLFSTR("*",(67-$X)),?67,"| ",$P($G(BUDSECTH(1)),U,18),!
  • Line Location: P71+5
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",80),!
  • Line Location: P71+6
Function Call: WRITE
  • Prompt: "2",?5,"Deliveries Performed by Grantee's Providers",$$REPEAT^XLFSTR("*",(67-$X)),?67,"|",!
  • Line Location: P71+7
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",80),!
  • Line Location: P71+8
Function Call: WRITE
  • Prompt: ?5,"|",?23,"|Prenatal Care",?37,"| Live Births:",?51,"| Live Births:",?65,"| Live Births:",!
  • Line Location: P71A+1
Function Call: WRITE
  • Prompt: ?5,"|",?23,"| Patients Who",?37,"| <1500 grams",?51,"| 1500-2499",?65,"| =>2500 grams",!
  • Line Location: P71A+2
Function Call: WRITE
  • Prompt: "Line",?5,"| Race and ",?23,"| Delivered",?37,"|",?51,"| grams",?65,"|",!
  • Line Location: P71A+3
Function Call: WRITE
  • Prompt: " #",?5,"| Ethnicity",?23,"| During the",?37,"|",?51,"|",?65,"|",!
  • Line Location: P71A+4
Function Call: WRITE
  • Prompt: ?5,"|",?23,"| Year",?37,"|",?51,"|",?65,"|",!
  • Line Location: P71A+5
Function Call: WRITE
  • Prompt: ?5,"|",?23,"| (1a)",?37,"| (1b)",?51,"| (1c)",?65,"| (1d)",!
  • Line Location: P71A+6
Function Call: WRITE
  • Prompt: BUDTELB,!
  • Line Location: P71A+8
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",80),!
  • Line Location: P71A+9
Function Call: WRITE
  • Prompt: BUDTELN_"a",?5,"| Asian"
  • Line Location: P71A+10
Function Call: WRITE
  • Prompt: BUDTELN_"b1",?5,"| Native Hawaiian"
  • Line Location: P71A+12
Function Call: WRITE
  • Prompt: BUDTELN_"b2",?5,"| Pacific Islander"
  • Line Location: P71A+14
Function Call: WRITE
  • Prompt: BUDTELN_"c",?5,"| Black/African"
  • Line Location: P71A+16
Function Call: WRITE
  • Prompt: ?5,"| American"
  • Line Location: P71A+17
Function Call: WRITE
  • Prompt: BUDTELN_"d",?5,"| American Indian/"
  • Line Location: P71A+19
Function Call: WRITE
  • Prompt: ?5,"| Alaska Native"
  • Line Location: P71A+20
Function Call: WRITE
  • Prompt: BUDTELN_"e",?5,"| White"
  • Line Location: P71A+22
Function Call: WRITE
  • Prompt: BUDTELN_"f",?5,"| More than One"
  • Line Location: P71A+24
Function Call: WRITE
  • Prompt: ?5,"| Race"
  • Line Location: P71A+25
Function Call: WRITE
  • Prompt: BUDTELN_"g",?5,"| Unreported/"
  • Line Location: P71A+27
Function Call: WRITE
  • Prompt: ?5,"| Refused"
  • Line Location: P71A+28
Function Call: WRITE
  • Prompt: ?5,"| to Report Race"
  • Line Location: P71A+29
Function Call: WRITE
  • Prompt: ?5,"| Subtotal"
  • Line Location: P71A+31
Function Call: WRITE
  • Prompt: ?16,"Non-"
  • Line Location: P71A+32
Function Call: WRITE
  • Prompt: ?5,"| ",$S(BUDTELB["-":$P(BUDTELB,"-",2),1:BUDTELB),?23,"| | | | ",!
  • Line Location: P71A+34
Function Call: WRITE
  • Prompt: "_____|_________________|_____________|_____________|_____________|______________",!
  • Line Location: R+2
Function Call: WRITE
  • Prompt: ?23,"|",?37,"|",?51,"|",?65,"|",!
  • Line Location: R1+1
Function Call: WRITE
  • Prompt: $$CTR("SECTION B: HYPERTENSION BY RACE AND HISPANIC/LATINO ETHNICITY",80),!
  • Line Location: P7B+2
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",80),!
  • Line Location: P7B+3
Function Call: WRITE
  • Prompt: ?5,"|",?23,"|Total Hypertensive",?42,"| Charts Sampled or",?61,"| Patients with HTN",!
  • Line Location: P7B+4
Function Call: WRITE
  • Prompt: " #",?5,"| Race and ",?23,"| Patients",?42,"| EHR Total",?61,"| Controlled",!
  • Line Location: P7B+5
Function Call: WRITE
  • Prompt: ?5,"| Ethnicity",?23,"| (2a)",?42,"| (2b)",?61,"| (2c)",!
  • Line Location: P7B+6
Function Call: WRITE
  • Prompt: BUDTELB,!
  • Line Location: P7B+8
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",80),!
  • Line Location: P7B+9
Function Call: WRITE
  • Prompt: BUDTELN_"a",?5,"| Asian"
  • Line Location: P7B+10
Function Call: WRITE
  • Prompt: BUDTELN_"b1",?5,"| Native Hawaiian"
  • Line Location: P7B+12
Function Call: WRITE
  • Prompt: BUDTELN_"b2",?5,"| Pacific Islander"
  • Line Location: P7B+14
Function Call: WRITE
  • Prompt: BUDTELN_"c",?5,"| Black/African"
  • Line Location: P7B+16
Function Call: WRITE
  • Prompt: ?5,"| American"
  • Line Location: P7B+17
Function Call: WRITE
  • Prompt: BUDTELN_"d",?5,"| American Indian/"
  • Line Location: P7B+19
Function Call: WRITE
  • Prompt: ?5,"| Alaska Native"
  • Line Location: P7B+20
Function Call: WRITE
  • Prompt: BUDTELN_"e",?5,"| White"
  • Line Location: P7B+22
Function Call: WRITE
  • Prompt: BUDTELN_"f",?5,"| More than One"
  • Line Location: P7B+24
Function Call: WRITE
  • Prompt: ?5,"| Race"
  • Line Location: P7B+25
Function Call: WRITE
  • Prompt: BUDTELN_"g",?5,"| Unreported/"
  • Line Location: P7B+27
Function Call: WRITE
  • Prompt: ?5,"| Refused"
  • Line Location: P7B+28
Function Call: WRITE
  • Prompt: ?5,"| to Report Race"
  • Line Location: P7B+29
Function Call: WRITE
  • Prompt: ?5,"| Subtotal"
  • Line Location: P7B+31
Function Call: WRITE
  • Prompt: ?16,"Non-"
  • Line Location: P7B+32
Function Call: WRITE
  • Prompt: ?5,"| ",$S(BUDTELB["-":$P(BUDTELB,"-",2),1:BUDTELB)
  • Line Location: P7B+34
Function Call: WRITE
  • Prompt: "_____|_________________|__________________|__________________|__________________",!
  • Line Location: RB+2
Function Call: WRITE
  • Prompt: ?23,"|",?28,$$C($P($G(BUDSECTB(BUDTELL,X)),U,1),8),?42,"|",?47,$$C($P($G(BUDSECTB(BUDTELL,X)),U,2),8),?61,"|",?66,$$C($P($G(BUDSECTB(BUDTELL,X)),U,3),8),!
  • Line Location: R1B+1
Function Call: WRITE
  • Prompt: ?23,"|",?42,"|",?61,"|",!
  • Line Location: R2B+1
Function Call: WRITE
  • Prompt: $$CTR("SECTION C: DIABETES BY RACE AND HISPANIC/LATINO ETHNCITY",80),!
  • Line Location: P7C+2
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",80),!
  • Line Location: P7C+3
Function Call: WRITE
  • Prompt: ?5,"|",?23,"| Total",?32,"| Charts",?41,"|Patients",?50,"|Patients",?59,"|Patients",?68,"|Patients",!
  • Line Location: P7C+4
Function Call: WRITE
  • Prompt: " #",?5,"| Race and ",?23,"|Patients",?32,"|Sampled",?41,"| with",?50,"| with",?59,"| with",?68,"| with",!
  • Line Location: P7C+5
Function Call: WRITE
  • Prompt: ?5,"| Ethnicity",?23,"| with",?32,"| or EHR",?41,"|Hba1c ",?50,"| 7%<=",?59,"| 8%<=",?68,"| Hba1c",!
  • Line Location: P7C+6
Function Call: WRITE
  • Prompt: ?5,"|",?23,"|Diabetes",?32,"| Total",?41,"| <7%",?50,"| Hba1c",?59,"| Hba1c",?68,"|>9% Or No",!
  • Line Location: P7C+7
Function Call: WRITE
  • Prompt: ?5,"|",?23,"|",?32,"|",?41,"|",?50,"| <8%",?59,"| <=9%",?68,"| Test",!
  • Line Location: P7C+8
Function Call: WRITE
  • Prompt: ?5,"|",?23,"|",?32,"|",?41,"|",?50,"|",?59,"|",?68,"|During Year",!
  • Line Location: P7C+9
Function Call: WRITE
  • Prompt: ?5,"|",?23,"| (3a)",?32,"| (3b)",?41,"| (3c)",?50,"| (3d)",?59,"| (3e)",?68,"| (3f)",!
  • Line Location: P7C+10
Function Call: WRITE
  • Prompt: BUDTELB,!
  • Line Location: P7C+12
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",80),!
  • Line Location: P7C+13
Function Call: WRITE
  • Prompt: BUDTELN_"a",?5,"| Asian"
  • Line Location: P7C+14
Function Call: WRITE
  • Prompt: BUDTELN_"b1",?5,"| Native Hawaiian"
  • Line Location: P7C+16
Function Call: WRITE
  • Prompt: BUDTELN_"b2",?5,"| Pacific Islander"
  • Line Location: P7C+18
Function Call: WRITE
  • Prompt: BUDTELN_"c",?5,"| Black/African"
  • Line Location: P7C+20
Function Call: WRITE
  • Prompt: ?5,"| American"
  • Line Location: P7C+21
Function Call: WRITE
  • Prompt: BUDTELN_"d",?5,"| American Indian/"
  • Line Location: P7C+23
Function Call: WRITE
  • Prompt: ?5,"| Alaska Native"
  • Line Location: P7C+24
Function Call: WRITE
  • Prompt: BUDTELN_"e",?5,"| White"
  • Line Location: P7C+26
Function Call: WRITE
  • Prompt: BUDTELN_"f",?5,"| More than One"
  • Line Location: P7C+28
Function Call: WRITE
  • Prompt: ?5,"| Race"
  • Line Location: P7C+29
Function Call: WRITE
  • Prompt: BUDTELN_"g",?5,"| Unreported/"
  • Line Location: P7C+31
Function Call: WRITE
  • Prompt: ?5,"| Refused"
  • Line Location: P7C+32
Function Call: WRITE
  • Prompt: ?5,"| to Report Race"
  • Line Location: P7C+33
Function Call: WRITE
  • Prompt: ?5,"| Subtotal"
  • Line Location: P7C+35
Function Call: WRITE
  • Prompt: ?16,"Non-"
  • Line Location: P7C+36
Function Call: WRITE
  • Prompt: ?5,"| ",$S(BUDTELB["-":$P(BUDTELB,"-",2),1:BUDTELB)
  • Line Location: P7C+38
Function Call: WRITE
  • Prompt: "_____|_________________|________|________|________|________|________|___________",!
  • Line Location: RC+2
Function Call: WRITE
  • Prompt: ?23,"|",?24,$$C($P($G(BUDSECTC(BUDTELL,X)),U,1),7),?32,"|",?33,$$C($P($G(BUDSECTC(BUDTELL,X)),U,2),7),?41,"|",?42,$$C($P($G(BUDSECTC(BUDTELL,X)),U,3),7),?50,"|",?51,$$C($P($G(BUDSECTC(BUDTELL,X)),U,4),7)
  • Line Location: R1C+1
Function Call: WRITE
  • Prompt: ?59,"|",?60,$$C($P($G(BUDSECTC(BUDTELL,X)),U,5),7),?68,"|",?69,$$C($P($G(BUDSECTC(BUDTELL,X)),U,6),7),!
  • Line Location: R1C+2
Function Call: WRITE
  • Prompt: ?23,"|",?32,"|",?41,"|",?50,"|",?59,"|",?68,"|",!
  • Line Location: R2C+1
Function Call: WRITE
  • Prompt: !,$$CTR("TABLE 7 - HEALTH OUTCOMES AND DISPARITIES"),!
  • Line Location: T7H+1
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",9),?39,"|",$$REPEAT^XLFSTR("_",9),?49,"|",$$REPEAT^XLFSTR("_",9),?59,"|",$$REPEAT^XLFSTR("_",9),?69,"|",!
  • Line Location: LINE1+1
Function Call: WRITE
  • Prompt: !,$$CTR("TABLE 7 - HEALTH OUTCOMES AND DISPARITIES",60),!,$$REPEAT^XLFSTR("_",69),!
  • Line Location: T7H1+1
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",69),?69,"|",!
  • Line Location: LINE4+1
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",9),?39,"|",$$REPEAT^XLFSTR("_",9),?49,"|",$$REPEAT^XLFSTR("_",9),?59,"|",$$REPEAT^XLFSTR("_",9),?69,"|",!
  • Line Location: LINE5+1
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",69),?69,"|",!
  • Line Location: LINE+1
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] LOC+1
^VA(200 - [#200] USR+1
^XTMP("BUD2RP7" LISTS+19!

Label References

Name Line Occurrences
$$C B7+14, C7+15, C7+16, P7B+35, R1B+1, P7C+39, P7C+40, R1C+1, R1C+2
$$CTR P71+2, P7B+2, P7C+2, T7H+1, T7H1+1
LISTS C7+19
P71 PRINT+5, PRINT+8
P71A P71+4
P7B B7+2, B7+5
P7C C7+2, C7+5
R PRINT+17, PRINT+19, P71A+7, P71A+11, P71A+13, P71A+15, P71A+18, P71A+21, P71A+23, P71A+26
, P71A+30, P71A+35
R1 PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+18, P71A+10, P71A+12, P71A+14, P71A+16, P71A+17
, P71A+19, P71A+20, P71A+22, P71A+24, P71A+25, P71A+27, P71A+28, P71A+29, P71A+33
R1B B7+12, P7B+10, P7B+12, P7B+14, P7B+17, P7B+20, P7B+22, P7B+25, P7B+29
R1C C7+12, P7C+14, P7C+16, P7C+18, P7C+21, P7C+24, P7C+26, P7C+29, P7C+33
R2B B7+9, B7+10, B7+11, P7B+16, P7B+19, P7B+24, P7B+27, P7B+28, P7B+33
R2C C7+9, C7+10, C7+11, P7C+20, P7C+23, P7C+28, P7C+31, P7C+32, P7C+37
RB B7+13, B7+15, P7B+7, P7B+11, P7B+13, P7B+15, P7B+18, P7B+21, P7B+23, P7B+26
, P7B+30, P7B+36
RC C7+13, C7+17, P7C+11, P7C+15, P7C+17, P7C+19, P7C+22, P7C+25, P7C+27, P7C+30
, P7C+34, P7C+41
T7H P71+1, P7B+1, P7C+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BUDDMR1L LISTS+11
>> BUDDMR2L LISTS+12
>> BUDDMR3L LISTS+13
>> BUDDMR4L LISTS+14
>> BUDDMRL LISTS+10
>> BUDGPG LISTS+1*, LISTS+2*, LISTS+4*, LISTS+5*, LISTS+6*, LISTS+10*, LISTS+11*, LISTS+12*, LISTS+13*, LISTS+14*
>> BUDH LISTS+19
>> BUDHTCRL LISTS+5
>> BUDHTRL LISTS+4
>> BUDHTURL LISTS+6
>> BUDJ LISTS+19
>> BUDPG PRINT+1*
>> BUDPRGHL LISTS+1
>> BUDPRGRL LISTS+2
>> BUDQUIT PRINT+3*, PRINT+6, PRINT+9, PRINT+20, B7+3, B7+6, B7+16, C7+3, C7+6, C7+18
, P71+1, P7B+1, P7C+1
>> BUDSECTB( P7B+35, R1B+1
>> BUDSECTB(4 B7+14
>> BUDSECTC( P7C+39, P7C+40, R1C+1, R1C+2
>> BUDSECTC(4 C7+15, C7+16
>> BUDSECTH(1 P71+5
>> BUDTELB PRINT+4*, PRINT+7*, B7+1*, B7+4*, C7+1*, C7+4*, P71+4, P71A+8, P71A+32, P71A+34
, P7B+8, P7B+32, P7B+34, P7C+12, P7C+36, P7C+38
>> BUDTELL B7+1*, B7+4*, B7+12*, C7+1*, C7+4*, C7+12*, P7B+35, R1B+1, P7C+39, P7C+40
, R1C+1, R1C+2
>> BUDTELN PRINT+4*, PRINT+7*, B7+1*, B7+4*, C7+1*, C7+4*, P71A+10, P71A+12, P71A+14, P71A+16
, P71A+19, P71A+22, P71A+24, P71A+27, P7B+10, P7B+12, P7B+14, P7B+16, P7B+19, P7B+22
, P7B+24, P7B+27, P7C+14, P7C+16, P7C+18, P7C+20, P7C+23, P7C+26, P7C+28, P7C+31
DA PAUSE+1!
DIR PAUSE+1!
DIR("A" PAUSE+1*
DIR(0 PAUSE+1*
DUZ USR+1
DUZ(2 LOC+1
IOM CTR+1
U B7+14, C7+15, C7+16, P71+5, P7B+35, R1B+1, P7C+39, P7C+40, R1C+1, R1C+2
, USR+1, LOC+1
X B7+12*, C7+12*, P7B+10*, P7B+12*, P7B+14*, P7B+17*, P7B+20*, P7B+22*, P7B+25*, P7B+29*
, R1B+1, P7C+14*, P7C+16*, P7C+18*, P7C+21*, P7C+24*, P7C+26*, P7C+29*, P7C+33*, R1C+1
, R1C+2, CTR~, CTR+1, C~, C+1, C+5
>> X2 C+3*
>> X3 C+3*
Y CTR~, CTR+1, C~, C+1, C+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All