Routine: APCLYV6

Information

APCLYV6 ; IHS/CMI/LAB - VISIT COUNTS BY PROVIDER ;

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

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: APCLYV6+4
Function Call: WRITE	Prompt: !!?20,"OUTPATIENT CLINIC VISIT COUNTS BY PROVIDER",!! Line Location: APCLYV6+4
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !!,"No facilty entered." Line Location: O+2
Function Call: WRITE	Prompt: !!,"Please select which visit service categories you wish to include," Line Location: SC+2
Function Call: WRITE	Prompt: !,"e.g. 1,4,5,6,7 to include ambulatory, not found, day surgery and " Line Location: SC+3
Function Call: WRITE	Prompt: !,"observations. Please note: events, hospitalizations, in-hospital" Line Location: SC+4
Function Call: WRITE	Prompt: !,"visits are automatically EXCLUDED:",! Line Location: SC+5
Function Call: WRITE	Prompt: !?5,"1 A-AMBULATORY" Line Location: SC+6
Function Call: WRITE	Prompt: !?5,"2 C-CHART REVIEW" Line Location: SC+7
Function Call: WRITE	Prompt: !?5,"3 T-TELECOMMUNICATIONS" Line Location: SC+8
Function Call: WRITE	Prompt: !?5,"4 N-NOT FOUND" Line Location: SC+9
Function Call: WRITE	Prompt: !?5,"5 S-DAY SURGERY" Line Location: SC+10
Function Call: WRITE	Prompt: !?5,"6 O-OBSERVATION" Line Location: SC+11
Function Call: WRITE	Prompt: !?5,"7 R-NURSING HOME" Line Location: SC+12
Function Call: WRITE	Prompt: ! Line Location: SC+13
Routine Call	DIC Line Location: PRV+8
Routine Call	DIR Line Location: BD+1 ED+1 PRV+1 LOC+2 O+1 SC+14

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

Name	Field # of Occurrence
>> A	SC+18*
APCLBD	BD+3*, ED+1, ED+4, END!
APCLCL	END!
>> APCLDEMO	DEMO+1, DEMO+2
APCLED	ED+3*, END!
APCLLOC	LOC+1!, LOC+4!, O+3*, END!
>> APCLPRV	PRV+4, PRV+10
APCLS	PRV+3*, PRV+4, PRV+5, PRV+6, END!
APCLSCAT	SC+1!, SC+17*
APCLSCAT(	SC+18*
>> APCLSD	ED+4*
>> C	SC+18*
>> D	PRV+9*
DA	LOC+2!, O+1!, SC+14!
>> DIC	PRV+5, PRV+6, PRV+8, PRV+9
>> DIC("A"	PRV+5*
>> DIC(0	PRV+7*
DIR	BD+1!, ED+1!, PRV+1!, LOC+2!, O+1!, SC+14!
DIR("A"	BD+1, ED+1, PRV+1, LOC+2, O+1, SC+14
DIR("B"	PRV+1, LOC+2, SC+14*
DIR(0	BD+1, ED+1, PRV+1, LOC+2, O+1, SC+14
>> DIRUT	BD+1, BD+2, ED+1, ED+2, PRV+1*, PRV+2, LOC+3, O+2, SC+15
>> DUOUT	BD+1, ED+1, PRV+1
>> I	SC+18*
IO("Q"	END!
IOF	APCLYV6+4
U	PRV+5
>> X	ED+4, SC+18*
>> 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, PRV+3, PRV+10, LOC+4, O+3, SC+16, SC+17, SC+18 , END!
ZTSK	END!