source:
WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCODIS.m@
699
Last change on this file since 699 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.