Global: ^PSI(58.16

FileMan FileNo	FileMan Filename	Package
58.16	AOU INVENTORY TYPE	Auto Replenishment Ward Stock

FileMan FileNo

FileMan Filename

Package

58.16

AOU INVENTORY TYPE

Auto Replenishment Ward Stock

Package	Total	Routines
Auto Replenishment Ward Stock	9	PSGWADE1 PSGWADP1 PSGWAIO PSGWLSI1 PSGWPAW1 PSGWPI1 PSGWPIG PSGWPSI1 ^PSI(58.16
Controlled Substances	7	PSDBALI PSDGPR PSDLSTK1 PSDOPTI PSDPLOG1 PSDPSTK1 PSDRLOG1

Package	Total	Routines
Controlled Substances	1	PSDOPTI

Package	Total	FileMan Files
Auto Replenishment Ward Stock	3	PHARMACY AOU STOCK(#58.1)[#58.13(.01)] PHARMACY AOU INVENTORY(#58.19)[#58.25(.01)] AOU INVENTORY GROUP(#58.2)[#58.22(.01), #58.291(.01)]
Drug Accountability	1	DRUG ACCOUNTABILITY STATS(#58.8)[#58.800116(.01)]

Fields, Total: 2

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	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` DESCRIPTION: This contains the name of an inventory type, i.e. injections, external, internal, oral liquid, or oral solid. This will be used to group items in each Area of Use. DELETE TEST: `1,0)= I $P(^PSI(58.16,DA,0),"^",1)="ON-DEMAND" W !,"This entry cannot be deleted, it is a requirement of the software."` CROSS-REFERENCE: `58.16^B` 1)= S ^PSI(58.16,"B",$E(X,1,30),DA)="" 2)= K ^PSI(58.16,"B",$E(X,1,30),DA)
1	TYPE DESCRIPTION	1;0	WORD-PROCESSING #58.18	DESCRIPTION: This contains information that describes this inventory type. This is purely for documentation of the scheme you have adopted at your site.

.01

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

DESCRIPTION:

This contains the name of an inventory type, i.e. injections, external, internal, oral liquid, or oral solid.  This will be used to group items in each Area of Use.

DELETE TEST: 1,0)= I $P(^PSI(58.16,DA,0),"^",1)="ON-DEMAND" W !,"This entry cannot be deleted, it is a requirement of the software."

CROSS-REFERENCE: 58.16^B

1)= S ^PSI(58.16,"B",$E(X,1,30),DA)=""

2)= K ^PSI(58.16,"B",$E(X,1,30),DA)

TYPE DESCRIPTION

1;0

WORD-PROCESSING #58.18

DESCRIPTION:

This contains information that describes this inventory type.  This is purely for documentation of the scheme you have adopted at your site.

Name	Line Occurrences (* Changed, ! Killed)
^PSI(58.16 - [#58.16]	.01DEL1+1, .01(XREF 1S), .01(XREF 1K)

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01DEL1+1, .01(XREF 1S), .01(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K)

Customize PDF page

Package: Auto Replenishment Ward Stock

Global: ^PSI(58.16

Information

Description

Directly Accessed By Routines, Total: 16

Accessed By FileMan Db Calls, Total: 1

Pointed To By FileMan Files, Total: 4

Fields, Total: 2

Global Variables Directly Accessed

Local Variables

Legend: