ADECLS.m

ADECLS ; IHS/HQT/MJL - CLEAR SCREEN ;  [ 03/24/1999   9:04 AM ]

 ;;6.0;ADE;;APRIL 1999

START ;

 ;N ADEDEV,ADEST

 D HOME^%ZIS

 ;S ADEST="",ADEDEV=$O(^%ZIS(1,"C",IO,0))

 ;I ADEDEV,$D(^%ZIS(1,ADEDEV,"SUBTYPE")) S ADEST=+^("SUBTYPE")

 ;W:ADEST @$P(^%ZIS(2,ADEST,1),"^",2)

 W @IOF

 W !

 ;K ADEDEV,ADEST

 Q

SITE ;

 I $D(DUZ(2)),DUZ(2)>0 S ADE("SITE")=$P(^DIC(4,DUZ(2),0),"^",1) W !,?80-$L(ADE("SITE"))\2,ADE("SITE")

ADECLS    ; IHS/HQT/MJL - CLEAR SCREEN ;  [ 03/24/1999   9:04 AM ]

 +1       ;;6.0;ADE;;APRIL 1999

START     ;

 +1       ;N ADEDEV,ADEST

 +2        DO HOME^%ZIS

 +3       ;S ADEST="",ADEDEV=$O(^%ZIS(1,"C",IO,0))

 +4       ;I ADEDEV,$D(^%ZIS(1,ADEDEV,"SUBTYPE")) S ADEST=+^("SUBTYPE")

 +5       ;W:ADEST @$P(^%ZIS(2,ADEST,1),"^",2)

 +6        WRITE @IOF

 +7        WRITE !

 +8       ;K ADEDEV,ADEST

 +9        QUIT 

SITE      ;

 +1        IF $DATA(DUZ(2))

               IF DUZ(2)>0

                   SET ADE("SITE")=$PIECE(^DIC(4,DUZ(2),0),"^",1)

                   WRITE !,?80-$LENGTH(ADE("SITE"))\2,ADE("SITE")