AUCLS.m

%AUCLS ;CLEAR SCREEN FUNCTION [ 02/25/89  10:41 PM ]

 ;IHS OKLA CITY AREA - LMD

 ;IHS TUCSON - EDE

 S AUCLSST="",AUCLSDEV=$O(^%ZIS(1,"C",+$I,0))

 I AUCLSDEV,$D(^%ZIS(1,AUCLSDEV,"SUBTYPE")) S AUCLSST=+^("SUBTYPE")

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

 W !

 K AUCLSDEV,AUCLSST

 Q

%AUCLS    ;CLEAR SCREEN FUNCTION [ 02/25/89  10:41 PM ]

 +1       ;IHS OKLA CITY AREA - LMD

 +2       ;IHS TUCSON - EDE

 +3        SET AUCLSST=""

           SET AUCLSDEV=$ORDER(^%ZIS(1,"C",+$IO,0))

 +4        IF AUCLSDEV

               IF $DATA(^%ZIS(1,AUCLSDEV,"SUBTYPE"))

                   SET AUCLSST=+^("SUBTYPE")

 +5        IF AUCLSST

               WRITE @$PIECE(^%ZIS(2,AUCLSST,1),"^",2)

 +6        WRITE !

 +7        KILL AUCLSDEV,AUCLSST

 +8        QUIT