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

PSGWI019.m

Go to the documentation of this file. 
  1. PSGWI019 ; ; 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.  ;;^DD(58.21,.01,1,1,2)
  1.  ;;=K ^PSI(58.2,DA(1),1,"B",$E(X,1,30),DA)
  1.  ;;^DD(58.21,.01,1,2,0)
  1.  ;;=58.2^WS^MUMPS
  1.  ;;^DD(58.21,.01,1,2,1)
  1.  ;;=S ^PSI(58.2,"WS",DA(1),$E(X,1,30))=""
  1.  ;;^DD(58.21,.01,1,2,2)
  1.  ;;=K ^PSI(58.2,"WS",DA(1),$E(X,1,30))
  1.  ;;^DD(58.21,.01,1,2,"%D",0)
  1.  ;;=^^4^4^2920220^
  1.  ;;^DD(58.21,.01,1,2,"%D",1,0)
  1.  ;;=This cross-reference is used to distinguish between inventory groups
  1.  ;;^DD(58.21,.01,1,2,"%D",2,0)
  1.  ;;=that belong to the AR/WS module and those belonging to the CS module.
  1.  ;;^DD(58.21,.01,1,2,"%D",3,0)
  1.  ;;=This cross-reference will identify AR/WS inventory groups and will be
  1.  ;;^DD(58.21,.01,1,2,"%D",4,0)
  1.  ;;=used for lookup and sorting.
  1.  ;;^DD(58.21,.01,1,2,"DT")
  1.  ;;=2920220
  1.  ;;^DD(58.21,.01,3)
  1.  ;;=Enter the AOU for this inventory group.
  1.  ;;^DD(58.21,.01,21,0)
  1.  ;;=^^2^2^2931014^^^^
  1.  ;;^DD(58.21,.01,21,1,0)
  1.  ;;=This contains the name of the AOU that is to be inventoried when selecting 
  1.  ;;^DD(58.21,.01,21,2,0)
  1.  ;;=this inventory group.  This points to File 58.1 - Pharmacy AOU Stock File.
  1.  ;;^DD(58.21,.01,"DT")
  1.  ;;=2920220
  1.  ;;^DD(58.21,1,0)
  1.  ;;=INVENTORY TYPE^58.22PA^^1;0
  1.  ;;^DD(58.21,2,0)
  1.  ;;=SORT KEY^NJ15,4^^0;2^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."5N.N) X
  1.  ;;^DD(58.21,2,1,0)
  1.  ;;=^.1
  1.  ;;^DD(58.21,2,1,1,0)
  1.  ;;=58.21^D
  1.  ;;^DD(58.21,2,1,1,1)
  1.  ;;=S ^PSI(58.2,DA(1),1,"D",$E(X,1,30),DA)=""
  1.  ;;^DD(58.21,2,1,1,2)
  1.  ;;=K ^PSI(58.2,DA(1),1,"D",$E(X,1,30),DA)
  1.  ;;^DD(58.21,2,3)
  1.  ;;=Type a Number between 0 and 9999999999, 4 Decimal Digits
  1.  ;;^DD(58.21,2,21,0)
  1.  ;;=^^2^2^2871009^^
  1.  ;;^DD(58.21,2,21,1,0)
  1.  ;;=The sort key is used to define the sort order of AOUs within an 
  1.  ;;^DD(58.21,2,21,2,0)
  1.  ;;=inventory group.
  1.  ;;^DD(58.21,2,"DT")
  1.  ;;=2891102
  1.  ;;^DD(58.22,0)
  1.  ;;=INVENTORY TYPE SUB-FIELD^NL^.01^1
  1.  ;;^DD(58.22,0,"DT")
  1.  ;;=2920213
  1.  ;;^DD(58.22,0,"NM","INVENTORY TYPE")
  1.  ;;=
  1.  ;;^DD(58.22,0,"UP")
  1.  ;;=58.21
  1.  ;;^DD(58.22,.01,0)
  1.  ;;=INVENTORY TYPE^MRP58.16'X^PSI(58.16,^0;1^S:$D(X) DINUM=X
  1.  ;;^DD(58.22,.01,3)
  1.  ;;=Enter the inventory type(s) for this AOU.
  1.  ;;^DD(58.22,.01,21,0)
  1.  ;;=^^3^3^2931014^^^
  1.  ;;^DD(58.22,.01,21,1,0)
  1.  ;;=This contains the inventory type that is to be inventoried within
  1.  ;;^DD(58.22,.01,21,2,0)
  1.  ;;=the AOU.  More than one inventory type can be entered.  The inventory
  1.  ;;^DD(58.22,.01,21,3,0)
  1.  ;;=types must have been defined in File 58.16 - AOU Inventory Type File.
  1.  ;;^DD(58.22,.01,"DT")
  1.  ;;=2920213
  1.  ;;^DD(58.23,0)
  1.  ;;=GROUP DESCRIPTION SUB-FIELD^NL^.01^1
  1.  ;;^DD(58.23,0,"NM","GROUP DESCRIPTION")
  1.  ;;=
  1.  ;;^DD(58.23,0,"UP")
  1.  ;;=58.2
  1.  ;;^DD(58.23,.01,0)
  1.  ;;=GROUP DESCRIPTION^W^^0;1^Q
  1.  ;;^DD(58.23,.01,21,0)
  1.  ;;=^^3^3^2910304^
  1.  ;;^DD(58.23,.01,21,1,0)
  1.  ;;=This text describes the inventory group and its use, and perhaps
  1.  ;;^DD(58.23,.01,21,2,0)
  1.  ;;=the times when normally processed.  This is purely for documentation
  1.  ;;^DD(58.23,.01,21,3,0)
  1.  ;;=of your site specific information.
  1.  ;;^DD(58.29,0)
  1.  ;;=NARCOTIC AREA OF USE (NAOU) SUB-FIELD^^2^3
  1.  ;;^DD(58.29,0,"DT")
  1.  ;;=2920309
  1.  ;;^DD(58.29,0,"IX","B",58.29,.01)
  1.  ;;=
  1.  ;;^DD(58.29,0,"IX","D",58.29,2)
  1.  ;;=
  1.  ;;^DD(58.29,0,"NM","NARCOTIC AREA OF USE (NAOU)")
  1.  ;;=
  1.  ;;^DD(58.29,0,"UP")
  1.  ;;=58.2
  1.  ;;^DD(58.29,.01,0)
  1.  ;;=NARCOTIC AREA OF USE (NAOU)^MR*P58.8'X^PSD(58.8,^0;1^S DIC("S")="I $P(^(0),""^"",2)'=""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
  1.  ;;^DD(58.29,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(58.29,.01,1,1,0)
  1.  ;;=58.29^B
  1.  ;;^DD(58.29,.01,1,1,1)
  1.  ;;=S ^PSI(58.2,DA(1),3,"B",$E(X,1,30),DA)=""
  1.  ;;^DD(58.29,.01,1,1,2)
  1.  ;;=K ^PSI(58.2,DA(1),3,"B",$E(X,1,30),DA)
  1.  ;;^DD(58.29,.01,1,2,0)
  1.  ;;=58.2^CS^MUMPS
  1.  ;;^DD(58.29,.01,1,2,1)
  1.  ;;=S ^PSI(58.2,"CS",DA(1),$E(X,1,30))=""
  1.  ;;^DD(58.29,.01,1,2,2)
  1.  ;;=K ^PSI(58.2,"CS",DA(1),$E(X,1,30))
  1.  ;;^DD(58.29,.01,1,2,"%D",0)
  1.  ;;=^^4^4^2920220^
  1.  ;;^DD(58.29,.01,1,2,"%D",1,0)
  1.  ;;=This cross-reference is used to distinguish between inventory groups
  1.  ;;^DD(58.29,.01,1,2,"%D",2,0)
  1.  ;;=that belong to the AR/WS module and those belonging to the CS module.
  1.  ;;^DD(58.29,.01,1,2,"%D",3,0)
  1.  ;;=This cross-reference will identify CS inventory groups and will be
  1.  ;;^DD(58.29,.01,1,2,"%D",4,0)
  1.  ;;=used for lookup and sorting.
  1.  ;;^DD(58.29,.01,1,2,"DT")
  1.  ;;=2920220