source: WorldVistAEHR/trunk/r/CMOP-PSX/PSXPLOG.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 875 bytes
Line 
1PSXPLOG ;BIR/BAB-Print Interface Log ;[ 04/08/97 2:06 PM ]
2 ;;2.0;CMOP;;11 Apr 97
3 S PSXSYS=1
4ZIS 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
12EN 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
16OUT 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
18SCRN 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
21HEAD W @IOF,!!,?(IOM\2-9),"CMOP Interface Log",!!
22 Q
Note: See TracBrowser for help on using the repository browser.