Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^PSI(58.1

Package: Auto Replenishment Ward Stock

Global: ^PSI(58.1

Information

FileMan FileNo	FileMan Filename	Package
58.1	PHARMACY AOU STOCK	Auto Replenishment Ward Stock

Description

This file defines the items, their location, and quantity for each area of use (AOU) in the hospital. Additionally, information for each inventory, by item, is stored for an audit trail of usage. APPLICATION GROUP(S): PSGW

Directly Accessed By Routines, Total: 98

Package	Total	Routines
Auto Replenishment Ward Stock	85	PSGW BO LOCATION PSGW PERCENTAGE PSGW SHOW AREA OF USE PSGWADE PSGWADP PSGWAIO PSGWAOU PSGWAOUI PSGWAR PSGWATR PSGWATR1 PSGWBGIN PSGWBO PSGWBO1 PSGWBOA PSGWBOE PSGWBOI PSGWBOS PSGWCAD PSGWCAD1 PSGWCAD2 PSGWCAD3 PSGWCCE PSGWCCP PSGWCHG PSGWCPA PSGWCPA1 PSGWDEL PSGWDR PSGWDUP PSGWDUP1 PSGWEDI PSGWEDI1 PSGWEDIS PSGWEXP PSGWEXR PSGWEXR1 PSGWEXR2 PSGWHC0 PSGWHC1 PSGWHV0 PSGWHV1 PSGWL PSGWLSI PSGWLSI1 PSGWLSI2 PSGWNU PSGWNU1 PSGWOD2 PSGWODP PSGWODPR PSGWODRN PSGWOLD PSGWOLD1 PSGWOND PSGWONDM PSGWPAW PSGWPI1 PSGWPI2 PSGWPIG PSGWPIS PSGWPL PSGWPL0 PSGWPL1 PSGWPOST PSGWPRE1 PSGWPSI PSGWPSI1 PSGWRAC PSGWRI PSGWSC PSGWSC1 PSGWSTD PSGWSTKI PSGWTOT1 PSGWTOT2 PSGWTR PSGWTR1 PSGWUAS PSGWUTL PSGWUTL1 PSGWVW PSGWWRD PSGWXREF ^PS(59.4
Inpatient Medications	7	PSGLOI PSGPEN PSGSICHK PSJDCHK PSJO PSJO2 PSJORMAR
Controlled Substances	2	PSDTRA PSDTRA1
Pharmacy Benefits Management	2	PSUAR1 PSUMAPR
Drug Accountability	1	PSARWS

Accessed By FileMan Db Calls, Total: 32

Package	Total	Routines
Auto Replenishment Ward Stock	31	PSGWAOUI PSGWATR PSGWBGIN PSGWBO PSGWBOS PSGWCCE PSGWCHG PSGWCPA PSGWDR PSGWEDI1 PSGWEDIS PSGWEXP PSGWEXR PSGWHC PSGWHV PSGWLSI PSGWNU PSGWODP PSGWODRN PSGWOLD1 PSGWOND PSGWONDM PSGWPIS PSGWRI PSGWSC PSGWSTKI PSGWTOT PSGWTOT2 PSGWTR PSGWTR1 PSGWWRD
Pharmacy Benefits Management	1	PSUMAPR

Pointed To By FileMan Files, Total: 4

Package	Total	FileMan Files
Auto Replenishment Ward Stock	3	PHARMACY AOU INVENTORY(#58.19)[#58.24(.01)] AOU INVENTORY GROUP(#58.2)[#58.21(.01)] PHARMACY BACKORDER(#58.3)[#58.31(.01)]
Pharmacy Data Management	1	PHARMACY SYSTEM(#59.7)[#59.79001(.01)]

Pointer To FileMan Files, Total: 8

Package	Total	FileMan Files
Auto Replenishment Ward Stock	3	INPATIENT SITE(#59.4)[4] AOU INVENTORY TYPE(#58.16)[#58.13(.01)] PHARMACY AOU INVENTORY(#58.19)[#58.12(.01)]
Registration	2	WARD LOCATION(#42)[#58.26(.01)] SPECIALTY(#42.4)[#58.27(.01)]
Kernel	1	NEW PERSON(#200)[#58.28(2), #58.28(4)]
Pharmacy Data Management	1	DRUG(#50)[#58.11(.01)]
Scheduling	1	HOSPITAL LOCATION(#44)[7, #58.14(.01)]

Fields, Total: 10

Field #	Name	Loc	Type	Details
.01	AREA OF USE (AOU)	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X` LAST EDITED: `SEP 20, 1989` HELP-PROMPT: `Answer must be 2-30 characters in length` DESCRIPTION: `This is the name of the Area Of Use. The AOU may represent a single ward or a combination of wards and their percentages of the total use. Areas of Use may also represent an area of the hospital with no affiliated wards,` `i.e. cardiac cath lab or dental clinic.` DELETE TEST: `13000,0)= I $O(^PSI(58.1,DA,1,0)) W !,"AOUs CANNOT BE DELETED IF THERE ARE ITEMS DEFINED!"` CROSS-REFERENCE: `58.1^B` `1)= S ^PSI(58.1,"B",$E(X,1,30),DA)=""` `2)= K ^PSI(58.1,"B",$E(X,1,30),DA)`
.5	RETURNS CREDITED TO	0;2	SET	'A' FOR AUTOMATIC REPLENISHMENT; 'W' FOR WARD STOCK - ON DEMAND; LAST EDITED: `JUN 03, 1987` HELP-PROMPT: `Enter "A" or "W".` DESCRIPTION: `For returns purposes, identify the "usual" method of drug distribution for this Area of Use.`
.75	COUNT ON AMIS?	0;3	SET	'0' FOR YES; '1' FOR NO; LAST EDITED: `AUG 14, 1987` HELP-PROMPT: `Enter "yes" or "no".` DESCRIPTION: `Some AOUs are created for internal Inpatient Pharmacy inventory purposes and should not be included in AMIS counts. "COUNT ON AMIS?" will be checked when quantity dispensed is entered to determine if the data should be` `added to the AR/WS Stats File. If answered "NO", then NO data is collected for AMIS calculation for this AOU.`
1	ITEM	1;0	POINTER Multiple #58.11	58.11 IDENTIFIED BY: `STOCK LEVEL(#1)[R], LOCATION(#10)`
2	WARD/LOCATION (FOR PERCENTAGE)	2;0	POINTER Multiple #58.14	58.14
3	INACTIVE DATE	I;1	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 06, 1989` HELP-PROMPT: `Enter date when this AOU is no longer active.` DESCRIPTION: `This contains the date on which the AOU was inactivated.`
4	INPATIENT SITE	SITE;1	POINTER TO INPATIENT SITE FILE (#59.4)	**********************REQUIRED FIELD********************** INPATIENT SITE(#59.4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),""^"",26)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 27, 1989` HELP-PROMPT: `Enter the INPATIENT SITE that will receive credit for the AMIS statistics for this AOU. Enter "^" to Exit option.` DESCRIPTION: `This field will point to the AR/WS INPATIENT SITE that will receive the credit for the AMIS statistics for this AOU.` SCREEN: `S DIC("S")="I $P(^(0),""^"",26)"` EXPLANATION: `Select only sites that are 'Selectable for AR/WS' in file #59.4.` CROSS-REFERENCE: `58.1^ASITE` `1)= S ^PSI(58.1,"ASITE",$E(X,1,30),DA)=""` `2)= K ^PSI(58.1,"ASITE",$E(X,1,30),DA)`
5	ASK EXPIRATION DATE?	0;4	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUL 05, 1990` HELP-PROMPT: `Enter '1' or 'Y' if you wish to be prompted for Expiration Dates for items in this Area of Use when entering on-demands or quantities dispensed.` DESCRIPTION: `If this field is set to '1' or 'Yes' for the Area of Use, the user will be prompted for Expiration Dates when on-demands or quantities dispensed (for inventories) are entered. If this field is set to '0' or 'No',` `Expiration Dates can only be entered through the supervisor option 'Expiration Date Enter/Edit'.`
6	CRASH CART FLAG	0;5	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 03, 1991` HELP-PROMPT: `Enter '1' or 'Y' if this Area of Use is a Crash Cart.` DESCRIPTION: `This field will be set to '1' (for 'yes') if this area of use is a crash cart. This flag will be used as a screen to list only crash carts for the option 'Update Crash Cart Locations'.` GROUP: `PSGW` CROSS-REFERENCE: `^^TRIGGER^58.1^7` `1)= Q` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSI(58.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" S DIH=$S($D(^PSI(58.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=58.1,DIG=7 D ^DICR:$N(^DD(DIH,DIG,` `1,0))>0` `CREATE VALUE)= NO EFFECT` `DELETE VALUE)= @` `FIELD)= CRASH CART LOCATION` `This cross-reference deletes any data in the CRASH CART LOCATION field (58.1,7) if the CRASH CART FLAG is set to "NO".`
7	CRASH CART LOCATION	0;6	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `MAY 03, 1991` HELP-PROMPT: `Enter the Location of this AOU. This field should only be used to enter locations for CRASH CARTS.` DESCRIPTION: `This field is meant to be used to record the location of an area of use that is a crash cart. This field will be printed on the Expiration Date report and will be updated in the option 'Update Crash Cart Locations'. Only` `areas of use that have the field CRASH CART FLAG set to '1' (for 'yes') will be selectable in the update option.` NOTES: `TRIGGERED by the CRASH CART FLAG field of the PHARMACY AOU STOCK File`

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All