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

LRBLUL.m

Go to the documentation of this file.
  1. LRBLUL ; IHS/DIR/FJE - BB UTIL 4/13/93 07:17 ;
  1. ;;5.2;LR;;NOV 01, 1997
  1. ;
  1. ;;5.2;LAB SERVICE;;Sep 27, 1994
  1. ;from input transform 65,.01
  1. S X(1)=+$P($G(^LRD(65,DA,0)),"^",4),X(2)=0 F S X(2)=$O(^LRD(65,"B",X,X(2))) Q:'X(2) I $P(^LRD(65,X(2),0),"^",4)=X(1) D W Q
  1. Q
  1. C ; from input transform 65,.04
  1. S X(1)=$P(^LRD(65,DA,0),U),X(2)=0 F S X(2)=$O(^LRD(65,"B",X(1),X(2))) Q:'X(2) I $P(^LRD(65,X(2),0),"^",4)=X D W Q
  1. Q
  1. ;
  1. W W $C(7),!,$P(^LAB(66,$P(^LRD(65,X(2),0),U,4),0),U)," unit already exists in inventory" K X Q