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

Package: IHS Uniform Data System

Routine: BUDERP71


Information

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

Source Information

Source file <BUDERP71.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS Uniform Data System 7 (PRGHL,PRGRL)^BUDERP7I  (HTCRL,HTRL)^BUDERP7J  (DMR1L,DMRL)^BUDERP7L  DMR2L^BUDERP7T  HTURL^BUDERP7U  SAVEDEL^BUDERPTD  HEADER^BUDERPTP  
Kernel 2 ^%ZISC  $$REPEAT^XLFSTR  
VA Fileman 2 COMMA^%DTC  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Uniform Data System 2 BUDERP7  BUDERP7O  

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
C(X,Y) ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
P71 ;
P71A ;W !!,$$REPEAT^XLFSTR("_",80),!
RB ;EP
RC ;EP
C7 ;
PL
PAUSE ;
R1 ;EP
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
^%ZISC PRINT+5, PL+1
PRGHL^BUDERP7I LISTS+1
PRGRL^BUDERP7I LISTS+2
HTCRL^BUDERP7J LISTS+4
HTRL^BUDERP7J LISTS+3
DMR1L^BUDERP7L LISTS+7
DMRL^BUDERP7L LISTS+6
DMR2L^BUDERP7T LISTS+8
HTURL^BUDERP7U LISTS+5
SAVEDEL^BUDERPTD PL+2
HEADER^BUDERPTP P71+1, P7B+1, P7C+1
^DIR PAUSE+1
$$REPEAT^XLFSTR PRINT+17, B7+8, C7+8, P71+3, P71+5, P71+6, P71+7, P71+8, P71A+9, P7B+3
, P7B+11, P7C+3, P7C+15, 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+16
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",80),!
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: "h",?5,"|Unreported/"
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: ?5,"| Refused"
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: ?5,"| to Report Race"
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: ?5,"| and Ethnicity"
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: "i",?5,"| Total"
  • Line Location: PRINT+23
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",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 Health Center'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,"| Other Pacific"
  • Line Location: P71A+14
Function Call: WRITE
  • Prompt: ?5,"| Islander"
  • Line Location: P71A+15
Function Call: WRITE
  • Prompt: BUDTELN_"c",?5,"| Black/African"
  • Line Location: P71A+17
Function Call: WRITE
  • Prompt: ?5,"| American"
  • Line Location: P71A+18
Function Call: WRITE
  • Prompt: BUDTELN_"d",?5,"| American Indian/"
  • Line Location: P71A+20
Function Call: WRITE
  • Prompt: ?5,"| Alaska Native"
  • Line Location: P71A+21
Function Call: WRITE
  • Prompt: BUDTELN_"e",?5,"| White"
  • Line Location: P71A+23
Function Call: WRITE
  • Prompt: BUDTELN_"f",?5,"| More than One"
  • Line Location: P71A+25
Function Call: WRITE
  • Prompt: ?5,"| Race"
  • Line Location: P71A+26
Function Call: WRITE
  • Prompt: BUDTELN_"g",?5,"| Unreported/"
  • Line Location: P71A+28
Function Call: WRITE
  • Prompt: ?5,"| Refused"
  • Line Location: P71A+29
Function Call: WRITE
  • Prompt: ?5,"| to Report Race"
  • Line Location: P71A+30
Function Call: WRITE
  • Prompt: ?5,"| Subtotal"
  • Line Location: P71A+32
Function Call: WRITE
  • Prompt: ?16,"Non-"
  • Line Location: P71A+33
