source:
WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCODIS.m@
1240
Last change on this file since 1240 was 613, checked in by , 15 years ago | |
---|---|
File size: 922 bytes |
Rev | Line | |
---|---|---|
[613] | 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.