|
Last change
on this file since 861 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
602 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | LRUWK ;REG/AVAMC - WORKLOAD UTILITY ;8/20/93 06:57
|
|---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
|---|
| 3 | X 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
|
|---|
| 6 | 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
|
|---|
| 7 | ;
|
|---|
| 8 | 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)=""
|
|---|
| 9 | I $D(LRT)'=11 D OUT W " with ACCESSION WKLD CODES."
|
|---|
| 10 | Q
|
|---|
| 11 | W 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.
