STANDARD DATA DICTIONARY #420.16 -- PRCD SD DOCUMENT TYPE FILE 3/24/25 PAGE 1 STORED IN ^PRCD(420.16, (5 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.1) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ----------------------------------------------------------------------------------------------------------------------------------- This file contains document types used by the required fields table. POINTED TO BY: DOCUMENT TYPE field (#1) of the PRCD REQUIRED FIELDS File (#420.18) CROSS REFERENCED BY: FIX VALUE(AC), CODE(B), DESCRIPTION(C) 420.16,.01 CODE 0;1 FREE TEXT (Required) INPUT TRANSFORM: K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X I $G(X)]"" S %=$O(^PRCD(420.16,"B",X,"")) K:%-$G(DA)&% X LAST EDITED: NOV 19, 1993 HELP-PROMPT: Answer must be 1-15 characters in length and code must be unique in file. DESCRIPTION: This field is the code of document data elemant. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 420.16^B 1)= S ^PRCD(420.16,"B",$E(X,1,30),DA)="" 2)= K ^PRCD(420.16,"B",$E(X,1,30),DA) 420.16,1 DESCRIPTION 0;2 FREE TEXT (Required) INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1)!'(X'?1." ".E) X LAST EDITED: NOV 24, 1993 HELP-PROMPT: Answer must be 1-45 characters in length. DESCRIPTION: This field is the desription of the code. CROSS-REFERENCE: 420.16^C 1)= S ^PRCD(420.16,"C",$E(X,1,30),DA)="" 2)= K ^PRCD(420.16,"C",$E(X,1,30),DA) This is used to look-up entries by description. 420.16,2 STATUS 0;3 POINTER TO PRCD SD STATUS FILE (#420.1999) (Required) LAST EDITED: NOV 26, 1993 DESCRIPTION: This field is the status of the entry in file. 420.16,3 FIX VALUE 0;4 FREE TEXT INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!'(X'?1." ".E) X LAST EDITED: DEC 10, 1993 HELP-PROMPT: Answer must be 1-15 characters in length. DESCRIPTION: This field's value is used by programer for hard coding in programs. TECHNICAL DESCR: This field's value is used by programer for hard coding in programs. Always hardcode with fixed values. If this value is edited all programs referring to this value need to edited. CROSS-REFERENCE: 420.16^AC 1)= S ^PRCD(420.16,"AC",$E(X,1,30),DA)="" 2)= K ^PRCD(420.16,"AC",$E(X,1,30),DA) This is used to search entries in this file. FILES POINTED TO FIELDS PRCD SD STATUS (#420.1999) STATUS (#2) INPUT TEMPLATE(S): PRINT TEMPLATE(S): PRC SD PRINT JAN 12, 1994@14:38 USER #0 PRCD SD DOCUMENT TYPE LIST SORT TEMPLATE(S): FORM(S)/BLOCK(S):