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

LRUWK.m

Go to the documentation of this file.
  1. LRUWK ;REG/AVAMC - WORKLOAD UTILITY ;8/20/93 06:57
  1. ;;5.2;LAB SERVICE;;Sep 27, 1994
  1. X S LRT=$O(^LAB(60,"B",X,0)) G:'LRT OUT Q:$D(X("NOCODES"))
  1. F B=0:0 S B=$O(^LAB(60,LRT,9,B)) Q:'B S LRT(B)=""
  1. Q:$D(LRT)=11
  1. OUT W $C(7),!!,"Must have test in LAB TEST file (#60) called",!,"'",X,"'" W:'$D(X("NOCODES")) " with VERIFY WKLD CODES." K X S J=1 Q
  1. ;
  1. A S LRT=$O(^LAB(60,"B",X,0)) G:'LRT OUT F B=0:0 S B=$O(^LAB(60,LRT,9.1,B)) Q:'B S LRT(B)=""
  1. I $D(LRT)'=11 D OUT W " with ACCESSION WKLD CODES."
  1. Q
  1. W W $C(7),!!,"Must have entry in WKLD CODE file (#64) called",!,"'",X,"'"," with WKLD CODE: ",Y K X,Y Q
  1. Q