Global: ^DIC(51.5

Information

FileMan FileNo	FileMan Filename	Package
51.5	ORDER UNIT	Outpatient Pharmacy

This file holds the list of order units that are valid when describing a drug entry in the DRUG file. Sites need to add units which they use.

Package	Total	Routines
Drug Accountability	22	PSABRKU6 PSACON PSADRI PSADRUG PSADRUGP PSAHELP PSAORDP1 PSAORDP2 PSAPROC3 PSAPROC4 PSAPROC8 PSAREORD PSAUP4 PSAUP5 PSAUTL1 PSAUTL4 PSAVER2 PSAVER3 PSAVERA PSAVERA1 PSAVIN2 PSAVINC
Pharmacy Data Management	11	PSS50A PSS50AQM PSS50ATC PSS50B1 PSS50TMP PSS50WS PSS51P5 PSSDGUPD PSSHUIDG PSSLOOK PSSMARK
National Drug File	5	PSNCOMP PSNHIT PSNPFN PSNRPT2 PSNVFY
Controlled Substances	2	PSDCSL PSDREC2
Auto Replenishment Ward Stock	1	PSGWADP
CMOP	1	PSXCMOP0
Outpatient Pharmacy	1	^DIC(51.5

Package	Total	Routines
Drug Accountability	4	PSAREC PSAUTL6 PSAVER2 PSAVERA3
Pharmacy Data Management	1	PSS51P5

Package	Total	FileMan Files
Drug Accountability	2	DRUG ACCOUNTABILITY ORDER(#58.811)[#58.81125(3)] DA UPLOAD(#58.812)[#58.8122(1)]
Pharmacy Data Management	1	DRUG(#50)[12, #50.1(401)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ABBREVIATION	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X` HELP-PROMPT: `ANSWER MUST BE 2-3 CHARACTERS IN LENGTH` DESCRIPTION: This field is used to enter an abbreviated order unit name. CROSS-REFERENCE: `51.5^B` 1)= S ^DIC(51.5,"B",$E(X,1,30),DA)="" 2)= K ^DIC(51.5,"B",$E(X,1,30),DA)
.02	EXPANSION	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>30!($L(X)<3) X` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` DESCRIPTION: This field is used to enter an expanded order unit name. CROSS-REFERENCE: `51.5^C` 1)= S ^DIC(51.5,"C",$E(X,1,30),DA)="" 2)= K ^DIC(51.5,"C",$E(X,1,30),DA)

ABBREVIATION

0;1

FREE TEXT

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

DESCRIPTION:

This field is used to enter an abbreviated order unit name.

CROSS-REFERENCE: 51.5^B

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

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

EXPANSION

0;2

FREE TEXT

DESCRIPTION:

This field is used to enter an expanded order unit name.

CROSS-REFERENCE: 51.5^C

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

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

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

Name	Field # of Occurrence
^("0"	ID.02+1