STANDARD DATA DICTIONARY #470.5 -- PATIENT FUNDS TEMPORARY TRANSACTION FILE 9/29/25 PAGE 1
STORED IN ^PRPFT(470.5, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is a READER file to temporarily store data for later filing in the Master Transaction File and Patient Funds File
WR ACCESS: ^
DEL ACCESS: ^
LAYGO ACCESS: ^
CROSS
REFERENCED BY: ID(B)
470.5,.01 ID 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: JUN 22, 1988
HELP-PROMPT: ANSWER MUST BE 1-15 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)
CROSS-REFERENCE: 470.5^B
1)= S ^PRPFT(470.5,"B",$E(X,1,30),DA)=""
2)= K ^PRPFT(470.5,"B",$E(X,1,30),DA)
470.5,1 PATIENT NAME 0;2 POINTER TO PATIENT FUNDS FILE (#470)
470.5,3 AMOUNT 0;4 NUMBER (Required)
INPUT TRANSFORM: D ^PRPFTRCK
HELP-PROMPT: TYPE A NUMBER BETWEEN -9999999 AND 9999999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
470.5,4 TRANSACTION DATE 0;5 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
470.5,6 REFERENCE 0;7 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: DEC 10, 1987
HELP-PROMPT: ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
470.5,7 DEPOSIT/WITHDRAWAL 0;8 SET (Required)
'D' FOR DEPOSIT;
'W' FOR WITHDRAWAL;
470.5,8 CASH/CHECK/OTHER 0;9 SET (Required)
'1' FOR CASH;
'2' FOR CHECK;
'3' FOR OTHER;
470.5,9 SOURCE 0;10 SET (Required)
'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 as a source during normal operations.
470.5,10 FORM 0;11 POINTER TO PATIENT FUNDS FORMS FILE (#470.2) (Required)
LAST EDITED: DEC 14, 1987
470.5,11 PRIVATE SOURCE AMT 0;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN -9999999 AND 9999999
470.5,12 GRATUITOUS AMOUNT 0;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN -9999999 AND 9999999
470.5,13 PATIENT FUNDS CLERK NAME 0;14 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>35!($L(X)<3) X
LAST EDITED: MAY 15, 1987
HELP-PROMPT: ANSWER MUST BE 3-35 CHARACTERS IN LENGTH
470.5,14 CODE 0;15 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
470.5,15 REMARKS 0;16 FREE TEXT
INPUT TRANSFORM: D REM^PRPFED1
LAST EDITED: JUL 13, 1988
HELP-PROMPT: Enter Remarks Code, Free Text Remarks, or Code followed by a Comma followed by Free Text. Total
Number of Characters may not exceed 50.
EXECUTABLE HELP: S ZD=D,X="?",DIC="^PRPF(470.6,",DIC(0)="EMQN" D ^DIC S DIC="^PRPF(470.5,",D=ZD K ZD
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
470.5,16 BALANCE CARRIED FORWARD AMT 0;18 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999)!(X<-9999999) X I $D(X) W " $ ",$J(X,0,2)
LAST EDITED: JAN 10, 1989
HELP-PROMPT: Type a Dollar Amount between -9999999 and 9999999, 2 Decimal Digits
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
470.5,17 PVT SOURCE BAL CARRIED FWD 0;19 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999)!(X<-9999999) X I $D(X) W " $ ",$J(X,0,2)
LAST EDITED: JAN 10, 1989
HELP-PROMPT: Type a Dollar Amount between -9999999 and 9999999, 2 Decimal Digits
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
470.5,18 GRATUITOUS BAL CARRIED FWD 0;20 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999)!(X<-9999999) X I $D(X) W " $ ",$J(X,0,2)
LAST EDITED: JAN 10, 1989
HELP-PROMPT: Type a Dollar Amount between -9999999 and 9999999, 2 Decimal Digits
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
470.5,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:
470.5,20 COUNT IN RESTRICTION BALANCE 0;22 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: MAY 15, 1987
FILES POINTED TO FIELDS
PATIENT FUNDS (#470) PATIENT NAME (#1)
PATIENT FUNDS FORMS (#470.2) FORM (#10)
INPUT TEMPLATE(S):
PRPF MULTIPLE AMT AUG 31, 1987 USER #0
PRPF TEMP BCF AMTS AUG 31, 1987 USER #0
PRPF TEMP MULTIPLE NOV 05, 1987 USER #0
PRPF TEMP TRANS POST SEP 26, 1988 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):