Routine: APCLYV2

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

Package

Total

Call Graph

DD^%DT C^%DTC ^DIC MIX^DIC1 ^DIR

DEMOCHK^APCLUTL

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: APCLYV2+4
Function Call: WRITE	Prompt: !!?10,"LISTING OF OUTPATIENT VISITS WITH ICD CODES",!! Line Location: APCLYV2+4
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"THIS REPORT MUST BE PRINTED ON 132 COLUMN PAPER!",! Line Location: DEMO+3
Routine Call	DIC Line Location: LOC1+1 PROV+5
Routine Call	DIR Line Location: BD+1 ED+1 LOC+1 PROV+1

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

Name	Field # of Occurrence
%DT	END!
APCLBD	BD+3*, ED+1, ED+4, END!
APCLBT	END!
>> APCLDEMO	DEMO+1, DEMO+2
APCLDFN	END!
APCLED	ED+3*, END!
APCLFOUN	END!
APCLJOB	END!
APCLLOC	LOC+3, LOC1+2, END!
APCLPROV	PROV+3, PROV+7, END!
APCLSD	ED+4*, END!
D	PROV+4*!
DA	LOC1+1!
DIC	LOC1+1!, PROV+4!, PROV+5*!
DIC("A"	LOC1+1, PROV+4, PROV+5*
DIC(0	LOC1+1, PROV+4, PROV+5*
DIR	BD+1!, ED+1!, LOC+1!, PROV+1!
DIR("?"	LOC+1, PROV+1
DIR("A"	BD+1, ED+1, LOC+1, PROV+1
DIR(0	BD+1, ED+1, LOC+1, PROV+1
>> DIRUT	BD+1, BD+2, ED+1, ED+2, LOC+2, PROV+2
>> DUOUT	BD+1, ED+1
IOF	APCLYV2+4
POP	END!
U	PROV+4, PROV+5
>> X	ED+4, PROV+6
>> X1	ED+4*
>> X2	ED+4*
>> XBNS	DEMO+4*
>> XBRC	DEMO+4*
>> XBRP	DEMO+4*
>> XBRX	DEMO+4*
Y	BD+3, ED+1*, ED+3, LOC+3, LOC1+1, LOC1+2, PROV+3, PROV+6, PROV+7, END!
ZTQUEUED	END!
ZTSK	END!

Information