| 1 | PSXPLOG ;BIR/BAB-Print Interface Log ;[ 04/08/97 2:06 PM ]
|
|---|
| 2 | ;;2.0;CMOP;;11 Apr 97
|
|---|
| 3 | S PSXSYS=1
|
|---|
| 4 | ZIS S %ZIS="MQ",%ZIS("A")="Print Log on Device: " D ^%ZIS Q:POP
|
|---|
| 5 | I '$D(IO("Q")) U IO D EN,^%ZISC Q
|
|---|
| 6 | S ZTRTN="EN^PSXPLOG",ZTDTH=$H,ZTIO=ION,ZTSAVE("PSXSYS")="",ZTSAVE("ZTREQ")="@"
|
|---|
| 7 | D ^%ZTLOAD
|
|---|
| 8 | I '$D(ZTSK) D ^%ZISC U IO W " not queued" G ZIS
|
|---|
| 9 | Q
|
|---|
| 10 | ;
|
|---|
| 11 | ;Called by Taskman to print the interface log
|
|---|
| 12 | EN N PSXDT D HEAD S PSXPOP=0
|
|---|
| 13 | 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
|
|---|
| 14 | K PSXMSG,PSXPOP,WORD,K,L,M
|
|---|
| 15 | Q
|
|---|
| 16 | 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
|
|---|
| 17 | Q
|
|---|
| 18 | SCRN Q:($Y+3)<IOSL G:IOST["P-" HEAD W !,"Enter ""^"" to quit"
|
|---|
| 19 | R X:DTIME E S X="^"
|
|---|
| 20 | I X="^" S PSXPOP=1 Q
|
|---|
| 21 | HEAD W @IOF,!!,?(IOM\2-9),"CMOP Interface Log",!!
|
|---|
| 22 | Q
|
|---|
