Global: ^PSD(58.36

Information

FileMan FileNo	FileMan Filename	Package
58.36	RETURN DRUG CONTRACTOR	Drug Accountability

Contains contractors and/or manufacturers to whom drugs are returned for credit or destruction.

Package	Total	Routines
Drug Accountability	4	^PSD(58.36 PRIMARY INVENTORY POINT(S) PSARDCBL PSARDCUT

Package	Total	Routines
Drug Accountability	2	PSARDCBA PSARDCBL

Package	Total	FileMan Files
Drug Accountability	1	RETURN DRUG(#58.35)[#58.351(4)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `JUL 21, 2008` HELP-PROMPT: `Answer must be 3-50 characters in length` DESCRIPTION: `Name of the Contractor/Manufacturer used for returning drug for credit.` DELETE TEST: `1,0)= I $$DELCMF^PSARDCBL(DA) D EN^DDIOL("Can't delete this entry. Associated pointers exist."_$C(7),"","!?5")` `DELETE AUTHORITY:` CROSS-REFERENCE: `58.36^B` `1)= S ^PSD(58.36,"B",$E(X,1,30),DA)=""` `2)= K ^PSD(58.36,"B",$E(X,1,30),DA)`
1	INACTIVATION DATE	0;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `JUL 16, 2008` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: `Date when the Contractor/Manufacturer is no longer active.`

NAME

0;1

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: JUL 21, 2008
HELP-PROMPT: Answer must be 3-50 characters in length
DESCRIPTION:
Name of the Contractor/Manufacturer used for returning drug for credit.
DELETE TEST: 1,0)= I $$DELCMF^PSARDCBL(DA) D EN^DDIOL("Can't delete this entry. Associated pointers exist."_$C(7),"","!?5")
DELETE AUTHORITY:
CROSS-REFERENCE: 58.36^B
1)= S ^PSD(58.36,"B",$E(X,1,30),DA)=""
2)= K ^PSD(58.36,"B",$E(X,1,30),DA)

INACTIVATION DATE

0;2

DATE

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.36 - [#58.36]	.01(XREF 1S), .01(XREF 1K)