Global: ^DIC(34

Information

FileMan FileNo	FileMan Filename	Package
34	CONTRACT/SHARING AGREEMENTS	Radiology Nuclear Medicine

Package	Total	Routines
Radiology Nuclear Medicine	7	RADLQ1 RADLY RAO7NEW RAREG RAREG2 RARTFLDS RAUTL1
Order Entry Results Reporting	3	ORMBLDRA ORMRA ORWDRA32

Package	Total	Routines
Radiology Nuclear Medicine	2	RAMAIN RAMAINP

Package	Total	FileMan Files
Radiology Nuclear Medicine	2	RAD/NUC MED PATIENT(#70)[#70.03(9)] RAD/NUC MED ORDERS(#75.1)[9]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	AGREEMENT NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` CROSS-REFERENCE: `34^B` 1)= S ^DIC(34,"B",$E(X,1,30),DA)="" 2)= K ^DIC(34,"B",$E(X,1,30),DA) 3)= DO NOT DELETE Regular B cross-reference used for look-up.
2	TYPE OF AGREEMENT	0;2	SET	'S' FOR SHARING; 'C' FOR CONTRACT; LAST EDITED: `SEP 23, 1984`
3	INACTIVATION DATE	I;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 23, 1995` HELP-PROMPT: `This is the date that this agreement was inactivated.`

AGREEMENT NAME

0;1

FREE TEXT

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

CROSS-REFERENCE: 34^B

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

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

3)= DO NOT DELETE

Regular B cross-reference used for look-up.

TYPE OF AGREEMENT

0;2

SET

INACTIVATION DATE

I;1

DATE