Routine: APCDCAFD

Package	Total	Call Graph
IHS VA Utilities	3	^XBFMK $$EXTSET^XBFUNC EN^XBVK
Kernel	2	HOME^%ZIS ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT
Patient Care Component	2	($$SCW,EN)^APCDCAF (EN,EN2)^APCDEKL
VA Fileman	2	^DIC ^DIR
IHS Patient	1	KILL^AUPNPAT
PCC Medical Query	1	PEP^AMQQGTX0
Patient Care Component Reports	1	DEMOCHK^APCLUTL
Registration	1	TERM^VALM0

Package	Total	Caller Graph
Patient Care Component	1	APCDCAFK

Name	Comments	DBIA/ICR reference
SORT	;how to sort list of visits
DATES	;
CONT	;
DEMO	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
D(D)	;
SHL	;selected hospital locations
OHL	;one hosp location
LOC()	;EP - Return location name from file 4 based on DUZ(2).
HOSPLOC	;
SCDR	;selected CHART DEF REASONS
CTR(X,Y)	;EP - Center X in a field Y wide.
SCLN	;EP - taxonomy of clinics
INFORM	;inform user what this report is all about
SLOC	;EP - taxonomy of locations
FAC	;
OPRV	;one PROV
STATUS	;
VA
OLOC	;EP - one location
START	;
CLINIC	;
XIT	;
OCLN	;EP - one clinic
CPRV	;one PROV
PROC1	; call listmanager
STATUS1	;
PRIMPROV	;
PROCESS	;
SPRV	;taxonomy of PROVIDERS
CDR	;
PROC	;EP - called from xbdbque

