STANDARD DATA DICTIONARY #421.8 -- FISCAL STACKED DOCUMENTS FILE                                                  3/24/25    PAGE 1
STORED IN ^PRC(421.8,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                       (VERSION 5.1)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
     This file will hold the printouts that are automatically generated within IFCAP. The user may then select to print from this
file at a later date/time.  



CROSS
REFERENCED BY: DATE PROCESSED(AB), EXTERNAL RECORD NO.(AC), PRINTED(AD), INTERNAL RECORD NO.(B)



421.8,.01     INTERNAL RECORD NO.    0;1 NUMBER (Required)

              INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
              LAST EDITED:      JAN 31, 1994 
              HELP-PROMPT:      Type a Number between 1 and 99999999, 0 Decimal Digits 
              DESCRIPTION:
                                     This field will hold the record number in external format.  

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


421.8,1       TYPE                   0;2 SET

                                '1' FOR PO; 
                                '2' FOR RR; 
                                '3' FOR MO; 
                                '4' FOR 2237; 
              LAST EDITED:      APR 16, 1996 
              DESCRIPTION:          This field is used to store the type of document to print in FISCAL. (Purchase Orders,
                                Receiving Reports, 1358s and 2237s) 

                                UNEDITABLE

421.8,2       ROUTINE                0;3 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
              LAST EDITED:      APR 28, 1992 
              HELP-PROMPT:      Answer must be 1-20 characters in length. 
              DESCRIPTION:
                                    This field stores the routine that will be executed to print the document in Fiscal.  

                                UNEDITABLE

421.8,4       VARIABLE               1;0 Multiple #421.84 (Add New Entry without Asking)

              LAST EDITED:      APR 09, 1992 
              DESCRIPTION:
                                     This field is used to store the variables that will be used to print the document.  


421.84,.01      VARIABLE               0;1 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
                LAST EDITED:      APR 28, 1992 
                HELP-PROMPT:      Answer must be 1-30 characters in length. 
                DESCRIPTION:
                                     This field is used to store the variable name that will be used in printing the document.  

                                  UNEDITABLE

421.84,1        VALUE                  0;2 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>99!($L(X)<1) X
                LAST EDITED:      APR 09, 1992 
                HELP-PROMPT:      Answer must be 1-99 characters in length. 
                DESCRIPTION:
                                     This field is used to store the value of the variable that will be used to print the document. 




421.8,5       DATE PROCESSED         0;4 DATE

              INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
              LAST EDITED:      FEB 19, 1993 
              DESCRIPTION:
                                     This field is used to store the date that the document was created.  

                                UNEDITABLE
              CROSS-REFERENCE:  421.8^AB^MUMPS 
                                1)= S:$P(^PRC(421.8,DA,0),U)&$P(^(0),U,2) ^PRC(421.8,"AB",$P(^PRC(421.8,DA,0),U,2),X+0,$P(^(0),U),D
                                A)=""

                                2)= K:$P(^PRC(421.8,DA,0),U)&$P(^PRC(421.8,DA,0),U,2) ^PRC(421.8,"AB",$P(^PRC(421.8,DA,0),U,2),X+0,
                                $P(^(0),U),DA)
                                    Cross-reference for type and date of report.  



421.8,6       EXTERNAL RECORD NO.    0;5 FREE TEXT

              INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
              LAST EDITED:      MAR 19, 1993 
              HELP-PROMPT:      Answer must be 3-30 characters in length. 
              DESCRIPTION:           This field is used to store the .01 field from either file 442 or 410 which is the record
                                number for the document.  

                                UNEDITABLE
              CROSS-REFERENCE:  421.8^AC^MUMPS 
                                1)= S:$P(^PRC(421.8,DA,0),U,2)&$P(^(0),U,4) ^PRC(421.8,"AC",$P(^PRC(421.8,DA,0),U,2),$P(^(0),U,4)+0
                                ,X,DA)=""

                                2)= K:$P(^PRC(421.8,DA,0),U,2)&$P(^(0),U,4) ^PRC(421.8,"AC",$P(^PRC(421.8,DA,0),U,2),$P(^(0),U,4)+0
                                ,X,DA)
                                    This cross-reference is sorting by type and date to print.  



421.8,7       DEVICE                 0;6 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
              LAST EDITED:      APR 28, 1992 
              HELP-PROMPT:      Answer must be 3-30 characters in length. 
              DESCRIPTION:           This field is used to store the output device from file 411 for the corresponding site and
                                type of document.  

                                UNEDITABLE

421.8,8       PRINTED                0;7 DATE

              INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
              LAST EDITED:      MAY 07, 1992 
              DESCRIPTION:
                                     This field stores the date that the document was last printed.  

              CROSS-REFERENCE:  421.8^AD 
                                1)= S ^PRC(421.8,"AD",$E(X,1,30),DA)=""
                                2)= K ^PRC(421.8,"AD",$E(X,1,30),DA)
                                    Date processed for purging file.  



421.8,9       SITE                   0;8 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
              LAST EDITED:      MAY 06, 1992 
              HELP-PROMPT:      Answer must be 1-10 characters in length. 
              DESCRIPTION:
                                     This field stores the site number of the site that generated the document.  



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):