STANDARD DATA DICTIONARY #52.8 -- PHARMACY ARCHIVE FILE                                                           9/29/25    PAGE 1
STORED IN ^PSOARC(  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                          (VERSION 7.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is used to identify prescriptions that have been archived away.  The archived prescriptions may have been also deleted
from the Prescription file (#52).  



   APPLICATION GROUP(S): PSO

CROSS
REFERENCED BY: RX #(B), PATIENT #(C)



52.8,.01      RX #                   0;1 POINTER TO PRESCRIPTION FILE (#52) (Required)

              INPUT TRANSFORM:  S DINUM=X Q
              LAST EDITED:      MAY 05, 1986 
              DESCRIPTION:
                                Pointer to the PRESCRIPTION file 

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

              CROSS-REFERENCE:  52.8^B^MUMPS 
                                1)= S ^PSOARC("B",$P(^DPT($P(^PSRX(X,0),U,2),0),U,1),$P(^(0),U,9),DA)=""
                                2)= K ^PSOARC("B",$P(^DPT($P(^PSRX(X,0),U,2),0),U,1),$P(^(0),U,9),DA)
                                This cross reference lists the patient name, patient social security number, then internal entry
                                number. It sets the global ^PSOARC("B",Patient Name,Patient SSN,DA)="".  



52.8,1        PATIENT #              0;2 POINTER TO PATIENT FILE (#2) (Required)

              LAST EDITED:      MAY 05, 1986 
              DESCRIPTION:
                                This field is used for the name of the patient.  

              TECHNICAL DESCR:
                                pointer 

              CROSS-REFERENCE:  52.8^C 
                                1)= S ^PSOARC("C",$E(X,1,30),DA)=""
                                2)= K ^PSOARC("C",$E(X,1,30),DA)
                                This xref is used to index this file by patient.  




      FILES POINTED TO                      FIELDS

PATIENT (#2)                      PATIENT # (#1)

PRESCRIPTION (#52)                RX # (#.01)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):