Function Call: WRITE
  • Prompt: ?5,"| ",$S(BUDTELB["-":$P(BUDTELB,"-",2),1:BUDTELB),?23,"| | | | ",!
  • Line Location: P71A+35
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: Controlling High Blood Pressure",80),!
  • Line Location: P7B+2
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",80),!
  • Line Location: P7B+3
Function Call: WRITE
  • Prompt: ?5,"|",?23,"|Total Patients 18",?42,"| Charts Sampled or",?61,"| Patients with HTN",!
  • Line Location: P7B+4
Function Call: WRITE
  • Prompt: " #",?5,"| Race and ",?23,"|through 85 Years",?42,"| EHR Total",?61,"| Controlled",!
  • Line Location: P7B+5
Function Call: WRITE
  • Prompt: ?5,"| Ethnicity ",?23,"|of Age with",?42,"| ",?61,"| ",!
  • Line Location: P7B+6
Function Call: WRITE
  • Prompt: ?5,"| ",?23,"|Hypertension",?42,"| ",?61,"| ",!
  • Line Location: P7B+7
Function Call: WRITE
  • Prompt: ?5,"| ",?23,"| (2a)",?42,"| (2b)",?61,"| (2c)",!
  • Line Location: P7B+8
Function Call: WRITE
  • Prompt: BUDTELB,!
  • Line Location: P7B+10
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",80),!
  • Line Location: P7B+11
Function Call: WRITE
  • Prompt: BUDTELN_"a",?5,"| Asian"
  • Line Location: P7B+12
Function Call: WRITE
  • Prompt: BUDTELN_"b1",?5,"| Native Hawaiian"
  • Line Location: P7B+14
Function Call: WRITE
  • Prompt: BUDTELN_"b2",?5,"| Other Pacific"
  • Line Location: P7B+16
Function Call: WRITE
  • Prompt: ?5,"| American"
  • Line Location: P7B+17
Function Call: WRITE
  • Prompt: BUDTELN_"c",?5,"| Black/African"
  • Line Location: P7B+19
Function Call: WRITE
  • Prompt: ?5,"| American"
  • Line Location: P7B+20
Function Call: WRITE
  • Prompt: BUDTELN_"d",?5,"| American Indian/"
  • Line Location: P7B+22
Function Call: WRITE
  • Prompt: ?5,"| Alaska Native"
  • Line Location: P7B+23
Function Call: WRITE
  • Prompt: BUDTELN_"e",?5,"| White"
  • Line Location: P7B+25
Function Call: WRITE
  • Prompt: BUDTELN_"f",?5,"| More than One"
  • Line Location: P7B+27
Function Call: WRITE
  • Prompt: ?5,"| Race"
  • Line Location: P7B+28
Function Call: WRITE
  • Prompt: BUDTELN_"g",?5,"| Unreported/"
  • Line Location: P7B+30
Function Call: WRITE
  • Prompt: ?5,"| Refused"
  • Line Location: P7B+31
Function Call: WRITE
  • Prompt: ?5,"| to Report Race"
  • Line Location: P7B+32
Function Call: WRITE
  • Prompt: ?5,"| Subtotal"
  • Line Location: P7B+34
Function Call: WRITE
  • Prompt: ?16,"Non-"
  • Line Location: P7B+35
Function Call: WRITE
  • Prompt: ?5,"| ",$S(BUDTELB["-":$P(BUDTELB,"-",2),1:BUDTELB)
  • Line Location: P7B+37
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: Hemoglobin A1c (HbA1c) Poor Control (> 9%)",80),!
  • Line Location: P7C+2
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",72),!
  • Line Location: P7C+3
Function Call: WRITE
  • Prompt: ?5,"|",?23,"| Total ",?32,"| Charts",?41,"|Patients",?50,"|Patients",!
  • Line Location: P7C+4
Function Call: WRITE
  • Prompt: " #",?5,"| Race and ",?23,"|Patients",?32,"|Sampled",?41,"| with",?50,"| with",!
  • Line Location: P7C+5
Function Call: WRITE
  • Prompt: ?5,"| Ethnicity",?23,"|18 ",?32,"| or EHR",?41,"| HbA1c",?50,"| HbA1c",!
  • Line Location: P7C+6
Function Call: WRITE
  • Prompt: ?5,"|",?23,"|through",?32,"|Total",?41,"| <8%",?50,"|>9% Or No",!
  • Line Location: P7C+7
Function Call: WRITE
  • Prompt: ?5,"|",?23,"|75 Years",?32,"|",?41,"| ",?50,"| Test",!
  • Line Location: P7C+8
Function Call: WRITE
  • Prompt: ?5,"|",?23,"|of Age",?32,"|",?41,"|",?50,"|During Year",!
  • Line Location: P7C+9
Function Call: WRITE
  • Prompt: ?5,"|",?23,"|with",?32,"|",?41,"|",?50,"|",!
  • Line Location: P7C+10
Function Call: WRITE
  • Prompt: ?5,"|",?23,"|Diabetes",?32,"|",?41,"|",?50,"|",!
  • Line Location: P7C+11
Function Call: WRITE
  • Prompt: ?5,"|",?23,"| (3a)",?32,"| (3b)",?41,"| (3d1)",?50,"| (3f)",!
  • Line Location: P7C+12
Function Call: WRITE
  • Prompt: BUDTELB,!
  • Line Location: P7C+14
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",72),!
  • Line Location: P7C+15
Function Call: WRITE
  • Prompt: BUDTELN_"a",?5,"| Asian"
  • Line Location: P7C+16
Function Call: WRITE
  • Prompt: BUDTELN_"b1",?5,"| Native Hawaiian"
  • Line Location: P7C+18
Function Call: WRITE
  • Prompt: BUDTELN_"b2",?5,"| Other Pacific"
  • Line Location: P7C+20
Function Call: WRITE
  • Prompt: ?5,"| Islander"
  • Line Location: P7C+21
Function Call: WRITE
  • Prompt: BUDTELN_"c",?5,"| Black/African"
  • Line Location: P7C+23
Function Call: WRITE
  • Prompt: ?5,"| American"
  • Line Location: P7C+24
Function Call: WRITE
  • Prompt: BUDTELN_"d",?5,"| American Indian/"
  • Line Location: P7C+26
Function Call: WRITE
  • Prompt: ?5,"| Alaska Native"
  • Line Location: P7C+27
Function Call: WRITE
  • Prompt: BUDTELN_"e",?5,"| White"
  • Line Location: P7C+29
Function Call: WRITE
  • Prompt: BUDTELN_"f",?5,"| More than One"
  • Line Location: P7C+31
Function Call: WRITE
  • Prompt: ?5,"| Race"
  • Line Location: P7C+32
Function Call: WRITE
  • Prompt: BUDTELN_"g",?5,"| Unreported/"
  • Line Location: P7C+34
Function Call: WRITE
  • Prompt: ?5,"| Refused"
  • Line Location: P7C+35
Function Call: WRITE
  • Prompt: ?5,"| to Report Race"
  • Line Location: P7C+36
Function Call: WRITE
  • Prompt: ?5,"| Subtotal"
  • Line Location: P7C+38
Function Call: WRITE
  • Prompt: ?16,"Non-"
  • Line Location: P7C+39
Function Call: WRITE
  • Prompt: ?5,"| ",$S(BUDTELB["-":$P(BUDTELB,"-",2),1:BUDTELB)
  • Line Location: P7C+41
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,4),7)
  • Line Location: R1C+1
Function Call: WRITE
  • Prompt: ?50,"|",?51,$$C($P($G(BUDSECTC(BUDTELL,X)),U,5),7),!
  • Line Location: R1C+2
Function Call: WRITE
  • Prompt: ?23,"|",?32,"|",?41,"|",?50,"|",!
  • 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),?50,"|",$$REPEAT^XLFSTR("_",9),?59,"|",!
  • 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),?59,"|",!
  • Line Location: LINE4+1
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",9),?39,"|",$$REPEAT^XLFSTR("_",9),?49,"|",$$REPEAT^XLFSTR("_",9),?50,"|",$$REPEAT^XLFSTR("_",9),?59,"|",!
  • Line Location: LINE5+1
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",69),?59,"|",!
  • 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
