Routine: APCLTEN

Information

APCLTEN ; IHS/CMI/LAB - TOP TEN POVS ;

Package	Total	Call Graph
Patient Care Component Reports	5	EXIT^APCLTEN1 DEMOCHK^APCLUTL DEL^APCLVL ADD^APCLVL01 ^APCLVL4
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
IHS VA Utilities	1	^XBDBQUE
PCC Medical Query	1	PEP^AMQQGTX0

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,"*** FREQUENCY OF DIAGNOSES REPORT ***",!! Line Location: APCLTEN+3
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: ! Line Location: TEMP+7
Function Call: WRITE	Prompt: !!,"You have the opportunity to exclude certain diagnoses from this report." Line Location: EXCL+1
Function Call: WRITE	Prompt: !,"For example, to eliminate Pharmacy refill diagnoses, you need to exclude",!,"ICD-9 code V68.1 and ICD-10 code Z76.0 from this report." Line Location: EXCL+2
Function Call: WRITE	Prompt: !,"If you chose to include only the primary pov then visits with " Line Location: EXCL+3
Function Call: WRITE	Prompt: !,"a primary pov of V68.1/Z76.0 will be excluded.",! Line Location: EXCL+4
Function Call: WRITE	Prompt: !,"Enter the diagnoses to be excluded.",! Line Location: EXCL1+3
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: DX1+1
Routine Call	DIC Line Location: TEMP+7 DX1+1
Routine Call	DIR Line Location: BD+1 ED+1 TEMP+2 NUM POV+3 EXCL+7 CHRT+1

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

Name	Line Occurrences (* Changed, ! Killed)
^APCLVRPT - [#9001003.8]	SCREEN+2!

Name	Field # of Occurrence
AMQQTAX	DEMO+3!
APCLALL	POV+1!, POV+5*
APCLANS	DEMO+3!
>> APCLBD	BD+3*, ED+1, ED+4, ED+5
>> APCLBDD	ED+5*
APCLCAN	DEMO+3!
>> APCLCHRT	CHRT+3*
APCLCNT	DEMO+3!
APCLCNTL	SCREEN+2*!
APCLCRIT	DEMO+3!
>> APCLCTYP	SCREEN+1*
APCLCUT	DEMO+3!
>> APCLDEMO	DEMO+1, DEMO+2
APCLDISP	DEMO+3!
APCLDXT	EXCL1+1!, DX1+3, DX1+4!
APCLDXT("*"	DX1+4
>> APCLED	ED+3*, ED+5
>> APCLEDD	ED+5*
>> APCLEXCL	EXCL+6, EXCL+9, EXCL1+2
APCLHIGH	DEMO+3!
APCLI	DEMO+3!
>> APCLLNO	NUM+2*
>> APCLNCAN	CONT+1*
APCLPRIM	POV+1!, POV+6*
>> APCLPTVS	SCREEN+1*
APCLQUIT	CONT+1!, SCREEN+2, POV+4*
>> APCLRPT	SCREEN+2
>> APCLSD	ED+4*
>> APCLSEAT	TEMP+1, TEMP+5, TEMP+8, TEMP+9
APCLSEL	DEMO+3!
APCLSKIP	DEMO+3!
>> APCLTCW	SCREEN+1*
APCLTEXT	DEMO+3!
>> APCLTYPE	SCREEN+1*
APCLVAR	DEMO+3!
APCLVIEN	DEMO+3!
APCLVREC	DEMO+3!
DA	TEMP+2!, TEMP+7!, EXCL+7!, DX1+1!
DIC	TEMP+7!, DX1+1!
DIC("A"	TEMP+7*
DIC("S"	TEMP+7, DX1+1
DIC(0	TEMP+7, DX1+1
DICR	TEMP+7!
DIR	BD+1!, ED+1!, TEMP+2!, NUM!, POV+3!, EXCL+7!, CHRT+1!
DIR("?"	NUM, POV+3
DIR("A"	BD+1, ED+1, TEMP+2, NUM, POV+2, EXCL+7, CHRT+1*
DIR("B"	TEMP+2, NUM, EXCL+7, CHRT+1
DIR(0	BD+1, ED+1, TEMP+2, NUM, POV+2, EXCL+7, CHRT+1*
>> DIRUT	BD+1, BD+2, ED+1, ED+2, TEMP+3, NUM, NUM+1, POV+4, EXCL+8, CHRT+1 , CHRT+2
DR	TEMP+7!
>> DUOUT	BD+1, ED+1, NUM, CHRT+1
>> X	ED+4, DX1+1*
>> 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, ED+5, TEMP+4, TEMP+8, TEMP+9, NUM+2, POV+5, POV+6 , EXCL+9, DX1+1, DX1+2, CHRT+3