STANDARD DATA DICTIONARY #470.2 -- PATIENT FUNDS FORMS FILE                                                       9/29/25    PAGE 1
STORED IN ^PRPF(470.2,  (14 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                    (VERSION 3.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the list of forms utilized by the Patient funds system.  


              WR ACCESS: ^
             DEL ACCESS: ^
           LAYGO ACCESS: ^
IDENTIFIED BY: FORM TITLE (#1)

POINTED TO BY: FORM field (#10) of the PATIENT FUNDS MASTER TRANSACTION File (#470.1) 
               FORM field (#10) of the PATIENT FUNDS TEMPORARY TRANSACTION File (#470.5) 
               

CROSS
REFERENCED BY: NAME(B), ABBREVIATION(C)



470.2,.01     NAME                   0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
              LAST EDITED:      AUG 31, 1988 
              HELP-PROMPT:      ANSWER MUST BE 3-30 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.2^B 
                                1)= S ^PRPF(470.2,"B",$E(X,1,30),DA)=""
                                2)= K ^PRPF(470.2,"B",$E(X,1,30),DA)


470.2,1       FORM TITLE             0;2 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
              HELP-PROMPT:      ANSWER MUST BE 1-60 CHARACTERS IN LENGTH 

470.2,2       ABBREVIATION           1;0 Multiple #470.21


470.21,.01      ABBREVIATION           0;1 FREE TEXT (Multiply asked)

                INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<1) X
                HELP-PROMPT:      ANSWER MUST BE 1-6 CHARACTERS IN LENGTH 
                CROSS-REFERENCE:  470.2^C 
                                  1)= S ^PRPF(470.2,"C",$E(X,1,30),DA(1),DA)=""
                                  2)= K ^PRPF(470.2,"C",$E(X,1,30),DA(1),DA)




470.2,3       TYPE OF ACTION         0;3 SET

                                'D' FOR DEPOSIT; 
                                'W' FOR WITHDRAWAL; 
                                'B' FOR BOTH; 
              LAST EDITED:      DEC 14, 1987 


INPUT TEMPLATE(S):
PRPF FORMS EDIT               DEC 14, 1987        USER #0    

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):