Routine: PRC5CON1

Package	Total	Call Graph
VA FileMan	2	EN^DDIOL EN^DIQ
IFCAP	1	(EDIT,LOOKUP)^PRC0B

Package	Total	Caller Graph
IFCAP	1	PRC5CON

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.0;IFCAP;27;4/21/95
EN	;start station merge/convert CALM code sheet to FMS
AUTO410	;auto select file 410 for 1996
AUTO442	;auto select file 442 for 1996
410	;display/edit substation
442	;display/edit substation
EN1
ACCRUE	;enter accrue for 1996 txn if method of processing is certified invoice
ACC58	;ACCURE FOR 1358
ACCPO
ACC442	;enter accrue flag and ending contract date if certified
MAN410	;manual select 410 for 1996
MAN442	;MANUAL SELECT 442 for 1996

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EN+9
Function Call: WRITE	Prompt: "ABORTED BY '^'! " Line Location: EN+9
Function Call: WRITE	Prompt: !! Line Location: EN+10
Function Call: WRITE	Prompt: "ALL DONE! " Line Location: EN+10
Function Call: WRITE	Prompt: ! Line Location: 410+1
Function Call: WRITE	Prompt: ! Line Location: 442+1
Function Call: WRITE	Prompt: " PURCHASE ORDER DATE: ",$E(PRCB,4,5),"/",$E(PRCB,6,7),"/",$E(PRCB,2,3) Line Location: 442+4
Function Call: WRITE	Prompt: !! Line Location: ACCRUE+9
Function Call: WRITE	Prompt: "ABORTED BY '^'! " Line Location: ACCRUE+9
Function Call: WRITE	Prompt: !! Line Location: ACCRUE+10
Function Call: WRITE	Prompt: "ALL DONE! " Line Location: ACCRUE+10
Function Call: WRITE	Prompt: ! Line Location: ACC442+1
Function Call: WRITE	Prompt: " PURCHASE ORDER DATE: " Line Location: ACC442+4
Function Call: WRITE	Prompt: $E(PRCB,4,5),"/",$E(PRCB,6,7),"/",$E(PRCB,2,3) Condition for execution: PRCB]"" Line Location: ACC442+4

FileNo	Call Tags
^PRCS(410 - [#410]	Classic Fileman Calls
^PRC(442 - [#442]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PRC(420 - [#420]	EN+4, ACCRUE+4
^PRC(442 - [#442]	AUTO442+2, AUTO442+3, 442+6, ACC58+4, ACCPO+1, ACCPO+2, ACC442+6, MAN442+4
^PRCS(410 - [#410]	AUTO410+2, 410+5, ACC58+2, ACC58+4

Name	Field # of Occurrence
DA	410+2~, 410+3, 442+2~, 442+3, ACC442+2~, ACC442+3*
DIC	410+2~, 410+3, 442+2~, 442+3, ACC442+2~, ACC442+3*
DR	410+2~, 410+3, 442+2~, 442+3, ACC442+2~, ACC442+3*
>> I	EN+9, EN+10, ACCRUE+9, ACCRUE+10
>> PRC("SITE"	410+5, 442+6, ACC442+6*
PRCA	EN+2~, AUTO410+1, AUTO410+2, AUTO442+1, AUTO442+2, ACCRUE+2~, ACC58+1, ACC58+2, ACCPO, ACCPO+1
PRCB	EN+2~, AUTO410+2, AUTO442+2, AUTO442+3, 442+4, ACCRUE+2~, ACC58+1, ACC58+2, ACC58+3~, ACC58+4* , ACCPO+1, ACCPO+2, ACC442+4, MAN442+4
PRCC	EN+2~, EN+4, EN+9, AUTO410+2, AUTO442+2, AUTO442+3, 410+7, 442+8, ACCRUE+2~, ACCRUE+4 , ACCRUE+7, ACCRUE+9, ACC58+2, ACCPO+1, ACCPO+2, ACC442+8*
PRCDATE	EN+1~, EN+3, AUTO442+1, ACCRUE+1~, ACCRUE+3, ACCPO
>> PRCDD	EN+7, EN1
PRCFCP	EN+1~, ACCRUE+1~
PRCQTR	EN+1~, ACCRUE+1~
PRCRI	EN+1~, ACCRUE+1~
PRCRI(410	AUTO410+2, 410+3, 410+5, 410+6, ACC58+2, ACC58+4, MAN410+4*
PRCRI(420	EN+4, EN+5, EN+6, ACCRUE+4, ACCRUE+5, ACCRUE+6
PRCRI(442	AUTO442+3, 442+3, 442+6, 442+7, ACC58+4, ACCPO+2, ACC442+3, ACC442+6, ACC442+7, MAN442+4
PRCSITE	EN+1~, EN+6, AUTO410+1, AUTO442+3, ACCRUE+1~, ACCRUE+6, ACC58+1, ACCPO+2
PRCYE	EN+1~, EN+3, AUTO410+1, ACCRUE+1~, ACCRUE+3, ACC58+1
PRCYEAR	EN+1~, EN+3, ACCRUE+1~, ACCRUE+3
WIQ	410+2~, 442+2~, ACC442+2~
>> X	410+6, 410+7, 442+7, 442+8, ACC442+7, ACC442+8, MAN410+2, MAN410+3, MAN442+2, MAN442+3
>> X("S"	MAN410+1, MAN442+1
>> Y	MAN410+2, MAN410+4, MAN442+2, MAN442+4