Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSGWI018

PSGWI018.m

Go to the documentation of this file. 
  1. PSGWI018 ; ; 04-JAN-1994
  1.  ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
  1.  Q:'DIFQ(58.2)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
  1. Q Q
  1.  ;;^DIC(58.2,0,"GL")
  1.  ;;=^PSI(58.2,
  1.  ;;^DIC("B","AOU INVENTORY GROUP",58.2)
  1.  ;;=
  1.  ;;^DIC(58.2,"%",0)
  1.  ;;=^1.005^2^2
  1.  ;;^DIC(58.2,"%",1,0)
  1.  ;;=PSGW
  1.  ;;^DIC(58.2,"%",2,0)
  1.  ;;=PSD
  1.  ;;^DIC(58.2,"%","B","PSD",2)
  1.  ;;=
  1.  ;;^DIC(58.2,"%","B","PSGW",1)
  1.  ;;=
  1.  ;;^DIC(58.2,"%D",0)
  1.  ;;=^^10^10^2920213^^^^
  1.  ;;^DIC(58.2,"%D",1,0)
  1.  ;;=Entries in this file define standard inventories by defining the areas
  1.  ;;^DIC(58.2,"%D",2,0)
  1.  ;;=of use and type of inventory items inventoried.  This saves the user
  1.  ;;^DIC(58.2,"%D",3,0)
  1.  ;;=from having to re-define the inventory boundaries every time a particular
  1.  ;;^DIC(58.2,"%D",4,0)
  1.  ;;=inventory is scheduled.  Instead, the user can name inventory groups and
  1.  ;;^DIC(58.2,"%D",5,0)
  1.  ;;=the computer then knows what will be inventoried by accessing this file.
  1.  ;;^DIC(58.2,"%D",6,0)
  1.  ;;= 
  1.  ;;^DIC(58.2,"%D",7,0)
  1.  ;;=This file is designed to be used by both the Automatic Replenishment/
  1.  ;;^DIC(58.2,"%D",8,0)
  1.  ;;=Ward Stock module and the Controlled Substance module.  Areas of use
  1.  ;;^DIC(58.2,"%D",9,0)
  1.  ;;=intended for AR/WS are defined in field #1 - AREA OF USE (AOU).  Areas of
  1.  ;;^DIC(58.2,"%D",10,0)
  1.  ;;=use intended for CS are defined in field #3 - NARCOTIC AREA OF USE (NAOU).
  1.  ;;^DD(58.2,0)
  1.  ;;=FIELD^^3^4
  1.  ;;^DD(58.2,0,"DT")
  1.  ;;=2920309
  1.  ;;^DD(58.2,0,"IX","B",58.2,.01)
  1.  ;;=
  1.  ;;^DD(58.2,0,"IX","CS",58.29,.01)
  1.  ;;=
  1.  ;;^DD(58.2,0,"IX","WS",58.21,.01)
  1.  ;;=
  1.  ;;^DD(58.2,0,"NM","AOU INVENTORY GROUP")
  1.  ;;=
  1.  ;;^DD(58.2,.01,0)
  1.  ;;=NAME^RFX^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP)!(X[",") X
  1.  ;;^DD(58.2,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(58.2,.01,1,1,0)
  1.  ;;=58.2^B
  1.  ;;^DD(58.2,.01,1,1,1)
  1.  ;;=S ^PSI(58.2,"B",$E(X,1,30),DA)=""
  1.  ;;^DD(58.2,.01,1,1,2)
  1.  ;;=K ^PSI(58.2,"B",$E(X,1,30),DA)
  1.  ;;^DD(58.2,.01,3)
  1.  ;;=Name must be 3-30 characters, not numeric or starting with punctuation
  1.  ;;^DD(58.2,.01,21,0)
  1.  ;;=^^7^7^2890906^^^
  1.  ;;^DD(58.2,.01,21,1,0)
  1.  ;;=This group name represents the Areas of Use which are inventoried
  1.  ;;^DD(58.2,.01,21,2,0)
  1.  ;;=together as a "batch" or "cluster".  This grouping establishes
  1.  ;;^DD(58.2,.01,21,3,0)
  1.  ;;=the elements of the inventory so that they do not have to be
  1.  ;;^DD(58.2,.01,21,4,0)
  1.  ;;=redefined every time the inventory is scheduled.
  1.  ;;^DD(58.2,.01,21,5,0)
  1.  ;;=Inventory groups may be established by (1) location, (2) time,
  1.  ;;^DD(58.2,.01,21,6,0)
  1.  ;;=(3) category or "type" of item to be inventoried, or any combination
  1.  ;;^DD(58.2,.01,21,7,0)
  1.  ;;=of these three.
  1.  ;;^DD(58.2,.01,"DT")
  1.  ;;=2850410
  1.  ;;^DD(58.2,1,0)
  1.  ;;=AREA OF USE (AOU)^58.21P^^1;0
  1.  ;;^DD(58.2,1,21,0)
  1.  ;;=^^3^3^2931014^^^^
  1.  ;;^DD(58.2,1,21,1,0)
  1.  ;;=Enter name of AOU that is to be inventoried when specifying this inventory
  1.  ;;^DD(58.2,1,21,2,0)
  1.  ;;=group at the time of creating an inventory date.  This is a way to 'group'
  1.  ;;^DD(58.2,1,21,3,0)
  1.  ;;=commonly inventoried AOUs under an easy to remember inventory group name.
  1.  ;;^DD(58.2,2,0)
  1.  ;;=GROUP DESCRIPTION^58.23^^2;0
  1.  ;;^DD(58.2,2,21,0)
  1.  ;;=^^3^3^2910304^^^
  1.  ;;^DD(58.2,2,21,1,0)
  1.  ;;=This text describes the inventory group and its use, and perhaps
  1.  ;;^DD(58.2,2,21,2,0)
  1.  ;;=the times when normally processed.  This is purely for documentation
  1.  ;;^DD(58.2,2,21,3,0)
  1.  ;;=of your site specific information.
  1.  ;;^DD(58.2,3,0)
  1.  ;;=NARCOTIC AREA OF USE (NAOU)^58.29P^^3;0
  1.  ;;^DD(58.2,3,21,0)
  1.  ;;=^^4^4^2920309^^
  1.  ;;^DD(58.2,3,21,1,0)
  1.  ;;=Enter name of NAOU that is to be inventoried when specifying this
  1.  ;;^DD(58.2,3,21,2,0)
  1.  ;;=inventory group at the time of creating an inventory date.  This is
  1.  ;;^DD(58.2,3,21,3,0)
  1.  ;;=a way to 'group' commonly inventoried NAOUs under an easy to remember
  1.  ;;^DD(58.2,3,21,4,0)
  1.  ;;=inventory group name.
  1.  ;;^DD(58.21,0)
  1.  ;;=AREA OF USE (AOU) SUB-FIELD^NL^2^3
  1.  ;;^DD(58.21,0,"DT")
  1.  ;;=2920213
  1.  ;;^DD(58.21,0,"IX","B",58.21,.01)
  1.  ;;=
  1.  ;;^DD(58.21,0,"IX","D",58.21,2)
  1.  ;;=
  1.  ;;^DD(58.21,0,"NM","AREA OF USE (AOU)")
  1.  ;;=
  1.  ;;^DD(58.21,0,"UP")
  1.  ;;=58.2
  1.  ;;^DD(58.21,.01,0)
  1.  ;;=AREA OF USE (AOU)^MRP58.1'X^PSI(58.1,^0;1^S:$D(X) DINUM=X
  1.  ;;^DD(58.21,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(58.21,.01,1,1,0)
  1.  ;;=58.21^B
  1.  ;;^DD(58.21,.01,1,1,1)
  1.  ;;=S ^PSI(58.2,DA(1),1,"B",$E(X,1,30),DA)=""