source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRUWK.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 602 bytes
Line 
1LRUWK ;REG/AVAMC - WORKLOAD UTILITY ;8/20/93 06:57
2 ;;5.2;LAB SERVICE;;Sep 27, 1994
3X S LRT=$O(^LAB(60,"B",X,0)) G:'LRT OUT Q:$D(X("NOCODES"))
4 F B=0:0 S B=$O(^LAB(60,LRT,9,B)) Q:'B S LRT(B)=""
5 Q:$D(LRT)=11
6OUT 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
7 ;
8A 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)=""
9 I $D(LRT)'=11 D OUT W " with ACCESSION WKLD CODES."
10 Q
11W W $C(7),!!,"Must have entry in WKLD CODE file (#64) called",!,"'",X,"'"," with WKLD CODE: ",Y K X,Y Q
12 Q
Note: See TracBrowser for help on using the repository browser.