Routine: APCL8AP

Package	Total	Call Graph
VA Fileman	2	DD^%DT ^DIR
Patient Care Component Reports	1	DONE^APCLOSUT

Entry Points

Name	Comments	DBIA/ICR reference
HEAD
VD	;
HEAD1	;
P	;
START2
PRN	;
SU	;
START	;
CLINIC	;
DONE
FIRSTPG	;

External References

Name	Field # of Occurrence
DD^%DT	START+2
DONE^APCLOSUT	DONE
^DIR	HEAD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: START2+4
Function Call: WRITE	Prompt: !,"Total Number of APC visits counted: ",APCLGRAN Line Location: FIRSTPG+1
Function Call: WRITE	Prompt: !,"Total Number of those APC Visits NOT Exported: ",$S($D(^XTMP("APCL8A",APCLJOB,APCLBT,"NO EXPORT")):^("NO EXPORT"),1:0) Line Location: FIRSTPG+2
Function Call: WRITE	Prompt: !!,"Of the total number of visits counted in the 1A, but NOT exported to the",!,"National Data Warehouse, ",$S($D(^XTMP("APCL8A",APCLJOB,APCLBT,"IN XREF")):^("IN XREF"),1:0) Line Location: FIRSTPG+3
Function Call: WRITE	Prompt: " were not exported because they were posted ",!,"or modified after the last NDW export tape was generated.",! Line Location: FIRSTPG+4
Function Call: WRITE	Prompt: !,"The remaining ",($S($D(^XTMP("APCL8A",APCLJOB,APCLBT,"NO EXPORT")):^("NO EXPORT"),1:0)-$S($D(^XTMP("APCL8A",APCLJOB,APCLBT,"IN XREF")):^("IN XREF"),1:0))," visits are listed below.",! Line Location: FIRSTPG+6
Function Call: WRITE	Prompt: !,APCLHRN,?8,APCLRD,?28,$E($P(^DIC(4,APCLVLOC,0),U),1,11),?40,APCLTYPE,?44,$E(APCLSC,1,15),?47,$E(APCLCLN,1,10),?52,^XTMP("APCL8A",APCLJOB,APCLBT,"VISITS",APCLVDFN) Line Location: PRN+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: APCL80 Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,"AREA: ",APCLAREC," ",APCLAREA,?47,"PCC-APC REPORT 1A",?68,"Page ",APCLPG Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,"S.U.: ",APCLSUC," ",APCLSU,?47,"FISCAL YEAR ",APCLFYD Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,"FAC.: ",APCLLOCC," ",APCLLOCP,?49,APCLDT Line Location: HEAD1+5
Function Call: WRITE	Prompt: !?46,"VISITS NOT EXPORTED",! Line Location: HEAD1+6
Function Call: WRITE	Prompt: APCL80,! Line Location: HEAD1+7
Function Call: WRITE	Prompt: APCL80,! Line Location: HEAD1+10
Function Call: WRITE	Prompt: " HRN ",?8,"VISIT DATE/TIME",?28,"LOCATION",?39,"TYPE",?44,"SC",?45," CLIN",?55,"REASON",!,APCL80,! Line Location: HEAD1+11
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	P+4, P+5
^AUPNVSIT - [#9000010]	P+3, CLINIC+1
^AUTTAREA - [#9999999.21]	START+5, START+6
^AUTTLOC - [#9999999.06]	START+3, START+4, SU+1
^AUTTSU - [#9999999.22]	SU+2, SU+3
^DD("DD"	VD+1
^DIC(4 - [#4]	START+3, PRN+1
^DIC(40.7 - [#40.7]	CLINIC+2
^XTMP("APCL8A"	START2+2, DONE+1!, FIRSTPG+2, FIRSTPG+3, FIRSTPG+5, FIRSTPG+6, PRN+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCL80	START+1*, HEAD1+2, HEAD1+7, HEAD1+10, HEAD1+11
>> APCLAREA	START+4, START+5, START+6*, HEAD1+3
>> APCLAREC	START+4, START+5, START+6*, HEAD1+3
>> APCLBT	START2+2, DONE+1, FIRSTPG+2, FIRSTPG+3, FIRSTPG+5, FIRSTPG+6, PRN+1
>> APCLCLN	CLINIC+1, CLINIC+2, PRN+1
>> APCLDT	START+2*, HEAD1+5
>> APCLFYD	START+2*, HEAD1+4
>> APCLFYE	START+2
>> APCLGRAN	FIRSTPG+1
>> APCLHRN	P+4, P+5, PRN+1
>> APCLJOB	START2+2, DONE+1, FIRSTPG+2, FIRSTPG+3, FIRSTPG+5, FIRSTPG+6, PRN+1
>> APCLLOC	START+3, START+4, SU+1
>> APCLLOCC	START+3*, HEAD1+5
>> APCLLOCP	START+3*, HEAD1+5
>> APCLPG	START2, HEAD, HEAD1+1, HEAD1+3, HEAD1+8
>> APCLPRIT	START2*
APCLQUIT	START2+1!, START2+2, FIRSTPG+5, P+2, HEAD+1, HEAD1+9
>> APCLRD	VD+1*, PRN+1
>> APCLSC	P+3*, PRN+1
>> APCLSU	SU+1, SU+2, SU+3*, HEAD1+4
>> APCLSUC	SU+1, SU+2, SU+3*, HEAD1+4
>> APCLTYPE	P+3*, PRN+1
>> APCLVDFN	START2, START2+2, P+3, CLINIC+1, PRN+1
>> APCLVLOC	P+3*, P+4, PRN+1
>> APCLVREC	P+3*, P+4, VD+1
>> DFN	P+4*, P+5
DIR	HEAD+1!
DIR(0	HEAD+1*
DT	START+2
>> DTOUT	HEAD+1
DUZ(2	P+5
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	P+2
IOST	HEAD+1
U	START+3, START+4, START+6, SU+1, SU+3, P+3, P+4, P+5, CLINIC+1, CLINIC+2 , PRN+1
>> Y	START+2, VD+1, HEAD+1

Customize PDF page

Package: Patient Care Component Reports

Routine: APCL8AP

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
FIRSTPG	HEAD1+8
HEAD	START2, P+2
HEAD1	HEAD
P	START2+2
START2	SU+1, SU+2
SU	START+4, START+5
VD	CLINIC+1

Name	Field # of Occurrence
^("IN XREF"	FIRSTPG+3, FIRSTPG+6
^("NO EXPORT"	FIRSTPG+2, FIRSTPG+6