Routine: APCDCAFC

Information

APCDCAFC ; IHS/CMI/LAB - report on T/C VISITS WITH ANCILLARY ;

Source Information

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
VA Fileman	5	DD^%DT ^DIC FILE^DICN (,WP)^DIE ^DIR
IHS VA Utilities	4	^XBDBQUE ($$VAL,$$VALI)^XBDIQ1 ^XBFMK EN^XBVK
IHS Patient	2	$$HRN^AUPNPAT MOD^AUPNVSIT
Kernel	1	($$FMADD,$$FMTE,$$NOW)^XLFDT
Patient Care Component Reports	1	($$CLINIC,$$PRIMPROV)^APCLV

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
DF(F)	;
SURE	;
HDR	;header for report
EOJ	;
DE	;EP;FIND DEP ENTRIES
USR()	;EP - Return name of current user from ^VA(200.
DONE	;
WP	;add to word processing field
PRINT	;EP - called from XBDBQUE
GETSORT	;get sort value
LOC()	;EP - Return location name from file 4 based on DUZ(2).
HDR1	;
CTR(X,Y)	;EP - Center X in a field Y wide.
UPD1	;
INFORM	;let user know what is gong on
INTRO	;;
DATE(D)	;
SORT	;
ZIS	;call to XBDBQUE
ED	;get ending date
UPDATE	;
START	;
GETCLIN	;
PROCESS	;EP - called from XBDBQUE
DE2	;
GETDATES	;
UPDATEX	;

External References

Name	Field # of Occurrence
DD^%DT	ED+1
$$CLINIC^APCLV	PROCESS+9, PRINT+7
$$PRIMPROV^APCLV	PROCESS+19
$$HRN^AUPNPAT	GETSORT+4, PRINT+7
MOD^AUPNVSIT	UPD1+3
^DIC	GETCLIN+4
FILE^DICN	UPDATE+2, UPDATE+8
^DIE	UPD1+2
WP^DIE	WP+5
^DIR	BD+1, ED+1, SURE+3, SORT+2, DONE+2, HDR+2
^XBDBQUE	ZIS+2
$$VAL^XBDIQ1	PRINT+12, DE2+3
$$VALI^XBDIQ1	DE2+3
^XBFMK	PROCESS+20, UPD1+1, UPDATEX+2
EN^XBVK	EOJ+1
$$FMADD^XLFDT	PROCESS+1
$$FMTE^XLFDT	BD+6, SURE+2, WP+4, HDR1+2
$$NOW^XLFDT	UPDATE+2, WP+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The EHR/PCC Coding Audit Start Date has not been set",!,"in the PCC Master Control file." Line Location: START+3
Function Call: WRITE	Prompt: !!,"Enter the clinic code for the visits you wish to mark" Line Location: GETCLIN+1
Function Call: WRITE	Prompt: !,"as Reviewed/Complete." Line Location: GETCLIN+2
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !!,"Are you sure you want to mark all ",$P(^DIC(40.7,APCDCLIN,0),U)," clinic visits" Line Location: SURE+1
Function Call: WRITE	Prompt: !,"in the date range ",$$FMTE^XLFDT(APCDBD)," to ",$$FMTE^XLFDT(APCDED)," as" Line Location: SURE+2
Function Call: WRITE	Prompt: !!,"NO VISITS TO REPORT",! Line Location: PRINT+2
Function Call: WRITE	Prompt: !,$E($P(^DPT($P(APCDVR,U,5),0),U),1,15),?16,$$HRN^AUPNPAT($P(APCDVR,U,5),DUZ(2)),?24,$$DATE($P($P(APCDVR,U),".")),?36,$P(APCDVR,U,7),?39,$$CLINIC^APCLV(APCDV,"C") Line Location: PRINT+7
Function Call: WRITE	Prompt: ?45,$$VAL^XBDIQ1(9000010.07,APCDY,.01) Line Location: PRINT+12
Function Call: WRITE	Prompt: ! Line Location: HDR+2
Function Call: WRITE	Prompt: $P(^VA(200,DUZ,0),U,2),$$CTR($$FMTE^XLFDT(DT)),?71,"Page ",APCDPG,! Line Location: HDR1+2
Function Call: WRITE	Prompt: $$CTR($$LOC),! Line Location: HDR1+3
Function Call: WRITE	Prompt: $$CTR("Visits Automatically Completed/Reviewed for Clinic: "_$P(^DIC(40.7,APCDCLIN,0),U)),! Line Location: HDR1+4
Function Call: WRITE	Prompt: !?3,"PATIENT NAME",?17,"HRN",?24,"VISIT DATE",?36,"SC",?39,"CL",?45,"Purpose of Visits",! Line Location: HDR1+5
Function Call: WRITE	Prompt: $TR($J(" ",80)," ","-"),! Line Location: HDR1+6
Function Call: WRITE	Prompt: !!,$$CTR($$LOC,80) Line Location: INFORM+2
Function Call: WRITE	Prompt: !,$$CTR($$USR,80),!! Line Location: INFORM+3
Function Call: WRITE	Prompt: !,X Line Location: INFORM+4
Routine Call	DIE Line Location: UPD1+2
Routine Call	DIC Line Location: GETCLIN+4
Routine Call	DIR Line Location: BD+1 ED+1 SURE+3 SORT+2 DONE+2 HDR+2
Routine Call	DIE Line Location: WP+5

FileNo	Call Tags
^DIC(40.7 - [#40.7]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	Classic Fileman Calls
^AUPNVCA - [#9000010.45]	Classic Fileman Calls
^AUPNCANT - [#9000095]	Classic Fileman Calls, WP^DIE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	START+3, BD+4, BD+6
^AUPNCANT - [#9000095]	UPDATE+5
^AUPNVPOV - [#9000010.07]	PROCESS+13
^AUPNVPOV("AD"	PROCESS+8, PROCESS+12, PRINT+8
^AUPNVSIT - [#9000010]	PROCESS+7, UPDATE+2, UPDATE+7, GETSORT+1, GETSORT+4, PRINT+6
^AUPNVSIT("B"	PROCESS+4, PROCESS+6
^DIC - [#1]	DE+2, DE2+2, DE2+3
^DIC(4 - [#4]	LOC+1
^DIC(40.7 - [#40.7]	SURE+1, HDR1+4
^DPT - [#2]	PRINT+7
^ICD9 - [#80]	PROCESS+15, PROCESS+16
^VA(200 - [#200]	WP+4, HDR1+2, USR+1
^XTMP("APCDCAFC"	PROCESS+1, PROCESS+23, PRINT+2, PRINT+3, PRINT+4, DONE+1!

Label References

Name	Line Occurrences
$$CTR	HDR1+2, HDR1+3, HDR1+4, INFORM+2, INFORM+3
$$DATE	PRINT+7
$$DF	DE2+1
$$LOC	HDR1+3, INFORM+2
$$USR	INFORM+3
BD	ED+2
DE2	DE+2
DONE	PRINT+2
ED	SORT+3
EOJ	START+1, START+3, GETCLIN+5, BD+2, SURE+4, SURE+5, ZIS+3
GETDATES	BD+4
GETSORT	PROCESS+22
HDR	PRINT+1, PRINT+5, PRINT+10
HDR1	HDR+1
INFORM	START+2
UPDATE	PROCESS+21
WP	UPDATE+5

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCDBD	BD+3*, BD+4, ED+1, SURE+2, PROCESS+3
APCDBT	PROCESS+2*, PROCESS+23, PRINT+2, PRINT+3, PRINT+4, DONE+1!
>> APCDC	PRINT+8, PRINT+9, PRINT+11, DE+1, DE2+3
>> APCDCLIN	GETCLIN+6*, SURE+1, PROCESS+10, HDR1+4
>> APCDCSRT	SORT+1, SORT+4, GETSORT+1, GETSORT+5
APCDD	DE+1!
>> APCDED	ED+3*, SURE+2, PROCESS+3
>> APCDEND	PROCESS+3*, PROCESS+4
APCDJ	PROCESS+2*, PROCESS+23, PRINT+2, PRINT+3, PRINT+4, DONE+1!
>> APCDPG	PRINT+1, HDR+1, HDR1+1, HDR1+2
>> APCDQUIT	PRINT+1, PRINT+3, PRINT+4, PRINT+5, PRINT+8, PRINT+10, HDR+2
>> APCDSORT	PROCESS+22, PROCESS+23, GETSORT+1, GETSORT+4, GETSORT+6, PRINT+3*, PRINT+4
>> APCDT	PROCESS+3, PROCESS+4, PROCESS+6
>> APCDV	PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+12, PROCESS+19, PROCESS+23, UPDATE+2, UPDATE+5 , UPDATE+7, WP+5, UPD1+2, UPD1+3, GETSORT+1, GETSORT+4, PRINT+4*, PRINT+6, PRINT+7, PRINT+8
>> APCDVDFN	DE2+3*
>> APCDVDG	DE2+2*
>> APCDVFLE	DE+2*, DE2+1, DE2+2, DE2+3
>> APCDVIGR	DE2+2*, DE2+3
>> APCDVR	PRINT+6*, PRINT+7
APCDWP	WP+1!, WP+6!
APCDWP(1	WP+2*
APCDWP(2	WP+3*
APCDWP(3	WP+4*
APCDX	DE+1!
APCDX(	DE2+3*
>> APCDY	PRINT+8*, PRINT+12
>> AUPNVSIT	UPD1+3*
>> C	PROCESS+9*, PROCESS+10
D	DATE~, DATE+1, DATE+2
D0	UPDATE+1!, UPDATE+3!, UPDATE+6!, UPDATE+9!
DA	SURE+3!, UPD1+2*!
DD	UPDATE+1!, UPDATE+3!, UPDATE+6!, UPDATE+9!
DIADD	UPDATE+2, UPDATE+3!, UPDATE+7, UPDATE+9!, UPDATEX+1!
DIC	GETCLIN+3!, GETCLIN+4!, UPDATE+1!, UPDATE+2, UPDATE+3!, UPDATE+6!, UPDATE+7*, UPDATE+9!
DIC("DR"	UPDATE+2, UPDATE+7
DIC(0	GETCLIN+4, UPDATE+2, UPDATE+7*
DIE	UPD1+2*!
DINUM	UPDATE+7*, UPDATE+9!
DIR	BD+1!, ED+1!, SURE+3!, SORT+2!, DONE+2!, HDR+2!
DIR("A"	BD+1, ED+1, SURE+3, SORT+2, DONE+2*
DIR("B"	SURE+3, SORT+2
DIR(0	BD+1, ED+1, SURE+3, SORT+2, DONE+2, HDR+2
>> DIRUT	BD+1, BD+2, ED+1, ED+2, SURE+4, SORT+2, SORT+3, DONE+2
DLAYGO	UPDATE+2, UPDATE+3!, UPDATE+7, UPDATE+9!, UPDATEX+1!
DO	UPDATE+1!, UPDATE+6!, UPDATE+9!
DR	UPD1+2*!
DT	PROCESS+1, HDR1+2
>> DTOUT	HDR+2
>> DUOUT	BD+1, ED+1, SORT+2, DONE+2
DUZ	UPDATE+2, WP+4, HDR1+2, USR+1
DUZ(2	START+3, BD+4, BD+6, GETSORT+4, PRINT+7, LOC+1
F	DF~, DF+1, DF+2, DF+3, DF+4, DF+5
I	PROCESS+13, PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+17, INFORM+4*, INFORM+5!
IO	DONE+2, HDR+2
IO(0	DONE+2, HDR+2
IOF	DONE+3, HDR1+1, INFORM+1
IOM	CTR+1
IOSL	PRINT+5, PRINT+10
IOST	DONE+2, HDR+2
>> O	PROCESS+12*
U	START+3, BD+4, BD+6, SURE+1, PROCESS+7, PROCESS+13, PROCESS+16, UPDATE+2, UPDATE+7, WP+4 , GETSORT+1, GETSORT+4, PRINT+7, DE2+3, HDR1+2, HDR1+4, USR+1, LOC+1
>> V	PROCESS+12, PROCESS+17, PROCESS+18
X	PROCESS+12, PROCESS+13, PROCESS+19, UPDATE+2, UPDATE+7, CTR~, CTR+1, INFORM+4*, INFORM+5!
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	GETCLIN+5, GETCLIN+6, BD+3, ED+1, ED+3, SURE+5, SORT+4, DE2+3, HDR+2, CTR~ , CTR+1

Customize PDF page

Package: Patient Care Component

Routine: APCDCAFC

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items