Routine: APCLAUD

Package	Total	Call Graph
Patient Care Component Reports	4	^APCLAUD0 ^APCLAUD3 ^APCLAUD5 XTMP^APCLOSUT
VA Fileman	3	DD^%DT C^%DTC ^DIR

Package

Total

Call Graph

Patient Care Component Reports

^APCLAUD0 ^APCLAUD3 ^APCLAUD5 XTMP^APCLOSUT

VA Fileman

DD^%DT C^%DTC ^DIR

Package	Total	Caller Graph
Patient Care Component Reports	1	APCLAUD0

Package

Total

Caller Graph

Patient Care Component Reports

APCLAUD0

Name	Comments	DBIA/ICR reference
BD	;get beginning date
QUIT	;
ICDB
ICDB2
ICDB1
ED	;get ending date
ICD
START	;
GETDATES	;
APCLMSGO
ICDE1
GO
ICDB10
ICDB101	;
ICDB11	;
MORE	;

Name	Field # of Occurrence
DD^%DT	ED+1, ED+3
C^%DTC	ED+4
^APCLAUD0	ICDB11+3, ICDE1+1
^APCLAUD3	MORE+1
^APCLAUD5	ICDB2
XTMP^APCLOSUT	START+3, START+4
^DIR	BD+1, ED+1, ICDB11+1

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: !,"Visit Date Range: ",APCLBDY," through ",APCLEDY,"." Line Location: ICDB1+1
Function Call: WRITE	Prompt: !!,"No Age Range restrictions." Line Location: ICDB1+2
Function Call: WRITE	Prompt: !!,"Age Range Selected: ",APCLLAGE," - ",APCLHAGE," Years." Line Location: ICDB1+3
Function Call: WRITE	Prompt: !!,"All ICD Coded Diagnoses will be included." Line Location: ICDB10+0
Function Call: WRITE	Prompt: ! Line Location: ICDB10+1
Function Call: WRITE	Prompt: !,"ICD Code Range ",APCLI,": ",^XTMP("APCLAUD",APCLJOB,APCLBT,APCLI,"ICDB")," through ",^XTMP("APCLAUD",APCLJOB,APCLBT,APCLI,"ICDE"),"." Line Location: ICDB10+1
Function Call: WRITE	Prompt: !!,"Sex Selected: ",$S($D(APCLSEX):APCLSEXP,1:"ALL") Line Location: ICDB101+1
Function Call: WRITE	Prompt: !!,"Service Category Selected: ",$S($D(APCLSC):APCLSCP,1:"ALL") Line Location: ICDB101+2
Function Call: WRITE	Prompt: !!,"Visit Type Selected: ",$S($D(APCLTYPE):APCLTYPP,1:"ALL") Line Location: ICDB101+3
Function Call: WRITE	Prompt: !!,"Visit Location of Encounter: ",$S($D(APCLLOC):APCLLOCP,1:"ALL") Line Location: ICDB101+4
Function Call: WRITE	Prompt: !!,"Visit Clinic Type Selected: ",$S($D(APCLCLN):APCLCLNP,1:"ALL") Line Location: ICDB101+5
Function Call: WRITE	Prompt: ?30,"* Audit Search *",!! Line Location: APCLMSGO+0
Function Call: WRITE	Prompt: !?80-$L(APCLMSG)\2,APCLMSG,!! Line Location: APCLMSGO+1
Routine Call	DIR Line Location: BD+1 ED+1 ICDB11+1

FileNo	Call Tags
^ICD9 - [#80]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^XTMP("APCLAUD"	START+2!, ICDB10, ICDB10+1, ICDB11+3*

Name	Line Occurrences
APCLMSGO	GO+1, ICDB
BD	ED+2, ICDB11+2
GO	MORE+2
ICDB1	ICDB+1
ICDB10	ICDB1+2
ICDB101	ICDB10
ICDB11	ICDB+1
QUIT	BD+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCLBD	BD+3*, ED+1, ED+4
>> APCLBDY	ED+1*, ICDB1+1
APCLBT	START+1*, START+2, ICDB10, ICDB10+1, ICDB11+3, QUIT+1!
>> APCLCLN	ICDB101+5
>> APCLCLNP	ICDB101+5
>> APCLED	ED+3*
>> APCLEDY	ED+3*, ICDB1+1
>> APCLHAGE	ICDB1+3
>> APCLI	ICDB10+1*
>> APCLIRNG	START+2*, ICDB10+1
APCLJOB	START+1*, START+2, ICDB10, ICDB10+1, ICDB11+3, QUIT+1!
>> APCLLAGE	ICDB1+2, ICDB1+3
>> APCLLOC	ICDB101+4
>> APCLLOCP	ICDB101+4
>> APCLMSG	GO+1, ICDB, APCLMSGO+1
APCLPOVD	QUIT+1!
>> APCLPRNG	START+2*
>> APCLSC	ICDB101+2
>> APCLSCP	ICDB101+2
>> APCLSD	ED+4*
>> APCLSEX	ICDB101+1
>> APCLSEXP	ICDB101+1
APCLTABL	START+2!
>> APCLTYPE	ICDB101+3
>> APCLTYPP	ICDB101+3
>> DIC	ICD*
>> DIC(0	ICD*
DIR	BD+1!, ED+1!, ICDB11+1!, QUIT+1!
DIR("A"	BD+1, ED+1, ICDB11+1*
DIR("B"	ICDB11+1*
DIR(0	BD+1, ED+1, ICDB11+1*
>> DIRUT	BD+1, BD+2, ED+1, ED+2, MORE+2, ICDB11+1*, ICDB11+2
>> DUOUT	BD+1, ED+1, ICDB11+1
IOF	GO, ICDB, ICDE1
>> X	ED+4
>> X1	ED+4*
>> X2	ED+4*
>> Y	BD+3, ED+1*, ED+3, ICDB11+3

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLAUD

Information

Source Information

Call Graph

Call Graph Total: 7

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

Local Variables

Legend: