Routine: APCLAP9P

Package	Total	Call Graph
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	DONE^APCLOSUT
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
HEAD
HEAD1	;
START	;
DONE	;
PRINT	;
EXCL	;
TYPE	;

External References

Name	Field # of Occurrence
DONE^APCLOSUT	DONE+1
^DIR	HEAD+1
$$FMTE^XLFDT	PRINT+2, HEAD1+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"FACILITY: ",$P(^DIC(4,APCLLOC,0),U)," - ",$P(^AUTTLOC(APCLLOC,0),U,10) Line Location: PRINT+1
Function Call: WRITE	Prompt: !,"VISIT DATE RANGE: ",$$FMTE^XLFDT(APCLBD)," - ",$$FMTE^XLFDT(APCLED) Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,"Total Visits Processed in PCC: ",APCLGRAN Line Location: PRINT+3
Function Call: WRITE	Prompt: !!,?45,"as of the Date the report was run:",!,?45,"# complete",?60,"# incomplete",!?45,"----------",?60,"------------",! Line Location: PRINT+4
Function Call: WRITE	Prompt: "TYPE: " Condition for execution: C=1 Line Location: TYPE+3
Function Call: WRITE	Prompt: ?19,APCLX,?45,$J($P(^XTMP("APCLAP9",APCLJOB,APCLBT,"TYPE",APCLX),U),6),?60,$J($P(^XTMP("APCLAP9",APCLJOB,APCLBT,"TYPE",APCLX),U,2),6) Line Location: TYPE+3
Function Call: WRITE	Prompt: !! Line Location: TYPE+4
Function Call: WRITE	Prompt: "SERVICE CATEGORY: " Condition for execution: C=1 Line Location: TYPE+6
Function Call: WRITE	Prompt: ?19,$E(APCLX,1,24),?45,$J($P(^XTMP("APCLAP9",APCLJOB,APCLBT,"SC",APCLX),U),6),?60,$J($P(^XTMP("APCLAP9",APCLJOB,APCLBT,"SC",APCLX),U,2),6) Line Location: TYPE+6
Function Call: WRITE	Prompt: !!,"APC Acceptable Visits based on Headquarters Definition: ",$J(APCLAPC,7) Line Location: TYPE+8
Function Call: WRITE	Prompt: !!,"Exclusions from APC System:",! Line Location: EXCL+2
Function Call: WRITE	Prompt: !?10,"Dental Clinic w/o Medication",?60,$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"DENTAL NO MED")):^XTMP("APCLAP9",APCLJOB,APCLBT,"DENTAL NO MED"),1:0),6) Line Location: EXCL+4
Function Call: WRITE	Prompt: !?10,"Other Excluded Clinic Type",?60,$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCCLN")):^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCCLN"),1:0),6) Line Location: EXCL+5
Function Call: WRITE	Prompt: !?10,"Incomplete A, O or S",?60,$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"AOS INCOMPLETE")):^XTMP("APCLAP9",APCLJOB,APCLBT,"AOS INCOMPLETE"),1:0),6) Line Location: EXCL+7
Function Call: WRITE	Prompt: !?10,"Non APC Service Category",?60,$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCSC")):^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCSC"),1:0),6) Line Location: EXCL+9
Function Call: WRITE	Prompt: !?10,"Non APC Visit Type",?60,$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCTYPE")):^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCTYPE"),1:0),6) Line Location: EXCL+10
Function Call: WRITE	Prompt: !!?3,"Of the acceptable APC visits, ",$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"IN XREF")):^XTMP("APCLAP9",APCLJOB,APCLBT,"IN XREF"),1:0),6)," were posted or modified after",! Line Location: EXCL+14
Function Call: WRITE	Prompt: ?3,"the last NDW export and would not be reflected in reports from ",!,"the National Data Warehouse." Line Location: EXCL+15
Function Call: WRITE	Prompt: !?3,"Of the acceptable APC visits, ",$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"NO EXPORT - ?")):^XTMP("APCLAP9",APCLJOB,APCLBT,"NO EXPORT - ?"),1:0),6)," were not exported due to an error." Line Location: EXCL+17
Function Call: WRITE	Prompt: !?3,"These can be reviewed using other PCC reports.",! Line Location: EXCL+18
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !?3,$P(^DIC(4,DUZ(2),0),U),?58,$$FMTE^XLFDT(DT),?72,"Page ",APCLPG,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: ?28,"PCC DATA ANALYSIS REPORT",! Line Location: HEAD1+3
Function Call: WRITE	Prompt: $TR($J("",80)," ","*"),! Line Location: HEAD1+4
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLOC - [#9999999.06]	PRINT+1
^DIC(4 - [#4]	PRINT+1, HEAD1+2
^XTMP("APCLAP9"	DONE+2!, TYPE+1, TYPE+3, TYPE+4, TYPE+6, EXCL+4, EXCL+5, EXCL+7, EXCL+9, EXCL+10 , EXCL+14, EXCL+17

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCLAPC	TYPE+8
>> APCLBD	PRINT+2
>> APCLBT	DONE+2, TYPE+1, TYPE+3, TYPE+4, TYPE+6, EXCL+4, EXCL+5, EXCL+7, EXCL+9, EXCL+10 , EXCL+14, EXCL+17
>> APCLED	PRINT+2
>> APCLGRAN	PRINT+3
>> APCLJOB	DONE+2, TYPE+1, TYPE+3, TYPE+4, TYPE+6, EXCL+4, EXCL+5, EXCL+7, EXCL+9, EXCL+10 , EXCL+14, EXCL+17
>> APCLLOC	PRINT+1
>> APCLPG	START+1, HEAD, HEAD1+1, HEAD1+2
APCLQUIT	START+2!, TYPE+1, TYPE+2, TYPE+4, TYPE+5, TYPE+7, EXCL+1, EXCL+3, EXCL+6, EXCL+8 , EXCL+11, EXCL+16, HEAD+1*
>> APCLTOT	START+1*
>> APCLX	TYPE+1, TYPE+3, TYPE+4, TYPE+6
>> C	TYPE+1, TYPE+3, TYPE+4, TYPE+6
DIR	HEAD+1!
DIR(0	HEAD+1*
DT	HEAD1+2
>> DTOUT	HEAD+1
DUZ(2	HEAD1+2
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	TYPE+2, TYPE+5, TYPE+7, EXCL+1, EXCL+3, EXCL+6, EXCL+8, EXCL+11, EXCL+16
IOST	HEAD+1
U	PRINT+1, TYPE+3, TYPE+6, HEAD1+2
>> Y	HEAD+1

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLAP9P

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
HEAD	START+1, TYPE+2, TYPE+5, TYPE+7, EXCL+1, EXCL+3, EXCL+6, EXCL+8, EXCL+11, EXCL+16
HEAD1	HEAD
PRINT	START+3