Name	Field # of Occurrence
HOME^%ZIS	START+2
PEP^AMQQGTX0	SLOC+2, SCLN+2, SPRV+3
$$SCW^APCDCAF	PROCESS+9
EN^APCDCAF	PROC1+1
EN^APCDEKL	XIT+2
EN2^APCDEKL	XIT+3
DEMOCHK^APCLUTL	DEMO+1
KILL^AUPNPAT	XIT+6
^DIC	OLOC+1, SLOC+1, OCLN+1, SCLN+1, OHL+1, SHL+1, OPRV+1, SPRV+2, SCDR+1, CPRV+1
^DIR	START+8, DATES+5, DATES+10, DATES+17, FAC+6, CLINIC+6, HOSPLOC+6, PRIMPROV+6, CDR+8, CONT+1 , VA+3, EOP+5
TERM^VALM0	START+3
^XBFMK	XIT+5
$$EXTSET^XBFUNC	INFORM+13
EN^XBVK	XIT+4, XIT+7
$$FMADD^XLFDT	DATES+21
$$FMDIFF^XLFDT	DATES+14, DATES+15
$$FMTE^XLFDT	DATES+8, PROCESS+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: START+4
Function Call: WRITE	Prompt: !!,"The EHR/PCC Coding Audit Start Date has not been set",!,"in the PCC Master Control file." Line Location: START+6
Function Call: WRITE	Prompt: !!,"You should limit your date range to no more than 7 days. Viewing more" Line Location: DATES+1
Function Call: WRITE	Prompt: !,"than 7 days worth of visits may take a while to process." Line Location: DATES+2
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: DATES+13
Function Call: WRITE	Prompt: !,"You have selected a ",$$FMDIFF^XLFDT(APCDED,APCDBD)," date range. Depending on the number of visits per" Line Location: DATES+15
Function Call: WRITE	Prompt: !,"day at your facility it may take a while to gather up and process that many",!,"visits." Line Location: DATES+16
Function Call: WRITE	Prompt: !!,$G(IORVON)_"Please enter which FACILITY visits will be included in the list."_$G(IORVOFF),! Line Location: FAC+2
Function Call: WRITE	Prompt: !!,$G(IORVON)_"Please enter which CLINIC (IHS clinic codes) visits will be included",!,"in the list."_$G(IORVOFF),! Line Location: CLINIC+2
Function Call: WRITE	Prompt: !!,$G(IORVON)_"Please enter which HOSPITAL LOCATIONS will be included in the list."_$G(IORVOFF),! Line Location: HOSPLOC+2
Function Call: WRITE	Prompt: !!,$G(IORVON)_"Please enter the Providers whose visits you want to display",!,"This will screen on the provider on the visit."_$G(IORVOFF),! Line Location: PRIMPROV+2
Function Call: WRITE	Prompt: !!,"A chart deficiency reason may have been previously entered for a visit." Line Location: CDR+2
Function Call: WRITE	Prompt: !,"If you wish to display only visits whose LAST chart deficiency reason matches" Line Location: CDR+3
Function Call: WRITE	Prompt: !,"one or more that you select, please enter them.",! Line Location: CDR+4
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: PROCESS+1
Function Call: WRITE	Prompt: !! Line Location: PROCESS+1
Function Call: WRITE	Prompt: !!,"I will display visits that meet the following criteria:" Line Location: PROCESS+2
Function Call: WRITE	Prompt: !!,"VISIT DATES: ",$$FMTE^XLFDT(APCDBD)," to ",$$FMTE^XLFDT(APCDED) Line Location: PROCESS+3
Function Call: WRITE	Prompt: !,"SERVICE CATEGORY: " Line Location: PROCESS+5
Function Call: WRITE	Prompt: D Line Location: PROCESS+12
Function Call: WRITE	Prompt: !,"VISIT TYPE: NOT Contract" Line Location: PROCESS+13
Function Call: WRITE	Prompt: !,"Visits with at least one POV." Line Location: PROCESS+14
Function Call: WRITE	Prompt: !!,"LOCATION OF ENCOUNTER: " Line Location: PROCESS+15
Function Call: WRITE	Prompt: "All" Line Location: PROCESS+16
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: PROCESS+17
Function Call: WRITE	Prompt: ?24,$E($P(^DIC(4,Y,0),U),1,15) Line Location: PROCESS+17
Function Call: WRITE	Prompt: !!,"CLINICS: " Line Location: PROCESS+18
Function Call: WRITE	Prompt: "Visits with no Clinic Assigned" Line Location: PROCESS+19
Function Call: WRITE	Prompt: "All" Line Location: PROCESS+20
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: PROCESS+21
Function Call: WRITE	Prompt: ?24,$E($P(^DIC(40.7,Y,0),U),1,15) Line Location: PROCESS+21
Function Call: WRITE	Prompt: !!,"HOSPITAL LOCATIONS: " Line Location: PROCESS+22
Function Call: WRITE	Prompt: "All" Line Location: PROCESS+23
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: PROCESS+24
Function Call: WRITE	Prompt: ?24,$E($P(^SC(Y,0),U),1,15) Line Location: PROCESS+24
Function Call: WRITE	Prompt: !!,"PRIMARY PROVIDER ON VISIT: " Line Location: PROCESS+25
Function Call: WRITE	Prompt: "No Visit Primary Provider Assigned" Line Location: PROCESS+26
Function Call: WRITE	Prompt: "All" Line Location: PROCESS+27
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: PROCESS+28
Function Call: WRITE	Prompt: ?24,$E($P(^VA(200,Y,0),U),1,15) Line Location: PROCESS+28
Function Call: WRITE	Prompt: "All" Line Location: PROCESS+30
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: PROCESS+31
Function Call: WRITE	Prompt: ?24,$$EXTSET^XBFUNC(9000010.45,Y,.04) Line Location: PROCESS+31
Function Call: WRITE	Prompt: !!,"CHART DEFICIENCY REASONS: " Line Location: PROCESS+32
Function Call: WRITE	Prompt: "All (includes visits with no chart deficiency reason entered)" Line Location: PROCESS+33
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: PROCESS+34
Function Call: WRITE	Prompt: ?24,$E($P(^AUTTCDR(Y,0),U),1,15) Line Location: PROCESS+34
Function Call: WRITE	Prompt: !!,"Please note: On the list of visits that will be displayed" Line Location: CONT+4
Function Call: WRITE	Prompt: !,"there is a column labeled 'INS', in this column M stands for" Line Location: CONT+5
Function Call: WRITE	Prompt: !,"Medicare, C stands for Medicaid and P stands for Private" Line Location: CONT+6
Function Call: WRITE	Prompt: !,"Insurance. This does not mean the visit is billable, it just" Line Location: CONT+7
Function Call: WRITE	Prompt: !,"is an indication of whether or not the patient has a policy on" Line Location: CONT+8
Function Call: WRITE	Prompt: !,"file that is currently active.",! Line Location: CONT+9
Function Call: WRITE	Prompt: $$LOC,$$CTR("PCC/EHR CODING AUDIT") Line Location: INFORM+1
Function Call: WRITE	Prompt: !,"This list can be used to audit visits that are created by EHR users." Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"The visits displayed in the list are those with an INCOMPLETE or blank" Line Location: INFORM+3
Function Call: WRITE	Prompt: !,"chart audit status. This list can be sorted by date, primary provider" Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"clinic code, hospital location (scheduling clinic), and facility." Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"Once the visit has been reviewed, the review status can be set as reviewed/" Line Location: INFORM+6
Function Call: WRITE	Prompt: !,"complete or incomplete. All visits set as reviewed/complete will be passed" Line Location: INFORM+7
Function Call: WRITE	Prompt: !,"to the IHS/RPMS billing package." Line Location: INFORM+8
Function Call: WRITE	Prompt: !,"Contract Health visits are excluded." Line Location: INFORM+9
Function Call: WRITE	Prompt: !,"Visits that do not have a provider (primary or secondary) are ",$S($P(^APCDSITE(DUZ(2),0),U,28):"included in ",1:"excluded from "),!,"the list." Line Location: INFORM+10
Function Call: WRITE	Prompt: !,"Visits with the following service categories are NOT included in the list:" Line Location: INFORM+11
Function Call: WRITE	Prompt: !?10,"- Event (Historical)" Line Location: INFORM+12
Function Call: WRITE	Prompt: !?10,"- ",$$EXTSET^XBFUNC(9000010,.07,X) Line Location: INFORM+13
Function Call: WRITE	Prompt: !,$G(IORVON)_"PLEASE NOTE:"_$G(IORVOFF)_" A visit will NOT pass to Billing until it is marked" Line Location: INFORM+14
Function Call: WRITE	Prompt: !,"as reviewed/completed." Line Location: INFORM+15
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: SLOC+1
Function Call: WRITE	Prompt: !!,"** all locations will be included **",! Line Location: SLOC+4
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: SCLN+1
Function Call: WRITE	Prompt: !!,"** all CLINICS will be included **",! Line Location: SCLN+4
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: SPRV+2
Function Call: WRITE	Prompt: !!,"** all PROVIDERS will be included **",! Line Location: SPRV+5
Routine Call	%ZIS Line Location: START+2
Routine Call	DIC Line Location: OLOC+1 SLOC+1 OCLN+1 SCLN+1 OHL+1 SHL+1 OPRV+1 SPRV+2 SCDR+1 CPRV+1
Routine Call	DIR Line Location: START+8 DATES+5 DATES+10 DATES+17 FAC+6 CLINIC+6 HOSPLOC+6 PRIMPROV+6 CDR+8 CONT+1 VA+3 EOP+5

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^DIC(40.7 - [#40.7]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls
^AMQQ(5 - [#9009075]	Classic Fileman Calls
^AUTTCDR - [#99999.05]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	START+6, DATES+6, DATES+8
^APCDSITE - [#9001001.2]	INFORM+10, INFORM+13
^AUTTCDR - [#99999.05]	PROCESS+34
^DD(9000010	PROCESS+6
^DIC(4 - [#4]	PROCESS+17, LOC+1
^DIC(40.7 - [#40.7]	PROCESS+21
^SC - [#44]	PROCESS+24
^VA(200 - [#200]	PROCESS+28, USR+1

Name	Line Occurrences
$$CTR	INFORM+1
$$LOC	INFORM+1
@(	FAC+10, CLINIC+11, HOSPLOC+10, PRIMPROV+11, CDR+12
CDR	CDR+13, DEMO+2
CLINIC	FAC+9, CLINIC+12, HOSPLOC+7
DATES	DATES+6, DATES+12, DATES+14, FAC+7
DEMO	CDR+11
FAC	FAC+11, CLINIC+7
HOSPLOC	CLINIC+9, CLINIC+10, HOSPLOC+11, PRIMPROV+7
INFORM	START+5
PRIMPROV	HOSPLOC+9, PRIMPROV+12
SCDR	SCDR+5
SHL	SHL+5
STATUS	PRIMPROV+9, PRIMPROV+10, CDR+9
XIT	START+1, START+6, DATES+5, DATES+10, CONT+2, CONT+3, VA+4, PROC1+2, SLOC+1, SCLN+1 , SPRV+2

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDBD	DATES+3!, DATES+5*, DATES+6, DATES+12, DATES+14, DATES+15, DATES+21, PROCESS+3
APCDCDRS	CDR+6!, PROCESS+33
APCDCDRS(	PROCESS+34, SCDR+4*
>> APCDCDRT	CDR+5, CDR+10, CDR+11, CDR+12
APCDCLNS	CLINIC+4!, PROCESS+20, SCLN+3, SCLN+4!
APCDCLNS(	PROCESS+21, OCLN+3*
APCDCLNS("*"	SCLN+4
>> APCDCLNT	CLINIC+3, CLINIC+8, CLINIC+9, CLINIC+10, CLINIC+11, PROCESS+19, SCLN+4*
>> APCDDEMO	DEMO+1, DEMO+2
APCDED	DATES+3!, DATES+10*, DATES+12, DATES+14, DATES+15, PROCESS+3
APCDHLS	HOSPLOC+4!, PROCESS+23
APCDHLS(	PROCESS+24, OHL+3, SHL+4
>> APCDHLT	HOSPLOC+3, HOSPLOC+8, HOSPLOC+9, HOSPLOC+10
APCDLOCS	FAC+4!, PROCESS+16, SLOC+3, SLOC+4!
APCDLOCS(	PROCESS+17, OLOC+3*
APCDLOCS("*"	SLOC+4
>> APCDLOCT	FAC+3, FAC+8, FAC+9, FAC+10, SLOC+4*
>> APCDPRV	PROCESS+27
APCDPRVS	PRIMPROV+4!, SPRV+4, SPRV+5!
APCDPRVS(	PROCESS+28, OPRV+3, CPRV+3
APCDPRVS("*"	SPRV+5
>> APCDPRVT	PRIMPROV+3, PRIMPROV+8, PRIMPROV+9, PRIMPROV+10, PRIMPROV+11, PROCESS+26, SPRV+5*
APCDQ	DATES+14, DATES+18, DATES+19, FAC+1!, FAC+11, CLINIC+1!, CLINIC+12, HOSPLOC+1!, HOSPLOC+11, PRIMPROV+1! , PRIMPROV+12, CDR+1!, CDR+13, OLOC+2, SLOC+3, OCLN+2, SCLN+3, OHL+2, SHL+3, OPRV+2 , SPRV+4, SCDR+3, CPRV+2*
>> APCDSD	DATES+21*
>> APCDSORT	VA, VA+5
>> C	PROCESS+8, PROCESS+9, PROCESS+11, PROCESS+17, PROCESS+21, PROCESS+24, PROCESS+28, PROCESS+34
D	PROCESS+6, PROCESS+10, PROCESS+11*, PROCESS+12, D~, D+1, D+2
DA	START+8!, DATES+17!, FAC+6!, CLINIC+6!, HOSPLOC+6!, PRIMPROV+6!, CDR+8!, CONT+1!, VA+3!, SLOC+1! , SCLN+1!, SPRV+2!
DFOUT	EOP+4!
DIC	OLOC+1!, SLOC+1!, OCLN+1!, SCLN+1!, OHL+1!, SHL+1!, OPRV+1!, SPRV+2!, SCDR+1!, CPRV+1!
DIC("A"	OLOC+1, OCLN+1, OHL+1, SHL+1, OPRV+1, SCDR+1, CPRV+1*
DIC("S"	SLOC+1, SCLN+1, SPRV+2*
DIC(0	OLOC+1, SLOC+1, OCLN+1, SCLN+1, OHL+1, SHL+1, OPRV+1, SPRV+2, SCDR+1, CPRV+1
DIR	START+8!, DATES+4!, DATES+9!, DATES+17!, FAC+6!, CLINIC+5!, CLINIC+6!, HOSPLOC+6!, PRIMPROV+6!, CDR+8! , CONT+1!, VA+3!, XIT+1!, EOP+3~
DIR("A"	START+8, DATES+4, DATES+9, DATES+17, FAC+5, FAC+6, CLINIC+5, CLINIC+6, HOSPLOC+5, HOSPLOC+6 , PRIMPROV+5, PRIMPROV+6, CDR+7, CDR+8, CONT+1, VA+3, EOP+5*
DIR("B"	DATES+17, FAC+5, FAC+6, CLINIC+5, CLINIC+6, HOSPLOC+5, HOSPLOC+6, PRIMPROV+5, PRIMPROV+6, CDR+7 , CDR+8, CONT+1, VA+3*
DIR(0	START+8, DATES+4, DATES+9, DATES+17, FAC+5, CLINIC+5, HOSPLOC+5, PRIMPROV+5, CDR+7, CONT+1 , VA+1, VA+2, EOP+5*
DIRUT	DATES+18, FAC+7, CLINIC+7, HOSPLOC+7, PRIMPROV+7, CDR+9, CONT+2, VA+4, EOP+4!
DLOUT	EOP+4!
DTOUT	EOP+4!
DUOUT	EOP+4!
DUZ	USR+1
DUZ(2	START+6, DATES+6, DATES+8, LOC+1, INFORM+10, INFORM+13
IO("S"	EOP+2
IOF	START+2, START+4, PROCESS+1
IOM	CTR+1
>> IORVOFF	FAC+2, CLINIC+2, HOSPLOC+2, PRIMPROV+2, INFORM+14
>> IORVON	FAC+2, CLINIC+2, HOSPLOC+2, PRIMPROV+2, INFORM+14
IOST	EOP+1
>> IOT	EOP+2
>> J	PROCESS+7*, PROCESS+8
U	START+6, DATES+6, DATES+8, PROCESS+6, PROCESS+17, PROCESS+21, PROCESS+24, PROCESS+28, PROCESS+34, USR+1 , LOC+1, INFORM+10
X	PROCESS+6, PROCESS+7, CTR~, CTR+1, INFORM+13, SLOC+1, SCLN+1, SHL+2, SPRV+2*, SCDR+2
Y	DATES+5, DATES+10, DATES+19, FAC+8, CLINIC+8, HOSPLOC+8, PRIMPROV+8, CDR+10, PROCESS+7, PROCESS+17 , PROCESS+21, PROCESS+24, PROCESS+28, PROCESS+34, CONT+3, VA+5, CTR~, CTR+1, OLOC+2, OLOC+3 , SLOC+1, SLOC+2, OCLN+2, OCLN+3, SCLN+1, SCLN+2, OHL+2, OHL+3, SHL+3, SHL+4 , OPRV+2, OPRV+3, SPRV+2, SPRV+3, SCDR+3, SCDR+4, CPRV+2, CPRV+3
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Patient Care Component

Routine: APCDCAFD

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: