Routine: RCTCSJS1

Information

RCTCSJS1 ;ALBANY/LEG - RCTCS REFERRAL REJECTS SUPPORT RTN;02/19/14 3:21 PM

Name	Comments	DBIA/ICR reference
V	;;4.5;Accounts Receivable;301,324;Mar 20, 1995;Build 2
PROFRJ(D0)	; displays Reject History on ACCOUNT RECEIVABLE PROFILE
PROFRJA(D0,LN,OUTARY)	; sets into ^TMP Reject History on BILL PROFILE
SENDBUL	;
SENDERR	;
CLEANUP	; This cleans up the ^XTMP global.
BULERR	; If there is Bulletin data, send email with error or note
REJMSG	;Send list of rejected documents
ALPHA	; orders BULLETIN by SRC, Patient NAME, BILL NO. sequence
ERRMSG	;Send list of ERRORS FOUND document
ERRSFND	; places ERRORS FOUND records into BULLETIN sequence ; S ^XTMP("RCTCSJS",$J,"ERR",ERRCNT)=RECN_U_ERRDATA
SEND	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"CS REJECTS:" Line Location: PROFRJ+5
Function Call: WRITE	Prompt: ?12,"DATE: ",EXTDAT Line Location: PROFRJ+22
Function Call: WRITE	Prompt: ?33,"CODE(s): ",ERRCDS Line Location: PROFRJ+23
Function Call: WRITE	Prompt: ?71,"SOURCE: ",SRCE Line Location: PROFRJ+24
Function Call: WRITE	Prompt: ! Line Location: PROFRJ+25
Function Call: WRITE	Prompt: !!,"CS REJECT DATE:",?16,EXTDAT Line Location: PROFRJ+32
Function Call: WRITE	Prompt: ?34,"REJECT SOURCE: ",SRCE Line Location: PROFRJ+33
Function Call: WRITE	Prompt: !?2,"REJECT REASON",RR,":" Line Location: PROFRJ+35
Function Call: WRITE	Prompt: ?18,$P(ARY(FDAT,SRCE,CDIDX),U) Line Location: PROFRJ+36
Function Call: WRITE	Prompt: ! Condition for execution: LN>1 Line Location: PROFRJ+43
Function Call: WRITE	Prompt: ?21,ARY(FDAT,SRCE,CDIDX,LN) Line Location: PROFRJ+43
Function Call: WRITE	Prompt: ! Line Location: PROFRJ+44