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

Package: Auto Replenishment Ward Stock

PHARMACY AOU STOCK(#58.1)-->58.11-->58.12

Sub-Field: 58.12


Information

Parent File Name Number Package
58.11 INVENTORY 58.12 Auto Replenishment Ward Stock

Details

Field # Name Loc Type Details
.01 DATE/TIME FOR INVENTORY 0;1 POINTER TO PHARMACY AOU INVENTORY FILE (#58.19) PHARMACY AOU INVENTORY(#58.19)

  • INPUT TRANSFORM:  S:$D(X) DINUM=X
  • LAST EDITED:  FEB 13, 1990
  • DESCRIPTION:  
    This contains the DATE/TIME of the inventory.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  58.12^C^MUMPS
    1)= S $P(^(1,DA,0),"^",2)=$P(^PSI(58.1,DA(2),1,DA(1),0),"^",2)
    2)= S $P(^PSI(58.1,DA(2),1,DA(1),1,DA,0),"^",2)=""
    This cross-reference automatically sets the field LEVEL (58.12,1) equal to whatever is in the field STOCK LEVEL (58.11,1).
1 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 stock level of the item for the inventory DATE/TIME.
    WRITE AUTHORITY:^
3 COMPILED INTO AMIS? 0;4 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 26, 1988
  • DESCRIPTION:  A TaskMan background routine ^PSGWUAS (option PSGW UPDATE AMIS STATS) runs each night. As the data for an inventory transaction is completed, this "COMPILED FLAG" will be set to "1". This will enable the
    cross-reference ^PSI(58.5,"AMIS") to be recompiled via the option PSGW RE-INDEX AMIS or via VA FileMan should the need arise.
3.5 ON HAND 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 18, 1985
  • HELP-PROMPT:  Type a whole number between 0 and 9999
  • DESCRIPTION:  
    This contains the quantity of the item currently in the Area of Use.
  • CROSS-REFERENCE:  ^^TRIGGER^58.12^4
    1)= Q:$D(DIU(0))  K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^PSI(58.1,D0,1,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,5) S DIU=X K Y X ^DD(58.12,3.5,1,1,1.1) X ^DD(58.12,3.5,1,1,1.4)
    1.1)= S X=DIV X ^DD(58.12,3.5,1,1,1,9.2) S X=$S(Y(2):Y(5),Y(6):X)
    1.4)= S DIH=$S($D(^PSI(58.1,DIV(0),1,DIV(1),1,DIV(2),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.12,DIG=4 D ^DICR
    :$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= $S((ON-HAND)
    DELETE VALUE)= NO EFFECT
    FIELD)= DISPENSE
    This cross-reference sets the value of the field DISPENSING QUANTITY (58.12,4) for sites that are NOT merging their pick lists and inventory sheets. This value will be calculated using the following logic: ON HAND
    LEVEL then DISPENSE QUANTITY=STOCK LEVEL-ON HAND ON HAND>or=STOCK LEVEL then DISPENSE QUANTITY=zero
4 DISPENSE QUANTITY 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 28, 1991
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits.
  • DESCRIPTION:  
    This contains the quantity of the item dispensed to restore stock to the required level.
  • NOTES:  TRIGGERED by the ON HAND field of the INVENTORY sub-field of the ITEM sub-field of the PHARMACY AOU STOCK File
  • CROSS-REFERENCE:  58.12^AMIS^MUMPS
    1)= Q:$D(PSGWV)  D QD^PSGWUTL
    2)= Q:$D(PSGWV)  D KQD^PSGWUTL
    This cross-reference is set everytime a quantity greater than zero is dispensed for a stock item. The nightly job "Update AMIS Stats File" will process this cross-reference and store the data in the AR/WS Stats File
    (#58.5). After the cross-reference is processed, it is deleted.
  • CROSS-REFERENCE:  58.12^AMISERR^MUMPS
    1)= Q:$D(PSGWV)  D QDERR^PSGWUTL
    2)= Q:$D(PSGWV)  D KQDERR^PSGWUTL
    This cross-reference is set by the nightly job "Update AMIS Stats file" if an AMIS transaction is found to have invalid or missing Inpatient Site data. Existence of this cross-reference will cause a MailMan message to be
    sent to holders of the PSGWMGR security key informing them of the invalid or missing data.
5 PERCENTAGE OF STOCK ON HAND COMPUTED

  • MUMPS CODE:  S Y(58.12,5,1)=$S($D(^PSI(58.1,D0,1,D1,1,D2,0)):^(0),1:"") S X=$P(Y(58.12,5,1),U,6),X=$S($P(Y(58.12,5,1),U,2):X/$P(Y(58.12,5,1),U,2),1:"*******")*100
    9.2 = S Y(58.12,5,1)=$S($D(^PSI(58.1,D0,1,D1,1,D2,0)):^(0),1:"") S X=$P(Y(58.12,5,1),U,2),Y(58.12,5,2)=X S X=$P(Y(58.12,5,1),U,6),Y=X,X=Y(58.12,5,2),X=X-Y,X=$S($P(Y(58.12,5,1),U,2):X/$P(Y(58.12,5,1),U,2),1:"*******")
  • ALGORITHM:  ON HAND/LEVEL*100
  • LAST EDITED:  OCT 08, 1987
  • DESCRIPTION:  
    Percentage stock on hand is computed by dividing the amount on hand by the stock level times 100.
Info |  Details |  All