STANDARD DATA DICTIONARY #64.05 -- NON WKLD PROCEDURES FILE 6/27/25 PAGE 1
STORED IN ^LAB(64.05, (127 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Non workloaded activities Procedure List
Not to be added to weighted work load. The file is not implemented with version 5.2. A later version will make use of this file.
IDENTIFIED BY: ASSIGNMENT CODE (#2)[R]
CROSS
REFERENCED BY: PROCEDURE(B), WKLD CODE(C)
64.05,.01 PROCEDURE 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
DESCRIPTION:
This field contains the procedure name.
DELETE TEST: 1,0)= I 1
CROSS-REFERENCE: 64.05^B
1)= S ^LAB(64.05,"B",$E(X,1,30),DA)=""
2)= K ^LAB(64.05,"B",$E(X,1,30),DA)
64.05,1 WKLD CODE 0;2 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5) X
HELP-PROMPT: Answer must be 5 characters in length.
DESCRIPTION:
If there is a code number associated with this procedure, enter it in this field.
CROSS-REFERENCE: 64.05^C
1)= S ^LAB(64.05,"C",$E(X,1,30),DA)=""
2)= K ^LAB(64.05,"C",$E(X,1,30),DA)
64.05,2 ASSIGNMENT CODE 0;3 SET (Required)
'L' FOR Lab Mgmt;
'T' FOR Tech Mgmt;
'C' FOR Clerical;
'A' FOR ADP;
'S' FOR Sect Sp.;
'E' FOR Ed;
'O' FOR Other;
'M' FOR Misc;
'TO' FOR Total;
'N' FOR Nonproductive;
'CO' FOR Computer-Oriented;
'D' FOR Dept Sp.;
LAST EDITED: DEC 26, 1990
DESCRIPTION:
This field contains which section this code belongs.
64.05,3 INSTITUTION 1;0 POINTER Multiple #64.06 (Add New Entry without Asking)
DESCRIPTION:
To which institution should this code be associated with.
64.06,.01 INSTITUTION 0;1 POINTER TO INSTITUTION FILE (#4)
CROSS-REFERENCE: 64.06^B
1)= S ^LAB(64.05,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LAB(64.05,DA(1),1,"B",$E(X,1,30),DA)
64.06,1 DATE 1;0 DATE Multiple #64.61 (Add New Entry without Asking)
64.61,.01 DATE 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="EP" D ^%DT S X=Y K:Y<1 X S:$D(X) X=$E(X,1,5)_"00"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 64.61^B
1)= S ^LAB(64.05,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LAB(64.05,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
64.61,1 Hrs. 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>500)!(X<0)!(X?.E1"."3N.N) X
HELP-PROMPT: Type a Number between 0 and 500, 2 Decimal Digits
FILES POINTED TO FIELDS
INSTITUTION (#4) INSTITUTION:INSTITUTION (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):