Routine: APCDKLVR

Package	Total	Call Graph
VA Fileman	3	DD^%DT C^%DTC ^DIR
IHS VA Utilities	2	^XBDBQUE $$VAL^XBDIQ1
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Patient Care Component Reports	1	($$LOCENC,$$SC,$$TYPE,$$VDTM)^APCLV

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
HEAD	;ENTRY POINT
ZIS	;
HEAD1	;
PROCPRN	;EP - called from xbdbque to print report
BROWSE	;
ED	;get ending date
PRN	;
V1(R)	;
PROCESS	; Entry point for Taskman
GETDATES	;
DONE	;
T(V)	;
V(R)	;
PRINT	;
XIT	;
TYPE	;
HEAD2	;

External References

Name	Field # of Occurrence
DD^%DT	ED+1
C^%DTC	ED+4
$$LOCENC^APCLV	PRN+7
$$SC^APCLV	PRN+7
$$TYPE^APCLV	PRN+7
$$VDTM^APCLV	PRN+7
^DIR	TYPE+2, BD+1, ED+1, ZIS+1, DONE+2, HEAD+1
^XBDBQUE	ZIS+5, BROWSE+2
$$VAL^XBDIQ1	PRN+8
$$FMADD^XLFDT	PROCESS+3
$$FMTE^XLFDT	PROCPRN+7, HEAD2+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"**** PCC DATA DATA ENTRY REPORT OF COMPLETED 'ORPHAN' LAB/RADIOLOGY/PHARMACY",!,"VISITS ****",! Line Location: APCDKLVR+4
Function Call: WRITE	Prompt: !!,"This report will list all visits that were completed using the option",!,"to complete orphaned lab or radiology or pharmacy visits.",!! Line Location: APCDKLVR+5
Function Call: WRITE	Prompt: !,"Please enter the date range for which you would like to see",!,"a list of completed ",$$V(APCDRTYP)," visits.",! Line Location: GETDATES+1
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !,"No visits to report",! Line Location: PROCPRN+3
Function Call: WRITE	Prompt: !,$$VDTM^APCLV(APCDV,"E"),?19,APCDHRN,?26,$E($$LOCENC^APCLV(APCDV,"E"),1,10),?38,$$TYPE^APCLV(APCDV,"I"),?43,$$SC^APCLV(APCDV,"I") Line Location: PRN+7
Function Call: WRITE	Prompt: ?46,$$T(APCDV),?54,$S($$T(APCDV)="LAB":APCDLAB,$$T(APCDV)="MED":APCDMED,$$T(APCDV)="RAD":APCDRAD,$$T(APCDV)="IMM":APCDIMM,$$T(APCDV)="BB":APCDBB,$$T(APCDV)="MIC":"MICROBIOLOGY",1:""),?61,$$VAL^XBDIQ1(9000010,APCDV,.28) Line Location: PRN+8
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEAD2+2
Function Call: WRITE	Prompt: !?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),?72,"Page ",APCDPG,! Line Location: HEAD2+3
Function Call: WRITE	Prompt: ?10,"ANCILLARY VISITS FOR WHICH A PROVIDER AND POV WERE APPENDED",! Line Location: HEAD2+4
Function Call: WRITE	Prompt: ?20,"Dates range: ",$$FMTE^XLFDT(APCDBD),"-",$$FMTE^XLFDT(APCDED),! Line Location: HEAD2+5
Function Call: WRITE	Prompt: !,"VISIT DATE/TIME",?20,"HRN",?26,"LOCATION",?37,"TYPE",?43,"SC",?52,"# ",$$V1(APCDRTYP),?61,"BILLING LINK DATE" Line Location: HEAD2+6
Function Call: WRITE	Prompt: !,APCD80D Line Location: HEAD2+7
Routine Call	DIR Line Location: TYPE+2 BD+1 ED+1 ZIS+1 DONE+2 HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDLLOG - [#9001001.7]	PROCESS+6, PROCESS+7
^APCDLLOG("AC"	PROCESS+4, PROCESS+5
^AUPNPAT - [#9000001]	PRINT+3
^AUPNVBB("AD"	PRN+5, T+6
^AUPNVIMM("AD"	PRN+4, T+5
^AUPNVLAB("AD"	PRN+1, T+2
^AUPNVMED("AD"	PRN+3, T+4
^AUPNVMIC("AD"	PRN+6, T+7
^AUPNVRAD("AD"	PRN+2, T+3
^AUPNVSIT - [#9000010]	PRINT+2
^DIC(4 - [#4]	HEAD2+3
^XTMP("APCDKLVR"	PROCESS+2!, PROCESS+3, PROCESS+6, PROCESS+7*, PROCPRN+3, PROCPRN+4, PROCPRN+8, DONE+1!

Label References

Name	Line Occurrences
$$T	PRN+8
$$V	GETDATES+1
$$V1	HEAD2+6
@(	PROCPRN+3
BD	ED+2
BROWSE	ZIS+3
DONE	PROCPRN+3
HEAD	PROCPRN+6, PRINT+1
PRINT	PROCPRN+8
XIT	TYPE+3, BD+2, ZIS+2, ZIS+3, ZIS+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCD80D	PROCPRN+2*, HEAD2+7, XIT+2!
APCD80E	PROCPRN+1*, XIT+2!
>> APCDBB	PRN+5*, PRN+8
APCDBD	BD+3*, ED+1, ED+4, HEAD2+5, XIT+2!
APCDBTH	PROCESS+1*, PROCESS+2, PROCESS+6, PROCESS+7, PROCPRN+3, PROCPRN+4, PROCPRN+8, DONE+1, XIT+2!
APCDD	PROCESS+4*, PROCESS+5, PROCESS+6, PROCESS+7, XIT+2!
APCDDATE	PROCPRN+4*, PROCPRN+7, PROCPRN+8, XIT+2!
APCDED	ED+3*, PROCESS+4, HEAD2+5, XIT+2!
APCDHRN	PRINT+3*, PRN+7, XIT+2!
>> APCDIMM	PRN+4*, PRN+8
APCDJOB	PROCESS+1*, PROCESS+2, PROCESS+6, PROCESS+7, PROCPRN+3, PROCPRN+4, PROCPRN+8, DONE+1, XIT+2!
APCDLAB	PRN+1*, PRN+8, XIT+2!
>> APCDMED	PRN+3*, PRN+8
>> APCDMIC	PRN+6*
APCDPG	PROCPRN+3, HEAD2+1, HEAD2+3, XIT+2!
APCDQUIT	PROCPRN+5!, PROCPRN+6, PROCPRN+8, PRINT+1, HEAD+1*
>> APCDRAD	PRN+2*, PRN+8
>> APCDRTYP	TYPE+1, TYPE+4, GETDATES+1, PROCESS+6, PROCESS+7, HEAD2+6
APCDSD	ED+4*, PROCESS+4, XIT+2!
APCDV	PROCESS+5, PROCESS+6, PROCESS+7, PROCPRN+5, PROCPRN+8*, PRINT+2, PRN+1, PRN+2, PRN+3, PRN+4 , PRN+5, PRN+6, PRN+7, PRN+8, XIT+2!, T+2, T+3, T+4, T+5, T+6 , T+7
APCDV0	PRINT+2*, PRINT+3, XIT+2!
DA	TYPE+2!, ZIS+1!, DONE+2!, XIT+1!
DFN	PRINT+3*, XIT+1!
DIC	XIT+1!
DIE	XIT+1!
DIR	TYPE+2!, BD+1!, ED+1!, ZIS+1!, DONE+2!, HEAD+1!, XIT+1!
DIR("A"	TYPE+2, BD+1, ED+1, ZIS+1, DONE+2*
DIR("B"	TYPE+2, ZIS+1
DIR(0	TYPE+2, BD+1, ED+1, ZIS+1, DONE+2, HEAD+1
>> DIRUT	TYPE+3, BD+1, BD+2, ED+1, ED+2, ZIS+2
DT	PROCESS+3
>> DTOUT	HEAD+1
>> DUOUT	BD+1, ED+1
DUZ(2	PRINT+3, HEAD2+3
IO	DONE+2, HEAD+1
IO(0	DONE+2, HEAD+1
IOF	APCDKLVR+3, HEAD1+1
IOSL	PROCPRN+6, PRINT+1
IOST	PROCPRN+3, DONE+2, HEAD+1
R	V1~, V1+1, V1+2, V1+3, V1+4, V1+5, V1+6, V1+7, V~, V+1 , V+2, V+3, V+4, V+5, V+6, V+7
U	PROCESS+6, PROCESS+7, PRINT+3, HEAD2+3
V	T~, T+1
>> X	ED+4, PRN+1, PRN+2, PRN+3, PRN+4, PRN+5, PRN+6
>> X1	ED+4*
>> X2	ED+4*
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+4, BROWSE+2
>> XBRC	ZIS+4, BROWSE+2
>> XBRP	ZIS+4, BROWSE+1
>> XBRX	ZIS+4, BROWSE+2
>> Y	TYPE+4, BD+3, ED+1*, ED+3, ZIS+3, HEAD+1

Customize PDF page

Package: Patient Care Component

Routine: APCDKLVR

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: