Routine: APCLTAX

Package	Total	Call Graph
VA Fileman	4	DD^%DT (,C)^%DTC ^DIC ^DIR
Patient Care Component Reports	1	($$DEMO,DEMOCHK)^APCLUTL
Taxonomy	1	$$ICD^ATXAPI

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
SEARCH	;
END	;EOJ
START	;
ED	;get ending date
V	; Run by visit date
TAX	;get icd taxonomy
DXHIT	;
V1	;
INFORM	;
GETDATES	;
XIT	;
DEMO	;
GO	;process
PROC	;

External References

Name	Field # of Occurrence
DD^%DT	ED+1
^%DTC	PROC+4, PROC+7
C^%DTC	ED+4
$$DEMO^APCLUTL	PROC+2
DEMOCHK^APCLUTL	DEMO+1
$$ICD^ATXAPI	DXHIT+5
^DIC	TAX+3, SEARCH+4
^DIR	BD+1, ED+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?20,"*******HOSPITAL DISCHARGE BY RANGE OF TAXONOMY*****",! Line Location: INFORM+2
Function Call: WRITE	Prompt: !!,?40,"TEMPLATE CREATION",!! Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"This is a special report written to create a patient search template.",!,"The patients selected will be based on the following criteria:",!,?5,"- living patients with a discharge in a user defined time frame" Line Location: INFORM+4
Function Call: WRITE	Prompt: !?5,"- excluding patients discharged before they were 10 days old",!?5,"- excluding patients whose LOS was less than 1",!?5,"- excluding patients whose primary dx is not in a user selected taxonomy",! Line Location: INFORM+5
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: ! Line Location: SEARCH+3
Function Call: WRITE	Prompt: !!,"No Search Template selected." Line Location: SEARCH+5
Function Call: WRITE	Prompt: !!,"An unduplicated patient list resulting from this report will be stored in the",!!?20," ",Y(0,0)," Search Template." Line Location: SEARCH+6
Function Call: WRITE	Prompt: !!,"OKAY -- HOLD ON WHILE I FIND ALL THE DISCHARGES..." Line Location: GO+1
Function Call: WRITE	Prompt: !!,"ALL DONE - FOUND ",APCLPCNT," PATIENTS.",! Line Location: V+3
Function Call: WRITE	Prompt: "." Line Location: DXHIT+8
Routine Call	DIC Line Location: TAX+3 SEARCH+4
Routine Call	DIR Line Location: BD+1 ED+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ATXAX - [#9002226]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVINP - [#9000010.02]	V1+1
^AUPNVINP("B"	V+1, V1+1
^AUPNVPOV - [#9000010.07]	DXHIT+1, DXHIT+5
^AUPNVPOV("AD"	DXHIT+1, DXHIT+2
^AUPNVSIT - [#9000010]	PROC+7
^DIBT(	SEARCH+6!, DXHIT+7*
^DPT - [#2]	PROC+3, PROC+4

Label References

Name	Line Occurrences
BD	ED+2, TAX+4
PROC	V1+1
SEARCH	DEMO+2
TAX	SEARCH+5
V1	V+1
XIT	BD+2, END+1

Naked Globals

Name	Field # of Occurrence
^(0	V1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	XIT+4!
APCL1	DXHIT+1*, XIT+1!
APCL2	XIT+1!
APCL80S	XIT+2!
APCLADIS	XIT+2!
APCLAP	XIT+1!
APCLAPCC	XIT+1!
APCLBD	BD+3*, ED+1, ED+4, END+2!, XIT+1!
APCLBDD	XIT+2!
APCLBT	XIT+2!
APCLBTH	XIT+2!
APCLCLIN	XIT+1!
APCLDA1	XIT+2!
APCLDA2	XIT+2!
APCLDATE	XIT+1!
>> APCLDEMO	DEMO+1, DEMO+2, PROC+2
APCLDISC	XIT+1!
APCLDT	XIT+1!
APCLDX	XIT+2!
APCLED	ED+3*, V+1, END+2!, XIT+1!
APCLEDD	XIT+2!
APCLFOUN	END+2!, DXHIT+1!
APCLHD1	XIT+2!
APCLHD2	XIT+2!
APCLHIGH	XIT+1!
APCLICD	XIT+2!
APCLINF	XIT+1!
APCLINFO	XIT+1!
APCLJOB	XIT+1!, XIT+3!
APCLLENG	XIT+2!
APCLLOC	XIT+1!
APCLLOCC	XIT+2!
APCLLOCT	XIT+2!
APCLLOW	XIT+2!
APCLODAT	V+1*, END+2!, V1+1, XIT+1!
APCLOTHC	XIT+3!
APCLP	END+2!, DXHIT+1!, DXHIT+2, DXHIT+3, DXHIT+4, DXHIT+5
APCLPCNT	START+1, V+3, END+2!, DXHIT+6
APCLPG	XIT+2!
APCLPPOV	XIT+1!
APCLPRNT	XIT+1!
APCLPROC	XIT+1!
APCLPROV	XIT+2!
APCLQUIT	XIT+2!
APCLRPT	XIT+1!
APCLRXCL	XIT+3!
APCLSD	ED+4*, V+1, END+2!, XIT+1!
APCLSEC	XIT+2!
APCLSITE	XIT+1!
APCLSKIP	XIT+1!
APCLSORT	XIT+1!
APCLSRCH	SEARCH+1, SEARCH+8, END+2!, DXHIT+7
APCLSRT2	XIT+2!
APCLTAX	TAX+1, TAX+5, END+2!, DXHIT+5
APCLTITL	XIT+2!
APCLTOT	XIT+2!
APCLVDFN	END+2!, V1+1*, XIT+1!
APCLVLOC	XIT+1!
APCLVREC	END+2!, V1+1*, PROC+1, PROC+4, PROC+6, PROC+7, XIT+1!
APCLVSIT	END+2!, PROC+6*, PROC+7, DXHIT+1, DXHIT+2
APCLX	XIT+1!
APCLY	XIT+2!
APCLZ	XIT+2!
DA	TAX+3!
DFN	END+2!, PROC+1*, PROC+2, PROC+3, PROC+4, DXHIT+7
DIC	TAX+2, TAX+3!, SEARCH+2
DIC("A"	TAX+2, SEARCH+2
DIC("DR"	SEARCH+2*
DIC("S"	TAX+2*
DIC(0	TAX+2, SEARCH+2
DIR	BD+1!, ED+1!
DIR("A"	BD+1, ED+1
DIR("B"	ED+1*
DIR(0	BD+1, ED+1
DIRUT	BD+1, BD+2, ED+1, ED+2, XIT+4!
DT	SEARCH+2
>> DUOUT	BD+1, ED+1
DUZ	SEARCH+2
H	XIT+4!
IO("Q"	XIT+4!
IOF	INFORM+1
M	XIT+4!
POP	XIT+4!
S	XIT+4!
TS	XIT+4!
U	PROC+1, PROC+3, PROC+4, PROC+6, PROC+7, DXHIT+1, DXHIT+5
X	ED+4, PROC+5, PROC+8, XIT+4!
X1	ED+4, PROC+4, PROC+7*, XIT+4!
X2	ED+4, PROC+4, PROC+7*, XIT+4!
Y	BD+3, ED+1*, ED+3, TAX+4, TAX+5, SEARCH+5, SEARCH+6, SEARCH+8, XIT+4!
Y(0	SEARCH+6
ZTQUEUED	XIT+4!
ZTSK	XIT+4!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLTAX

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: