Routine: BUD1RP6T

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

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

Customize PDF page

Package: IHS Uniform Data System

Routine: BUD1RP6T

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: