Routine: PRCAUDT

Information

PRCAUDT ;SF - ISC/YJK-AUDIT A NEW BILL/EDIT INCOMPLETE AR ;10/17/96 5:33 PM

Source file <PRCAUDT.m>

Name	Comments	DBIA/ICR reference
V	;;4.5;Accounts Receivable;1,21,57,97,143,107,173,321,342,349,446;Mar 20, 1995;Build 15
AUDITB(PRCABN,PRAUTOA,LOOP,RTYPES)	; ; PRCABN = the ien of the entry to audit or 0 for batch entry above ; PRAUTOA = 1 for auto-audit ; LOOP = 1 if looping through bills, 0 if not ; RTYPES = Array of rate types to display (if not defined, show all rate types) (PRCA4.5349)
END
BULL(PRCABN)	; Send a bulletin for auto audit errors ; PRCABN = ien of bill in file 430
DIC
DIE
DISPL	;display the accounts receivable data user has entered.
ASK
ASK1
ASK2
ASK3
SIG
SIG1
MESSG
SEGMT
UPSEG	;
CKSITE	;check site parameter and user number.
MTCHK
AUDITX(PRCABN)	; Auto audit a bill	ICR #4043 Status: Active Usage: Private
SETERR(TEXT)	;
BILL(PRCABN)	; Returns AR bill number in external format
BILLREJ(PRCABN)	; EP Check if bill has reject messages. Added for PRCA4.5321 ; Changed for PRCA4.5349 to only return 1 if there any reject messages with ; uncompleted reviews instead of if there were any reject messages at all ; Input - PRCABN - Internal Entry number from ACCOUNTS RECEIVABLE file [#430] ; (Note - file #399 has same IEN as file #430) ; Output - 1 - Reject messages 0 - No Reject messages
PAUSE(MSG)	; Display message and pause till user responds ; INPUT - MSG - Message to display to user ; Output - None

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: V+3
Function Call: WRITE	Prompt: !!,"Select rate types to loop through, or hit 'Enter' for all rate types.",! Line Location: V+7
Function Call: WRITE	Prompt: !!,"* Loop Done *",!! Line Location: AUDITB+11
Function Call: WRITE	Prompt: *7,!!,Z,!,?10,Z0,!!,Z1,!! Line Location: AUDITB+58
Function Call: WRITE	Prompt: !,PRCA("MESG") Line Location: AUDITB+63
Function Call: WRITE	Prompt: ! Line Location: DIE+0
Function Call: WRITE	Prompt: !,"IS THIS DATA CORRECT" Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Do you want to edit this information " Line Location: ASK1+0
Function Call: WRITE	Prompt: !!,"Then do you want to return this bill to the service" Line Location: ASK2+0
Function Call: WRITE	Prompt: !,"Answer 'Y' (YES) or 'N' (NO)" Line Location: ASK2+1
Function Call: WRITE	Prompt: !,"Are you sure you want to return" Line Location: ASK3+0
Function Call: WRITE	Prompt: "Answer 'Y' (YES) if you want to return this bill to the service that originated it. If not, answer 'N' (NO)." Line Location: ASK3+1
Function Call: WRITE	Prompt: !!,?3,Z,?3,Z0,! Line Location: MTCHK+5
Function Call: WRITE	Prompt: !!,MSG,! Line Location: PAUSE+4

FileNo	Call Tags
^DGCR(399 - [#399]	GET1^DIQ
^DIC(4 - [#4]	Classic Fileman Calls, GET1^DIQ
^PRCA(430 - [#430]	Classic Fileman Calls