Global: ^RC(347.3

FileMan FileNo	FileMan Filename	Package
347.3	REVENUE SOURCE CODE	Accounts Receivable

FileMan FileNo

FileMan Filename

Package

347.3

REVENUE SOURCE CODE

Package	Total	Routines
Accounts Receivable	5	PRCA192P PRCAFUT PRCAI90 PRCAP266 RCXFMSUR

Package	Total	FileMan Files
Accounts Receivable	1	ACCOUNTS RECEIVABLE(#430)[255]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SOURCE CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `I $D(X) K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X` LAST EDITED: `JAN 30, 2006` HELP-PROMPT: `Enter the revenue source code to be sent to FMS.` DESCRIPTION: `This field is used to identify the revenue source code to be sent to FMS.` DELETE TEST: `1,0)= W !,"REVENUE SOURCE CODES CANNOT BE DELETED. THEY MUST BE INACTIVATED." I 1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `347.3^B` `1)= S ^RC(347.3,"B",$E(X,1,30),DA)=""` `2)= K ^RC(347.3,"B",$E(X,1,30),DA)`
.02	NAME	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3) X` LAST EDITED: `JUN 01, 1995` HELP-PROMPT: `Answer must be 3-50 characters in length.` DESCRIPTION: `This is the program name for the source code.` CROSS-REFERENCE: `347.3^C` `1)= S ^RC(347.3,"C",$E(X,1,30),DA)=""` `2)= K ^RC(347.3,"C",$E(X,1,30),DA)`
.03	INACTIVE	0;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 13, 1998` DESCRIPTION: `This field will inactivate a revenue source code so it can no longer be selected and attached to a bill.`

SOURCE CODE

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: I $D(X) K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JAN 30, 2006
HELP-PROMPT: Enter the revenue source code to be sent to FMS.
DESCRIPTION:
This field is used to identify the revenue source code to be sent to FMS.
DELETE TEST: 1,0)= W !,"REVENUE SOURCE CODES CANNOT BE DELETED. THEY MUST BE INACTIVATED." I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 347.3^B
1)= S ^RC(347.3,"B",$E(X,1,30),DA)=""
2)= K ^RC(347.3,"B",$E(X,1,30),DA)

NAME

0;2

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:$L(X)>50!($L(X)<3) X
LAST EDITED: JUN 01, 1995
HELP-PROMPT: Answer must be 3-50 characters in length.
DESCRIPTION:
This is the program name for the source code.
CROSS-REFERENCE: 347.3^C
1)= S ^RC(347.3,"C",$E(X,1,30),DA)=""
2)= K ^RC(347.3,"C",$E(X,1,30),DA)

INACTIVE

0;3

SET

LAST EDITED: MAR 13, 1998
DESCRIPTION:
This field will inactivate a revenue source code so it can no longer be selected and attached to a bill.

Information