STANDARD DATA DICTIONARY #420.9999 -- PRCD SD STANDARD FOR COPYING FILE 9/29/25 PAGE 1
STORED IN ^PRCD(420.9999, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.1)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains codes and descriptions data used by the IFCAP.
IDENTIFIED BY:
"D1": W " ",$P(^(0),U,2)
CROSS
REFERENCED BY: FIX VALUE(AC), CODE(B), DESCRIPTION(C)
420.9999,.01 CODE 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X K:$G(X)]""&$O(^PRCD(420.9999,"B",X,"")) X
LAST EDITED: OCT 07, 1994
HELP-PROMPT: Enter free text up to 15 characters and must be unique in file.
DESCRIPTION:
This field is the code of administrative office.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 420.9999^B
1)= S ^PRCD(420.9999,"B",$E(X,1,30),DA)=""
2)= K ^PRCD(420.9999,"B",$E(X,1,30),DA)
420.9999,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: Enter free text up to 45 characters.
DESCRIPTION:
This field is the desription of the code.
CROSS-REFERENCE: 420.9999^C
1)= S ^PRCD(420.9999,"C",$E(X,1,30),DA)=""
2)= K ^PRCD(420.9999,"C",$E(X,1,30),DA)
This is used to look-up entries by description.
420.9999,2 STATUS 0;3 POINTER TO PRCD SD STATUS FILE (#420.1999) (Required)
LAST EDITED: OCT 07, 1994
DESCRIPTION:
This field is the status of the entry in file.
CROSS-REFERENCE: ^^TRIGGER^420.9999^4
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCD(420.9999,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=
X S DIU=X K Y S X=DIV S X=DUZ X ^DD(420.9999,2,1,10,1.4)
1.4)= S DIH=$S($D(^PRCD(420.9999,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=420.9999,DIG=4
D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= S X=DUZ
DELETE VALUE)= NO EFFECT
FIELD)= STATUS EDIT USER
CROSS-REFERENCE: ^^TRIGGER^420.9999^5
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCD(420.9999,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=
X S DIU=X K Y X ^DD(420.9999,2,1,15,1.1) X ^DD(420.9999,2,1,15,1.4)
1.1)= S X=DIV S X=$P($$DT^PRC0B2("N","E"),"^")
1.4)= S DIH=$S($D(^PRCD(420.9999,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=420.9999,DIG=5
D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= S X=$P($$DT^PRC0B2("N","E"),"^")
DELETE VALUE)= NO EFFECT
FIELD)= STATUS EDIT DA
420.9999,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: Enter free text up to 15 characters.
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 this fix
values. If this value is edited all programs referring to this value need to be edited.
CROSS-REFERENCE: 420.9999^AC
1)= S ^PRCD(420.9999,"AC",$E(X,1,30),DA)=""
2)= K ^PRCD(420.9999,"AC",$E(X,1,30),DA)
This is used to search entries in this file.
420.9999,4 STATUS EDIT USER 0;5 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: OCT 07, 1994
HELP-PROMPT: Enter the user name.
DESCRIPTION:
User who changed the status.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the STATUS field of the PRCD SD STANDARD FOR COPYING File
420.9999,5 STATUS EDIT DATE/TIME 0;6 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 07, 1994
HELP-PROMPT: Enter date/time
DESCRIPTION:
The Time at which the status is edited.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the STATUS field of the PRCD SD STANDARD FOR COPYING File
FILES POINTED TO FIELDS
NEW PERSON (#200) STATUS EDIT USER (#4)
PRCD SD STATUS (#420.1999) STATUS (#2)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
PRC SD PRINT JAN 12, 1994@14:35 USER #0 PRCD SD ADMINISTRATIVE OFFICE LIST
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):