Routine: APCLPN

Information

APCLPN ; IHS/CMI/LAB - PROVIDER NARRATIVE/CODING QA REPORT ;

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

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!! Line Location: START+1
Function Call: WRITE	Prompt: !,"Ending date must be greater than or equal to beginning date!" Line Location: ED+3
Function Call: WRITE	Prompt: $C(7),$C(7),!,"Must be a valid date and be Today or earlier. Time not allowed!" Line Location: ERR+0
Function Call: WRITE	Prompt: !,"This report is designed to allow Providers to compare the narrative",!,"that they enter for a diagnosis to the code/narrative that it gets coded to.",!,"Providers can then monitor the coding being done by the PCC Data entry Staff.",! Line Location: INFORM+2
Routine Call	DIC Line Location: PRV1+1 DISC+1
Routine Call	DIR Line Location: BD+1 ED+1 PRV+3 PRIM+1

FileNo	Call Tags
^DIC(6 - [#6]	Classic Fileman Calls
^DIC(7 - [#7]	Classic Fileman Calls

Name	Field # of Occurrence
APCL80S	XIT+1!
APCLBD	BD+3*, ED+3, ED+5, XIT+1!
APCLBDD	BD+3*, ED+1, XIT+1!
APCLBT	XIT+1!
APCLBTH	START+2*, XIT+2!
APCLCAT	XIT+1!
APCLCDIS	PRV+8*, XIT+2!
APCLDISC	PRV+1, PRV+9, DISC+2*, XIT+2!
APCLDT	XIT+1!
APCLED	ED+4*, XIT+1!
APCLEDD	XIT+1!
APCLJOB	START+2*, XIT+2!
APCLLENG	XIT+1!
APCLLOC	XIT+1!
APCLLOCT	XIT+1!
APCLODAT	XIT+1!
APCLPG	XIT+1!
APCLPOS	XIT+1!
APCLPRIM	PRIM+3, PRIM+4, XIT+1!
APCLPROS	XIT+2!
APCLPROT	XIT+1!
APCLPROV	PRV+1, PRV+6, PRV1+2*, XIT+1!
APCLPSRT	PRV+1, PRV+5, PRV+8*, XIT+2!
APCLQUIT	XIT+2!
APCLSD	ED+5*, XIT+1!
APCLSITE	START+1!, XIT+1!
APCLTAB	XIT+1!
APCLTEXT	XIT+1!
APCLTOT	XIT+1!
APCLVDFN	XIT+1!
APCLVLOC	XIT+1!
APCLVREC	XIT+1!
D0	XIT+3!
DA	PRV1+1!, DISC+1!, XIT+3!
DIC	PRV1+1!, DISC+1!, XIT+3!
DIC("A"	PRV1+1, DISC+1
DIC(0	PRV1+1, DISC+1
DIR	BD+1!, ED+1!, PRV+3!, PRIM+1!
DIR("?"	BD+1, PRV+3
DIR("A"	BD+1, ED+1, PRV+2, PRIM+1
DIR("B"	ED+1, PRIM+1
DIR(0	BD+1, ED+1, PRV+2, PRIM+1
>> DIRUT	BD+1, BD+2, ED+1, ED+2, PRV+4, PRIM+1*, PRIM+2
DR	XIT+3!
>> DUOUT	BD+1, ED+1, PRIM+1
DUZ(2	START+1
H	XIT+3!
IOF	INFORM+1
M	XIT+3!
POP	XIT+3!
S	XIT+3!
TS	XIT+3!
X	ED+5, XIT+3!
>> X1	ED+5*
>> X2	ED+5*
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	BD+3, ED+3, ED+4, PRV+5, PRV+6, PRV+7, PRV+8, PRV+9, PRV1+1, PRV1+2 , DISC+1, DISC+2, PRIM+3, XIT+3!
ZTSK	XIT+3!