Routine: APCLBV1

Package	Total	Call Graph
VA Fileman	3	DD^%DT EN^DIQ1 ^DIR
IHS VA Utilities	2	$$VAL^XBDIQ1 $$PROVCLSC^XBFUNC1
Patient Care Component Reports	2	(1,2,4,5,6)^APCLBV11 DONE^APCLOSUT
DRG Grouper	1	$$ICDDX^ICDEX

Package	Total	Caller Graph
Patient Care Component Reports	1	APCLBV11

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;ENTRY POINT
PTN	;process patient name level
ALL	;print ALL coverage reports
HEAD1	;
CHKDISC	;
CHKDISC6	;
6	;Non-Indians
VISIT	;ENTRY POINT
WPOV	;
1	;Commissioned Officers/Dependents
START	;
3	;Medicare Part B
DFN	;
DONE	;
4	;Private Insurance
ALL1	;
VWRT	;
2	;Medicare Part A
5	;Medicaid
HD	;ENTRY POINT

External References

Name	Field # of Occurrence
DD^%DT	VWRT+2, VWRT+12, HD+1
1^APCLBV11	1+1
2^APCLBV11	2+1, 3+1
4^APCLBV11	4+1
5^APCLBV11	5+1
6^APCLBV11	6+1
DONE^APCLOSUT	DONE+1
EN^DIQ1	VWRT+5
^DIR	HEAD+2
$$ICDDX^ICDEX	WPOV+5
$$VAL^XBDIQ1	WPOV+5
$$PROVCLSC^XBFUNC1	CHKDISC+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No visits to report",! Line Location: START+4
Function Call: WRITE	Prompt: !!,"Total Number of Visits for ",APCLNAR(APCLRNUM),": ",APCLT1 Line Location: START+9
Function Call: WRITE	Prompt: !!,"Total Number of Visits for ",APCLNAR(APCLRNUM),": ",APCLT2 Line Location: START+10
Function Call: WRITE	Prompt: !!,"Total Number of Visits for ",APCLNAR(APCLRNUM),": ",APCLT3 Line Location: START+11
Function Call: WRITE	Prompt: !!,"Total Number of Visits for ",APCLNAR(APCLRNUM),": ",APCLT4 Line Location: START+12
Function Call: WRITE	Prompt: !!,"Total Number of Visits for ",APCLNAR(APCLRNUM),": ",APCLT5 Line Location: START+13
Function Call: WRITE	Prompt: !!,"Total Number of Visits for ",APCLNAR(APCLRNUM),": ",APCLT6 Line Location: START+14
Function Call: WRITE	Prompt: ! Line Location: START+15
Function Call: WRITE	Prompt: !!,"Total Number of Visits: ",APCLTOTV Line Location: ALL+3
Function Call: WRITE	Prompt: !,"No visits to report",! Line Location: ALL1+2
Function Call: WRITE	Prompt: !!,"Total Number of Visits for ",APCLNAR(APCLRNUM),": ",APCLT1 Line Location: PTN+4
Function Call: WRITE	Prompt: !!,"Total Number of Visits for ",APCLNAR(APCLRNUM),": ",APCLT2 Line Location: PTN+5
Function Call: WRITE	Prompt: !!,"Total Number of Visits for ",APCLNAR(APCLRNUM),": ",APCLT3 Line Location: PTN+6
Function Call: WRITE	Prompt: !!,"Total Number of Visits for ",APCLNAR(APCLRNUM),": ",APCLT4 Line Location: PTN+7
Function Call: WRITE	Prompt: !!,"Total Number of Visits for ",APCLNAR(APCLRNUM),": ",APCLT5 Line Location: PTN+8
Function Call: WRITE	Prompt: !!,"Total Number of Visits for ",APCLNAR(APCLRNUM),": ",APCLT6 Line Location: PTN+9
Function Call: WRITE	Prompt: ! Line Location: PTN+10
Function Call: WRITE	Prompt: !?8,"Visit Date",?21,"Category",?37,"PRV",?41,"ICD DX",?51,"PROVIDER NARRATIVE" Line Location: VISIT+1
Function Call: WRITE	Prompt: !?8 Line Location: VISIT+2
Function Call: WRITE	Prompt: "-" Line Location: VISIT+2
Function Call: WRITE	Prompt: !?8,APCLDATE,?21,APCLCAT,?37,APCLDISC Line Location: VWRT+10
Function Call: WRITE	Prompt: !?8,"DISCHARGE DATE: ",Y Line Location: VWRT+12
Function Call: WRITE	Prompt: ?41,$P(^ICD9($P(APCLX,U),0),U),?49,$E($P(^AUTNPOV($P(APCLX,U,4),0),U),1,20) Line Location: WPOV+4
Function Call: WRITE	Prompt: ! Condition for execution: APCL2>1 Line Location: WPOV+5
Function Call: WRITE	Prompt: ?41,$P($$ICDDX^ICDEX($P(APCLX,U)),U,2),?51,$E($$VAL^XBDIQ1(9000010.07,APCL1,.04),1,20) Line Location: WPOV+5
Function Call: WRITE	Prompt: !!,APCLHRN,?8,APCLPN,?40,DOB,?60,SSN Line Location: HD+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: ?(80-$L($P(^DIC(4,APCLSU,0),U))/2),$P(^DIC(4,APCLSU,0),U),?72,"Page ",APCLPG,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: ?((80-APCLLENG)/2),"POTENTIALLY BILLABLE VISITS FOR: ",APCLNAR(APCLRNUM),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: ?19,"Visit Dates: ",APCLSDY," and ",APCLEDY,! Line Location: HEAD1+5
Function Call: WRITE	Prompt: ?((80-APCLLENG)/2),"SERVICE CATEGORY OF VISIT: ",APCLSCP Line Location: HEAD1+6
Function Call: WRITE	Prompt: ! Line Location: HEAD1+8
Function Call: WRITE	Prompt: ?((80-APCLLENG)/2),"CLINIC: ",$P(^DIC(40.7,APCLCLN,0),U) Line Location: HEAD1+8
Function Call: WRITE	Prompt: !!?2,"HRCN",?8,"Patient Name",?40,"Date of Birth",?60," SSN" Line Location: HEAD1+9
Function Call: WRITE	Prompt: !,APCL80D Line Location: HEAD1+10
Routine Call	DIR Line Location: HEAD+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVSIT - [#9000010]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	HD+2
^AUPNVINP - [#9000010.02]	VWRT+12
^AUPNVINP("AD"	VWRT+12
^AUPNVPOV - [#9000010.07]	VWRT+11
^AUPNVPOV("AD"	VWRT+11
^AUPNVPRV - [#9000010.06]	VWRT+7
^AUPNVPRV("AD"	VWRT+7
^AUPNVSIT - [#9000010]	VISIT+3
^DD(9000010.06	CHKDISC+1
^DIC(4 - [#4]	HEAD1+2
^DIC(40.7 - [#40.7]	HEAD1+8
^DIC(6 - [#6]	CHKDISC6+1, CHKDISC6+2
^DIC(7 - [#7]	CHKDISC6+4, CHKDISC6+5
^DPT - [#2]	HD+1, HD+3
^UTILITY("DIQ1"	VWRT+3!, VWRT+6
^XTMP("APCLBV"	START+4, START+7, ALL1+2, DONE+2!, PTN+1, DFN+1, VISIT+3

Label References

Name	Line Occurrences
@(	DFN+1
ALL	START+5
ALL1	ALL+1
CHKDISC	VWRT+9
CHKDISC6	CHKDISC+1
DFN	START+7, PTN+1
DONE	START+4, START+8, START+16, ALL+2, ALL+4
HEAD	START+4, START+7, START+8, ALL+2, ALL1+1, PTN+3, VWRT+1, WPOV+1
HEAD1	HEAD+1
PTN	ALL+1
VWRT	VISIT+3
WPOV	VWRT+11

Naked Globals

Name	Field # of Occurrence
^(0	VWRT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCL1	VWRT+7, VWRT+8, VWRT+11, WPOV+5
>> APCL2	VWRT+7, VWRT+11, WPOV+1, WPOV+5
>> APCL80D	START+2*, HEAD1+10
>> APCL80E	START+1*
>> APCLAP	VWRT+7*, CHKDISC+2, CHKDISC6+1, CHKDISC6+2
>> APCLBT	START+4, START+7, ALL1+2, DONE+2, PTN+1, DFN+1, VISIT+3
>> APCLCAT	VWRT+6*, VWRT+10
>> APCLCLN	HEAD1+8
>> APCLCNTR	ALL+1*
>> APCLDATE	VWRT+2*, VWRT+10
>> APCLDISC	VWRT+9, VWRT+10, CHKDISC+2, CHKDISC6+5*
>> APCLEDY	HEAD1+5
>> APCLHRN	HD+2*, HD+4
>> APCLJOB	START+4, START+7, ALL1+2, DONE+2, PTN+1, DFN+1, VISIT+3
>> APCLLENG	HEAD1+3, HEAD1+4, HEAD1+6, HEAD1+8*
>> APCLNAR(	START+9, START+10, START+11, START+12, START+13, START+14, PTN+4, PTN+5, PTN+6, PTN+7 , PTN+8, PTN+9, HEAD1+3, HEAD1+4
>> APCLPALL	START+5
>> APCLPG	START+3, HEAD+1, HEAD1+1, HEAD1+2
>> APCLPN	START+3, START+6, START+7, ALL1+2, PTN+1*, DFN+1, VISIT+3, HD+4
>> APCLPROC	ALL+1*, PTN+1, DFN+1
APCLQUIT	START+6!, START+7, START+8, ALL+1, ALL+2, ALL1+1, ALL1+2!, PTN+1, PTN+3, DFN+1 , VISIT+3, VWRT+1, VWRT+11, WPOV+1, HEAD+2*
>> APCLRNUM	START+7, START+9, START+10, START+11, START+12, START+13, START+14, ALL+1*, ALL1+2, PTN+1 , PTN+4, PTN+5, PTN+6, PTN+7, PTN+8, PTN+9, DFN+1, VISIT+3, HEAD1+3, HEAD1+4
>> APCLSCP	HEAD1+6
>> APCLSDY	HEAD1+5
>> APCLSU	HD+2, HEAD1+2
>> APCLT1	START+9, PTN+4
>> APCLT2	START+10, PTN+5
>> APCLT3	START+11, PTN+6
>> APCLT4	START+12, PTN+7
>> APCLT5	START+13, PTN+8
>> APCLT6	START+14, PTN+9
>> APCLTOTV	ALL+3
>> APCLVDFN	VISIT+3*, VWRT+5, VWRT+6, VWRT+7, VWRT+11, VWRT+12
>> APCLVREC	VISIT+3*, VWRT+2
>> APCLX	VWRT+11*, WPOV+2, WPOV+3, WPOV+5
>> APCLY	CHKDISC6+2*, CHKDISC6+3, CHKDISC6+4, CHKDISC6+5
DA	VWRT+4!, VWRT+5*!
>> DFN	DFN+1*, VISIT+3, HD+1, HD+2, HD+3
DIC	VWRT+4!, VWRT+5*!
DIQ	VWRT+4!, VWRT+5!
DIQ(0	VWRT+5*
DIR	HEAD+2!
DIR(0	HEAD+2*
>> DOB	HD+1*, HD+4
DR	VWRT+4!, VWRT+5*!
>> DTOUT	HEAD+2
>> I	VISIT+2*
IO	HEAD+2
IO(0	HEAD+2
IOF	HEAD1+1
IOSL	START+8, ALL+2, PTN+3, VWRT+1, WPOV+1
IOST	HEAD+2
>> SSN	HD+3*, HD+4
U	VWRT+7, VWRT+12, WPOV+2, WPOV+3, WPOV+5, CHKDISC+1, CHKDISC6+2, CHKDISC6+5, HD+1, HD+2 , HD+3, HEAD1+2, HEAD1+8
>> Y	VWRT+2, VWRT+12, HD+1*, HEAD+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLBV1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: