Global: ^ACDJBDT

FileMan FileNo	FileMan Filename	Package
9002174.2	CDMIS JOB DUTIES	Alcohol Chemical Dependency

Fields, Total: 2

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	JOB DUTIES	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X K X` LAST EDITED: `APR 27, 1992` HELP-PROMPT: `ANSWER MUST BE 3-40 CHARACTERS IN LENGTH` DELETE TEST: `.01,0)= I 1` SOURCE OF DATA: FROM CDMIS-6, STAFF INFORMATION NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002174.2^B` 1)= S ^ACDJBDT("B",$E(X,1,30),DA)="" 2)= K ^ACDJBDT("B",$E(X,1,30),DA)
1	ACRONYM	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X Q:'$D(X) K:$L(X)>5!($L(X)<2) X K X` LAST EDITED: `MAR 07, 1995` HELP-PROMPT: `ANSWER MUST BE 2-5 CHARACTERS IN LENGTH` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002174.2^C` 1)= S ^ACDJBDT("C",$E(X,1,30),DA)="" 2)= K ^ACDJBDT("C",$E(X,1,30),DA)

JOB DUTIES

0;1

FREE TEXT

************************REQUIRED FIELD************************

DELETE TEST: .01,0)= I 1

SOURCE OF DATA:   FROM CDMIS-6, STAFF INFORMATION

CROSS-REFERENCE: 9002174.2^B

1)= S ^ACDJBDT("B",$E(X,1,30),DA)=""

2)= K ^ACDJBDT("B",$E(X,1,30),DA)

ACRONYM

0;2

FREE TEXT

************************REQUIRED FIELD************************

CROSS-REFERENCE: 9002174.2^C

1)= S ^ACDJBDT("C",$E(X,1,30),DA)=""

2)= K ^ACDJBDT("C",$E(X,1,30),DA)