Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All
Print Page as PDF
Global: ^PSI(58.19

Package: Auto Replenishment Ward Stock

Global: ^PSI(58.19


Information

FileMan FileNo FileMan Filename Package
58.19 PHARMACY AOU INVENTORY Auto Replenishment Ward Stock

Description

Accessed By FileMan Db Calls, Total: 9

Package Total Routines
Auto Replenishment Ward Stock 9 PSGWBO    PSGWDEL    PSGWEDI    PSGWL    PSGWOLD    PSGWPERE    PSGWPI    PSGWPIS
PSGWPL    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Auto Replenishment Ward Stock 1 PHARMACY AOU STOCK(#58.1)[#58.12(.01)]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Auto Replenishment Ward Stock 2 PHARMACY AOU STOCK(#58.1)[#58.24(.01)]    AOU INVENTORY TYPE(#58.16)[#58.25(.01)]    
Kernel 1 NEW PERSON(#200)[1]    

Fields, Total: 6

Field # Name Loc Type Details
.001 ID NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Number that uniquely identifies this inventory.
  • DESCRIPTION:  
    This contains a number that uniquely identifies this inventory.
.01 DATE/TIME FOR INVENTORY 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 14, 1993
  • HELP-PROMPT:  Enter date/time when inventory of ward(s) was taken.
  • DESCRIPTION:  This contains the date that the AOU inventory takes place for Automatic Replenishment. Primary inventory information is stored here. Inventory entries in File 58.1 - the Pharmacy AOU Stock File point to this value when
    processing an inventory.
  • DELETE TEST:  .01,0)= I 1 W !,"INVENTORIES MAY NOT BE DELETED!"
  • CROSS-REFERENCE:  ^^TRIGGER^58.19^2
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(2)=$C(59)_$S($D(^DD(58.19,2,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^PSI(58.19,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_":",2),$C(59),1) S DIU=X K Y X ^DD(58.19,.01,1,2,1.1) X ^D
    D(58.19,.01,1,2,1.4)
    1.1)= S X=DIV S X=DIV D DW^%DTC S X=X,Y(1)=X S X=1,Y(2)=X S X=3,X=$E(Y(1),Y(2),X)
    1.4)= S DIH=$S($D(^PSI(58.19,DIV(0),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=58.19,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= $E(DAYOFWEEK(#.01),1,3)
    DELETE VALUE)= NO EFFECT
    FIELD)= DAY
    This cross-reference sets the DAY OF THE WEEK (58.19,2) from the date selected.
  • CROSS-REFERENCE:  ^^TRIGGER^58.19^1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSI(58.19,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,3),0)):"",1:$P(^(0),U,1)) S DIU=X K Y X ^DD(58.19,.01,1,3,1.1) X ^DD(58.19,.01,1,3,1.4)
    1.1)= S X=DIV S X=$S($D(DUZ):DUZ,1:0) S X=X
    1.4)= S DIH=$S($D(^PSI(58.19,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=58.19,DIG=1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= USER#
    DELETE VALUE)= NO EFFECT
    FIELD)= PERSON
    This cross-reference sets the field PERSON DOING INVENTORY (58.19,1) using the variable DUZ.
  • CROSS-REFERENCE:  58.19^B
    1)= S ^PSI(58.19,"B",$E(X,1,30),DA)=""
    2)= K ^PSI(58.19,"B",$E(X,1,30),DA)
.5 AREA OF USE 1;0 POINTER Multiple #58.24 58.24
1 PERSON DOING INVENTORY 0;3 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  Enter name of person primarily responsible for this inventory.
  • DESCRIPTION:  
    This points to File 200 - the New Person File, identifying the person who creates the inventory.
  • NOTES:  TRIGGERED by the DATE/TIME FOR INVENTORY field of the PHARMACY AOU INVENTORY File
2 DAY OF WEEK 0;2 SET
  • 'MON' FOR MONDAY;
  • 'TUE' FOR TUESDAY;
  • 'WED' FOR WEDNESDAY;
  • 'THU' FOR THURSDAY;
  • 'FRI' FOR FRIDAY;
  • 'SAT' FOR SATURDAY;
  • 'SUN' FOR SUNDAY;

  • HELP-PROMPT:  Enter day of the week on which the inventory was done.
  • DESCRIPTION:  
    This contains the day of the week when the inventory was done.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the DATE/TIME FOR INVENTORY field of the PHARMACY AOU INVENTORY File
3 INVENTORY GROUP 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • LAST EDITED:  FEB 28, 1990
  • HELP-PROMPT:  Answer must be 1-25 characters in length
  • DESCRIPTION:  
    This points to File 58.2 - AOU Inventory Group File. It contains the inventory group - cluster of AOUs which are inventoried together.
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All