Routine: ACHSYCS

Information

ACHSYCS ; IHS/ITSC/PMF - RETRANSMIT BY TRANSACTION CODE AND DATE RANGE ; [ 12/06/2002 10:36 AM ]

Package	Total	Call Graph
Contract Health Management Information System	1	^ACHSTXA1
VA Fileman	1	^DIR

Name	Comments	DBIA/ICR reference
PROC	;ACTUAL PROCESSING STARTS HERE
BEGIN	;
BDATE	;GET START DATE
EDATE	;GET END DATE
EXIT	; PUT CLEANUP STUFF HERE IF NEEDED

Name	Field # of Occurrence
^ACHSTXA1	PROC+23
^DIR	BEGIN+16, BDATE+5, EDATE+6

Name	Line Occurrences
Function Call: WRITE	Prompt: 7,!!,7,"No data to process. Quiting." Line Location: BEGIN+2
Function Call: WRITE	Prompt: !! Line Location: BDATE+2
Function Call: WRITE	Prompt: *7," No date supplyed. Terminating." Line Location: BDATE+6
Function Call: WRITE	Prompt: *7," NO FUTURE DATES ALLOWED" Line Location: BDATE+7
Function Call: WRITE	Prompt: ! Line Location: EDATE+2
Function Call: WRITE	Prompt: *7," No date supplyed. Returning to Start Date Entry." Line Location: EDATE+7
Function Call: WRITE	Prompt: *7," NO FUTURE DATES ALLOWED" Line Location: EDATE+8
Function Call: WRITE	Prompt: *7," Ending date must be after beginning date." Line Location: EDATE+9
Function Call: WRITE	Prompt: !,"MISSING AREA CONTRACTING NUMBER - JOB ABBORTING";IHS/SET/GTH Line Location: PROC+16
Function Call: WRITE	Prompt: *7,!!,"Area Contracting Number is not 3 Upper-case Alpha-Numerics",!,"JOB CANCELLED" Line Location: PROC+17
Routine Call	DIR Line Location: BEGIN+16 BDATE+5 EDATE+6

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	BEGIN+2, PROC+2, PROC+3, PROC+5, PROC+7, PROC+9, PROC+14
^TMP("ACHSTXAR"	PROC+10*

Name	Field # of Occurrence
>> ACHSARCO	PROC+14*, PROC+17
>> ACHSIO	PROC+13*
>> ACHSRCT	PROC+19*
>> ACHSREEX	PROC+22*
DIR	BEGIN+6!, BDATE+1~, EDATE+1~
DIR("A"	BEGIN+8, BEGIN+9, BEGIN+10, BEGIN+11, BEGIN+12, BEGIN+13, BEGIN+14, BDATE+4, EDATE+4*
DIR("B"	BEGIN+15, EDATE+5
DIR(0	BEGIN+7, BDATE+3, EDATE+3*
DT	BDATE+7, EDATE+8
DUZ(2	BEGIN+2, PROC+2, PROC+3, PROC+5, PROC+7, PROC+9, PROC+14
IO	PROC+13
IO(0	PROC+17
U	PROC+9, PROC+14
>> X	BEGIN+17, BEGIN+18
Y	BDATE+1~, BDATE+6, BDATE+7, BDATE+8, EDATE+1~, EDATE+7, EDATE+8, EDATE+9, EDATE+10
>> ZCS1	BEGIN+3, PROC+1, PROC+2*, PROC+3, PROC+5, PROC+7, PROC+10
>> ZCS1E	BEGIN+3, EDATE+10, PROC+2
>> ZCS1S	BEGIN+3, BDATE+8, EDATE+5, EDATE+9, PROC+1
>> ZCS2	BEGIN+3, BEGIN+18, PROC+3, PROC+5, PROC+7, PROC+9
>> ZCS3	BEGIN+3, PROC+4, PROC+5*, PROC+7, PROC+9, PROC+10
>> ZCS4	BEGIN+3, PROC+6, PROC+7*, PROC+9, PROC+10
>> ZCS5	BEGIN+3, PROC+11, PROC+23