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

Package: IHS Uniform Data System

Routine: BUD1RP6T


Information

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

Source Information

Source file <BUD1RP6T.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Patient 1 $$HRN^AUPNPAT  
IHS Uniform Data System 1 EN1^BUD1RP6B  
IHS VA Utilities 1 EN^XBVK  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Uniform Data System 1 BUD1RP6I  

Entry Points

Name Comments DBIA/ICR reference
EOJ ;
TCI1H ;
TCI1L ;EP
TUA1H ;
USR() ;EP - Return name of current user from ^VA(200.
TUALIST1 ;EP
TUA1L ;EP
TUA2H1 ;
LOC() ;EP
CTR(X,Y) ;EP - Center X in a field Y wide.
TCI2 ;EP
TUA2L1 ;
PAUSE ;
TUA1L1 ;
TCI2H ;
TUA1H1 ;
GENI ;EP
TCILIST1 ;EP
TCILIST2 ;EP
TCI1L1 ;
TUA2 ;EP
TUA2H ;
TCI1H1 ;
TUA1 ;EP
TUA2L ;EP
TUALIST2 ;EP
TCI2L1 ;
TCI2L ;EP
TCI2H1 ;
TCI1 ;EP

External References

Name Field # of Occurrence
$$HRN^AUPNPAT TUA1L1+7, TUA2L1+7, TCI1L1+7, TCI2L1+7
EN1^BUD1RP6B TUALIST1+4, TUALIST2+4, TCILIST1+4, TCILIST2+4
^DIR PAUSE+1, GENI+4, TUA1H+2, TUA2H+2, TCI1H+2, TCI2H+2
EN^XBVK EOJ+1
$$FMTE^XLFDT TUA1H1+3, TUA1H1+7, TUA2H1+3, TUA2H1+7, TCI1H1+3, TCI1H1+7, TCI2H1+3, TCI2H1+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: !
  • Line Location: GENI+19
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: TUA1+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2011",80)
  • Line Location: TUA1+3
Function Call: WRITE
  • Prompt: !!,"All Patients 18 and older w/tobacco use assessment (Table 6B)",!
  • Line Location: TUA1+4
Function Call: WRITE
  • Prompt: !!,"This report provides a list of all patients 18 years and older who were"
  • Line Location: TUA1+7
Function Call: WRITE
  • Prompt: !,"queried about any and all forms tobacco use one or more times during the "
  • Line Location: TUA1+8
Function Call: WRITE
  • Prompt: !,"report period or the prior year, had at least one medical during the report"
  • Line Location: TUA1+9
Function Call: WRITE
  • Prompt: !,"period, and with at least two medical visits ever, and were ever seen after"
  • Line Location: TUA1+10
Function Call: WRITE
  • Prompt: !,"their 18th birthday."
  • Line Location: TUA1+11
Function Call: WRITE
  • Prompt: !
  • Line Location: TUA1+12
Function Call: WRITE
  • Prompt: !!,"No patients to report.",!
  • Line Location: TUA1L+3
Function Call: WRITE
  • Prompt: !!,"TOTAL PATIENTS WITH TOBACCO USE ASSESSMENT AND COUNSELING: ",BUDTOT,!
  • Line Location: TUA1L+6
Function Call: WRITE
  • Prompt: ?5,"Never"
  • Line Location: TUA1L1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: TUA1H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: TUA1H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: TUA1H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: TUA1H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6B, Section G1, Tobacco Use Assessment",80),!
  • Line Location: TUA1H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: TUA1H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: TUA1H1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: TUA1H1+8
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: TUA1H1+9
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  • Line Location: TUA1H1+17
Function Call: WRITE
  • Prompt: !?5,"ASSESSMENT DATE",?30,"DX OR SVC CD"
  • Line Location: TUA1H1+18
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: TUA1H1+19
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: TUA2+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2011",80)
  • Line Location: TUA2+3
Function Call: WRITE
  • Prompt: !!,"All Patients 18 and older w/o tobacco use assessment (Table 6B)",!
  • Line Location: TUA2+4
Function Call: WRITE
  • Prompt: !!,"This report provides a list of all patients 18 years and older who were"
  • Line Location: TUA2+7
Function Call: WRITE
  • Prompt: !,"queried not about any and all forms tobacco use one or more times during "
  • Line Location: TUA2+8
Function Call: WRITE
  • Prompt: !,"the report period or the prior year, had at least one medical during the"
  • Line Location: TUA2+9
Function Call: WRITE
  • Prompt: !,"report period, and with at least two medical visits ever, and were ever"
  • Line Location: TUA2+10
Function Call: WRITE
  • Prompt: !,"seen after their 18th birthday."
  • Line Location: TUA2+11
Function Call: WRITE
  • Prompt: !
  • Line Location: TUA2+12
Function Call: WRITE
  • Prompt: !!,"No patients to report.",!
  • Line Location: TUA2L+3
Function Call: WRITE
  • Prompt: !!,"TOTAL PATIENTS WITHOUT TOBACCO USE ASSESSMENT AND COUNSELING: ",BUDTOT,!
  • Line Location: TUA2L+6
Function Call: WRITE
  • Prompt: ?5,"Never"
  • Line Location: TUA2L1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: TUA2H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: TUA2H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: TUA2H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: TUA2H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6B, Section G1, Tobacco Use Assessment",80),!
  • Line Location: TUA2H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: TUA2H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: TUA2H1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: TUA2H1+8
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: TUA2H1+9
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  • Line Location: TUA2H1+17
Function Call: WRITE
  • Prompt: !?5,"ASSESSMENT DATE",?30,"DX OR SVC CD"
  • Line Location: TUA2H1+18
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: TUA2H1+19
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: TCI1+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2011",80)
  • Line Location: TCI1+3
Function Call: WRITE
  • Prompt: !!,"All Patients 18 and older smokers or tobacco users w/Cessation"
  • Line Location: TCI1+4
Function Call: WRITE
  • Prompt: !,"Intervention (Table 6B)",!
  • Line Location: TCI1+5
Function Call: WRITE
  • Prompt: !!,"This report provides a list of all patients 18 years or older who are "
  • Line Location: TCI1+8
Function Call: WRITE
  • Prompt: !,"documented smokers or tobacco users and who received documented advice "
  • Line Location: TCI1+9
Function Call: WRITE
  • Prompt: !,"to quit smoking or tobacco use during the report, had at least two medical"
  • Line Location: TCI1+10
Function Call: WRITE
  • Prompt: !,"visits ever, had a medical visit during the report period, and were ever "
  • Line Location: TCI1+11
Function Call: WRITE
  • Prompt: !,"seen after their 18th birthday."
  • Line Location: TCI1+12
Function Call: WRITE
  • Prompt: !
  • Line Location: TCI1+13
Function Call: WRITE
  • Prompt: !!,"No patients to report.",!
  • Line Location: TCI1L+3
Function Call: WRITE
  • Prompt: !!,"TOTAL TOBACCO USER PATIENTS WITH CESSATION INTERVENTION:",BUDTOT,!
  • Line Location: TCI1L+6
Function Call: WRITE
  • Prompt: !
  • Line Location: TCI1H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: TCI1H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: TCI1H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: TCI1H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6B, Section G2, Tobacco Cessation Intervention",80),!
  • Line Location: TCI1H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: TCI1H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: TCI1H1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: TCI1H1+8
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: TCI1H1+9
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  • Line Location: TCI1H1+17
Function Call: WRITE
  • Prompt: !?5,"TOBACCO STATUS",?40,"CESSATION INTERVENTION"
  • Line Location: TCI1H1+18
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: TCI1H1+19
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: TCI2+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2011",80)
  • Line Location: TCI2+3
Function Call: WRITE
  • Prompt: !!,"All Patients 18 and older smokers or tobacco users w/o cessation ",!
  • Line Location: TCI2+4
Function Call: WRITE
  • Prompt: !,"Intervention (Table 6B)"
  • Line Location: TCI2+5
Function Call: WRITE
  • Prompt: !!,"This report provides a list of all patients 18 years or older who are "
  • Line Location: TCI2+8
Function Call: WRITE
  • Prompt: !,"documented smokers or tobacco users and who have not received documented "
  • Line Location: TCI2+9
Function Call: WRITE
  • Prompt: !,"advice to quit smoking or tobacco use during the report, had at least two "
  • Line Location: TCI2+10
Function Call: WRITE
  • Prompt: !,"medical visits ever, had a medical visit during the report period, and "
  • Line Location: TCI2+11
Function Call: WRITE
  • Prompt: !,"were ever seen after their 18th birthday."
  • Line Location: TCI2+12
Function Call: WRITE
  • Prompt: !
  • Line Location: TCI2+13
Function Call: WRITE
  • Prompt: !!,"No patients to report.",!
  • Line Location: TCI2L+3
Function Call: WRITE
  • Prompt: !!,"TOTAL TOBACCO USER PATIENTS WITHOUT CESSATION INTERVENTION: ",BUDTOT,!
  • Line Location: TCI2L+6
Function Call: WRITE
  • Prompt: !
  • Line Location: TCI2H+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: TCI2H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: TCI2H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: TCI2H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6B, Section G2, Tobacco Cessation Intervention",80),!
  • Line Location: TCI2H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: TCI2H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: TCI2H1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: TCI2H1+8
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: TCI2H1+9
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  • Line Location: TCI2H1+17
Function Call: WRITE
  • Prompt: !?5,"TOBACCO STATUS",?40,"CESSATION INTERVENTION",?51
  • Line Location: TCI2H1+18
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: TCI2H1+19
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1
    • GENI+4
    • TUA1H+2
    • TUA2H+2
    • TCI1H+2
    • TCI2H+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] LOC+1, TUA1H1+6, TUA2H1+6, TCI1H1+6, TCI2H1+6
