ONCODIS ;HINES OIFO/GWB - OncoTrax Banner ;09/13/11
;;2.2;ONCOLOGY;**1,4,7,5,8,6,9,11,10,12,13,14,15,16,17,18,19,20**;Jul 31, 2013;Build 5
;
MAIN ;OncoTrax Banner
S RC=$$CHKVER^ONCSAPIV()
D LOGO
K I,RC
Q
;
LOGO ;Display banner
W @IOF W !!!!!! F I=1:1:9 W !,?22,$P($T(DISP+I),";",3)
W !!,?22,"Department of Veterans Affairs"
W !?22,"OncoTraX V2.2 Patch 20.v5" Q
DISP ;
;;VVVV VVAA
;; VVVV VVAAAA
;; VVVV VVAAAAAA
;; VVVV VVAA AAAA
;; VVVV VVAA AAAA
;; VVVV VVAA AAAA
;; VVVVVVAA AAAA
;; VVVVAA AAAAAAAAAAA
;; VVAA AAAAAAAAAAA
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCODIS 653 printed Dec 13, 2024@02:24:48 Page 2
ONCODIS ;HINES OIFO/GWB - OncoTrax Banner ;09/13/11
+1 ;;2.2;ONCOLOGY;**1,4,7,5,8,6,9,11,10,12,13,14,15,16,17,18,19,20**;Jul 31, 2013;Build 5
+2 ;
MAIN ;OncoTrax Banner
+1 SET RC=$$CHKVER^ONCSAPIV()
+2 DO LOGO
+3 KILL I,RC
+4 QUIT
+5 ;
LOGO ;Display banner
+1 WRITE @IOF
WRITE !!!!!!
FOR I=1:1:9
WRITE !,?22,$PIECE($TEXT(DISP+I),";",3)
+2 WRITE !!,?22,"Department of Veterans Affairs"
+3 WRITE !?22,"OncoTraX V2.2 Patch 20.v5"
QUIT
DISP ;
+1 ;;VVVV VVAA
+2 ;; VVVV VVAAAA
+3 ;; VVVV VVAAAAAA
+4 ;; VVVV VVAA AAAA
+5 ;; VVVV VVAA AAAA
+6 ;; VVVV VVAA AAAA
+7 ;; VVVVVVAA AAAA
+8 ;; VVVVAA AAAAAAAAAAA
+9 ;; VVAA AAAAAAAAAAA
