Routine: APCLFY

Information

APCLFY ; IHS/CMI/LAB - FISCAL YEAR process routine ;

Source file <APCLFY.m>

Package	Total	Caller Graph
Patient Care Component Reports	4	APCL1A APCL2A APCLAA APCLOS

Name	Comments	DBIA/ICR reference
ENDDATE	;if FLAG=1
GETFY	;get FY
B	;get beginning date
E	;get ending date
FYYEAR	;process FISCAL YEAR
FYEND	;set up END date for fiscal year
MONTH	;setup MONTH for process
START	;beginning of routine
GETDATES	;new subroutine
XIT	;end of routine
FYENDDT	;set up END date for fiscal year
WORKDATE	;setup WORKING start day
FYDATE	;process beginning DATE for fiscal year

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"The PCC Master Control file indicates that your FY begins in a month other",!,"than October so you must indicate the beginning and ending dates",!,"for your FY ",APCL("FY"),".",! Line Location: GETDATES+1
Function Call: WRITE	Prompt: ! Line Location: B+1
Function Call: WRITE	Prompt: ! Line Location: E+1
Routine Call	DIR Line Location: B+1 E+1

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	START+9, MONTH+1
^DD("DD"	FYENDDT+3

Name	Field # of Occurrence
%DT	GETFY+1!*, XIT+1!
%DT("A"	GETFY+1*
%DT("B"	GETFY+1*
APCL	START+8!
APCL("FY BEG	DATE" , GETFY+6, GETFY+7, GETFY+8, B+3, E+1, E+4
APCL("FY END	DATE" , GETFY+8, E+3, FYENDDT+2*, FYENDDT+3
APCL("FY MONT	H NAME" , MONTH+2, H" , START+10, GETFY+5, MONTH+1, MONTH+2, MONTH+3
APCL("FY PRIN	TABLE EDATE" , FYENDDT+4*
APCL("FY WORK	ING DT" , GETFY+7, GETFY+8, E+4, FYENDDT+1, FYENDDT+2
APCL("FY YEAR	" , GETFY+4*, GETFY+6
APCL("FY YR A	DD" , FYENDDT+1*, FYENDDT+2
APCL("FY"	GETFY+2, GETFY+3, GETDATES+1, B+1, B+2*, E+1
APCL("FYEND F	LAG" , ENDDATE+1
DIR	B+1!, E+1!
DIR("A"	B+1, E+1
DIR(0	B+1, E+1
>> DIRUT	B+1, B+2, E+1, E+2
DT	GETFY+1
>> DUOUT	B+1, E+1
DUZ(2	START+9, MONTH+1
U	START+9, MONTH+1
>> X	E+4
>> X1	E+4*
>> X2	E+4*
>> Y	GETFY+2, GETFY+3, GETFY+4, B+3, E+3, FYENDDT+3*, FYENDDT+4