- %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 ---[H[J[2J[HZTMSH 342 printed Feb 18, 2025@23:42:58 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 ;