Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 58.11

Package: Auto Replenishment Ward Stock

PHARMACY AOU STOCK(#58.1)-->58.11

Sub-Field: 58.11


Information

Parent File Name Number Package
PHARMACY AOU STOCK(#58.1) ITEM 58.11 Auto Replenishment Ward Stock

Details

Field # Name Loc Type Details
.01 ITEM 0;1 POINTER TO DRUG FILE (#50)
************************REQUIRED FIELD************************
DRUG(#50)

  • INPUT TRANSFORM:  S DIC("S")="D DRGSCRN^PSGWUTL" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) D EDCHK^PSGWUTL
  • LAST EDITED:  JUN 03, 1993
  • DESCRIPTION:  
    ITEM defines the name of the drug stocked in this Area of Use.
  • SCREEN:  S DIC("S")="D DRGSCRN^PSGWUTL"
  • EXPLANATION:  Do not select INACTIVE or NON-PHARMACY items. NOTE: Items containing significant data can not be modified.
  • DELETE TEST:  13000,0)= I 1 W !,"ITEMS CANNOT BE DELETED,MUST BE INACTIVATED!"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  58.11^B
    1)= S ^PSI(58.1,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^PSI(58.1,DA(1),1,"B",$E(X,1,30),DA)
1 STOCK LEVEL 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 27, 1985
  • HELP-PROMPT:  Type a whole number between 0 and 9999
  • DESCRIPTION:  
    This contains the quantity that is the required stock level for the item in the Area of Use.
  • CROSS-REFERENCE:  ^^TRIGGER^58.11^11
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PSI(58.1,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,5) S DIU=X K Y S X=DIV S X="Y" X ^DD(58.11,1,1,1,1.4)
    1.4)= S DIH=$S($D(^PSI(58.1,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,4,99)) S DIH=DIH_U" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=58.11,DIG=11 D ^DICR:$N(^DD(
    DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= "Y"
    DELETE VALUE)= NO EFFECT
    FIELD)= LEVEL CHG
    This cross-reference sets a flag in the LEVEL CHG field (58.11,11) if there has been any change to the stock level for an item.
2 INVENTORY 1;0 POINTER Multiple #58.12 58.12

  • DESCRIPTION:  
    This allows selection of inventory by entering a unique key of DATE AND TIME.
3 TYPE OF INVENTORY 2;0 POINTER Multiple #58.13 58.13

  • SCREEN:  S DIC("S")="I $P(^(0),""^"",1)'=""ALL"""
  • EXPLANATION:  Enter type for item
5 WARD (FOR ITEM) 4;0 POINTER Multiple #58.26 58.26
10 LOCATION 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  JUN 19, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1-12 CHARACTERS IN LENGTH
  • DESCRIPTION:  This is the location address of the item in the Area of Use. It can consist of up to 3 levels, each separated by a comma. For example, "MR,CA,S3" or "CUR,CB,D1". This information is used to sort items on inventory
    sheets and other printouts.
11 LEVEL CHG 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  DEC 18, 1984
  • HELP-PROMPT:  Answer must be 1-10 characters in length
  • DESCRIPTION:  
    This contains the change in stock level for the item.
  • NOTES:  TRIGGERED by the STOCK LEVEL field of the ITEM sub-field of the PHARMACY AOU STOCK File
12 NON-STANDARD ITEM 0;6 SET

  • LAST EDITED:  FEB 08, 1985
  • DESCRIPTION:  This identifies if an item is a standard stocked item in the Area of Use or not. Enter 1 if the item is not a standard stocked item, but is being added as an on-demand request. Enter 0 if the item is a standard
    stocked item in the AOU.
13 REORDER LEVEL 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 01, 1988
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the on-hand level that must be reached before an item will have replacements dispensed.
14 MINIMUM QUANTITY TO DISPENSE 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 17, 1991
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits.
  • DESCRIPTION:  
    This field contains the minimum quantity that will be dispensed of an item.
