Routine: AZXBV1

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

Entry Points

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

External References

Name	Field # of Occurrence
DD^%DT	VWRT+2, PROV+3, 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
$$PROVCLSC^XBFUNC1	CHKDISC+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No visits to report",! Line Location: START+5
Function Call: WRITE	Prompt: !,"No visits to report",! Line Location: ALL1+2
Function Call: WRITE	Prompt: !?8,"Visit Date",?21,"Category",?37,"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: ! Line Location: PROV+1
Function Call: WRITE	Prompt: !?8,"DISCHARGE DATE: ",Y Line Location: PROV+3
Function Call: WRITE	Prompt: ! Condition for execution: APCL2>1 Line Location: WPOV+4
Function Call: WRITE	Prompt: ?41,$P(^ICD9($P(APCLX,U),0),U),?49,$E($P(^AUTNPOV($P(APCLX,U,4),0),U),1,25) Line Location: WPOV+4
Function Call: WRITE	Prompt: ! Condition for execution: APCLP1>1 Line Location: WPRV+6
Function Call: WRITE	Prompt: ?10,APCLPSP,?15,$E(APCLAPP,1,20) Line Location: WPRV+6
Function Call: WRITE	Prompt: ?41,"POTENTIAL BILLABLE VISIT*" Line Location: WPRV+6
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]	PROV+3
^AUPNVINP("AD"	PROV+3
^AUPNVPOV - [#9000010.07]	VWRT+11
^AUPNVPOV("AD"	VWRT+11
^AUPNVPRV - [#9000010.06]	VWRT+7, PROV+2, WPRV+3, WPRV+5
^AUPNVPRV("AD"	VWRT+7, PROV+2
^AUPNVSIT - [#9000010]	VISIT+3
^AUTNPOV - [#9999999.27]	WPOV+4
^AUTTSITE(1	WPRV+4, CHKDISC+1
^DIC(16 - [#16]	WPRV+4
^DIC(4 - [#4]	HEAD1+2
^DIC(40.7 - [#40.7]	HEAD1+8
^DIC(6 - [#6]	WPRV+4, CHKDISC6+1, CHKDISC6+2
^DIC(7 - [#7]	CHKDISC6+4, CHKDISC6+5
^DPT - [#2]	HD+1, HD+3
^ICD9 - [#80]	WPOV+4
^UTILITY("DIQ1"	VWRT+3!, VWRT+6
^VA(200 - [#200]	WPRV+4
^XTMP("APCLBV"	START+5, START+7, ALL+3!, ALL1+2, DONE+2!, PTN+1, DFN+1, VISIT+3

Label References

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

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
>> APCL2	VWRT+7, VWRT+11, WPOV+1, WPOV+4
>> APCL80D	START+2*, HEAD1+10
>> APCL80E	START+1*
>> APCLAP	VWRT+7*, CHKDISC+2, CHKDISC6+1, CHKDISC6+2
>> APCLAPP	WPRV+4*, WPRV+6
>> APCLBT	START+5, START+7, ALL+3, 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+5, START+7, ALL+3, ALL1+2, DONE+2, PTN+1, DFN+1, VISIT+3
>> APCLLENG	HEAD1+3, HEAD1+4, HEAD1+6, HEAD1+8*
>> APCLNAR(	HEAD1+3, HEAD1+4
>> APCLP	PROV+2*, WPRV+3, WPRV+5
>> APCLP1	PROV+2*, WPRV+6
>> APCLPALL	START+4, START+7
>> APCLPG	START+3, HEAD+1, HEAD1+1, HEAD1+2
>> APCLPN	START+3, START+6, START+7, START+8, ALL1+2, PTN+1*, DFN+1, VISIT+3, HD+4
>> APCLPPP	PROV+2*
>> APCLPROC	ALL+1*, PTN+1, DFN+1
>> APCLPS1	WPRV+3*, WPRV+4
>> APCLPSP	WPRV+5*, WPRV+6
APCLQUIT	START+6!, START+7, START+8, START+10, ALL+1, ALL+2, ALL1+1, ALL1+2!, PTN+1, DFN+1 , VISIT+3, VWRT+1, VWRT+11, PROV+2, WPOV+1, HEAD+2*
>> APCLRNUM	START+7, ALL+1*, ALL1+2, PTN+1, DFN+1, VISIT+3, HEAD1+3, HEAD1+4
>> APCLSCP	HEAD1+6
>> APCLSDY	HEAD1+5
>> APCLSU	HD+2, HEAD1+2
>> APCLVDFN	VISIT+3*, VWRT+5, VWRT+6, VWRT+7, VWRT+11, PROV+2, PROV+3
>> APCLVREC	VISIT+3*, VWRT+2
>> APCLX	VWRT+11*, WPOV+2, WPOV+3, WPOV+4
>> 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+10, VWRT+1, WPOV+1
IOST	HEAD+2
>> SSN	HD+3*, HD+4
U	VWRT+7, PROV+3, WPOV+2, WPOV+3, WPOV+4, WPRV+3, WPRV+4, WPRV+5, CHKDISC+1, CHKDISC6+2 , CHKDISC6+5, HD+1, HD+2, HD+3, HEAD1+2, HEAD1+8
>> Y	VWRT+2, PROV+3, HD+1*, HEAD+2

Customize PDF page

Package: Phoenix Devel Center

Routine: AZXBV1

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: