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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | 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

Directly Accessed By Routines, Total: 103

Package Total Routines
Auto Replenishment Ward Stock 90 INVENTORY    ON-DEMAND REQUEST DATE/TIME    PSGW SHOW AREA OF USE    PSGWADP    PSGWAIO    PSGWAOUI    PSGWATR1    PSGWBGIN
PSGWBOA    PSGWBOS    PSGWCAD    PSGWCAD1    PSGWCAD2    PSGWCPA    PSGWDEL    PSGWEDI1
PSGWEDIS    PSGWEXP    PSGWEXR    PSGWEXR1    PSGWEXR2    PSGWHC1    PSGWLSI    PSGWLSI1
PSGWNU    PSGWODRN    PSGWOLD    PSGWOLD1    PSGWPAW    PSGWPI1    PSGWPL    PSGWPL0
PSGWPRE1    PSGWRAC    PSGWSC    PSGWSC1    PSGWTOT2    PSGWVW    ^PSI(58.1    ITEM
PBM DA PHARM LOC MAPPINGS    PSGW BO LOCATION    PSGW PERCENTAGE    PSGWADE    PSGWAOU    PSGWAR    PSGWATR    PSGWBO
PSGWBO1    PSGWBOE    PSGWBOI    PSGWCAD3    PSGWCCE    PSGWCCP    PSGWCHG    PSGWCPA1
PSGWDR    PSGWDUP    PSGWDUP1    PSGWEDI    PSGWHC0    PSGWHV0    PSGWHV1    PSGWL
PSGWLSI2    PSGWNU1    PSGWOD2    PSGWODP    PSGWODPR    PSGWOND    PSGWONDM    PSGWPI2
PSGWPIG    PSGWPIS    PSGWPL1    PSGWPOST    PSGWPSI    PSGWPSI1    PSGWRI    PSGWSTD
PSGWSTKI    PSGWTOT1    PSGWTR    PSGWTR1    PSGWUAS    PSGWUTL    PSGWUTL1    PSGWWRD
PSGWXREF    WARD (FOR ITEM)    
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

External References

Name Field # of Occurrence
^%DT 3+1
^DIC 4+1
^DICR 6(XREF 1K)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 6(XREF 1K)
^PSI(58.1 - [#58.1] .01DEL13000+1, .01(XREF 1S), .01(XREF 1K), 4(XREF 1S), 4(XREF 1K), 6(XREF 1K)

Naked Globals

Name Field # of Occurrence
^("I" IDWRITE+1
^(0 6(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 3+1*
>> D0 6(XREF 1K)
>> DA .01DEL13000+1, .01(XREF 1S), .01(XREF 1K), 4(XREF 1S), 4(XREF 1K), 6(XREF 1K)
DIC 4+1!*
DIC("S" 4+1*, 4SCR+1*
>> DIE 4+1
>> DIG 6(XREF 1K)
>> DIH 6(XREF 1K)
>> DIU 6(XREF 1K)
DIV 6(XREF 1K)
DIV(0 6(XREF 1K)
DT IDWRITE+1
U 6(XREF 1K)
X .01+1!, .01(XREF 1S), .01(XREF 1K), 3+1*!, 4+1*!, 4(XREF 1S), 4(XREF 1K), 6(XREF 1K)
Y 3+1, 4+1, 6(XREF 1K)
Y(1 6(XREF 1K)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All