15 RETURNS 3;0 DATE Multiple #58.15 58.15
16 ON-DEMAND REQUEST DATE/TIME 5;0 DATE Multiple #58.28 58.28
30 INACTIVATION DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 19, 1993
  • HELP-PROMPT:  Enter date when this item is no longer considered a ward stock item.
  • DESCRIPTION:  
    This contains the date on which the drug/item in the Area of Use was inactivated, and thus is no longer considered part of the standard stock for that Area of Use.
  • CROSS-REFERENCE:  58.11^AC^MUMPS
    1)= S ^PSI(58.1,DA(1),1,DA,"I",X)=""
    2)= K ^PSI(58.1,DA(1),1,DA,"I",X)
    This cross-reference sets or deletes the "I" node for a stock item.
  • CROSS-REFERENCE:  ^^TRIGGER^58.11^34
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PSI(58.1,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X="Y" X ^DD(58.11,30,1,2,1.4)
    1.4)= S DIH=$S($D(^PSI(58.1,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,9,99)) S DIH=DIH_U" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"":U_%,1:""),DIH=58.11,DIG=34 D ^DICR:$N(^D
    D(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PSI(58.1,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X="N" X ^DD(58.11,30,1,2,2.4)
    2.4)= S DIH=$S($D(^PSI(58.1,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,9,99)) S DIH=DIH_U" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"":U_%,1:""),DIH=58.11,DIG=34 D ^DICR:$N(^D
    D(DIH,DIG,1,0))>0
    CREATE VALUE)= "Y"
    DELETE VALUE)= "N"
    FIELD)= INACTIVE DATE FLAG
    This cross-reference sets the field INACTIVE DATE FLAG (58.11,34) to "YES" or "NO".
  • CROSS-REFERENCE:  58.1^AD^MUMPS
    1)= I $D(^PSI(58.1,DA(1),1,DA,0)),^(0) S PSGWDRG=+^(0) F W=0:0 S W=$O(^PSI(58.1,DA(1),1,DA,4,W)) Q:'W K:$P(^PSI(58.1,DA(1),1,DA,0),"^",3)=DT!($P(^(0),"^",3)
    2)= I $D(^PSI(58.1,DA(1),1,DA,0)),^(0) S PSGWDRG=+^(0) F W=0:0 S W=$O(^PSI(58.1,DA(1),1,DA,4,W)) Q:'W S ^PSI(58.1,"D",PSGWDRG,W,DA(1))=""
    This cross-reference will delete the "D" cross reference on the field WARD (FOR ITEM) for a stock item that has been inactivated. If the INACTIVATION DATE is deleted, the "D" cross-reference is reset.
  • CROSS-REFERENCE:  ^^TRIGGER^58.11^31
    1)= Q
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PSI(58.1,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(58.11,30,1,4,2.4)
    2.4)= S DIH=$S($D(^PSI(58.1,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99)) S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=58.11,DIG=31 D ^DICR:$N(^DD(
    DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE VALUE)= @
    FIELD)= INACTIVATION REASON
    This cross-reference will delete the field INACTIVATION REASON (58.11,31) if the INACTIVATION DATE is deleted.
  • CROSS-REFERENCE:  ^^TRIGGER^58.11^33
    1)= Q
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PSI(58.1,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(58.11,30,1,5,2.4)
    2.4)= S DIH=$S($D(^PSI(58.1,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,8,99)) S DIH=DIH_U" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(0)=$P(DIH,U,1,8)_U_DIV_$S(%]"":U_%,1:""),DIH=58.11,DIG=33 D ^DICR:$N(^DD
    (DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE VALUE)= @
    FIELD)= INACTIVATION REASON (OTHER)
    This cross-reference will delete the field INACTIVATION REASON (OTHER) (58.11,33) if the INACTIVATION DATE is deleted.
31 INACTIVATION REASON 0;4 SET
  • 'N' FOR NOT USED;
  • 'O' FOR OTHER;
  • 'DF' FOR DELETED FROM FORMULARY;

  • LAST EDITED:  APR 15, 1991
  • DESCRIPTION:  
    This contains the reason that the item has been inactivated from the list of items normally stocked in this Area of Use.
  • NOTES:  TRIGGERED by the INACTIVATION DATE field of the ITEM sub-field of the PHARMACY AOU STOCK File
33 INACTIVATION REASON (OTHER) 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  JUN 14, 1984
  • HELP-PROMPT:  Answer must be 3-40 characters in length
  • DESCRIPTION:  
    This contains the custom reason for inactivating the item from the AOU stock list. An inactivation reason of 'other' should have been entered if a custom reason is to be listed.
  • NOTES:  TRIGGERED by the INACTIVATION DATE field of the ITEM sub-field of the PHARMACY AOU STOCK File
34 INACTIVE DATE FLAG 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  DEC 19, 1984
  • HELP-PROMPT:  Answer must be 1-3 characters in length
  • DESCRIPTION:  
    This flag will be set to "YES" if there is an inactivation date for the item in the AOU. If there is no inactivation date for the item, then the flag will be set to "NO".
    WRITE AUTHORITY:^
  • NOTES:  TRIGGERED by the INACTIVATION DATE field of the ITEM sub-field of the PHARMACY AOU STOCK File
35 EXPIRATION DATE EXP;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 27, 1990
  • HELP-PROMPT:  Enter the Expiration Date for this Item.
  • DESCRIPTION:  
    This field contains the expiration date for this item.
  • CROSS-REFERENCE:  58.1^AEXP^MUMPS
    1)= S PSGWDRUG=+^PSI(58.1,DA(1),1,DA,0),^PSI(58.1,"AEXP",$E(X,1,30),PSGWDRUG,DA(1))="" K PSGWDRUG
    2)= S PSGWDRUG=+^PSI(58.1,DA(1),1,DA,0) K ^PSI(58.1,"AEXP",$E(X,1,30),PSGWDRUG,DA(1)),PSGWDRUG
    This cross-reference is used to sort the expiration dates for stock items for the option "Expiration Date Report".
Info |  Details