^DPT - [#2] TUA1L1+7, TUA2L1+7, TCI1L1+7, TCI2L1+7
^VA(200 - [#200] USR+1, TUA1H1+3, TUA2H1+3, TCI1H1+3, TCI2H1+3
^XTMP("BUD1RP6B" TUA1L+3, TUA1L1+2, TUA1L1+3, TUA1L1+4, TUA1L1+5, TUA1L1+9, TUA2L+3, TUA2L1+2, TUA2L1+3, TUA2L1+4
, TUA2L1+5, TUA2L1+9, TCI1L+3, TCI1L1+2, TCI1L1+3, TCI1L1+4, TCI1L1+5, TCI1L1+9, TCI2L+3, TCI2L1+2
, TCI2L1+3, TCI2L1+4, TCI2L1+5, TCI2L1+9

Label References

Name Line Occurrences
$$CTR TUA1+2, TUA1+3, TUA1H1+4, TUA1H1+5, TUA1H1+6, TUA1H1+7, TUA1H1+8, TUA2+2, TUA2+3, TUA2H1+4
, TUA2H1+5, TUA2H1+6, TUA2H1+7, TUA2H1+8, TCI1+2, TCI1+3, TCI1H1+4, TCI1H1+5, TCI1H1+6, TCI1H1+7
, TCI1H1+8, TCI2+2, TCI2+3, TCI2H1+4, TCI2H1+5, TCI2H1+6, TCI2H1+7, TCI2H1+8
$$LOC TUA1+2, TUA2+2, TCI1+2, TCI2+2
EOJ TUALIST1+1, TUALIST2+1, TCILIST1+1, TCILIST2+1
GENI TUA1+5, TUA2+5, TCI1+6, TCI2+6
PAUSE TUA1+6, TUA2+6, TCI1+7, TCI2+7
TCI1 TCILIST1+3
TCI1H TCI1L+2, TCI1L+5, TCI1L1+1, TCI1L1+6
TCI1H1 TCI1H+1
TCI1L1 TCI1L+4
TCI2 TCILIST2+3
TCI2H TCI2L+2, TCI2L+5, TCI2L1+1, TCI2L1+6
TCI2H1 TCI2H+1
TCI2L1 TCI2L+4
TUA1 TUALIST1+3
TUA1H TUA1L+2, TUA1L+5, TUA1L1+1, TUA1L1+6
TUA1H1 TUA1H+1
TUA1L1 TUA1L+4
TUA2 TUALIST2+3
TUA2H TUA2L+2, TUA2L+5, TUA2L1+1, TUA2L1+6
TUA2H1 TUA2H+1
TUA2L1 TUA2L+4

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BUDAGE TUA1L1+2*, TUA1L1+3, TUA1L1+4, TUA1L1+5, TUA1L1+7, TUA1L1+9, TUA2L1+2*, TUA2L1+3, TUA2L1+4, TUA2L1+5
, TUA2L1+7, TUA2L1+9, TCI1L1+2*, TCI1L1+3, TCI1L1+4, TCI1L1+5, TCI1L1+7, TCI1L1+9, TCI2L1+2*, TCI2L1+3
, TCI2L1+4, TCI2L1+5, TCI2L1+7, TCI2L1+9
>> BUDALL TUA1L1+9*, TUA1L1+10, TUA1L1+11, TUA2L1+9*, TUA2L1+10, TUA2L1+11, TCI1L1+9*, TCI1L1+10, TCI2L1+9*, TCI2L1+10
>> BUDBD TUA1H1+7, TUA2H1+7, TCI1H1+7, TCI2H1+7
>> BUDBEN TUA1H1+8, TUA2H1+8, TCI1H1+8, TCI2H1+8
>> BUDCOM TUA1L1+4*, TUA1L1+5, TUA1L1+7, TUA1L1+9, TUA2L1+4*, TUA2L1+5, TUA2L1+7, TUA2L1+9, TCI1L1+4*, TCI1L1+5
, TCI1L1+7, TCI1L1+9, TCI2L1+4*, TCI2L1+5, TCI2L1+7, TCI2L1+9
>> BUDED TUA1H1+7, TUA2H1+7, TCI1H1+7, TCI2H1+7
>> BUDGPG TUA1H+1, TUA1H1+1*, TUA1H1+3, TUA2H+1, TUA2H1+1*, TUA2H1+3, TCI1H+1, TCI1H1+1*, TCI1H1+3, TCI2H+1
, TCI2H1+1*, TCI2H1+3
>> BUDH TUA1L+3, TUA1L1+2, TUA1L1+3, TUA1L1+4, TUA1L1+5, TUA1L1+9, TUA2L+3, TUA2L1+2, TUA2L1+3, TUA2L1+4
, TUA2L1+5, TUA2L1+9, TCI1L+3, TCI1L1+2, TCI1L1+3, TCI1L1+4, TCI1L1+5, TCI1L1+9, TCI2L+3, TCI2L1+2
, TCI2L1+3, TCI2L1+4, TCI2L1+5, TCI2L1+9
>> BUDJ TUA1L+3, TUA1L1+2, TUA1L1+3, TUA1L1+4, TUA1L1+5, TUA1L1+9, TUA2L+3, TUA2L1+2, TUA2L1+3, TUA2L1+4
, TUA2L1+5, TUA2L1+9, TCI1L+3, TCI1L1+2, TCI1L1+3, TCI1L1+4, TCI1L1+5, TCI1L1+9, TCI2L+3, TCI2L1+2
, TCI2L1+3, TCI2L1+4, TCI2L1+5, TCI2L1+9
>> BUDNAME TUA1L1+3*, TUA1L1+4, TUA1L1+5, TUA1L1+9, TUA2L1+3*, TUA2L1+4, TUA2L1+5, TUA2L1+9, TCI1L1+3*, TCI1L1+4
, TCI1L1+5, TCI1L1+9, TCI2L1+3*, TCI2L1+4, TCI2L1+5, TCI2L1+9
>> BUDP TUA1L+1*, TUA1H1+10, TUA1H1+20*, TUA2L+1*, TUA2H1+10, TUA2H1+20*, TCI1L+1*, TCI1H1+10, TCI1H1+20*, TCI2L+1*
, TCI2H1+10, TCI2H1+20*
>> BUDQUIT TUA1L+1*, TUA1L+2, TUA1L+5, TUA1L1+1, TUA1L1+2, TUA1L1+3, TUA1L1+4, TUA1L1+5, TUA1L1+6, TUA1H+2*
, TUA2L+1*, TUA2L+2, TUA2L+5, TUA2L1+1, TUA2L1+2, TUA2L1+3, TUA2L1+4, TUA2L1+5, TUA2L1+6, TUA2H+2*
, TCI1L+1*, TCI1L+2, TCI1L+5, TCI1L1+1, TCI1L1+2, TCI1L1+3, TCI1L1+4, TCI1L1+5, TCI1L1+6, TCI1H+2*
, TCI2L+1*, TCI2L+2, TCI2L+5, TCI2L1+1, TCI2L1+2, TCI2L1+3, TCI2L1+4, TCI2L1+5, TCI2L1+6, TCI2H+2*
>> BUDSITE TUA1L1+7, TUA1H1+6, TUA2L1+7, TUA2H1+6, TCI1L1+7, TCI1H1+6, TCI2L1+7, TCI2H1+6
>> BUDTCI1L TCILIST1+2*
>> BUDTCI2L TCILIST2+2*
>> BUDTOT TUA1L+1*, TUA1L+6, TUA1L1+8*, TUA2L+1*, TUA2L+6, TUA2L1+8*, TCI1L+1*, TCI1L+6, TCI1L1+8*, TCI2L+1*
, TCI2L+6, TCI2L1+8*
>> BUDTUA1L TUALIST1+2*
>> BUDTUA2L TUALIST2+2*
DA PAUSE+1!
>> DFN TUA1L1+5*, TUA1L1+7, TUA1L1+9, TUA2L1+5*, TUA2L1+7, TUA2L1+9, TCI1L1+5*, TCI1L1+7, TCI1L1+9, TCI2L1+5*
, TCI2L1+7, TCI2L1+9
DIR PAUSE+1!, GENI+4!, TUA1H+2!, TUA2H+2!, TCI1H+2!, TCI2H+2!
DIR("A" PAUSE+1*, GENI+4*
DIR(0 PAUSE+1*, GENI+4*, TUA1H+2*, TUA2H+2*, TCI1H+2*, TCI2H+2*
DT TUA1H1+3, TUA2H1+3, TCI1H1+3, TCI2H1+3
>> DTOUT TUA1H+2, TUA2H+2, TCI1H+2, TCI2H+2
DUZ USR+1, TUA1H1+3, TUA2H1+3, TCI1H1+3, TCI2H1+3
DUZ(2 LOC+1, TUA1L1+7, TUA2L1+7, TCI1L1+7, TCI2L1+7
IO TUA1H+2, TUA2H+2, TCI1H+2, TCI2H+2
IO(0 TUA1H+2, TUA2H+2, TCI1H+2, TCI2H+2
IOF TUA1+1, TUA1H1+1, TUA2+1, TUA2H1+1, TCI1+1, TCI1H1+1, TCI2+1, TCI2H1+1
IOM CTR+1
IOSL TUA1L+5, TUA1L1+1, TUA1L1+6, TUA2L+5, TUA2L1+1, TUA2L1+6, TCI1L+5, TCI1L1+1, TCI1L1+6, TCI2L+5
, TCI2L1+1, TCI2L1+6
IOST TUA1H+2, TUA2H+2, TCI1H+2, TCI2H+2
U USR+1, LOC+1, TUA1L1+7, TUA1L1+11, TUA1H1+3, TUA1H1+6, TUA2L1+7, TUA2L1+11, TUA2H1+3, TUA2H1+6
, TCI1L1+7, TCI1L1+10, TCI1H1+3, TCI1H1+6, TCI2L1+7, TCI2L1+10, TCI2H1+3, TCI2H1+6
X CTR~, CTR+1, TUA1H1+7*, TUA1H1+8*, TUA2H1+7*, TUA2H1+8*, TCI1H1+7*, TCI1H1+8*, TCI2H1+7*, TCI2H1+8*
Y CTR~, CTR+1, TUA1H+2, TUA2H+2, TCI1H+2, TCI2H+2
>> ZTQUEUED TUA1H+2, TUA2H+2, TCI1H+2, TCI2H+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All