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

SDUL4.m

Go to the documentation of this file.
  1. SDUL4 ;ALB/MJK - Screen Malipulation Utilities ; 12/1/91
  1. ;;5.3;Scheduling;;Aug 13, 1993
  1. ;
  1. NEXT ; -- display next screen (NX)
  1. N SDULSTO,I,LN
  1. I SDULBG+SDUL("LINES")>SDULCNT W *7 G NEXTQ
  1. S SDULBG=SDULBG+SDUL("LINES")
  1. S SDULSTO=SDULST
  1. I SDULCC D LST,SCROLL D
  1. .S DX=0,DY=SDUL("BM")-1 X IOXY
  1. .S I=SDULSTO+1 F LN=1:1:SDUL("LINES") W !,$G(@SDULAR@(+$$GET(I),0)) S I=I+1
  1. .S SDULBCK="" D PLUS,RESET
  1. D PGUPD
  1. NEXTQ D FINISH Q
  1. ;
  1. PREV ; -- display previous screen (BU)
  1. N I,LN,X,Y,SDULBGO
  1. I SDULBG=1 W *7 G PREVQ
  1. S Y=SDULBG-SDUL("LINES")
  1. S SDULBGO=SDULBG,SDULBG=$S(Y<1:1,1:Y)
  1. I SDULCC D LST,SCROLL D
  1. .S DX=0,DY=SDUL("TM")-1
  1. .S I=SDULBGO-1 F LN=1:1:SDUL("LINES") D IOXY W $G(@SDULAR@(+$$GET(I),0)) Q:I=1 S I=I-1
  1. .S SDULBCK="" D PLUS,RESET
  1. D PGUPD
  1. PREVQ D FINISH Q
  1. ;
  1. FIRST ; -- display first screen (FS)
  1. I SDULBG=1 W *7 G FIRSTQ
  1. S SDULBG=1
  1. I SDULCC D LST,PAINT
  1. D PGUPD
  1. FIRSTQ D FINISH Q
  1. ;
  1. LAST ; -- display last screen (LS)
  1. N Y,I
  1. I SDULCNT'>SDUL("LINES") W *7 G LASTQ
  1. ; first line of the last screen :=
  1. ; (# of full screens less 1 if last screen is also full) x # lines per screen) + 1 line
  1. S Y=(((SDULCNT\SDUL("LINES"))-'(SDULCNT#SDUL("LINES")))*SDUL("LINES"))+1
  1. I Y=SDULBG W *7 G LASTQ
  1. S SDULBG=Y
  1. I SDULCC D LST,PAINT
  1. D PGUPD
  1. LASTQ D FINISH Q
  1. ;
  1. UP ; -- display last screen (UP)
  1. N Y
  1. S Y=SDULBG-1
  1. I Y<1 W *7 G UPQ
  1. S SDULBG=Y D LST
  1. I SDULCC D SCROLL S DX=0,DY=SDUL("TM")-1 D IOXY W $G(@SDULAR@(+$$GET(SDULBG),0)) D PLUS,RESET
  1. D PGUPD
  1. UPQ D FINISH Q
  1. ;
  1. DOWN ; -- display next line (DN)
  1. N Y
  1. S Y=SDULST+1
  1. I Y>SDULCNT W *7 G DOWNQ
  1. S SDULBG=SDULBG+1,SDULST=Y
  1. I SDULCC D SCROLL S DX=0,DY=SDUL("BM")-1 X IOXY W !,$G(@SDULAR@(+$$GET(SDULST),0)) D PLUS,RESET
  1. D PGUPD
  1. DOWNQ D FINISH Q
  1. ;
  1. FINISH ; -- finish action
  1. S SDULBCK=$S(SDULCC:"",1:"R")
  1. Q
  1. ;
  1. PAINT ;
  1. N I,LN,X D SCROLL
  1. I $E(IOST,1,4)="C-VT" S DX=0,DY=SDUL("TM")-1 X IOXY W *27,*91,SDUL("LINES"),*77
  1. S I=SDULBG F LN=1:1:SDUL("LINES") S DX=0,DY=SDUL("TM")+LN-2 D IOXY W $G(@SDULAR@(+$$GET(I),0)) S I=I+1
  1. S SDULBCK="" D PLUS,RESET
  1. Q
  1. ;
  1. IOXY ; -- position cursor ; insert line ; cr
  1. W ! X IOXY W IOIL,$C(13)
  1. Q
  1. ;
  1. RE ; -- re-display current screen (RE)
  1. D REFRESH^SDUL S SDULBCK=""
  1. Q
  1. ;
  1. RESET ; -- reset scrolling region to bottom of screen
  1. S DX=0,DY=SDUL("BM")+1 X IOXY W IOEDEOP
  1. S IOTM=SDUL("BM")+2,IOBM=IOSL W IOSC W @IOSTBM W IORC
  1. D UND($$LOWER^SDUL1($$NOW^SDUL1),31,1,21,0)
  1. I $D(SDULBCK) S DX=0,DY=SDUL("BM") X IOXY
  1. Q
  1. ;
  1. SCROLL ; -- set scrolling region to list area
  1. S IOTM=SDUL("TM"),IOBM=SDUL("BM") W IOSC W @IOSTBM W IORC
  1. Q
  1. ;
  1. LST ; -- compute last line on screen
  1. N I
  1. S I=SDULBG+SDUL("LINES")-1,SDULST=$S($D(@SDULAR@(+$$GET(I),0)):I,1:SDULCNT)
  1. Q
  1. ;
  1. GET(LNUM) ; -- get actual line number (may be different if indexed)
  1. Q $S(SDUL(0)["I":$G(@SDULIDX@(LNUM)),1:LNUM)
  1. ;
  1. PLUS ; -- add plus indicators to screen
  1. N UP,DN
  1. S UP=(SDULBG'=1),DN=$S('$D(SDULST):0,SDUL(0)["I":$O(@SDULIDX@(+SDULST))>0,1:$O(@SDULAR@(+SDULST))>0)
  1. I UP'=SDULUP S SDULUP=UP D UND($S(UP:"+",1:" "),1,SDUL("TM")-1,1)
  1. I DN'=SDULDN S SDULDN=DN D UND($S(DN:"+",1:" "),1,SDUL("BM")+1,1)
  1. Q
  1. ;
  1. PGUPD ; -- update page var and screen
  1. N P
  1. S P=$$PAGE(SDULBG,SDUL("LINES")) G PGUPDQ:P=SDULPGE
  1. S SDULPGE=P
  1. D:SDULCC UND($J(P,3),71,1,3,0)
  1. PGUPDQ Q
  1. ;
  1. PAGE(BEG,LINES) ; -- calc page #
  1. Q (BEG\LINES)+((BEG#LINES)>0)
  1. ;
  1. UND(STR,X,Y,LEN,ERASE) ;
  1. W IOUON,$C(13) D INSTR^SDUL1(STR,X,Y,LEN,+$G(ERASE)) W $C(13),IOUOFF
  1. Q