Global: ^PS(50.35

FileMan FileNo	FileMan Filename	Package
50.35	DRUG APPLICATION	Inpatient Medications

Directly Accessed By Routines, Total: 3

Package	Total	Routines
Inpatient Medications	3	^PS(50.35 ^PS(59.6 APPLICATION

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.
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)

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	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