Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
676 bytes
|
Rev | Line | |
---|
[613] | 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.