source:
WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCODIS.m@
1801
| Last change on this file since 1801 was 613, checked in by , 15 years ago | |
|---|---|
| File size: 922 bytes | |
| Line | |
|---|---|
| 1 | ONCODIS ;Hines OIFO/GWB - ONCOLOGY DISPLAYS ;05/25/00 |
| 2 | ;;2.11;Oncology;**6,7,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47**;Mar 07, 1995;Build 19 |
| 3 | MAIN ;Begin main menu VA display |
| 4 | S RC=$$CHKVER^ONCSAPIV() |
| 5 | S VR=$P($T(ONCODIS+1),";",3),NM="OncoTraX" D LOGO,FUNCT Q |
| 6 | FUNCT ;INTRODUCTION |
| 7 | W !!?10,"Choose among the following functions:" |
| 8 | Q |
| 9 | LOGO ;DISPLAY LOGO |
| 10 | S:'$D(IOF) IOP="HOME" D:'$D(IOF) ^%ZIS |
| 11 | W *7,@IOF W !!!!!!! F I=1:1:9 W !,?22,$P($T(DISP+I),";",3) |
| 12 | W !!,?23,"Department of Veterans Affairs",!!?23,NM_" V"_VR_"P47" Q |
| 13 | DISP ; |
| 14 | ;;VVVV VVAA |
| 15 | ;; VVVV VVAAAA |
| 16 | ;; VVVV VVAAAAAA |
| 17 | ;; VVVV VVAA AAAA |
| 18 | ;; VVVV VVAA AAAA |
| 19 | ;; VVVV VVAA AAAA |
| 20 | ;; VVVVVVAA AAAA |
| 21 | ;; VVVVAA AAAAAAAAAAA |
| 22 | ;; VVAA AAAAAAAAAAA |
| 23 | D W !!?30,"INSTALLATION",!!,?20,NM," PACKAGE",!!,?31,"VERSION ",VR Q |
Note:
See TracBrowser
for help on using the repository browser.
