%ZISP ;AC/SFISC - Collect screen parameters(Graphic set) ;11/04/97 14:41
;;8.0;KERNEL;**69**;JUL 10, 1995
Q
PSET D PKILL F %ZISI=1:1 S %ZISZ=$T(Z+%ZISI) Q:%ZISZ="" D
. I $P(%ZISZ,";",6)="E" S %ZISX=$G(^%ZIS(2,IOST(0),$P(%ZISZ,";",5)))
. E S %ZISX=$P($G(^%ZIS(2,IOST(0),$P(%ZISZ,";",5))),"^",$P(%ZISZ,";",6))
. S @$P(%ZISZ,";",3)=%ZISX
Q
PKILL K IOBAROFF,IOBARON,IOCLROFF,IOCLRON,IODPLXL,IODPLXS,IOITLOFF,IOITLON,IOSMPLX,IOSPROFF,IOSPRON,IOSUBOFF,IOSUBON
Q
;The following OLDPSET entry point is no longer used.
OLDPSET D PKILL F %ZISI=1:1 S %ZISZ=$T(Z+%ZISI) Q:%ZISZ="" D SETDR^%ZISS
D SET2^%ZISS1 G KV^%ZISS
Q
Z ;;Variable name;Element number;Global subscript;Piece position;1=input key
IOBARON ;;IOBARON;60;BAR1;E
IOBAROFF ;;IOBAROFF;61;BAR0;E
IOCLRON ;;IOCLRON;67.21;CLR1;E
IOCLROFF ;;IOCLROFF;67.22;CLR0;E
IOSMPLX ;;IOSMPLX;1001;1001;1
IODPLXL ;;IODPLXL;1002;1001;2
IODPLXS ;;IODPLXS;1003;1001;3
IOSUBON ;;IOSUBON;65;SUB1;E
IOSUBOFF ;;IOSUBOFF;65.1;SUB0;E
IOSPRON ;;IOSPRON;65.2;SPR1;E
IOSPROFF ;;IOSPROFF;65.3;SPR0;E
IOITLON ;;IOITLON;66;I1;E
IOITLOFF ;;IOITLOFF;67;I0;E
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HZISP 1117 printed Dec 13, 2024@02:15:08 Page 2
%ZISP ;AC/SFISC - Collect screen parameters(Graphic set) ;11/04/97 14:41
+1 ;;8.0;KERNEL;**69**;JUL 10, 1995
+2 QUIT
PSET DO PKILL
FOR %ZISI=1:1
SET %ZISZ=$TEXT(Z+%ZISI)
if %ZISZ=""
QUIT
Begin DoDot:1
+1 IF $PIECE(%ZISZ,";",6)="E"
SET %ZISX=$GET(^%ZIS(2,IOST(0),$PIECE(%ZISZ,";",5)))
+2 IF '$TEST
SET %ZISX=$PIECE($GET(^%ZIS(2,IOST(0),$PIECE(%ZISZ,";",5))),"^",$PIECE(%ZISZ,";",6))
+3 SET @$PIECE(%ZISZ,";",3)=%ZISX
End DoDot:1
+4 QUIT
PKILL KILL IOBAROFF,IOBARON,IOCLROFF,IOCLRON,IODPLXL,IODPLXS,IOITLOFF,IOITLON,IOSMPLX,IOSPROFF,IOSPRON,IOSUBOFF,IOSUBON
+1 QUIT
+2 ;The following OLDPSET entry point is no longer used.
OLDPSET DO PKILL
FOR %ZISI=1:1
SET %ZISZ=$TEXT(Z+%ZISI)
if %ZISZ=""
QUIT
DO SETDR^%ZISS
+1 DO SET2^%ZISS1
GOTO KV^%ZISS
+2 QUIT
Z ;;Variable name;Element number;Global subscript;Piece position;1=input key
IOBARON ;;IOBARON;60;BAR1;E
IOBAROFF ;;IOBAROFF;61;BAR0;E
IOCLRON ;;IOCLRON;67.21;CLR1;E
IOCLROFF ;;IOCLROFF;67.22;CLR0;E
IOSMPLX ;;IOSMPLX;1001;1001;1
IODPLXL ;;IODPLXL;1002;1001;2
IODPLXS ;;IODPLXS;1003;1001;3
IOSUBON ;;IOSUBON;65;SUB1;E
IOSUBOFF ;;IOSUBOFF;65.1;SUB0;E
IOSPRON ;;IOSPRON;65.2;SPR1;E
IOSPROFF ;;IOSPROFF;65.3;SPR0;E
IOITLON ;;IOITLON;66;I1;E
IOITLOFF ;;IOITLOFF;67;I0;E
