Sub-Field: 470.05

Parent File	Name	Number	Package
PATIENT FUNDS(#470)	INCOME SOURCE	470.05	Integrated Patient Fund

Details

Field #	Name	Loc	Type	Details
.01	INCOME SOURCE	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<1) X` LAST EDITED: `DEC 11, 1987` HELP-PROMPT: `Enter a person/type of income for this patient. Do not exceed 25 characters.` CROSS-REFERENCE: `470.05^B` `1)= S ^PRPF(470,DA(1),6,"B",$E(X,1,30),DA)=""` `2)= K ^PRPF(470,DA(1),6,"B",$E(X,1,30),DA)`
1	PAYEE	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `DEC 11, 1987` HELP-PROMPT: `Enter the name of the individual to whom the check is made payable.`
2	AMOUNT	0;3	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<1) X` LAST EDITED: `MAR 09, 1987` HELP-PROMPT: `TYPE A NUMBER BETWEEN 1 AND 99999`
3	FREQUENCY	0;4	SET	'D' FOR DAILY; 'W' FOR WEEKLY; 'M' FOR MONTHLY; 'Y' FOR YEARLY; 'X' FOR UNKNOWN; 'V' FOR VARIABLE; 'O' FOR OTHER; LAST EDITED: `JUL 06, 1987`