Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
676 bytes
|
Line | |
---|
1 | DVBCLMU2 ;ALB/CMM TEXT FOR INITIAL/REEVALUATION ;12/30/93
|
---|
2 | ;;2.7;AMIE;;Apr 10, 1995
|
---|
3 | ;
|
---|
4 | ;Display of initial and reevaluation exam descriptions
|
---|
5 | ;
|
---|
6 | WINIT ;
|
---|
7 | ;initial exam description displayed using ^DIWP
|
---|
8 | ;
|
---|
9 | K ^UTILITY($J,"W")
|
---|
10 | N JJ,DIWF,DIWL,X
|
---|
11 | W !!
|
---|
12 | S JJ=0,DIWF="WN",DIWL=5
|
---|
13 | F Q:$O(^DVBP(396.91,3,"D",JJ))="" D
|
---|
14 | .S JJ=$O(^DVBP(396.91,3,"D",JJ))
|
---|
15 | .S X=$P(^DVBP(396.91,3,"D",JJ,0),"^")
|
---|
16 | .D ^DIWP
|
---|
17 | D ^DIWW
|
---|
18 | Q
|
---|
19 | WREE ;
|
---|
20 | ;reevaluation exam description displayed using ^DIWP
|
---|
21 | ;
|
---|
22 | K ^UTILITY($J,"W")
|
---|
23 | N JJ,DIWF,DIWL,X
|
---|
24 | W !!
|
---|
25 | S JJ=0,DIWF="WN",DIWL=5
|
---|
26 | F Q:$O(^DVBP(396.91,4,"D",JJ))="" D
|
---|
27 | .S JJ=$O(^DVBP(396.91,4,"D",JJ))
|
---|
28 | .S X=$P(^DVBP(396.91,4,"D",JJ,0),"^")
|
---|
29 | .D ^DIWP
|
---|
30 | D ^DIWW
|
---|
31 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.