Routine: APCDCAFR

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE ^XBFMK $$EXTSET^XBFUNC EN^XBVK
Kernel	2	HOME^%ZIS ($$FMADD,$$FMTE)^XLFDT
VA Fileman	2	^DIC ^DIR
IHS Patient	1	KILL^AUPNPAT
PCC Medical Query	1	PEP^AMQQGTX0
Patient Care Component	1	^APCDCAFS
Registration	1	TERM^VALM0

Name	Comments	DBIA/ICR reference
SORT	;how to sort list of visits
DATES
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
D(D)	;
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	;taxonomy of clinics
INFORM	;inform user what this report is all about
SLOC	;taxonomy of locations
FAC	;
OSC	;
OPRV	;one clinic
STATUS	;
OLOC	;one location
ZIS	;call xbdbque
DRIVER	;EP entry point for taskman
START	;
CLINIC	;
XIT	;
OCLN	;one clinic
SHL	;selected hospital locations
STATUS1	;
PRIMPROV	;
PROCESS	;
SPRV	;taxonomy of PROVIDERS
CDR	;
SC	;
SSC	;

Name	Field # of Occurrence
HOME^%ZIS	START+2
PEP^AMQQGTX0	SLOC+2, SCLN+2, SPRV+2, SSC+2
^APCDCAFS	DRIVER+3
KILL^AUPNPAT	XIT+4
^DIC	OLOC+1, SLOC+1, OCLN+1, SCLN+1, OHL+1, SHL+1, OPRV+1, SPRV+1, SCDR+1, SSC+1
^DIR	START+8, DATES+2, DATES+7, FAC+6, SC+6, CLINIC+6, HOSPLOC+6, PRIMPROV+6, CDR+8, SORT+3 , EOP+5, OSC+1
TERM^VALM0	START+3
^XBDBQUE	ZIS+2
^XBFMK	XIT+3
$$EXTSET^XBFUNC	PROCESS+10
EN^XBVK	XIT+2, XIT+5
$$FMADD^XLFDT	DATES+11
$$FMTE^XLFDT	DATES+5, 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: ! Line Location: DATES+1
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: DATES+10
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 SERVICE CATEGORIES will be included",!,"in the list."_$G(IORVOFF),! Line Location: SC+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 primary 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: !,"VISIT TYPE: NOT Contract" Line Location: PROCESS+4
Function Call: WRITE	Prompt: !!,"LOCATION OF ENCOUNTER: " Line Location: PROCESS+5
Function Call: WRITE	Prompt: "All" Line Location: PROCESS+6
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: PROCESS+7
Function Call: WRITE	Prompt: ?24,$E($P(^DIC(4,Y,0),U),1,15) Line Location: PROCESS+7
Function Call: WRITE	Prompt: !!,"SERVICE CATEGORIES: " Line Location: PROCESS+8
Function Call: WRITE	Prompt: "All" Line Location: PROCESS+9
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: PROCESS+10
Function Call: WRITE	Prompt: ?24,$$EXTSET^XBFUNC(9000010,.07,Y) Line Location: PROCESS+10
Function Call: WRITE	Prompt: !!,"CLINICS: " Line Location: PROCESS+11
Function Call: WRITE	Prompt: "All" Line Location: PROCESS+12
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: PROCESS+13
Function Call: WRITE	Prompt: ?24,$E($P(^DIC(40.7,Y,0),U),1,15) Line Location: PROCESS+13
Function Call: WRITE	Prompt: !!,"HOSPITAL LOCATIONS: " Line Location: PROCESS+14
Function Call: WRITE	Prompt: "All" Line Location: PROCESS+15
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: PROCESS+16
Function Call: WRITE	Prompt: ?24,$E($P(^SC(Y,0),U),1,15) Line Location: PROCESS+16
Function Call: WRITE	Prompt: !!,"PRIMARY PROVIDER ON VISIT: " Line Location: PROCESS+17
Function Call: WRITE	Prompt: "All" Line Location: PROCESS+18
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: PROCESS+19
Function Call: WRITE	Prompt: ?24,$E($P(^VA(200,Y,0),U),1,15) Line Location: PROCESS+19
Function Call: WRITE	Prompt: !!,"CHART DEFICIENCY REASONS: " Line Location: PROCESS+20
Function Call: WRITE	Prompt: "All (includes visits with no chart deficiency reason entered" Line Location: PROCESS+21
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: PROCESS+22
Function Call: WRITE	Prompt: ?24,$E($P(^AUTTCDR(Y,0),U),1,15) Line Location: PROCESS+22
Function Call: WRITE	Prompt: !,$$CTR($$LOC) Line Location: INFORM+1
Function Call: WRITE	Prompt: !!,$$CTR("PCC/EHR CODING AUDIT") Line Location: INFORM+2
Function Call: WRITE	Prompt: !!,"This report will list all visits with a chart audit status of incomplete" Line Location: INFORM+3
Function Call: WRITE	Prompt: !,"or blank. The visits can be selected by date, primary provider, facility" Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"clinic or hospital location. This list can be sorted by date, primary provider" Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"clinic code, hospital location (scheduling clinic), or facility." Line Location: INFORM+6
Function Call: WRITE	Prompt: !,"Contract Health visits are excluded." Line Location: INFORM+7
Function Call: WRITE	Prompt: !,"Visits with the following service categories are INCLUDED in the list, " Line Location: INFORM+8
Function Call: WRITE	Prompt: !,"unless you specify otherwise when prompted to do so:" Line Location: INFORM+9
Function Call: WRITE	Prompt: !," - A Ambulatory" Line Location: INFORM+10
Function Call: WRITE	Prompt: !," - H Hospitalization" Line Location: INFORM+11
Function Call: WRITE	Prompt: !," - I In-Hospital" Line Location: INFORM+12
Function Call: WRITE	Prompt: !," - S Day Surgery" Line Location: INFORM+13
Function Call: WRITE	Prompt: !," - O Observation" Line Location: INFORM+14
Function Call: WRITE	Prompt: !," - T Telecommunications" Line Location: INFORM+15
Function Call: WRITE	Prompt: !," - C Chart Review" Line Location: INFORM+16
Function Call: WRITE	Prompt: !," - R Nursing Home" Line Location: INFORM+17
Function Call: WRITE	Prompt: !," - N Not Found" Line Location: INFORM+18
Function Call: WRITE	Prompt: !," - M Telemedicine" Line Location: INFORM+19
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+1
Function Call: WRITE	Prompt: !!,"** all PROVIDERS will be included **",! Line Location: SPRV+4
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: SSC+1
Function Call: WRITE	Prompt: !!,"** all Services Categories will be included **",! Line Location: SSC+4
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+1 SCDR+1 SSC+1
Routine Call	DIR Line Location: START+8 DATES+2 DATES+7 FAC+6 SC+6 CLINIC+6 HOSPLOC+6 PRIMPROV+6 CDR+8 SORT+3 EOP+5 OSC+1

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+3, DATES+5
^APCDSITE - [#9001001.2]	INFORM+10, INFORM+11, INFORM+12, INFORM+13, INFORM+14, INFORM+15, INFORM+16, INFORM+17, INFORM+18, INFORM+19
^AUTTCDR - [#99999.05]	PROCESS+22
^DIC(4 - [#4]	PROCESS+7, LOC+1
^DIC(40.7 - [#40.7]	PROCESS+13
^SC - [#44]	PROCESS+16
^VA(200 - [#200]	PROCESS+19, USR+1
^XTMP("APCDCAFR"	DRIVER+2!

Name	Line Occurrences
$$CTR	INFORM+1, INFORM+2
$$LOC	INFORM+1
@(	FAC+10, SC+10, CLINIC+10, HOSPLOC+10, PRIMPROV+10, CDR+12
CDR	CDR+13
CLINIC	SC+9, CLINIC+11, HOSPLOC+7
DATES	DATES+3, DATES+9, FAC+7, SSC+1
FAC	FAC+11, SC+7
HOSPLOC	CLINIC+9, HOSPLOC+11, PRIMPROV+7
INFORM	START+5
PRIMPROV	HOSPLOC+9, PRIMPROV+11
PROCESS	CDR+11
SC	FAC+9, SC+11, CLINIC+7
SCDR	SCDR+5
SHL	SHL+5
STATUS	PRIMPROV+9, CDR+9
XIT	START+1, START+6, DATES+2, DATES+7, SORT+4, ZIS+3, SLOC+1, SCLN+1, SPRV+1

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDBD	DATES!, DATES+2*, DATES+3, DATES+9, DATES+11, PROCESS+3
>> APCDBT	DRIVER+1*, DRIVER+2
APCDCDRS	CDR+6!, PROCESS+21
APCDCDRS(	PROCESS+22, SCDR+4*
>> APCDCDRT	CDR+5, CDR+10, CDR+11, CDR+12
APCDCLNS	CLINIC+4!, PROCESS+12, SCLN+3, SCLN+4!
APCDCLNS(	PROCESS+13, OCLN+3*
APCDCLNS("*"	SCLN+4
>> APCDCLNT	CLINIC+3, CLINIC+8, CLINIC+9, CLINIC+10, SCLN+4*
APCDED	DATES!, DATES+7*, DATES+9, PROCESS+3
>> APCDET	DRIVER+4*
APCDHLS	HOSPLOC+4!, PROCESS+15
APCDHLS(	PROCESS+16, OHL+3, SHL+4
>> APCDHLT	HOSPLOC+3, HOSPLOC+8, HOSPLOC+9, HOSPLOC+10
>> APCDJOB	DRIVER+1*, DRIVER+2
APCDLOCS	FAC+4!, PROCESS+6, SLOC+3, SLOC+4!
APCDLOCS(	PROCESS+7, OLOC+3*
APCDLOCS("*"	SLOC+4
>> APCDLOCT	FAC+3, FAC+8, FAC+9, FAC+10, SLOC+4*
APCDPRVS	PRIMPROV+4!, PROCESS+18, SPRV+3, SPRV+4!
APCDPRVS(	PROCESS+19, OPRV+3*
APCDPRVS("*"	SPRV+4
>> APCDPRVT	PRIMPROV+3, PRIMPROV+8, PRIMPROV+9, PRIMPROV+10, SPRV+4*
APCDQ	FAC+1!, FAC+11, SC+1!, SC+11, CLINIC+1!, CLINIC+11, HOSPLOC+1!, HOSPLOC+11, PRIMPROV+1!, PRIMPROV+11 , CDR+1!, CDR+13, OLOC+2, SLOC+3, OCLN+2, SCLN+3, OHL+2, SHL+3, OPRV+2, SPRV+3 , SCDR+3, SSC+3, OSC+2*
APCDSCS	SC+4!, PROCESS+9, SSC+3, SSC+4!
APCDSCS(	PROCESS+10, OSC+3*
APCDSCS("*"	SSC+4
>> APCDSCT	SC+3, SC+8, SC+9, SC+10, SSC+4*
>> APCDSD	DATES+11*
>> APCDSORT	SORT+1, SORT+5
>> C	PROCESS+7, PROCESS+10, PROCESS+13, PROCESS+16, PROCESS+19, PROCESS+22
D	D~, D+1, D+2
DA	START+8!, FAC+6!, SC+6!, CLINIC+6!, HOSPLOC+6!, PRIMPROV+6!, CDR+8!, SORT+3!, SLOC+1!, SCLN+1! , SPRV+1!, SSC+1!, OSC+1!
DFOUT	EOP+4!
DIC	OLOC+1!, SLOC+1!, OCLN+1!, SCLN+1!, OHL+1!, SHL+1!, OPRV+1!, SPRV+1!, SCDR+1!, SSC+1!
DIC("A"	OLOC+1, OCLN+1, OHL+1, SHL+1, OPRV+1, SCDR+1
DIC("S"	SLOC+1, SCLN+1, SPRV+1, SSC+1
DIC(0	OLOC+1, SLOC+1, OCLN+1, SCLN+1, OHL+1, SHL+1, OPRV+1, SPRV+1, SCDR+1, SSC+1
DIR	START+8!, DATES+1!, DATES+6!, FAC+6!, SC+5!, SC+6!, CLINIC+5!, CLINIC+6!, HOSPLOC+6!, PRIMPROV+6! , CDR+8!, SORT+3!, XIT+1!, EOP+3~, OSC+1!
DIR("A"	START+8, DATES+1, DATES+6, FAC+5, FAC+6, SC+5, SC+6, CLINIC+5, CLINIC+6, HOSPLOC+5 , HOSPLOC+6, PRIMPROV+5, PRIMPROV+6, CDR+7, CDR+8, SORT+3, EOP+5, OSC+1
DIR("B"	FAC+5, FAC+6, SC+5, SC+6, CLINIC+5, CLINIC+6, HOSPLOC+5, HOSPLOC+6, PRIMPROV+5, PRIMPROV+6 , CDR+7, CDR+8, SORT+3*
DIR(0	START+8, DATES+1, DATES+6, FAC+5, SC+5, CLINIC+5, HOSPLOC+5, PRIMPROV+5, CDR+7, SORT+2 , EOP+5, OSC+1
DIRUT	FAC+7, SC+7, CLINIC+7, HOSPLOC+7, PRIMPROV+7, CDR+9, SORT+4, EOP+4!, OSC+2
DLOUT	EOP+4!
DTOUT	EOP+4!
DUOUT	EOP+4!
DUZ	USR+1
DUZ(2	START+6, DATES+3, DATES+5, LOC+1, INFORM+10, INFORM+11, INFORM+12, INFORM+13, INFORM+14, INFORM+15 , INFORM+16, INFORM+17, INFORM+18, INFORM+19
IO("S"	EOP+2
IOF	START+2, START+4, PROCESS+1
IOM	CTR+1
>> IORVOFF	FAC+2, SC+2, CLINIC+2, HOSPLOC+2, PRIMPROV+2
>> IORVON	FAC+2, SC+2, CLINIC+2, HOSPLOC+2, PRIMPROV+2
IOST	EOP+1
>> IOT	EOP+2
U	START+6, DATES+3, DATES+5, PROCESS+7, PROCESS+13, PROCESS+16, PROCESS+19, PROCESS+22, USR+1, LOC+1
X	CTR~, CTR+1, SLOC+1, SCLN+1, SHL+2, SPRV+1, SCDR+2, SSC+1
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	DATES+2, DATES+7, FAC+8, SC+8, CLINIC+8, HOSPLOC+8, PRIMPROV+8, CDR+10, PROCESS+7, PROCESS+10 , PROCESS+13, PROCESS+16, PROCESS+19, PROCESS+22, SORT+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+1, SPRV+2, SCDR+3, SCDR+4, SSC+1, SSC+2, OSC+3
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Patient Care Component

Routine: APCDCAFR

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: