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    ITEM    ON-DEMAND REQUEST DATE/TIME    PBM DA PHARM LOC MAPPINGS    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
WARD (FOR ITEM)    ^PSI(58.1    
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