Routine: APCLREDU

Package	Total	Call Graph
IHS VA Utilities	5	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK $$PROVCLSC^XBFUNC1 EN^XBVK
Patient Care Component Reports	2	($$DEMO,DEMOCHK)^APCLUTL $$CLINIC^APCLV
VA Fileman	2	^DIC ^DIR
IHS Patient	1	($$AGE,$$DOB,$$HRN,KILL)^AUPNPAT
Kernel	1	($$FMADD,$$FMTE)^XLFDT
PCC Medical Query	1	PEP^AMQQGTX0

Entry Points

Name	Comments	DBIA/ICR reference
DATES
SET	;
HEADER	;
ZIS	;call to XBDBQUE
LOC()	;EP - Return location name from file 4 based on DUZ(2).
INFORM	;
TOPIC1	;
DEMO	;
CLINIC1	;Get Multiple Clinics in Search
USR()	;EP - Return name of current user from ^VA(200.
TOPIC	;
START	;
CLINIC	;
EOP	;EP - End of page.
EXIT	;clean up and exit
HL	;
CTR(X,Y)	;EP - Center X in a field Y wide.
PRINT	;EP - called from xbdbque

External References

Name	Field # of Occurrence
PEP^AMQQGTX0	CLINIC1+3, TOPIC1+3
$$DEMO^APCLUTL	PRINT+10
DEMOCHK^APCLUTL	DEMO+1
$$CLINIC^APCLV	SET+2
$$AGE^AUPNPAT	SET+2
$$DOB^AUPNPAT	SET+2
$$HRN^AUPNPAT	SET+2
KILL^AUPNPAT	EXIT+3
^DIC	CLINIC1+2, TOPIC1+2
^DIR	DATES+2, DATES+4, CLINIC+3, HL+2, HL+6, TOPIC+3, EOP+5
^XBDBQUE	DEMO+4
$$VAL^XBDIQ1	SET+2, SET+3, SET+4, SET+5, SET+6
^XBFMK	EXIT+2
$$PROVCLSC^XBFUNC1	SET+3
EN^XBVK	EXIT+1
$$FMADD^XLFDT	DATES+8
$$FMTE^XLFDT	SET+2, HEADER+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$LOC) Line Location: INFORM+2
Function Call: WRITE	Prompt: !,$$CTR($$USR) Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"This report will create a delimited output file of all visits on which patient",!,"education was done. This report is to be used by uploading the data file",!,"into EXCEL or some other software package.",!! Line Location: INFORM+4
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: !! Line Location: CLINIC+1
Function Call: WRITE	Prompt: "OPPS - QMAN NOT CURRENT - QUITTING" Line Location: CLINIC1+2
Function Call: WRITE	Prompt: "OPPS - QMAN NOT CURRENT - QUITTING" Line Location: TOPIC1+2
Function Call: WRITE	Prompt: !,"Total # of visits meeting criteria"_U_APCLVTOT Line Location: PRINT+26
Function Call: WRITE	Prompt: !,"Total # of patients for these visits"_U_APCLPTOT Line Location: PRINT+27
Function Call: WRITE	Prompt: !,"Total # of these patients w/education"_U_APCLPEDU Line Location: PRINT+28
Function Call: WRITE	Prompt: !,APCLR Line Location: SET+7
Function Call: WRITE	Prompt: "DATE RANGE: "_$$FMTE^XLFDT(APCLBD)_"-"_$$FMTE^XLFDT(APCLED) Line Location: HEADER+1
Function Call: WRITE	Prompt: !,"ALL CLINICS" Line Location: HEADER+2
Function Call: WRITE	Prompt: !,$P(^DIC(40.7,X,0),U,2)_" ;" Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"ALL HOSPITAL LOCATIONS" Line Location: HEADER+4
Function Call: WRITE	Prompt: !,$P(^SC(X,0),U,2)_" ;" Line Location: HEADER+5
Function Call: WRITE	Prompt: !,"ALL DISCIPLINES" Line Location: HEADER+6
Function Call: WRITE	Prompt: !,$P($G(^DIC(7,X,9999999)),U,1)_" ;" Line Location: HEADER+7
Function Call: WRITE	Prompt: !,"VISIT IEN^PATIENT NAME^CHART NUMBER^DATE OF BIRTH^AGE^VISIT DATE^CLINIC TYPE^HOSPITAL LOCATION^EDUCATION TOPIC^EDUCATION PROVIDER^EDUCATION PROVIDER CLASS CODE" Line Location: HEADER+8
Function Call: WRITE	Prompt: "^TOPIC FULL NAME^LEVEL OF UNDERSTANDING^IND/GRP^MINUTES^GOAL STATUS^OBJECTIVES MET^CPT CODE^COMMENT^DESIGNATED PRIMARY CARE PROVIDER" Line Location: HEADER+9
Routine Call	DIC Line Location: CLINIC1+2 TOPIC1+2
Routine Call	DIR Line Location: DATES+2 DATES+4 CLINIC+3 HL+2 HL+6 TOPIC+3 EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMQQ(5 - [#9009075]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPED - [#9000010.16]	PRINT+16, PRINT+24, SET+3
^AUPNVPED("AD"	PRINT+13, PRINT+16, PRINT+20, PRINT+22
^AUPNVSIT - [#9000010]	PRINT+6, PRINT+7, PRINT+8, PRINT+11, PRINT+12, SET+1
^AUPNVSIT("B"	PRINT+4, PRINT+5
^DIC(4 - [#4]	LOC+1
^DIC(40.7 - [#40.7]	HEADER+3
^DPT - [#2]	SET+2
^SC - [#44]	HEADER+5
^TMP($J	PRINT+3!, PRINT+19, PRINT+21
^VA(200 - [#200]	USR+1

Label References

Name	Line Occurrences
$$CTR	INFORM+2, INFORM+3
$$LOC	INFORM+2
$$USR	INFORM+3
CLINIC	CLINIC1+4, CLINIC1+6, HL+3
DATES	DATES+6, CLINIC+4
EXIT	INFORM+5, DATES+2, DATES+4, CLINIC1+2, TOPIC1+2, DEMO+5
HEADER	PRINT+1
HL	CLINIC+5, TOPIC+4
SET	PRINT+20, PRINT+23, PRINT+24, PRINT+25
TOPIC	HL+4, TOPIC1+4, TOPIC1+6, DEMO+2
ZIS	TOPIC+5, TOPIC+6

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, DATES+8, HEADER+1
>> APCLCL	CLINIC+2*
>> APCLCLIN	CLINIC+2*
APCLCLNT	CLINIC1+1!, CLINIC1+4, CLINIC1+5!, PRINT+11, HEADER+2
APCLCLNT(	PRINT+11, HEADER+3
APCLCLNT("*"	CLINIC1+5
APCLCLNT(0	HEADER+3
>> APCLDEMO	DEMO+1, DEMO+2, PRINT+10
APCLED	DATES!, DATES+4*, DATES+6, PRINT+4, HEADER+1
APCLEDT	TOPIC+1!, TOPIC+2, TOPIC+5, TOPIC+6, TOPIC+7, PRINT+13, PRINT+14, PRINT+20, PRINT+23, PRINT+24 , PRINT+25
APCLEDTL	TOPIC+1!, TOPIC1+1!, TOPIC1+4, TOPIC1+5!
APCLEDTL(	PRINT+16, PRINT+24
APCLEDTL("*"	TOPIC1+5
>> APCLF	SET+5*
>> APCLG	PRINT+14, PRINT+15, PRINT+16
APCLHL	HL+1!, HL+5!, PRINT+12, HEADER+4
APCLHL(	HL+8*, PRINT+12, HEADER+5
APCLHL(0	HEADER+5
>> APCLPEDU	PRINT+2, PRINT+21, PRINT+28
>> APCLPTOT	PRINT+2, PRINT+19, PRINT+27
>> APCLQ	HL+5, HL+7
>> APCLR	SET+2, SET+3, SET+4, SET+5, SET+6*, SET+7
>> APCLSD	DATES+8, PRINT+4, PRINT+5
>> APCLV	PRINT+5*, PRINT+6, PRINT+7, PRINT+8, PRINT+11, PRINT+12, PRINT+13, PRINT+16, PRINT+20, PRINT+22 , SET+1, SET+2
>> APCLVTOT	PRINT+2, PRINT+18, PRINT+26
>> APCLX	PRINT+20, PRINT+22, PRINT+24, SET+3, SET+4, SET+5
>> D	SET+1*, SET+2
DA	CLINIC1+2!, HL+2!, HL+6!, TOPIC+3!, TOPIC1+2!
>> DFN	PRINT+8*, PRINT+9, PRINT+10, PRINT+19, PRINT+21, SET+2, SET+6
DFOUT	EOP+4!
DIC	CLINIC1+2!, TOPIC1+2!
DIC("S"	CLINIC1+2, TOPIC1+2
DIC(0	CLINIC1+2, TOPIC1+2
DIR	DATES+1!, DATES+3!, CLINIC+3!, HL+2!, HL+6!, TOPIC+3!, EOP+3~
DIR("A"	DATES+1, DATES+3, CLINIC+3, HL+2, HL+6, TOPIC+3
DIR("B"	CLINIC+3, HL+2, TOPIC+3*
DIR(0	DATES+1, DATES+3, CLINIC+3, HL+2, HL+6, TOPIC+3, EOP+5*
DIRUT	CLINIC+3*, CLINIC+4, HL+3, HL+7, TOPIC+4, EOP+4!
DLOUT	EOP+4!
DTOUT	EOP+4!
DUOUT	CLINIC+3, EOP+4!
DUZ	USR+1
DUZ(2	SET+2, LOC+1
IO("S"	EOP+2
IOF	INFORM+1
IOM	CTR+1
IOST	EOP+1
>> IOT	EOP+2
>> T	PRINT+16, PRINT+24
U	PRINT+7, PRINT+8, PRINT+11, PRINT+12, PRINT+16, PRINT+24, PRINT+26, PRINT+27, PRINT+28, SET+1 , SET+2, SET+3, SET+4, SET+5, SET+6, HEADER+3, HEADER+5, USR+1, LOC+1
X	CLINIC1+2, TOPIC1+2, PRINT+11, PRINT+12, PRINT+16, HEADER+3, HEADER+5*, CTR~, CTR+1
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	DATES+2, DATES+4, CLINIC+5, CLINIC1+2, CLINIC1+3, CLINIC1+6, HL+4, HL+8, TOPIC+5, TOPIC+6 , TOPIC+7, TOPIC1+2, TOPIC1+3, TOPIC1+6, CTR~, CTR+1
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLREDU

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: