Routine: APCDCAFI

Package	Total	Call Graph
IHS VA Utilities	3	^XBDBQUE ^XBFMK 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	^APCDCAFJ
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	;
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	;

Name	Field # of Occurrence
HOME^%ZIS	START+2
PEP^AMQQGTX0	SLOC+2, SCLN+2, SPRV+2
^APCDCAFJ	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
^DIR	START+8, DATES+2, DATES+7, FAC+6, CLINIC+6, HOSPLOC+6, PRIMPROV+6, CDR+8, SORT+3, EOP+5
TERM^VALM0	START+3
^XBDBQUE	ZIS+2
^XBFMK	XIT+3
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 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+5
Function Call: WRITE	Prompt: !,"Visits with at least one POV and Primary Provider." Line Location: PROCESS+6
Function Call: WRITE	Prompt: !!,"LOCATION OF ENCOUNTER: " Line Location: PROCESS+7
Function Call: WRITE	Prompt: "All" Line Location: PROCESS+8
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: PROCESS+9
Function Call: WRITE	Prompt: ?24,$E($P(^DIC(4,Y,0),U),1,15) Line Location: PROCESS+9
Function Call: WRITE	Prompt: !!,"CLINICS: " Line Location: PROCESS+10
Function Call: WRITE	Prompt: "All" Line Location: PROCESS+11
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: PROCESS+12
Function Call: WRITE	Prompt: ?24,$E($P(^DIC(40.7,Y,0),U),1,15) Line Location: PROCESS+12
Function Call: WRITE	Prompt: !!,"HOSPITAL LOCATIONS: " Line Location: PROCESS+13
Function Call: WRITE	Prompt: "All" Line Location: PROCESS+14
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: PROCESS+15
Function Call: WRITE	Prompt: ?24,$E($P(^SC(Y,0),U),1,15) Line Location: PROCESS+15
Function Call: WRITE	Prompt: !!,"PRIMARY PROVIDER ON VISIT: " Line Location: PROCESS+16
Function Call: WRITE	Prompt: "All" Line Location: PROCESS+17
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: PROCESS+18
Function Call: WRITE	Prompt: ?24,$E($P(^VA(200,Y,0),U),1,15) Line Location: PROCESS+18
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,$$EXTSET^XBFUNC(9000010.45,Y,.04) Line Location: PROCESS+21
Function Call: WRITE	Prompt: !!,"CHART DEFICIENCY REASONS: " Line Location: PROCESS+22
Function Call: WRITE	Prompt: "All (includes visits with no chart deficiency reason entered" Line Location: PROCESS+23
Function Call: WRITE	Prompt: ";" Condition for execution: C>1 Line Location: PROCESS+24
Function Call: WRITE	Prompt: ?24,$E($P(^AUTTCDR(Y,0),U),1,15) Line Location: PROCESS+24
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 I-Incomplete." Line Location: INFORM+3
Function Call: WRITE	Prompt: !,"The visits can be selected by date, primary provider," Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"chart audit status. 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: !," - A Ambulatory" Line Location: INFORM+9
Function Call: WRITE	Prompt: !," - H Hospitalization" Line Location: INFORM+10
Function Call: WRITE	Prompt: !," - I In-Hospital" Line Location: INFORM+11
Function Call: WRITE	Prompt: !," - S Day Surgery" Line Location: INFORM+12
Function Call: WRITE	Prompt: !," - O Observation" Line Location: INFORM+13
Function Call: WRITE	Prompt: !," - T Telecommunications" Line Location: INFORM+14
Function Call: WRITE	Prompt: !," - C Chart Review" Line Location: INFORM+15
Function Call: WRITE	Prompt: !," - R Nursing Home" Line Location: INFORM+16
Function Call: WRITE	Prompt: !," - N Not Found" Line Location: INFORM+17
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
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
Routine Call	DIR Line Location: START+8 DATES+2 DATES+7 FAC+6 CLINIC+6 HOSPLOC+6 PRIMPROV+6 CDR+8 SORT+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+3, DATES+5
^AUTTCDR - [#99999.05]	PROCESS+24
^DIC(4 - [#4]	PROCESS+9, LOC+1
^DIC(40.7 - [#40.7]	PROCESS+12
^SC - [#44]	PROCESS+15
^VA(200 - [#200]	PROCESS+18, USR+1
^XTMP("APCDCAFI"	DRIVER+2!

Name	Line Occurrences
$$CTR	INFORM+1, INFORM+2
$$LOC	INFORM+1
@(	FAC+10, CLINIC+10, HOSPLOC+10, PRIMPROV+10, CDR+12
CDR	CDR+13
CLINIC	FAC+9, CLINIC+11, HOSPLOC+7
DATES	DATES+3, DATES+9, FAC+7
FAC	FAC+11, CLINIC+7
HOSPLOC	CLINIC+9, HOSPLOC+11, PRIMPROV+7
INFORM	START+5
PRIMPROV	HOSPLOC+9, PRIMPROV+11
PROCESS	CDR+11
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!
APCDCDRS(	PROCESS+24, SCDR+4*
>> APCDCDRT	CDR+5, CDR+10, CDR+11, CDR+12
APCDCLNS	CLINIC+4!, SCLN+3, SCLN+4!
APCDCLNS(	PROCESS+12, 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!
APCDHLS(	PROCESS+15, OHL+3, SHL+4
>> APCDHLT	HOSPLOC+3, HOSPLOC+8, HOSPLOC+9, HOSPLOC+10
>> APCDJOB	DRIVER+1*, DRIVER+2
APCDLOCS	FAC+4!, SLOC+3, SLOC+4!
APCDLOCS(	PROCESS+9, OLOC+3*
APCDLOCS("*"	SLOC+4
>> APCDLOCT	FAC+3, FAC+8, FAC+9, FAC+10, SLOC+4*
APCDPRVS	PRIMPROV+4!, SPRV+3, SPRV+4!
APCDPRVS(	PROCESS+18, OPRV+3*
APCDPRVS("*"	SPRV+4
>> APCDPRVT	PRIMPROV+3, PRIMPROV+8, PRIMPROV+9, PRIMPROV+10, SPRV+4*
APCDQ	FAC+1!, FAC+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*
>> APCDSD	DATES+11*
>> APCDSORT	SORT+1, SORT+5
>> APCLCDRS	PROCESS+23
>> APCLCLNS	PROCESS+11
>> APCLHLS	PROCESS+14
>> APCLLOCS	PROCESS+8
>> APCLPRV	PROCESS+17
>> C	PROCESS+9, PROCESS+12, PROCESS+15, PROCESS+18, PROCESS+24*
D	D~, D+1, D+2
DA	START+8!, FAC+6!, CLINIC+6!, HOSPLOC+6!, PRIMPROV+6!, CDR+8!, SORT+3!, SLOC+1!, SCLN+1!, SPRV+1!
DFOUT	EOP+4!
DIC	OLOC+1!, SLOC+1!, OCLN+1!, SCLN+1!, OHL+1!, SHL+1!, OPRV+1!, SPRV+1!, SCDR+1*!
DIC("A"	OLOC+1, OCLN+1, OHL+1, SHL+1, OPRV+1, SCDR+1
DIC("S"	SLOC+1, SCLN+1, SPRV+1*
DIC(0	OLOC+1, SLOC+1, OCLN+1, SCLN+1, OHL+1, SHL+1, OPRV+1, SPRV+1, SCDR+1*
DIR	START+8!, DATES+1!, DATES+6!, FAC+6!, CLINIC+5!, CLINIC+6!, HOSPLOC+6!, PRIMPROV+6!, CDR+8!, SORT+3! , XIT+1!, EOP+3~
DIR("A"	START+8, DATES+1, DATES+6, FAC+5, FAC+6, CLINIC+5, CLINIC+6, HOSPLOC+5, HOSPLOC+6, PRIMPROV+5 , PRIMPROV+6, CDR+7, CDR+8, SORT+3, EOP+5*
DIR("B"	FAC+5, FAC+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, CLINIC+5, HOSPLOC+5, PRIMPROV+5, CDR+7, SORT+2, EOP+5
DIRUT	FAC+7, CLINIC+7, HOSPLOC+7, PRIMPROV+7, CDR+9, SORT+4, EOP+4!
DLOUT	EOP+4!
DTOUT	EOP+4!
DUOUT	EOP+4!
DUZ	USR+1
DUZ(2	START+6, DATES+3, DATES+5, LOC+1
IO("S"	EOP+2
IOF	START+2, START+4, PROCESS+1
IOM	CTR+1
>> IORVOFF	FAC+2, CLINIC+2, HOSPLOC+2, PRIMPROV+2
>> IORVON	FAC+2, CLINIC+2, HOSPLOC+2, PRIMPROV+2
IOST	EOP+1
>> IOT	EOP+2
U	START+6, DATES+3, DATES+5, PROCESS+9, PROCESS+12, PROCESS+15, PROCESS+18, PROCESS+24, USR+1, LOC+1
X	CTR~, CTR+1, SLOC+1, SCLN+1, SHL+2, SPRV+1*, SCDR+2
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	DATES+2, DATES+7, FAC+8, CLINIC+8, HOSPLOC+8, PRIMPROV+8, CDR+10, PROCESS+9, PROCESS+12, PROCESS+15* , PROCESS+18, PROCESS+24, 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
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Patient Care Component

Routine: APCDCAFI

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: