Global: ^PRPF(470.1

FileMan FileNo	FileMan Filename	Package
470.1	PATIENT FUNDS MASTER TRANSACTION	Integrated Patient Fund

Package	Total	Routines
Integrated Patient Fund	4	PFXIP11 PFXIP12 PRPFPNT PRPFPOST

Package	Total	FileMan Files
Integrated Patient Fund	1	PATIENT FUNDS(#470)[#470.01(.01)]

Package	Total	FileMan Files
Integrated Patient Fund	2	PATIENT FUNDS(#470)[1] PATIENT FUNDS FORMS(#470.2)[10]
Kernel	1	NEW PERSON(#200)[13]

Fields, Total: 25

Field #	Name	Loc	Type	Details
.01	TRANSACTION ID	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>12!($L(X)<2)!'(X?1N.11N1"M") X` LAST EDITED: `JUN 15, 1987` HELP-PROMPT: `ANSWER MUST BE 2-12 CHARACTERS IN LENGTH` DELETE TEST: `1,0)= D EN^DDIOL("Deletions are not allowed due to PFOP Migration!!","","!?5,$C(7)") I 1` LAYGO TEST: `1,0)= D:'$G(XUMF) EN^DDIOL("Additions are not allowed due to PFOP Migration!!","","!?5,$C(7)") I +$G(XUMF)` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `470.1^B` `1)= S ^PRPF(470.1,"B",$E(X,1,30),DA)=""` `2)= K ^PRPF(470.1,"B",$E(X,1,30),DA)`
1	PATIENT NAME	0;2	POINTER TO PATIENT FUNDS FILE (#470)	PATIENT FUNDS(#470)
2	PATIENT TRANSACTION #	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999`
3	AMOUNT	0;4	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X` LAST EDITED: `MAR 18, 1988` HELP-PROMPT: `TYPE A NUMBER BETWEEN -9999999 AND 9999999`
4	TRANSACTION DATE	0;5	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 18, 1988` CROSS-REFERENCE: `470.1^AD` `1)= S ^PRPF(470.1,"AD",$E(X,1,30),DA)=""` `2)= K ^PRPF(470.1,"AD",$E(X,1,30),DA)`
5	DATE TRANSACTION ENTERED	0;6	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 01, 1987` HELP-PROMPT: CROSS-REFERENCE: `470.1^AC` `1)= S ^PRPF(470.1,"AC",$E(X,1,30),DA)=""` `2)= K ^PRPF(470.1,"AC",$E(X,1,30),DA)`
5.5	DAYS BETWEEN DATES		COMPUTED	MUMPS CODE: `X ^DD(470.1,5.5,9.2) S X1=Y(470.1,5.5,2) S X2=X1,X1=X D ^%DTC S Y=X` `9.2 = S Y(470.1,5.5,1)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"") S X=$P(Y(470.1,5.5,1),U,5),Y(470.1,5.5,2)=X S X=$P(Y(470.1,5.5,1),U,6)` ALGORITHM: `DAYS BETWEEN DATES(#4,#5)`
6	REFERENCE	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-10 CHARACTERS IN LENGTH`
7	DEPOSIT/WITHDRAWAL	0;8	SET	**********************REQUIRED FIELD********************** 'D' FOR DEPOSIT; 'W' FOR WITHDRAWAL; LAST EDITED: `SEP 01, 1987`
8	CASH/CHECK/OTHER	0;9	SET	**********************REQUIRED FIELD********************** '1' FOR CASH; '2' FOR CHECK; '3' FOR OTHER; LAST EDITED: `SEP 01, 1987`
9	SOURCE	0;10	SET	'P' FOR PRIVATE SOURCE; 'G' FOR GRATUITOUS; 'B' FOR BOTH; LAST EDITED: `FEB 26, 1988` SCREEN: `I "PG"[Y` EXPLANATION: `Allows user to select only Private Source or Gratuitous during normal operations.`
10	FORM	0;11	POINTER TO PATIENT FUNDS FORMS FILE (#470.2)	**********************REQUIRED FIELD********************** PATIENT FUNDS FORMS(#470.2) LAST EDITED: `SEP 01, 1987`
11	PRIVATE SOURCE AMT	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `I $P(^PRPF(470.1,D0,0),"^",8)["W" S Y=-Y` LAST EDITED: `MAR 02, 1988` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN -9999999 AND 9999999`
12	GRATUITOUS AMOUNT	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `I $P(^PRPF(470.1,D0,0),"^",8)["W" S Y=-Y` LAST EDITED: `MAR 02, 1988` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN -9999999 AND 9999999`
13	PATIENT FUNDS CLERK	0;14	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `APR 28, 1995` HELP-PROMPT:
13.5	VALIDATION CODE	0;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 25, 1995` HELP-PROMPT: `Type a Number between 1 and 99999999, 0 Decimal Digits` DESCRIPTION: `Field contains the validation code for verification of electronic signature.`
13.7	VALIDATION VERSION	0;22	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<1)!(X?.E1"."2N.N) X` LAST EDITED: `APR 25, 1995` HELP-PROMPT: `Type a Number between 1 and 100, 1 Decimal Digit` DESCRIPTION: `This field contains the version number used to encode the Electronic Signature Code.`
14	ELECTRONIC SIGNATURE	0;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` OUTPUT TRANSFORM: `S Y="/es/ "_$$DECODE^PRPFSIG1(D0)` LAST EDITED: `MAY 09, 1995` HELP-PROMPT: `ANSWER MUST BE 1-30 CHARACTERS IN LENGTH`
15	REMARKS	0;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>35!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-35 CHARACTERS IN LENGTH`
16	BALANCE CARRIED FORWARD AMT	0;18	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X` LAST EDITED: `APR 02, 1987` HELP-PROMPT: `TYPE A NUMBER BETWEEN -9999999 AND 9999999`
17	PVT SOURCE BAL CARRIED FWD	0;19	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X` HELP-PROMPT: `TYPE A NUMBER BETWEEN -9999999 AND 9999999`
18	GRATUITOUS BAL CARRIED FWD	0;20	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X` HELP-PROMPT: `TYPE A NUMBER BETWEEN -9999999 AND 9999999`
19	DEFERRAL DATE	0;21	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 26, 1988` HELP-PROMPT:
20	SIG CONVERSION COMPLETED	0;22	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `DEC 09, 1991`
21	SIGNATURE CODE DATE/TIME	0;23	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 02, 1993`

Customize PDF page

Package: Integrated Patient Fund

Global: ^PRPF(470.1

Information

Description

Accessed By FileMan Db Calls, Total: 4

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 25