ONCODIS.m

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**;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 18.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 ---ONCODIS   647     printed  Apr 09, 2024@21:26:55                                                                                                                                                                                                      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**;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 18.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