Global: ^PS(50.35

FileMan FileNo	FileMan Filename	Package
50.35	DRUG APPLICATION	Inpatient Medications

Directly Accessed By Routines, Total: 2

Package	Total	Routines
Inpatient Medications	2	APPLICATION ^PS(50.35

Package	Total	Routines
Inpatient Medications	2	PSGFILD0 PSJUTL
Pharmacy Data Management	1	PSSFIL

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>60!($L(X)<2)!'(X'?1P.E) X` LAST EDITED: `AUG 19, 1991` HELP-PROMPT: `Enter the name of an application that will be using entries in the Primary Drug file.` DESCRIPTION: This is an application that may make use of the entries within the Primary Drug file. TECHNICAL DESCR: If an application (DHCP package) would like to use entries within the Primary Drug file, it must first have an entry in this file. GROUP: `PS` CROSS-REFERENCE: `50.35^B` 1)= S ^PS(50.35,"B",$E(X,1,30),DA)="" 2)= K ^PS(50.35,"B",$E(X,1,30),DA)
.02	CODE	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1) X I $D(X) S X(1)=$O(^PS(53.35,"C",X,0)) I X(1) S X(2)=$P($G(^PS(50.35,X(1),0)),"^") S:X(2)="" X(2)=X(1) K X W !,"THIS CODE IS ALREADY USED BY ",X(2)` LAST EDITED: `DEC 20, 1991` HELP-PROMPT: `Answer must be 1 character in length.` DESCRIPTION: This is the code for this application. This code is stored with the drugs associated with this application. GROUP: `PS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `50.35^C` 1)= S ^PS(50.35,"C",$E(X,1,30),DA)="" 2)= K ^PS(50.35,"C",$E(X,1,30),DA) 3)= USED FOR LOOK-UP.

NAME

0;1

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>60!($L(X)<2)!'(X'?1P.E) X
LAST EDITED: AUG 19, 1991
HELP-PROMPT: Enter the name of an application that will be using entries in the Primary Drug file.

DESCRIPTION:

This is an application that may make use of the entries within the Primary Drug file.

TECHNICAL DESCR:

If an application (DHCP package) would like to use entries within the Primary Drug file, it must first have an entry in this file.

CROSS-REFERENCE: 50.35^B

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

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

CODE

0;2

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1) X I $D(X) S X(1)=$O(^PS(53.35,"C",X,0)) I X(1) S X(2)=$P($G(^PS(50.35,X(1),0)),"^") S:X(2)="" X(2)=X(1) K X W !,"THIS CODE IS ALREADY USED BY ",X(2)
LAST EDITED: DEC 20, 1991
HELP-PROMPT: Answer must be 1 character in length.

DESCRIPTION:

This is the code for this application.  This code is stored with the drugs associated with this application.

CROSS-REFERENCE: 50.35^C

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

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

3)= USED FOR LOOK-UP.

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.35 - [#50.35]	.01(XREF 1S), .01(XREF 1K), .02+1, .02(XREF 1S), .02(XREF 1K)
^PS(53.35	.02+1

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