STANDARD DATA DICTIONARY #555 -- CMOP MASTER DATABASE ARCHIVE FILE                                                6/27/25    PAGE 1
STORED IN ^PSXARC(  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                          (VERSION 2.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is used at CMOP host facilities to track the archiving activities for the CMOP Reference file (552.1) and the CMOP Master 
Database file (552.4). Data in this file is maintained by the Consolidated Mail Outpatient Pharmacy software and must not be edited
using VA FileMan.  



CROSS
REFERENCED BY: TRANSMISSION REFERENCE(B), ARCHIVE INDEX NUMBER(C)



555,.01       TRANSMISSION REFERENCE 0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
              LAST EDITED:      JUL 14, 1995 
              HELP-PROMPT:      Answer must be 1-30 characters in length. 
              DESCRIPTION:
                                The unique number that identifies this CMOP data transmission.  

              TECHNICAL DESCR:
                                Station number - transmission number.  

              CROSS-REFERENCE:  555^B 
                                1)= S ^PSXARC("B",$E(X,1,30),DA)=""
                                2)= K ^PSXARC("B",$E(X,1,30),DA)


555,1         ARCHIVE INDEX NUMBER   0;2 NUMBER (Required)

              INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<290000)!(X?.E1"."1N.N) X
              LAST EDITED:      AUG 25, 1995 
              HELP-PROMPT:      Type a Number between 290000 and 9999999, 0 Decimal Digits 
              TECHNICAL DESCR:  Archive tape # of the form yyymm# where yyy = year in fileman format - 295 mmm = month - 01 #   =
                                sequence number.  If more than one tape is needed then the sequence 
                                      number would increment by 1.  

              CROSS-REFERENCE:  555^C 
                                1)= S ^PSXARC("C",$E(X,1,30),DA)=""
                                2)= K ^PSXARC("C",$E(X,1,30),DA)


555,2         ARCHIVE DATE           0;3 DATE

              INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
              LAST EDITED:      JUL 14, 1995 
              DESCRIPTION:
                                The date the archive was performed.  

              TECHNICAL DESCR:
                                Fileman date format.  


555,3         INITIATOR              0;4 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
              LAST EDITED:      JUL 14, 1995 
              HELP-PROMPT:      Answer must be 3-30 characters in length. 
              DESCRIPTION:
                                The name of the user initiating the archive activity.  

              TECHNICAL DESCR:
                                Free text name.  


555,4         PURGE                  0;5 SET

                                '0' FOR NO; 
                                '1' FOR YES; 
              LAST EDITED:      JUL 14, 1995 
              DESCRIPTION:
                                Indicates whether the data for this entry has been purged.  

              TECHNICAL DESCR:
                                0 or null indicates no purge has been performed.  1 indicates the purge has been performed.  



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):