Routine: PRCAEIN

Information

PRCAEIN ;SF-ISC/YJK-EDIT INCOMPLETE ACCOUNTS RECEIVABLE ;10/17/96 1:07 PM

Source file <PRCAEIN.m>

Name	Comments	DBIA/ICR reference
V	;;4.5;Accounts Receivable;57,67,153,371;Mar 20, 1995;Build 29
EDIN	;edit incomplete accounts receivable.
EDT
DIP
DIP1
ASTAT	;Set status for accrued bills
KILLV
END
DIE
D1
DISPL	;display the accounts receivable data user has entered.
ASK2
ASK1
CKSITE	;check site parameter and user number.
DELETE	;delete new AR without category and debtor field.
ORAMT	;Update original amount.
RESULT
MTIFY	;CHECK TO SEE IF ONE FY IS ENTERED PER BILL
MTCHK
MTIFYQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,PRCA("MESS1"),!! Line Location: EDT+2
Function Call: WRITE	Prompt: !!,*7,"Error creating FMS Billing Document:",!,?10,$P(ERR,U,2),!,"Bill status remains 'NEW BILL'",!! Line Location: DIP+5
Function Call: WRITE	Prompt: !!,PRCA("MESS1"),! Line Location: DIP1+0
Function Call: WRITE	Prompt: ! Line Location: DIE+0
Function Call: WRITE	Prompt: !,*7,?3,"The 'Bill Resulting From' input does not exist.",! Line Location: D1+4
Function Call: WRITE	Prompt: @IOF Line Location: DISPL+2
Function Call: WRITE	Prompt: !!,"DO YOU WANT TO EDIT THE DATA" Line Location: ASK2+0
Function Call: WRITE	Prompt: !!,"IS THIS DATA CORRECT" Line Location: ASK1+0
Function Call: WRITE	Prompt: *7,!,"The entry has been deleted!",! Line Location: DELETE+2
Function Call: WRITE	Prompt: !!,"BILL RESULTING FROM: ",$P(^(0),U,2) Line Location: RESULT+1
Function Call: WRITE	Prompt: !!,?3,"** Currently, just one Fiscal Year amount is sent to FMS." Line Location: MTCHK+2
Function Call: WRITE	Prompt: !,?3,"** Please enter just one Fiscal Year for this bill. (",PRCAMT1,") entered",!! Line Location: MTCHK+3

FileNo	Call Tags
^PRCA(430 - [#430]	Classic Fileman Calls