ATXBAN.m

ATXBAN ; IHS/OHPRD/TMJ -  TAX BANNER ;  

 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48

 ;

 ; -- BANNER ROUTINE FOR TAXONOMY PACKAGE

 ;

 ;

W1 W:$D(IOF) @IOF

L3 W !!?26,"Indian Health Service - RPMS",!?32,"Taxonomy System",!

 S Y="",Y=$O(^DIC(9.4,"C","BJPC",Y)),VERSION=^DIC(9.4,Y,"VERSION")

 W $$CTR("IHS PCC Suite Version "_VERSION,80)

SITE G XIT:'$D(DUZ(2)) G:'DUZ(2) XIT

 W !?80-$L($P(^DIC(4,DUZ(2),0),"^"))\2,$P(^(0),"^")

XIT W ! K I,ATXVDT,VERSION Q

CTR(X,Y) ;EP - Center X in a field Y wide.

 Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X

 ;----------

ATXBAN    ; IHS/OHPRD/TMJ -  TAX BANNER ;  

 +1       ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48

 +2       ;

 +3       ; -- BANNER ROUTINE FOR TAXONOMY PACKAGE

 +4       ;

 +5       ;

W1         IF $DATA(IOF)

               WRITE @IOF

L3         WRITE !!?26,"Indian Health Service - RPMS",!?32,"Taxonomy System",!

 +1        SET Y=""

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

           SET VERSION=^DIC(9.4,Y,"VERSION")

 +2        WRITE $$CTR("IHS PCC Suite Version "_VERSION,80)

SITE       IF '$DATA(DUZ(2))

               GOTO XIT

           IF 'DUZ(2)

               GOTO XIT

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

XIT        WRITE !

           KILL I,ATXVDT,VERSION

           QUIT 

CTR(X,Y)  ;EP - Center X in a field Y wide.

 +1        QUIT $JUSTIFY("",$SELECT($DATA(Y):Y,1:IOM)-$LENGTH(X)\2)_X

 +2       ;----------