^TMP($J PRINT+6!, PRINT+7*
^VA(200 - [#200] USR+1
^XTMP("BUDERP7" PL+3!, LISTS+9!

Label References

Name Line Occurrences
$$C B7+14, C7+15, C7+16, P7B+38, R1B+1, P7C+42, P7C+43, R1C+1, R1C+2
$$CTR P71+2, P7B+2, P7C+2, T7H+1, T7H1+1
LISTS PL
P71 PRINT+10, PRINT+13
P71A P71+4
P7B B7+2, B7+5
P7C C7+2, C7+5
PL PRINT+4
R PRINT+22, PRINT+24, P71A+7, P71A+11, P71A+13, P71A+16, P71A+19, P71A+22, P71A+24, P71A+27
, P71A+31, P71A+36
R1 PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT+23, P71A+10, P71A+12, P71A+14, P71A+15, P71A+17
, P71A+18, P71A+20, P71A+21, P71A+23, P71A+25, P71A+26, P71A+28, P71A+29, P71A+30, P71A+34
R1B B7+12, P7B+12, P7B+14, P7B+17, P7B+20, P7B+23, P7B+25, P7B+28, P7B+32
R1C C7+12, P7C+16, P7C+18, P7C+21, P7C+24, P7C+27, P7C+29, P7C+32, P7C+36
R2B B7+9, B7+10, B7+11, P7B+16, P7B+19, P7B+22, P7B+27, P7B+30, P7B+31, P7B+36
R2C C7+9, C7+10, C7+11, P7C+20, P7C+23, P7C+26, P7C+31, P7C+34, P7C+35, P7C+40
RB B7+13, B7+15, P7B+9, P7B+13, P7B+15, P7B+18, P7B+21, P7B+24, P7B+26, P7B+29
, P7B+33, P7B+39
RC C7+13, C7+17, P7C+13, P7C+17, P7C+19, P7C+22, P7C+25, P7C+28, P7C+30, P7C+33
, P7C+37, P7C+44
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
>> BUDDECNT PRINT+8*
>> BUDDMR1L LISTS+7
>> BUDDMR2L LISTS+8
>> BUDDMRL LISTS+6
>> BUDGPG LISTS+1*, LISTS+2*, LISTS+3*, LISTS+4*, LISTS+5*, LISTS+6*, LISTS+7*, LISTS+8*
>> BUDH PL+3, LISTS+9
>> BUDHTCRL LISTS+4
>> BUDHTRL LISTS+3
>> BUDHTURL LISTS+5
>> BUDJ PL+3, LISTS+9
>> BUDPG PRINT+1*
>> BUDPRGHL LISTS+1
>> BUDPRGRL LISTS+2
>> BUDQUIT PRINT+3*, PRINT+11, PRINT+14, PRINT+25, B7+3, B7+6, B7+16, C7+3, C7+6, C7+18
, P71+1, P7B+1, P7C+1
>> BUDROT PRINT+4, PL+2
>> BUDSECTB( P7B+38, R1B+1
>> BUDSECTB(4 B7+14
>> BUDSECTC( P7C+42, P7C+43, R1C+1, R1C+2
>> BUDSECTC(4 C7+15, C7+16
>> BUDSECTH(1 P71+5
>> BUDTELB PRINT+9*, PRINT+12*, B7+1*, B7+4*, C7+1*, C7+4*, P71+4, P71A+8, P71A+33, P71A+35
, P7B+10, P7B+35, P7B+37, P7C+14, P7C+39, P7C+41
>> BUDTELL B7+1*, B7+4*, B7+12*, C7+1*, C7+4*, C7+12*, P7B+38, R1B+1, P7C+42, P7C+43
, R1C+1, R1C+2
>> BUDTELN PRINT+9*, PRINT+12*, B7+1*, B7+4*, C7+1*, C7+4*, P71A+10, P71A+12, P71A+14, P71A+17
, P71A+20, P71A+23, P71A+25, P71A+28, P7B+12, P7B+14, P7B+16, P7B+19, P7B+22, P7B+25
, P7B+27, P7B+30, P7C+16, P7C+18, P7C+20, P7C+23, P7C+26, P7C+29, P7C+31, P7C+34
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+38, R1B+1, P7C+42, P7C+43, R1C+1, R1C+2
, USR+1, LOC+1
X B7+12*, C7+12*, P7B+12*, P7B+14*, P7B+17*, P7B+20*, P7B+23*, P7B+25*, P7B+28*, P7B+32*
, R1B+1, P7C+16*, P7C+18*, P7C+21*, P7C+24*, P7C+27*, P7C+29*, P7C+32*, P7C+36*, 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