Routine: APCDDVL2

Package	Total	Call Graph
IHS VA Utilities	3	^XBDBQUE $$VAL^XBDIQ1 EN^XBVK
Patient Care Component Reports	2	($$DEMO,DEMOCHK)^APCLUTL ($$CLINIC,$$PRIMPOV,$$PRIMPROV)^APCLV
VA Fileman	2	DD^%DT ^DIR
IHS Patient	1	$$HRN^AUPNPAT
Kernel	1	($$FMADD,$$FMTE)^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
HDR	;header for report
DTC(V)	;any v tran code with an ordering provider? 1 or 0
DEMO	;
USR()	;EP - Return name of current user from ^VA(200.
DONE	;
ORDT(V)	;
PRINT	;EP - called from XBDBQUE
GETSORT	;get sort value
LOC()	;EP - Return location name from file 4 based on DUZ(2).
HDR1	;
CTR(X,Y)	;EP - Center X in a field Y wide.
INFORM	;let user know what is gong on
GETDATES	;
EOJ	;
SORT	;
ZIS	;call to XBDBQUE
ED	;get ending date
START	;
VCNT(V)	;return number of other visits on this date
PROCESS	;EP - called from XBDBQUE
INTRO	;;

External References

Name	Field # of Occurrence
DD^%DT	ED+1
$$DEMO^APCLUTL	PROCESS+8
DEMOCHK^APCLUTL	DEMO+1
$$CLINIC^APCLV	GETSORT+2, PRINT+9, PRINT+28
$$PRIMPOV^APCLV	PRINT+11, PRINT+28
$$PRIMPROV^APCLV	PRINT+11, PRINT+28
$$HRN^AUPNPAT	GETSORT+4, PRINT+9
^DIR	BD+1, ED+1, SORT+2, DONE+2, HDR+2
^XBDBQUE	ZIS+2
$$VAL^XBDIQ1	PRINT+18, PRINT+28
EN^XBVK	EOJ+1
$$FMADD^XLFDT	PROCESS+1
$$FMTE^XLFDT	PRINT+9, PRINT+18, PRINT+28, HDR1+2

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: !!,"NO DATA TO REPORT",! Line Location: PRINT+2
Function Call: WRITE	Prompt: !,$E($P(^DPT($P(APCDVR,U,5),0),U),1,15),?16,$$HRN^AUPNPAT($P(APCDVR,U,5),DUZ(2)),?23,$$FMTE^XLFDT($P(APCDVR,U),"5"),?40,$P(APCDVR,U,7),?42,$$CLINIC^APCLV(APCDV,"C") Line Location: PRINT+9
Function Call: WRITE	Prompt: ?45,$E($$PRIMPROV^APCLV(APCDV,"N"),1,20),?67,$$PRIMPOV^APCLV(APCDV,"C") Line Location: PRINT+11
Function Call: WRITE	Prompt: ?10,$$VAL^XBDIQ1(9000010.33,APCDX,.01)," ",$E($$VAL^XBDIQ1(90092.02,$P(^AUPNVTC(APCDX,0),U),.019),1,30),?54,$$FMTE^XLFDT($P(^AUPNVTC(APCDX,12),U,11),"5"),?65,$E($$VAL^XBDIQ1(9000010.33,APCDX,1202),1,15) Line Location: PRINT+18
Function Call: WRITE	Prompt: ! Line Location: PRINT+25
Function Call: WRITE	Prompt: ?3,"Order date vsts: " Condition for execution: C=1 Line Location: PRINT+25
Function Call: WRITE	Prompt: ?21,$$FMTE^XLFDT($P(^AUPNVSIT(APCDX,0),U),"5"),?40,$P(^AUPNVSIT(APCDX,0),U,7),?44,$$CLINIC^APCLV(APCDX,"C"),?42,$E($$VAL^XBDIQ1(9000010,APCDX,.22),1,15),?60,$E($$PRIMPROV^APCLV(APCDX,"N"),1,15),?76,$$PRIMPOV^APCLV(APCDX,"C") Line Location: PRINT+28
Function Call: WRITE	Prompt: ! Line Location: HDR+2
Function Call: WRITE	Prompt: $P(^VA(200,DUZ,0),U,2),$$CTR($$FMTE^XLFDT(DT)),?71,"Page ",APCDPG,! Line Location: HDR1+2
Function Call: WRITE	Prompt: $$CTR($$LOC),! Line Location: HDR1+3
Function Call: WRITE	Prompt: $$CTR("DTC Visits with No Billing Link"),! Line Location: HDR1+4
Function Call: WRITE	Prompt: !?3,"PATIENT NAME",?17,"HRN",?22,"VISIT DATE",?39,"SC",?42,"CL",?45,"PRIM PROVIDER",?67,"PRIM POV",! Line Location: HDR1+7
Function Call: WRITE	Prompt: $TR($J(" ",80)," ","-"),! Line Location: HDR1+9
Function Call: WRITE	Prompt: !!,$$CTR($$LOC,80) Line Location: INFORM+2
Function Call: WRITE	Prompt: !,$$CTR($$USR,80),!! Line Location: INFORM+3
Function Call: WRITE	Prompt: !,X Line Location: INFORM+4
Routine Call	DIR Line Location: BD+1 ED+1 SORT+2 DONE+2 HDR+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPOV("AD"	VCNT+8
^AUPNVPRV("AD"	VCNT+8
^AUPNVSIT - [#9000010]	PROCESS+8, PROCESS+9, PROCESS+10, GETSORT+1, GETSORT+4, PRINT+6, PRINT+20, PRINT+23, PRINT+28, DTC+2 , ORDT+2, VCNT+2, VCNT+4, VCNT+5, VCNT+8
^AUPNVSIT("AA"	PRINT+22, PRINT+23, VCNT+7, VCNT+8
^AUPNVSIT("B"	PROCESS+4, PROCESS+6
^AUPNVTC - [#9000010.33]	PRINT+13, PRINT+18, DTC+5, ORDT+5
^AUPNVTC("AD"	PRINT+13, DTC+3, DTC+5, ORDT+3, ORDT+5
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	PRINT+9
^VA(200 - [#200]	HDR1+2, USR+1
^XTMP("APCDDVL2"	PROCESS+1, PROCESS+12, PRINT+2, PRINT+3, PRINT+4, DONE+1!

Label References

Name	Line Occurrences
$$CTR	HDR1+2, HDR1+3, HDR1+4, INFORM+2, INFORM+3
$$DTC	PROCESS+7
$$LOC	HDR1+3, INFORM+2
$$ORDT	PRINT+20
$$USR	INFORM+3
BD	ED+2, DEMO+2
DONE	PRINT+2
ED	SORT+3
EOJ	START+1, BD+2, ZIS+3
GETSORT	PROCESS+11
HDR	PRINT+1, PRINT+2, PRINT+5, PRINT+14, PRINT+24
HDR1	HDR+1
INFORM	START+2

Naked Globals

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCDBD	BD+3*, ED+1, PROCESS+3
APCDBT	PROCESS+2*, PROCESS+12, PRINT+2, PRINT+3, PRINT+4, DONE+1!
>> APCDCSRT	SORT+1, SORT+4, GETSORT+1, GETSORT+2, GETSORT+5
>> APCDDEMO	DEMO+1, DEMO+2, PROCESS+8
>> APCDED	ED+3*, PROCESS+3
>> APCDEND	PROCESS+3*, PROCESS+4
APCDJ	PROCESS+2*, PROCESS+12, PRINT+2, PRINT+3, PRINT+4, DONE+1!
>> APCDPG	PRINT+1, HDR+1, HDR1+1, HDR1+2
>> APCDQUIT	PRINT+1, PRINT+3, PRINT+4, PRINT+5, PRINT+13, PRINT+14, PRINT+22, PRINT+23, PRINT+24, HDR+2
>> APCDSORT	PROCESS+11, PROCESS+12, GETSORT+1, GETSORT+2, GETSORT+4, GETSORT+6, PRINT+3, PRINT+4
>> APCDT	PROCESS+3, PROCESS+4, PROCESS+6
>> APCDV	PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+12, GETSORT+1, GETSORT+2, GETSORT+4 , PRINT+4*, PRINT+6, PRINT+9, PRINT+11, PRINT+13, PRINT+20, PRINT+23
>> APCDVR	PRINT+6*, PRINT+9
>> APCDX	PRINT+13, PRINT+18, PRINT+23, PRINT+28
C	PRINT+13, PRINT+15, PRINT+23, PRINT+25, DTC+4~, DTC+5, DTC+6, ORDT+4~, ORDT+5, ORDT+6 , VCNT+3~, VCNT+6, VCNT+8, VCNT+9
>> C1	VCNT+6, VCNT+8, VCNT+9
D	PRINT+20, PRINT+21, VCNT+3~, VCNT+5, VCNT+6
DATE	PRINT+21, PRINT+22, PRINT+23, VCNT+3~, VCNT+6, VCNT+7, VCNT+8
DIR	BD+1!, ED+1!, SORT+2!, DONE+2!, HDR+2!
DIR("A"	BD+1, ED+1, SORT+2, DONE+2
DIR("B"	SORT+2*
DIR(0	BD+1, ED+1, SORT+2, DONE+2, HDR+2*
>> DIRUT	BD+1, BD+2, ED+1, ED+2, SORT+2, SORT+3, DONE+2
DT	PROCESS+1, HDR1+2
>> DTOUT	HDR+2
>> DUOUT	BD+1, ED+1, SORT+2, DONE+2
DUZ	HDR1+2, USR+1
DUZ(2	PROCESS+10, GETSORT+4, PRINT+9, LOC+1
END	PRINT+21, PRINT+22, VCNT+3~, VCNT+6, VCNT+7
I	INFORM+4*, INFORM+5!
IO	DONE+2, HDR+2
IO(0	DONE+2, HDR+2
IOF	DONE+3, HDR1+1, INFORM+1
IOM	CTR+1
IOSL	PRINT+5, PRINT+14, PRINT+24
IOST	DONE+2, HDR+2
P	PRINT+20, PRINT+22, PRINT+23, VCNT+3~, VCNT+4, VCNT+7, VCNT+8
U	PROCESS+8, PROCESS+9, PROCESS+10, GETSORT+1, GETSORT+4, PRINT+9, PRINT+13, PRINT+18, PRINT+20, PRINT+23 , PRINT+28, DTC+5, ORDT+5, VCNT+4, VCNT+5, VCNT+8, VCNT+9, HDR1+2, USR+1, LOC+1
V	DTC~, DTC+1, DTC+2, DTC+3, DTC+5, ORDT~, ORDT+1, ORDT+2, ORDT+3, ORDT+5 , VCNT~, VCNT+1, VCNT+2, VCNT+4, VCNT+5, VCNT+8
X	DTC+5, ORDT+5, VCNT+3~, VCNT+8, CTR~, CTR+1, INFORM+4, INFORM+5!
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	BD+3, ED+1*, ED+3, SORT+4, VCNT+3~, HDR+2, CTR~, CTR+1

Marked Items

Name	Field # of Occurrence
$T(INTRO+I	INFORM+4

Customize PDF page

Package: Patient Care Component

Routine: APCDDVL2

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items