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

Package: IHS Uniform Data System

Routine: BUD2RP6I


Information

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

Source Information

Source file <BUD2RP6I.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
IHS Uniform Data System 8 (AWS1L,WAC1L,WAC2L)^BUD2RP6F  AWS2L^BUD2RP6G  (CAD1L,CAD2L)^BUD2RP6J  (IVD1L,IVD2L)^BUD2RP6K  (CRC1L,CRC2L)^BUD2RP6L  (PAP1L,PAP2L)^BUD2RP6P  (APT1L,APT2L)^BUD2RP6S  (TCI1L,TCI2L,TUA1L,TUA2L)^BUD2RP6T  
IHS Patient 1 ($$AGE,$$HRN)^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 $$FMTE^XLFDT  
Patient Care Component Reports 1 $$CLINIC^APCLV  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Uniform Data System 1 BUD2RP6B  

Entry Points

Name Comments DBIA/ICR reference
IMM2L1 ;
IMM2H1 ;
PRGAL1 ;
PRENATT ;EP
USR() ;EP - Return name of current user from ^VA(200.
IMM1 ;EP
IMM1H ;
IMM2 ;EP
IMM1L ;EP
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
PAUSE ;
IMM2H ;
IMM2L ;EP
PRGALX ;
IMM1H1 ;
PRGA ;EP
PRGAH ;
LISTS ;EP
PRGAL ;EP
GENI ;EP - general introductions
PRGAH1 ;
IMM1L1 ;

External References

Name Field # of Occurrence
$$CLINIC^APCLV PRGAL1+16
$$AGE^AUPNPAT PRGAL1+9, IMM1L1+6, IMM2L1+6
$$HRN^AUPNPAT PRGAL1+9, IMM1L1+6, IMM2L1+6
AWS1L^BUD2RP6F LISTS+8
WAC1L^BUD2RP6F LISTS+6
WAC2L^BUD2RP6F LISTS+7
AWS2L^BUD2RP6G LISTS+9
CAD1L^BUD2RP6J LISTS+16
CAD2L^BUD2RP6J LISTS+17
IVD1L^BUD2RP6K LISTS+18
IVD2L^BUD2RP6K LISTS+19
CRC1L^BUD2RP6L LISTS+20
CRC2L^BUD2RP6L LISTS+21
PAP1L^BUD2RP6P LISTS+4
PAP2L^BUD2RP6P LISTS+5
APT1L^BUD2RP6S LISTS+14
APT2L^BUD2RP6S LISTS+15
TCI1L^BUD2RP6T LISTS+12
TCI2L^BUD2RP6T LISTS+13
TUA1L^BUD2RP6T LISTS+10
TUA2L^BUD2RP6T LISTS+11
^DIR PAUSE+1, GENI+4, PRGAH+2, IMM1H+2, IMM2H+2
$$VAL^XBDIQ1 PRGAL1+16
$$FMTE^XLFDT PRGAL1+16, PRGAH1+3, PRGAH1+7, IMM1H1+3, IMM1H1+7, IMM2H1+3, IMM2H1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"UDS does not calculate the prenatal care indicators in Sections A and B."
  • Line Location: PRENATT+1
Function Call: WRITE
  • Prompt: !,"However, you can run a list of patients identified by UDS as pregnant to"
  • Line Location: PRENATT+2
Function Call: WRITE
  • Prompt: !,"determine which of them received prenatal care at your facility to assist"
  • Line Location: PRENATT+3
Function Call: WRITE
  • Prompt: !,"you with completing Table 6B, Sections A and B. The menu options you "
  • Line Location: PRENATT+4
Function Call: WRITE
  • Prompt: !,"would select to run the patient list are: LST, LST2, PRGA."
  • Line Location: PRENATT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRENATT+6
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: !
  • Line Location: GENI+19
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: PRGA+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2012",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: !!,"No patients to report."
  • Line Location: PRGAL+3
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: ?5,BUDV,!
  • Line Location: PRGAL1+14
Function Call: WRITE
  • Prompt: !,"Sub-Total ",BUDAB,": ",BUDSTOT,!
  • Line Location: PRGAL1+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PRGAH+2
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
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: IMM1+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2012",80)
  • Line Location: IMM1+3
Function Call: WRITE
  • Prompt: !!,"All Patients Age 2 w/All Child Immunizations (Table 6B)",!
  • Line Location: IMM1+4
Function Call: WRITE
  • Prompt: !!,"This report provides a list of two year old patients who had their first"
  • Line Location: IMM1+7
Function Call: WRITE
  • Prompt: !,"visit prior to their 2nd birthday, had a medical visit during the report"
  • Line Location: IMM1+8
Function Call: WRITE
  • Prompt: !,"period, and have all required childhood immunizations."
  • Line Location: IMM1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: IMM1+10
Function Call: WRITE
  • Prompt: !!,"No patients to report.",!
  • Line Location: IMM1L+3
Function Call: WRITE
  • Prompt: !!,"TOTAL PATIENTS IMMUNIZED: ",BUDTOT,!
  • Line Location: IMM1L+6
Function Call: WRITE
  • Prompt: !
  • Line Location: IMM1H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: IMM1H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: IMM1H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: IMM1H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6B, Section C, With Childhood Immunizations",80),!
  • Line Location: IMM1H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: IMM1H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: IMM1H1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: IMM1H1+8
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: IMM1H1+9
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  • Line Location: IMM1H1+15
Function Call: WRITE
  • Prompt: !?5,"IMMUNIZATIONS RCVD, CONTRAIND, EVID OF DISEASE"
  • Line Location: IMM1H1+16
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: IMM1H1+17
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: IMM2+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2012",80)
  • Line Location: IMM2+3
Function Call: WRITE
  • Prompt: !!,"All Patients Age 2 w/o All Child Immunizations (Table 6B)",!
  • Line Location: IMM2+4
Function Call: WRITE
  • Prompt: !!,"List of all 2-year old patients who had their first visit prior to their"
  • Line Location: IMM2+7
Function Call: WRITE
  • Prompt: !,"2nd birthday, had a medical visit during the report period, and are in "
  • Line Location: IMM2+8
Function Call: WRITE
  • Prompt: !,"need of the following immunizations to complete all required childhood "
  • Line Location: IMM2+9
Function Call: WRITE
  • Prompt: !,"immunizations."
  • Line Location: IMM2+10
Function Call: WRITE
  • Prompt: !,"Age is calculated as of December 31."
  • Line Location: IMM2+11
Function Call: WRITE
  • Prompt: !
  • Line Location: IMM2+12
Function Call: WRITE
  • Prompt: !!,"No patients to report.",!
  • Line Location: IMM2L+3
Function Call: WRITE
  • Prompt: !!,"TOTAL PATIENTS NOT IMMUNIZED: ",BUDTOT,!
  • Line Location: IMM2L+6
Function Call: WRITE
  • Prompt: !
  • Line Location: IMM2H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: IMM2H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: IMM2H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: IMM2H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6B, Section C, Without Childhood Immunizations",80),!
  • Line Location: IMM2H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: IMM2H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: IMM2H1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: IMM2H1+8
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: IMM2H1+9
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  • Line Location: IMM2H1+16
Function Call: WRITE
  • Prompt: !?5,"IMMUNIZATIONS NOT RECEIVED"
  • Line Location: IMM2H1+17
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: IMM2H1+18
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1
    • GENI+4
    • PRGAH+2
    • IMM1H+2
    • IMM2H+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] PRGAL1+16
^DIC(4 - [#4] LOC+1, PRGAH1+6, IMM1H1+6, IMM2H1+6
^DPT - [#2] PRGAL1+9, IMM1L1+6, IMM2L1+6
^VA(200 - [#200] USR+1, PRGAH1+3, IMM1H1+3, IMM2H1+3
^XTMP("BUD2RP6B" PRGAL+3, PRGAL1+4, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+11, IMM1L+3, IMM1L1+2, IMM1L1+3, IMM1L1+4
, IMM1L1+8, IMM2L+3, IMM2L1+2, IMM2L1+3, IMM2L1+4, IMM2L1+8

Label References

Name Line Occurrences
$$CTR PRGA+2, PRGA+3, PRGAH1+4, PRGAH1+5, PRGAH1+6, PRGAH1+7, PRGAH1+8, IMM1+2, IMM1+3, IMM1H1+4
, IMM1H1+5, IMM1H1+6, IMM1H1+7, IMM1H1+8, IMM2+2, IMM2+3, IMM2H1+4, IMM2H1+5, IMM2H1+6, IMM2H1+7
, IMM2H1+8
$$LOC PRGA+2, IMM1+2, IMM2+2
GENI PRGA+5, IMM1+5, IMM2+5
IMM1H IMM1L+2, IMM1L+5, IMM1L1+1, IMM1L1+5, IMM1L1+10
IMM1H1 IMM1H+1
IMM1L LISTS+2
IMM1L1 IMM1L+4
IMM2H IMM2L+2, IMM2L+5, IMM2L1+1, IMM2L1+5, IMM2L1+10
IMM2H1 IMM2H+1
IMM2L LISTS+3
IMM2L1 IMM2L+4
PAUSE PRGA+6, IMM1+6, IMM2+6
PRGAH PRGAL+2, PRGAL+14, PRGAL1+1, PRGAL1+8, PRGAL1+13
PRGAH1 PRGAH+1
PRGAL LISTS+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

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+4*, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+11
>> BUDAB PRGAL+4*, PRGAL+6*, PRGAL+8*, PRGAL+10*, PRGAL+12*, PRGAL1+2, PRGAL1+4, PRGAL1+5, PRGAL1+6, PRGAL1+7
, PRGAL1+11, PRGAL1+17
>> BUDALL PRGAL1+11*, PRGAL1+12, IMM1L1+8*, IMM1L1+9, IMM2L1+8*, IMM2L1+9
>> BUDAPT1L LISTS+14
>> BUDAPT2L LISTS+15
>> BUDAWS1L LISTS+8
>> BUDAWS2L LISTS+9
>> BUDBD PRGAH1+7, IMM1H1+7, IMM2H1+7
>> BUDBEN PRGAH1+8, IMM1H1+8, IMM2H1+8
>> BUDCAD PRGAL1+9
>> BUDCAD1L LISTS+16
>> BUDCAD2L LISTS+17
>> BUDCOM PRGAL1+6*, PRGAL1+7, PRGAL1+9, PRGAL1+11, IMM1L1+3*, IMM1L1+4, IMM1L1+6, IMM1L1+8, IMM2L1+3*, IMM2L1+4
, IMM2L1+6, IMM2L1+8
>> BUDCRC1L LISTS+20
>> BUDCRC2L LISTS+21
>> BUDED PRGAH1+7, IMM1L1+6, IMM1H1+7, IMM2L1+6, IMM2H1+7
>> BUDGPG LISTS+1*, LISTS+2*, LISTS+3*, LISTS+4*, LISTS+5*, LISTS+6*, LISTS+7*, LISTS+8*, LISTS+9*, LISTS+10*
, LISTS+11*, LISTS+12*, LISTS+13*, LISTS+14*, LISTS+15*, LISTS+16*, LISTS+17*, LISTS+18*, LISTS+19*, LISTS+20*
, LISTS+21*, PRGAH+1, PRGAH1+1*, PRGAH1+3, IMM1H+1, IMM1H1+1*, IMM1H1+3, IMM2H+1, IMM2H1+1*, IMM2H1+3
>> BUDH PRGAL+3, PRGAL1+4, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+11, IMM1L+3, IMM1L1+2, IMM1L1+3, IMM1L1+4
, IMM1L1+8, IMM2L+3, IMM2L1+2, IMM2L1+3, IMM2L1+4, IMM2L1+8
>> BUDIMM1L LISTS+2
>> BUDIMM2L LISTS+3
>> BUDIVD1L LISTS+18
>> BUDIVD2L LISTS+19
>> BUDJ PRGAL+3, PRGAL1+4, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+11, IMM1L+3, IMM1L1+2, IMM1L1+3, IMM1L1+4
, IMM1L1+8, IMM2L+3, IMM2L1+2, IMM2L1+3, IMM2L1+4, IMM2L1+8
>> BUDNAME PRGAL1+5*, PRGAL1+6, PRGAL1+7, PRGAL1+11, IMM1L1+2*, IMM1L1+3, IMM1L1+4, IMM1L1+8, IMM2L1+2*, IMM2L1+3
, IMM2L1+4, IMM2L1+8
>> BUDP PRGAL+1*, PRGAH1+10, PRGAH1+19*, IMM1L+1*, IMM1H1+10, IMM1H1+18*, IMM2L+1*, IMM2H1+10, IMM2H1+19*
>> BUDPAP1L LISTS+4
>> BUDPAP2L LISTS+5
>> BUDPRGAL LISTS+1
>> BUDQUIT PRGAL+1*, PRGAL+2, PRGAL+5, PRGAL+7, PRGAL+9, PRGAL+11, PRGAL+13, PRGAL+14, PRGAL1+1, PRGAL1+4
, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+8, PRGAL1+12, PRGAL1+13, PRGAH+2*, IMM1L+1*, IMM1L+2, IMM1L+5
, IMM1L1+1, IMM1L1+2, IMM1L1+3, IMM1L1+4, IMM1L1+5, IMM1L1+9, IMM1L1+10, IMM1H+2*, IMM2L+1*, IMM2L+2
, IMM2L+5, IMM2L1+1, IMM2L1+2, IMM2L1+3, IMM2L1+4, IMM2L1+5, IMM2L1+9, IMM2L1+10, IMM2H+2*
>> BUDSITE PRGAL1+9, PRGAH1+6, IMM1L1+6, IMM1H1+6, IMM2L1+6, IMM2H1+6
>> BUDSTOT PRGAL1+3*, PRGAL1+10*, PRGAL1+17
>> BUDTCI1L LISTS+12
>> BUDTCI2L LISTS+13
>> BUDTOT PRGAL+1*, PRGAL+15, PRGAL1+10*, IMM1L+1*, IMM1L+6, IMM1L1+7*, IMM2L+1*, IMM2L+6, IMM2L1+7*
>> BUDTUA1L LISTS+10
>> BUDTUA2L LISTS+11
>> BUDV PRGAL1+12*, PRGAL1+14, PRGAL1+15, IMM1L1+9*, IMM1L1+11, IMM2L1+9*, IMM2L1+11
>> BUDWAC1L LISTS+6
>> BUDWAC2L LISTS+7
>> BUDX PRGAL1+12*, IMM1L1+9*, IMM2L1+9*
>> C PRGAL1+15*, PRGAL1+16
DA PAUSE+1!
>> DFN PRGAL1+7*, PRGAL1+9, PRGAL1+11, IMM1L1+4*, IMM1L1+6, IMM1L1+8, IMM2L1+4*, IMM2L1+6, IMM2L1+8
DIR PAUSE+1!, GENI+4!, PRGAH+2!, IMM1H+2!, IMM2H+2!
DIR("A" PAUSE+1*, GENI+4*
DIR(0 PAUSE+1*, GENI+4*, PRGAH+2*, IMM1H+2*, IMM2H+2*
DT PRGAH1+3, IMM1H1+3, IMM2H1+3
>> DTOUT PRGAH+2, IMM1H+2, IMM2H+2
DUZ USR+1, PRGAH1+3, IMM1H1+3, IMM2H1+3
DUZ(2 LOC+1, PRGAL1+9, IMM1L1+6, IMM2L1+6
IO PRGAH+2, IMM1H+2, IMM2H+2
IO(0 PRGAH+2, IMM1H+2, IMM2H+2
IOF PRGA+1, PRGAH1+1, IMM1+1, IMM1H1+1, IMM2+1, IMM2H1+1
IOM CTR+1
IOSL PRGAL+14, PRGAL1+1, PRGAL1+8, PRGAL1+13, IMM1L+5, IMM1L1+1, IMM1L1+5, IMM1L1+10, IMM2L+5, IMM2L1+1
, IMM2L1+5, IMM2L1+10
IOST PRGAH+2, IMM1H+2, IMM2H+2
U USR+1, LOC+1, PRGAL1+9, PRGAL1+12, PRGAL1+16, PRGAH1+3, PRGAH1+6, IMM1L1+6, IMM1L1+9, IMM1H1+3
, IMM1H1+6, IMM2L1+6, IMM2L1+9, IMM2H1+3, IMM2H1+6
>> V PRGAL1+15*, PRGAL1+16
X CTR~, CTR+1, PRGAH1+7*, PRGAH1+8*, IMM1H1+7*, IMM1H1+8*, IMM2H1+7*, IMM2H1+8*
Y CTR~, CTR+1, PRGAH+2, IMM1H+2, IMM2H+2
>> ZTQUEUED PRGAH+2, IMM1H+2, IMM2H+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All