Routine: APCLYV5

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

Package

Total

Call Graph

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

DEMOCHK^APCLUTL

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: APCLYV5+4
Function Call: WRITE	Prompt: !!?22,"LISTING OF INPATIENT VISITS WITH ICD CODES" Line Location: APCLYV5+4
Function Call: WRITE	Prompt: !?30,"SORTED BY HEALTH RECORD NUMBER",! Line Location: APCLYV5+5
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: LKUP+1
Routine Call	DIC Line Location: F+1 LKUP+1
Routine Call	DIR Line Location: TDATE+1 BD+1 ED+1 SRV+1 SRV+2 ICD+2

FileNo	Call Tags
^AMQQ(5 - [#9009075]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^XTMP("APCLYV5"	LKUP+3, LKUP+4

Name	Field # of Occurrence
%DT	END!
%T	END!
%Y	END!
AMQQATN	END+1!
AMQQCOMP	END+1!
AMQQCTXS	END+1!
AMQQLINK	END+1!
AMQQTAX	END+1!
AMQQTXS	END+1!
AMQQUNK	END+1!
APCLAC	END!
APCLBD	BD+3*, ED+1, ED+4, END!
APCLBICD	END!
APCLBT	END!
APCLBTH	APCLYV5+6*, LKUP+3, LKUP+4, END!
>> APCLDEMO	DEMO+1, DEMO+2
APCLED	ED+3*, END!
APCLEICD	END!
APCLHRCN	END!
APCLICD	ICD+4, ICD+5, LKUP+1, LKUP+4, END!
APCLJOB	APCLYV5+6*, LKUP+3, LKUP+4, END!
APCLLENG	END!
>> APCLLOC	F+2*
APCLPROV	END!
APCLSD	ED+4*, END!
APCLSRT	TDATE+3*, END!
APCLSTR	END!
APCLSTR1	END!
APCLSV	SRV+1, SRV+2, END!
APCLTITL	TDATE+3*, END!
APCLX	TDATE+3*, BD+1, ED+1, END!
DA	F+1!, LKUP+1!
DIC	F+1!, LKUP+1!
DIC("A"	F+1*
DIC("S"	LKUP+1*
DIC(0	F+1, LKUP+1
DIR	TDATE+1!, BD+1!, ED+1!, SRV+1!, SRV+2!, ICD+2!
DIR("A"	TDATE+1, BD+1, ED+1, SRV+1, ICD+2*
DIR("B"	TDATE+1, SRV+1
DIR(0	TDATE+1, BD+1, ED+1, SRV+1, SRV+2, ICD+2
>> DIRUT	TDATE+1, TDATE+2, BD+1, BD+2, ED+1, ED+2, SRV+1, SRV+2, ICD+2, ICD+3
>> DUOUT	TDATE+1, BD+1, ED+1, ICD+2
IO("Q"	END!
IOF	APCLYV5+4
POP	END!
>> X	ED+4, LKUP+1*
>> X1	ED+4*
>> X2	ED+4*
>> XBNS	DEMO+3*
>> XBNS("^XTMP(""APCLYV5"",APCLJOB,APCLBTH,"	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	F+1, F+2, TDATE+3, BD+3, ED+1*, ED+3, SRV+1, SRV+2, ICD+4, LKUP+1 , LKUP+2, END!
Y(0	TDATE+3
ZTSK	END!

Information