Routine: APCDDVL1

Information

APCDDVL1 ; IHS/CMI/LAB - report on checked in visits with no pov ;

Source Information

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
IHS VA Utilities	3	^XBDBQUE $$VAL^XBDIQ1 EN^XBVK
VA Fileman	3	DD^%DT ^DIC ^DIR
Patient Care Component Reports	2	($$DEMO,DEMOCHK)^APCLUTL ($$CLINIC,$$PRIMPROV)^APCLV
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
EOJ	;
USR()	;EP - Return name of current user from ^VA(200.
DONE	;
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	;
DEMO	;
SORT	;
ZIS	;call to XBDBQUE
ED	;get ending date
START	;
WHICH	;
HLOC	;
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+12
DEMOCHK^APCLUTL	DEMO+1
$$CLINIC^APCLV	GETSORT+1, GETSORT+2, PRINT+8
$$PRIMPROV^APCLV	PRINT+9
$$HRN^AUPNPAT	GETSORT+4, PRINT+8
^DIC	HLOC+1
^DIR	BD+1, ED+1, WHICH+4, SORT+3, DONE+2, HDR+2
^XBDBQUE	ZIS+2
$$VAL^XBDIQ1	PROCESS+11, PRINT+9
EN^XBVK	EOJ+1
$$FMADD^XLFDT	PROCESS+1
$$FMTE^XLFDT	PRINT+8, HDR1+2, HDR1+5

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: !!,"*** NOTE: If you pick Visit date order the report will be sorted by Visit date",!,"and sub-sorted by clinic code. All others will be sub-sorted by visit date." Line Location: SORT+2
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)),?42,$P(APCDVR,U,7),?45,$$CLINIC^APCLV(APCDV,"C") Line Location: PRINT+8
Function Call: WRITE	Prompt: ?48,$E($$VAL^XBDIQ1(9000010,APCDV,.22),1,15),?64,$$PRIMPROV^APCLV(APCDV,"P") Line Location: PRINT+9
Function Call: WRITE	Prompt: ?72,$P(C,U)," ",$P(C,U,2) Line Location: PRINT+10
Function Call: WRITE	Prompt: !!,"Total Number of Visits: ",APCDTOT Line Location: PRINT+16
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("CHECKED IN VISITS WITH NO POV (NOT YET CODED)"),! Line Location: HDR1+4
Function Call: WRITE	Prompt: $$CTR(%),! Line Location: HDR1+5
Function Call: WRITE	Prompt: "** Last column is the number of other visits on the same day and the",!," # of those visits that are complete",!! Line Location: HDR1+6
Function Call: WRITE	Prompt: ?3,"PATIENT NAME",?17," HRN",?23,"VISIT DATE&TIME",?42,"SC",?45,"CL",?48,"HOSPITAL LOC",?64,"PROV",?72,"# visits",! Line Location: HDR1+7
Function Call: WRITE	Prompt: $TR($J(" ",80)," ","-"),! Line Location: HDR1+8
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	DIC Line Location: HLOC+1
Routine Call	DIR Line Location: BD+1 ED+1 WHICH+4 SORT+3 DONE+2 HDR+2

