STANDARD DATA DICTIONARY #470.9 -- PATIENT FUNDS ARCHIVE HISTORY FILE                                             6/27/25    PAGE 1
STORED IN ^PRPF(470.9,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                      (VERSION 3.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------


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

CROSS
REFERENCED BY: TYPE(AC), ARCHIVE DATE(B)



470.9,.01     ARCHIVE DATE           0;1 DATE (Required)

              INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
              LAST EDITED:      FEB 25, 1997 
              HELP-PROMPT:        
              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.9^B 
                                1)= S ^PRPF(470.9,"B",$E(X,1,30),DA)=""
                                2)= K ^PRPF(470.9,"B",$E(X,1,30),DA)


470.9,1       TYPE                   0;2 SET

                                '0' FOR ARCHIVE; 
                                '1' FOR PURGE; 
              LAST EDITED:      FEB 25, 1997 
              CROSS-REFERENCE:  470.9^AC^MUMPS 
                                1)= I X=0 S ^PRPF(470.9,"AC",(10000000-$P(^PRPF(470.9,DA,0),"^")),DA)=""
                                2)= K ^PRPF(470.9,"AC",(10000000-$P(^PRPF(470.9,DA,0),"^")),DA)
                                This cross reference is used to create a reverse index for date of last archive.  



470.9,2       THRU DATE OF PURGE     0;3 DATE

              INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
              LAST EDITED:      MAR 09, 1992 


INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):