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.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

Directly Accessed By Routines, Total: 30

Package Total Routines
Auto Replenishment Ward Stock 30 AREA OF USE    PSGW PERCENTAGE    PSGWAIO    PSGWATR    PSGWBO    PSGWBO1    PSGWCPA    PSGWDUP1
PSGWEDI    PSGWEDI1    PSGWHC0    PSGWHV0    PSGWKINV    PSGWL    PSGWNU    PSGWOLD
PSGWPI1    PSGWPI2    PSGWPIS    PSGWPL    PSGWPL0    PSGWPL1    PSGWTOT1    PSGWUTL
^PS(59.4    ^PSI(58.19    PSGWSC    PSGWTOT2    PSGWUAS    PSGWXREF    

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.

External References

Name Field # of Occurrence
^%DT .01+1
DW^%DTC .01(XREF 2n1.1)
^DICR .01(XREF 2n1.4), .01(XREF 3n1.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( .01(XREF 2n1.4), .01(XREF 3n1.4)
^DD(58.19 .01(XREF 2S), .01(XREF 3S)
^PSI(58.19 - [#58.19] IDWRITE+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4K)
^PSI(58.2 - [#58.2] IDWRITE+1
^VA(200 - [#200] ID1+1, .01(XREF 3S)

Naked Globals

Name Field # of Occurrence
^("0" ID1+1, ID2+1
^(0 ID1+1, IDWRITE+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % .01(XREF 2n1.4), .01(XREF 3n1.4)
>> %DT .01+1*
>> D0 .01(XREF 2S), .01(XREF 3S)
>> DA .01(XREF 2S), .01(XREF 3S), .01(XREF 4S), .01(XREF 4K)
>> DIC ID1+1
>> DIG .01(XREF 2n1.4), .01(XREF 3n1.4)
>> DIH .01(XREF 2n1.4), .01(XREF 3n1.4)
>> DIU .01(XREF 2S), .01(XREF 3S)
DIV .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4)
DIV(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4)
DUZ .01(XREF 3n1.1)
>> GRP IDWRITE+1*
>> LP IDWRITE+1*
>> PC IDWRITE+1*
U ID1+1, ID2+1, IDWRITE+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4)
X .001+1!, .01+1*!, .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4K)
, 3+1!
Y IDWRITE+1, .01+1, .01(XREF 2S), .01(XREF 3S)
Y(1 .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 3S)
Y(2 .01(XREF 2S), .01(XREF 2n1.1)
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