FileNo	Call Tags
^SC - [#44]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPOV("AD"	PROCESS+14, VCNT+8
^AUPNVPRV("AD"	VCNT+8
^AUPNVSIT - [#9000010]	PROCESS+12, PROCESS+13, PROCESS+15, PROCESS+16, GETSORT+1, GETSORT+2, GETSORT+4, PRINT+7, VCNT+2, VCNT+4 , VCNT+5, VCNT+8
^AUPNVSIT("AA"	VCNT+7, VCNT+8
^AUPNVSIT("B"	PROCESS+8, PROCESS+10
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	PRINT+8
^VA(200 - [#200]	HDR1+2, USR+1
^XTMP("APCDDVL1"	PROCESS+1, PROCESS+18, PRINT+2, PRINT+3, PRINT+4, PRINT+5, DONE+1!

Label References

Name	Line Occurrences
$$CTR	HDR1+2, HDR1+3, HDR1+4, HDR1+5, INFORM+2, INFORM+3
$$LOC	HDR1+3, INFORM+2
$$USR	INFORM+3
$$VCNT	PRINT+10
BD	ED+2, WHICH+5, SORT+4, DEMO+2
DONE	PRINT+2, PRINT+14, PRINT+15
EOJ	START+1, BD+2, ZIS+3
GETSORT	PROCESS+17
HDR	PRINT+1, PRINT+6, PRINT+15
HDR1	HDR+1
HLOC	HLOC+5
INFORM	START+2
SORT	WHICH+6, HLOC+2, HLOC+3

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	HDR1+5~*
>> APCDBD	BD+3*, ED+1, PROCESS+7, HDR1+5
APCDBT	PROCESS+2*, PROCESS+18, PRINT+2, PRINT+3, PRINT+4, PRINT+5, DONE+1!
>> APCDCSRT	SORT+1, SORT+5, GETSORT+1, GETSORT+2, GETSORT+6
>> APCDDEMO	DEMO+1, DEMO+2, PROCESS+12
>> APCDED	ED+3*, PROCESS+7, HDR1+5
>> APCDEND	PROCESS+7*, PROCESS+8
APCDHLOC	WHICH+1!, WHICH+6!, HLOC+2, HLOC+3, PROCESS+16
APCDHLOC(	HLOC+4*, PROCESS+16
APCDJ	PROCESS+2*, PROCESS+18, PRINT+2, PRINT+3, PRINT+4, PRINT+5, DONE+1!
>> APCDPG	PRINT+1, HDR+1, HDR1+1, HDR1+2
>> APCDQUIT	PRINT+1, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+14, PRINT+15, HDR+2
>> APCDSORT	PROCESS+17, PROCESS+18, GETSORT+1, GETSORT+2, GETSORT+4, GETSORT+5, GETSORT+7, PRINT+3, PRINT+4, PRINT+5
>> APCDSSRT	PROCESS+18, GETSORT+1, GETSORT+2, GETSORT+4, PRINT+4, PRINT+5
>> APCDT	PROCESS+7, PROCESS+8, PROCESS+10
>> APCDTOT	PROCESS+2, PROCESS+18, PRINT+16
>> APCDV	PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+12, PROCESS+13, PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+18, GETSORT+1 , GETSORT+2, GETSORT+4, PRINT+5*, PRINT+7, PRINT+8, PRINT+9, PRINT+10
>> APCDVR	PRINT+7*, PRINT+8
C	PRINT+10, VCNT+3~, VCNT+6, VCNT+8*, VCNT+9
>> C1	VCNT+6, VCNT+8, VCNT+9
D	VCNT+3~, VCNT+5*, VCNT+6
DA	WHICH+4!
DATE	VCNT+3~, VCNT+6, VCNT+7, VCNT+8
DIC	HLOC+1*!
DIC("A"	HLOC+1*
DIC(0	HLOC+1*
DIR	BD+1!, ED+1!, WHICH+2!, WHICH+4!, SORT+3!, DONE+2!, HDR+2!
DIR("A"	BD+1, ED+1, WHICH+4, SORT+3, DONE+2*
DIR("B"	WHICH+4, SORT+3
DIR(0	BD+1, ED+1, WHICH+3, SORT+3, DONE+2, HDR+2
>> DIRUT	BD+1, BD+2, ED+1, ED+2, WHICH+5, SORT+3, SORT+4, DONE+2
DT	PROCESS+1, HDR1+2
>> DTOUT	HDR+2
>> DUOUT	BD+1, ED+1, SORT+3, DONE+2
DUZ	HDR1+2, USR+1
DUZ(2	PROCESS+13, GETSORT+4, PRINT+8, LOC+1
END	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+6, PRINT+15
IOST	DONE+2, HDR+2
P	VCNT+3~, VCNT+4*, VCNT+7, VCNT+8
U	PROCESS+12, PROCESS+13, PROCESS+15, PROCESS+16, GETSORT+1, GETSORT+2, GETSORT+4, PRINT+8, PRINT+10, VCNT+4 , VCNT+5, VCNT+8, VCNT+9, HDR1+2, USR+1, LOC+1
V	VCNT~, VCNT+1, VCNT+2, VCNT+4, VCNT+5, VCNT+8
X	HLOC+2, PROCESS+16, 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, WHICH+6, HLOC+3, HLOC+4, SORT+5, VCNT+3~, HDR+2, CTR~ , CTR+1

Customize PDF page

Package: Patient Care Component

Routine: APCDDVL1

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items