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

PSXPLOG.m

Go to the documentation of this file.
  1. PSXPLOG ;BIR/BAB-Print Interface Log ;[ 04/08/97 2:06 PM ]
  1. ;;2.0;CMOP;;11 Apr 97
  1. S PSXSYS=1
  1. ZIS S %ZIS="MQ",%ZIS("A")="Print Log on Device: " D ^%ZIS Q:POP
  1. I '$D(IO("Q")) U IO D EN,^%ZISC Q
  1. S ZTRTN="EN^PSXPLOG",ZTDTH=$H,ZTIO=ION,ZTSAVE("PSXSYS")="",ZTSAVE("ZTREQ")="@"
  1. D ^%ZTLOAD
  1. I '$D(ZTSK) D ^%ZISC U IO W " not queued" G ZIS
  1. Q
  1. ;
  1. ;Called by Taskman to print the interface log
  1. EN N PSXDT D HEAD S PSXPOP=0
  1. F K=0:0 S K=$O(^PSX(553,1,"X",K)) Q:'K S Y=^(K,0) X ^DD("DD") W !,$P(Y,"@")," ",$P(Y,"@",2) D OUT,SCRN Q:PSXPOP
  1. K PSXMSG,PSXPOP,WORD,K,L,M
  1. Q
  1. OUT F L=0:0 S L=$O(^PSX(553,1,"X",K,"X",L)) Q:'L S PSXMSG=^(L,0) F M=1:1 S WORD=$P(PSXMSG," ",M) Q:WORD="" W:$L(WORD)>(IOM-2-$X) ! W ?21," ",WORD
  1. Q
  1. SCRN Q:($Y+3)<IOSL G:IOST["P-" HEAD W !,"Enter ""^"" to quit"
  1. R X:DTIME E S X="^"
  1. I X="^" S PSXPOP=1 Q
  1. Q