Routine: APCLREF1

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK EN^XBVK
Patient Care Component Reports	2	XTMP^APCLOSUT ($$DEMO,DEMOCHK)^APCLUTL
VA Fileman	2	^DIC ^DIR
IHS Patient	1	($$DOB,$$HRN)^AUPNPAT
Kernel	1	$$FMTE^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
EOP	;EP - End of page.
DATES
ZIS	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
HEADER	;EP
TYPE	;type of refusal all or one?
USR()	;EP - Return name of current user from ^VA(200.
CTR(X,Y)	;EP - Center X in a field Y wide.
INFORM	;
PROC	;
HEADER1	;
EOJ	;
DEMO	;
PRINT	;EP - called from xbdbque
DONE	;
TYPE1	;which refusal type?
ID	;

External References

Name	Field # of Occurrence
XTMP^APCLOSUT	PROC+5
$$DEMO^APCLUTL	PROC+7
DEMOCHK^APCLUTL	DEMO+1
$$DOB^AUPNPAT	PRINT+13
$$HRN^AUPNPAT	PRINT+13
^DIC	TYPE1+2, ID+9
^DIR	TYPE+2, ID+3, DATES+2, DATES+4, HEADER+2, EOP+7
^XBDBQUE	DEMO+4
$$VAL^XBDIQ1	PROC+14, PRINT+14, PRINT+15
^XBFMK	EOJ+2
EN^XBVK	EOJ+1
$$FMTE^XLFDT	HEADER1+2, HEADER1+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$USR) Line Location: INFORM+1
Function Call: WRITE	Prompt: !,$$LOC() Line Location: INFORM+2
Function Call: WRITE	Prompt: !!,$$CTR("LISTING OF PATIENT SERVICES NOT DONE",80) Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"This report will list all services not done (refusals) documented for patients.",!,"You will be given the opportunity to specify which reasons not done (type of refusals)",!,"and the date range of the services not done.",! Line Location: INFORM+4
Function Call: WRITE	Prompt: ! Line Location: INFORM+5
Function Call: WRITE	Prompt: ! Line Location: DATES+1
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: DATES+7
Function Call: WRITE	Prompt: !!,"No data to report.",! Line Location: PRINT+2
Function Call: WRITE	Prompt: ?42,$$VAL^XBDIQ1(9000022,APCLR,.03),?55,$E(APCLT1,1,15),?71,$E($$VAL^XBDIQ1(9000022,APCLR,.07),1,7) Line Location: PRINT+14
Function Call: WRITE	Prompt: ?42,$$VAL^XBDIQ1(9002084.11,APCLR,.04),?55,$E(APCLT1,1,15),?71,$E($$VAL^XBDIQ1(9002084.11,APCLR,.03),1,7) Line Location: PRINT+15
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",APCLPG,! Line Location: HEADER1+2
Function Call: WRITE	Prompt: !,$$CTR("* PATIENT REFUSAL/DECLINED SERVICE LISTING *",80),! Line Location: HEADER1+3
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: $$CTR(APCLONEP_" refusals",80),! Line Location: HEADER1+5
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+6
Function Call: WRITE	Prompt: !,"PATIENT NAME",?22,"HRN",?29,"DOB",?42,"DATE",?55,"ITEM",?71,"REASON" Line Location: HEADER1+7
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+8
Function Call: WRITE	Prompt: ! Line Location: EOP+6
Routine Call	DIC Line Location: TYPE1+2 ID+9
Routine Call	DIR Line Location: TYPE+2 ID+3 DATES+2 DATES+4 HEADER+2 EOP+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTTREFT - [#9999999.73]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPREF - [#9000022]	PROC+6, PROC+7, PROC+8, PROC+11, PROC+12, PROC+14, PRINT+11
^AUTTREFT - [#9999999.73]	ID+2, ID+3, ID+9, PRINT+5, HEADER1+4
^AUTTREFT("B"	PROC+1
^BICONT - [#9002084.81]	PROC+20, PROC+21
^BIPC - [#9002084.11]	PROC+17, PROC+18, PROC+22, PROC+24, PROC+25, PROC+26, PROC+28, PRINT+12
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	PROC+29
^VA(200 - [#200]	HEADER1+2, USR+1
^XTMP("APCLREF1"	PROC+4!, PROC+14, PROC+29, PRINT+2, PRINT+3, PRINT+6, PRINT+7, PRINT+8, PRINT+10, DONE+1!

Label References

Name	Line Occurrences
$$CTR	INFORM+1, INFORM+3, HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6
$$LOC	INFORM+2
$$USR	INFORM+1
DATES	TYPE+5, ID+6, DATES+6, DEMO+2
DONE	PRINT+2, PRINT+16
EOJ	TYPE+3, DEMO+5
EOP	DONE+2
HEADER	PRINT+2, PRINT+4, PRINT+9
HEADER1	HEADER+1
TYPE	TYPE1+3, ID+4, ID+10

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCLBD	DATES!, DATES+2*, DATES+6, PROC+9, PROC+24, HEADER1+6
>> APCLCNT	PROC+2, PROC+13
>> APCLD	PROC+8*, PROC+9, PROC+10
>> APCLDEMO	DEMO+1, DEMO+2, PROC+7
APCLED	DATES!, DATES+4*, DATES+6, PROC+10, PROC+25, HEADER1+6
>> APCLH	PROC+3*, PROC+4, PROC+14, PROC+29, PRINT+2, PRINT+3, PRINT+6, PRINT+7, PRINT+8, PRINT+10 , DONE+1
>> APCLID	ID+1, ID+5, ID+6
>> APCLIMM	PROC+1*, PROC+16, PROC+29
>> APCLJ	PROC+3*, PROC+4, PROC+14, PROC+29, PRINT+2, PRINT+3, PRINT+6, PRINT+7, PRINT+8, PRINT+10 , DONE+1
>> APCLNAME	PRINT+7*, PRINT+8, PRINT+10, PRINT+13
>> APCLONE	ID+1, ID+8, ID+11*, PROC+12, PROC+27, HEADER1+5
>> APCLONEP	ID+8, ID+11, HEADER1+5
>> APCLPG	PRINT+1, HEADER+1, HEADER1+1, HEADER1+2
APCLQUIT	PRINT+1!, PRINT+3, PRINT+4, PRINT+6, PRINT+7, PRINT+9, HEADER+2*
>> APCLR	PRINT+8*, PRINT+10, PRINT+11, PRINT+12, PRINT+14, PRINT+15
>> APCLT	PRINT+3*, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+10
>> APCLT1	PRINT+6*, PRINT+7, PRINT+8, PRINT+10, PRINT+14, PRINT+15
>> APCLTYP1	TYPE1+1, TYPE1+4, ID+2, ID+3, ID+9, PROC+11, PROC+16, HEADER1+4
>> APCLTYPE	TYPE+1, TYPE+4, TYPE+5, PROC+11, HEADER1+4
>> APCLX	PROC+6, PROC+7, PROC+8, PROC+11, PROC+12, PROC+14, PROC+17, PROC+18, PROC+22, PROC+24 , PROC+25, PROC+26, PROC+28, PROC+29
>> APCLY	PRINT+10*, PRINT+11, PRINT+12, PRINT+14, PRINT+15
>> D	PROC+22*, PROC+23
DA	TYPE+2!, ID+3!
>> DFN	PRINT+11, PRINT+12, PRINT+13
DFOUT	EOP+5!
DIC	TYPE1+2!, ID+9!
DIC("A"	TYPE1+2*
DIC(0	TYPE1+2, ID+9
DIR	TYPE+2!, ID+3!, DATES+1!, DATES+3!, HEADER+2!, EOP+4~
DIR("A"	TYPE+2, ID+3, DATES+1, DATES+3, EOP+7*
DIR("B"	TYPE+2, ID+3
DIR(0	TYPE+2, ID+2, DATES+1, DATES+3, HEADER+2, EOP+7
DIRUT	TYPE+3, ID+4, EOP+5!
DLOUT	EOP+5!
DT	HEADER1+2
DTOUT	HEADER+2, EOP+5!
DUOUT	EOP+5!
DUZ	HEADER1+2, USR+1
DUZ(2	PRINT+13, LOC+1
>> I	PROC+26*, PROC+27, PROC+29
IO	HEADER+2, EOP+2
IO("S"	EOP+3
IO(0	HEADER+2, EOP+2
IOF	HEADER1+1
IOM	CTR+1
IOSL	PRINT+9
IOST	HEADER+2, EOP+1
>> IOT	EOP+3
>> P	PROC+28*, PROC+29
>> R	PROC+18*, PROC+19, PROC+20, PROC+21
U	ID+2, ID+3, ID+9, ID+11, PROC+7, PROC+8, PROC+11, PROC+12, PROC+14, PROC+18 , PROC+21, PROC+22, PROC+24, PROC+25, PROC+26, PROC+28, PROC+29, PRINT+5, PRINT+11, PRINT+12 , HEADER1+2, HEADER1+4, USR+1, LOC+1
X	HEADER1+4, HEADER1+6, CTR~, CTR+1
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	TYPE+4, TYPE1+3, TYPE1+4, ID+5, ID+10, ID+11, DATES+2, DATES+4, HEADER+2, CTR~ , CTR+1
>> ZTQUEUED	EOP+3

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLREF1

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: