ZTMSH.m

%ZTMSH ;SEA/RDS-TaskMan: Submanager, Utility (Header Page) ;3/9/92  12:01 ;

 ;;8.0;KERNEL;;JUL 10, 1995

 ;

GENERIC ;Print The Generic Header Page

 S %H=$H D YX^%DTC S ZTX=" UCI: "_ZTUCI_"  PGM: "_$S(ZTRTN["^":$P(ZTRTN,"^",2),1:ZTRTN)_"  "_Y_" ",ZTY=IOM-3\2-($L(ZTX)\2) F ZT=1:1:ZTY S ZTX="*"_ZTX_"*"

 F ZT=1:1:10 W !,ZTX

 W @IOF Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ZTMSH   342     printed  Dec 13, 2024@02:16:32                                                                                                                                                                                                        Page 2

%ZTMSH    ;SEA/RDS-TaskMan: Submanager, Utility (Header Page) ;3/9/92  12:01 ;

 +1       ;;8.0;KERNEL;;JUL 10, 1995

 +2       ;

GENERIC   ;Print The Generic Header Page

 +1        SET %H=$HOROLOG

           DO YX^%DTC

           SET ZTX=" UCI: "_ZTUCI_"  PGM: "_$SELECT(ZTRTN["^":$PIECE(ZTRTN,"^",2),1:ZTRTN)_"  "_Y_" "

           SET ZTY=IOM-3\2-($LENGTH(ZTX)\2)

           FOR ZT=1:1:ZTY

               SET ZTX="*"_ZTX_"*"

 +2        FOR ZT=1:1:10

               WRITE !,ZTX

 +3        WRITE @IOF

           QUIT 

 +4       ;