Routine: APCLADA

Information

APCLADA ; IHS/CMI/LAB - CLINIC VISITS BY DATE WITH ADA ;

Package	Total	Call Graph
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
IHS VA Utilities	1	^XBDBQUE
Patient Care Component Reports	1	DEMOCHK^APCLUTL

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: APCLADA+4
Function Call: WRITE	Prompt: !!?20,"LISTING OF CLINIC VISITS WITH ADA CODES",!! Line Location: APCLADA+4
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Routine Call	DIC Line Location: CLINIC+4 LOC1+1
Routine Call	DIR Line Location: BD+1 ED+1 CLINIC+1 LOC+1

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

Name	Field # of Occurrence
%DT	END!
APCLADA	END!, END+2!
APCLAGE	END+1!
APCLBADA	END!
APCLBD	BD+3*, ED+1, ED+4, END!, END+2!
APCLBICD	END+1!
APCLBT	END!, END+2!
APCLCL	CLINIC+3, CLINIC+5, END!, END+2!
APCLCLS	END+1!
APCLCLX	END!, END+1!
>> APCLDEMO	DEMO+1, DEMO+2
APCLDFN	END+1!
APCLEADA	END!
APCLED	ED+3*, END!, END+2!
APCLFPV	END!, END+1!, END+2!
APCLFVS	END+1!
APCLHRCN	END+1!
APCLJOB	END!, END+2!
APCLLOC	LOC+3, LOC1+2, END!, END+2!
APCLNAME	END!, END+1!
APCLNAR	END+1!
APCLNARR	END!, END+2!
APCLPAGE	END+1!
APCLPGRD	END!
APCLPGRP	END+1!
APCLPOVC	END+1!
APCLPRV	END+1!
APCLPS	END+1!
APCLPTOT	END+1!
APCLPV	END+1!
APCLSD	ED+4*, END!, END+2!
APCLSTOP	END+1!
APCLSTR	END!, END+1!
APCLVDEN	END+1!
APCLVDFN	END!, END+1!
APCLVDT	END!, END+1!
APCLVGRA	END!, END+1!
APCLVTOT	END!, END+1!
DA	LOC1+1!
DIC	CLINIC+4!, LOC1+1!
DIC("A"	CLINIC+4, LOC1+1
DIC(0	CLINIC+4, LOC1+1
DIR	BD+1!, ED+1!, CLINIC+1!, LOC+1!
DIR("?"	LOC+1*
DIR("A"	BD+1, ED+1, CLINIC+1, LOC+1
DIR("B"	CLINIC+1*
DIR(0	BD+1, ED+1, CLINIC+1, LOC+1
>> DIRUT	BD+1, BD+2, ED+1, ED+2, CLINIC+1*, CLINIC+2, LOC+2
>> DUOUT	BD+1, ED+1, CLINIC+1
IOF	APCLADA+4
X	ED+4, END+2!
>> X1	ED+4*
>> X2	ED+4*
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	BD+3, ED+1*, ED+3, CLINIC+3, CLINIC+5, LOC+3, LOC1+1, LOC1+2, END!, END+2!
ZTQUEUED	END!
ZTSK	END!