Routine: APCDDVD

Information

APCDDVD ; IHS/CMI/LAB - VISIT REVIEW DRIVER ;

Source Information

Source file <APCDDVD.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
Patient Care Component	3	^APCDDVD1 ^APCDDVW EN2^APCDEKL
IHS VA Utilities	2	^XBDBQUE $$VAL^XBDIQ1
Patient Care Component Reports	1	DEMOCHK^APCLUTL

Entry Points

Name	Comments	DBIA/ICR reference
RDPV	; Determine to run by Posting date or Visit date
BD	;get beginning date
ERR
LOC	;
S	;all communities within APCDSU su
DEMO	;
CLN	;
DOPRV	;
PRINT	;EP
DLPOV	;
ALLV	;
PPT	;
SORT	;
PPPV	;EP; for no primary provider/pov report
ZIS	;call xbdbque
ED	;get ending date
DRIVER	;EP entry point for taskman
O	;one community
ZERO	;EP; for zero dependent entry report
CHS	;exclude CHS or not?
XIT	;EP
MRG	;EP; for Merge Report
INPT	;EP; for Inpatient review
ALL	;EP;to run all Visit Error Reports
TXER	;EP; for Transaction error Report
GETDATES	;

External References

Name	Field # of Occurrence
DD^%DT	ED+1
C^%DTC	ED+4
^APCDDVD1	DRIVER+3
^APCDDVW	PRINT+1
EN2^APCDEKL	XIT+3
DEMOCHK^APCLUTL	DEMO+1
^DIC	CLN+6, O+1, S+1
^DIR	RDPV+3, BD+1, ED+1, LOC+3, CHS+2, CLN+2, ALLV+1, SORT+2, SORT+8, PPT+5 , DOPRV+4, DLPOV+5
^XBDBQUE	ZIS+2
$$VAL^XBDIQ1	S+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !! Line Location: CHS+2
Function Call: WRITE	Prompt: !!,"This report will be sorted by Patient Health Record Number." Line Location: SORT+6
Function Call: WRITE	Prompt: !!,"You have chosen to run the report of visits with No Primary Provider or Purpose",!,"of visit. You can list only those visits with certain ancillary visits",!,"attached to them.",! Line Location: PPT+2
Function Call: WRITE	Prompt: !!,"Do you wish to display the different ordering providers from the",!,"ancillary items (labs, meds, immunizations) with the visit.",!,"Displaying these will make the report longer in length but" Line Location: DOPRV+2
Function Call: WRITE	Prompt: !,"may assist you in visit merging or completion.",! Line Location: DOPRV+3
Function Call: WRITE	Prompt: !!,"Your lab personnel may be entering a diagnosis with the lab tests.",!,"You can display these diagnoses on this report. Displaying" Line Location: DLPOV+3
Function Call: WRITE	Prompt: !,"these may make the report a little longer but could assist you",!,"with billing and/or visit clean up.",! Line Location: DLPOV+4
Function Call: WRITE	Prompt: APCDBEEP,!,"Must be a valid date and be Today or earlier. Time not allowed!" Line Location: ERR+0
Routine Call	DIC Line Location: CLN+6 O+1 S+1
Routine Call	DIR Line Location: RDPV+3 BD+1 ED+1 LOC+3 CHS+2 CLN+2 ALLV+1 SORT+2 SORT+8 PPT+5 DOPRV+4 DLPOV+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTTLOC - [#9999999.06]	Classic Fileman Calls
^AUTTSU - [#9999999.22]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTSITE(1	RDPV+2
^XTMP("APCDDV"	DRIVER+2!, PRINT+2!

Label References

Name	Line Occurrences
@(	LOC+7
ALLV	CLN+4, SORT+3
BD	ED+2, ALLV+2
CHS	LOC+6, CLN+3
CLN	CLN+7
DEMO	PPT+1, DLPOV+2
DOPRV	DLPOV+6
GETDATES	LOC+4
LOC	LOC+8, CHS+3
PPT	SORT+5, DOPRV+5
RDPV	ZERO+1, PPPV+1, MRG+1, TXER+1, INPT+1, ALL+1
SORT	SORT+9, PPT+6, DEMO+2
XIT	RDPV+4, BD+2, ZIS+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	XIT+1!, XIT+4!
%DT	XIT+4!
%ZIS	XIT+4!
APCD	XIT+1!
APCDADM	XIT+1!
APCDBD	BD+3*, ED+1, ED+4, XIT+1!
APCDBDFN	XIT+2!
APCDBEEP	RDPV+1*, XIT+1!, ERR
APCDBT	DRIVER+1*, DRIVER+2, PRINT+2, XIT+1!
APCDCAT	XIT+1!
APCDCL	XIT+2!
APCDCLN	XIT+2!
>> APCDCLNL	CLN+1, CLN+8
APCDCLOC	XIT+2!
APCDCSRT	SORT+5, SORT+7, SORT+10*, XIT+2!
APCDDCHS	XIT+2!
APCDDEM	XIT+2!
APCDDEMM	XIT+2!
>> APCDDEMO	DEMO+1, DEMO+2
>> APCDDLPV	DLPOV+1, DLPOV+7
>> APCDDOPP	DOPRV+1, DOPRV+6
APCDDT	XIT+1!
>> APCDDV("VREC"	XIT+2!
APCDEC	XIT+1!
>> APCDECHS	CHS+1, CHS+4
APCDED	ED+3*, XIT+1!
APCDET	DRIVER+4*, XIT+1!
APCDFILE	XIT+1!
APCDH	XIT+2!
APCDHRN	XIT+2!
APCDJOB	DRIVER+1*, DRIVER+2, PRINT+2, XIT+1!
APCDL	XIT+1!
APCDLC	XIT+1!
APCDLOC	XIT+2!
APCDLOCT	LOC+1, LOC+5, LOC+6, LOC+7, XIT+2!
APCDLOCT("ONE"	O+3*
APCDLOCT("SU"	S+3*
APCDODAT	XIT+1!
APCDPAGE	XIT+1!
APCDPROC	RDPV+5*, BD+1, ED+1, XIT+1!
APCDPS	XIT+1!
APCDPVP	XIT+1!
APCDQIO	XIT+1!
APCDQUIT	LOC+8, XIT+2!, O+2, S+2
>> APCDRTYP	PPT+1, PPT+3, PPT+7*, DLPOV+2
APCDSD	ED+4*, XIT+1!
APCDSITE	RDPV+1, RDPV+2, XIT+1!
>> APCDSORT	SORT+1, SORT+4, SORT+5
APCDT	ZERO+1, PPPV+1, MRG+1, TXER+1, INPT+1, ALL+1, PPT+1, XIT+1!
APCDTYPE	XIT+1!
APCDVSET	ALLV+3*, XIT+2!
APCDVSIT	XIT+1!
APCDX	XIT+1!
APCPTX	XIT+1!
DA	LOC+3!, CHS+2!, CLN+2!, SORT+2!, PPT+5!, DOPRV+4!, DLPOV+5!
DIC	CLN+6!, O+1!, S+1*!
DIC("A"	O+1, S+1
DIC("B"	S+1*
DIC(0	CLN+6, O+1, S+1*
DIR	RDPV+3!, BD+1!, ED+1!, LOC+3!, CHS+2!, CLN+2!, ALLV+1!, SORT+2!, SORT+8!, PPT+5! , DOPRV+4!, DLPOV+5!
DIR("A"	RDPV+3, BD+1, ED+1, LOC+2, LOC+3, CHS+2, CLN+2, ALLV+1, SORT+2, SORT+8 , PPT+5, DOPRV+4, DLPOV+5*
DIR("B"	RDPV+3, ED+1, LOC+2, LOC+3, CHS+2, CLN+2, ALLV+1, SORT+2, SORT+8, PPT+5 , DOPRV+4, DLPOV+5
DIR(0	RDPV+3, BD+1, ED+1, LOC+2, CHS+2, CLN+2, ALLV+1, SORT+2, SORT+8, PPT+4 , PPT+5, DOPRV+4, DLPOV+5*
>> DIRUT	RDPV+3, RDPV+4, BD+1, BD+2, ED+1, ED+2, LOC+4, CHS+3, CLN+3, ALLV+2 , SORT+3, SORT+8, SORT+9, PPT+6, DOPRV+5, DLPOV+6
DLOUT	XIT+4!
DUOUT	RDPV+3, BD+1, ED+1, SORT+8, XIT+4!
DUZ(2	RDPV+1, RDPV+2, S+1
IO("Q"	XIT+1!, XIT+4!
X	ED+4, XIT+1!, XIT+4!
X1	ED+4*, XIT+1!, XIT+4!
X2	ED+4*, XIT+1!, XIT+4!
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	RDPV+5, BD+3, ED+1, ED+3, LOC+5, CHS+4, CLN+4, CLN+7, CLN+8, ALLV+3 , SORT+4, SORT+10, PPT+7, DOPRV+6, DLPOV+7, XIT+4!, O+2, O+3, S+2, S+3

Customize PDF page

Package: Patient Care Component

Routine: APCDDVD

Call Graph Total: 10