AIBLOGO.m

AIBLOGO ;DDPS/DFM ;LOGO/VERSION DISPLAY FOR CONSOLIDATION PACKAGE [ 01/27/89  9:19 AM ]

VERSION ;;1.3

 ;1.3; PICK UP VERSION FROM PACKAGE FILE

 S AIB="",AIB=$O(^DIC("9.4","C","AIB",AIB)),AIB("V")=^DIC("9.4",AIB,"VERSION")

 ;

 D ^%AUCLS

 W ?24,"*****************************",!

 W ?24,"**     DDPS IBM RECORD     **",!

 W ?24,"**      CONSOLIDATION      **",!

 W ?24,"**      VERSION "_AIB("V")_"        **",!

 W ?24,"*****************************",!

 K AIB

 Q:'$D(DUZ(2))  W !,?80-$L($P(^DIC(4,DUZ(2),0),"^",1))\2,$P(^DIC(4,DUZ(2),0),"^",1)

 Q

AIBLOGO   ;DDPS/DFM ;LOGO/VERSION DISPLAY FOR CONSOLIDATION PACKAGE [ 01/27/89  9:19 AM ]

VERSION   ;;1.3

 +1       ;1.3; PICK UP VERSION FROM PACKAGE FILE

 +2        SET AIB=""

           SET AIB=$ORDER(^DIC("9.4","C","AIB",AIB))

           SET AIB("V")=^DIC("9.4",AIB,"VERSION")

 +3       ;

 +4        DO ^%AUCLS

 +5        WRITE ?24,"*****************************",!

 +6        WRITE ?24,"**     DDPS IBM RECORD     **",!

 +7        WRITE ?24,"**      CONSOLIDATION      **",!

 +8        WRITE ?24,"**      VERSION "_AIB("V")_"        **",!

 +9        WRITE ?24,"*****************************",!

 +10       KILL AIB

 +11       IF '$DATA(DUZ(2))

               QUIT 

           WRITE !,?80-$LENGTH($PIECE(^DIC(4,DUZ(2),0),"^",1))\2,$PIECE(^DIC(4,DUZ(2),0),"^",1)

 +12       QUIT