|
Last change
on this file since 1311 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.
