Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ZTMSH

ZTMSH.m

Go to the documentation of this file.
  1. %ZTMSH ;SEA/RDS-TaskMan: Submanager, Utility (Header Page) ;3/9/92 12:01 ;
  1. ;;8.0;KERNEL;;JUL 10, 1995
  1. ;
  1. GENERIC ;Print The Generic Header Page
  1. 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_"*"
  1. F ZT=1:1:10 W !,ZTX
  1. W @IOF Q
  1. ;