source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCODIS.m@ 789

Last change on this file since 789 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 922 bytes
Line 
1ONCODIS ;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
3MAIN ;Begin main menu VA display
4 S RC=$$CHKVER^ONCSAPIV()
5 S VR=$P($T(ONCODIS+1),";",3),NM="OncoTraX" D LOGO,FUNCT Q
6FUNCT ;INTRODUCTION
7 W !!?10,"Choose among the following functions:"
8 Q
9LOGO ;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
13DISP ;
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
23D W !!?30,"INSTALLATION",!!,?20,NM," PACKAGE",!!,?31,"VERSION ",VR Q
Note: See TracBrowser for help on using the repository browser.