Routine: APCLYV3

Package	Total	Call Graph
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
IHS VA Utilities	1	^XBDBQUE
Taxonomy	1	LST^ATXAPI

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
LOC	;
END
ZIS
ED	;get ending date
LOC1	;enter location
ICD	;
CLINIC	;
GETDATES	;
PROV	;
LKUP	;

External References

Name	Field # of Occurrence
DD^%DT	ED+1
C^%DTC	ED+4
LST^ATXAPI	LKUP+13
^DIC	CLINIC+5, LKUP+4, LKUP+8, LKUP+9, LOC1+1, PROV+4
^DIR	BD+1, ED+1, CLINIC+1, ICD+3, LOC+1, PROV+1
^XBDBQUE	ZIS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: APCLYV3+4
Function Call: WRITE	Prompt: !!?20,"LISTING OF CLINIC VISITS WITH ICD CODES",!! Line Location: APCLYV3+4
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !! Line Location: ICD+1
Function Call: WRITE	Prompt: !,"You must enter the coding system from which you want to enter a code,",!,"or range of codes.",! Line Location: LKUP+3
Function Call: WRITE	Prompt: $C(7),!,"Ending code must be greater than or equal to beginning code" Line Location: LKUP+11
Function Call: WRITE	Prompt: !!,"Invalid range. Try again." Line Location: LKUP+14
Routine Call	DIC Line Location: CLINIC+5 LKUP+4 LKUP+8 LKUP+9 LOC1+1 PROV+4
Routine Call	DIR Line Location: BD+1 ED+1 CLINIC+1 ICD+3 LOC+1 PROV+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ICDS - [#80.4]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(9000010.06	PROV+4

Label References

Name	Line Occurrences
BD	ED+2, LOC+2
CLINIC	CLINIC+6, ICD+4
END	BD+2
GETDATES	CLINIC+2
ICD	CLINIC+3, CLINIC+4, LKUP+5, LKUP+8, LKUP+10
LKUP	LKUP+14
LOC	ICD+6, LOC1+1, PROV+2, PROV+4
PROV	LOC+3
ZIS	PROV+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	END!, END+1!
%T	END+1!
%Y	END+1!
>> APCDSYS	LKUP+2*
APCL65	END+1!
APCLAGE	END+1!
APCLARR	ICD+2!, LKUP+12!
APCLARR(	LKUP+15, LKUP+16
APCLARR(""	LKUP+14
APCLARRC	ICD+2!, LKUP+12!
APCLARRC(	LKUP+16*
APCLBD	BD+3*, ED+1, ED+4, END!, END+1!
APCLBICD	ICD+6, LKUP+9, LKUP+13, END!, END+5!
APCLBT	END!
APCLCL	CLINIC+3, CLINIC+4, CLINIC+6*, END!, END+4!
APCLCLS	END+1!
APCLCLX	END+4!
APCLDFN	END!
APCLED	ED+3*, END!, END+1!
APCLEICD	ICD+6, LKUP+10, LKUP+13, END!, END+5!
APCLFLG	END+5!
APCLFOUN	END!
APCLFPV	END+1!
APCLFVS	END+1!
APCLHRCN	END+4!
APCLICD	ICD+5*, ICD+6, LKUP+4, LKUP+7, LKUP+13, END!, END+5!
APCLIOM	END+1!
APCLJOB	END!
APCLLOC	LOC+3, LOC1+2, END!
APCLMCR	END+1!
APCLNAME	END+2!
APCLNAR	END+2!
APCLPAGE	END+5!
APCLPGRD	END+4!
APCLPRC	END+2!, END+5!
APCLPROV	PROV+3, PROV+5, END!
APCLPRV	END+2!
APCLPS	END+2!
APCLPTOT	END+2!
APCLPV	END+2!, END+5!
APCLSD	ED+4*, END!
APCLSTOP	END+3!
APCLSTR	END+2!, END+4!
>> APCLSYS	LKUP+6*, LKUP+8, LKUP+9, LKUP+13
APCLVDFN	END+3!
APCLVDT	END+3!
APCLVGRA	END+5!
APCLVPOV	END+3!
APCLVPRC	END+3!
APCLVRV	END+3!
APCLVTOT	END+3!
DA	LOC1+1!, PROV+4!, END+1!
DFN	END+1!
DIC	CLINIC+5!, LKUP+4!, LKUP+7!, LOC1+1!, PROV+4*!, END+4!
DIC("A"	CLINIC+5, LKUP+8, LKUP+9, LOC1+1, PROV+4*
DIC("S"	LKUP+4*
DIC(0	CLINIC+5, LKUP+4, LKUP+7, LOC1+1, PROV+4*
DIR	BD+1!, ED+1!, CLINIC+1!, ICD+3!, LOC+1!, PROV+1!
DIR("?"	LOC+1, PROV+1
DIR("A"	BD+1, ED+1, CLINIC+1, ICD+3, LOC+1, PROV+1
DIR(0	BD+1, ED+1, CLINIC+1, ICD+3, LOC+1, PROV+1
>> DIRUT	BD+1, BD+2, ED+1, ED+2, CLINIC+1, CLINIC+2, ICD+3, ICD+4, LOC+2, PROV+2
DOB	END+4!
DR	END+4!
>> DUOUT	BD+1, ED+1, CLINIC+1, ICD+3
G	END+1!
I	END+4!
>> ICDSYS	LKUP+8, LKUP+9
IOF	APCLYV3+4
LKPRINT	END+4!
POP	END+1!
SEX	END+4!
SFX	END+4!
U	LKUP+16, PROV+4
X	ED+4, LKUP+15*, LKUP+16, END+4!
>> X1	ED+4*
>> X2	ED+4*
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	BD+3, ED+1*, ED+3, CLINIC+3, CLINIC+4, CLINIC+6, ICD+5, LKUP+5, LKUP+6, LKUP+8 , LKUP+10, LOC+3, LOC1+1, LOC1+2, PROV+3, PROV+4, PROV+5, END!, END+3!
Y(0	LKUP+9, LKUP+10
ZTQUEUED	END!
ZTSK	END!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLYV3

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

Local Variables

Legend: