57 lines
1.6 KiB
Mathematica
57 lines
1.6 KiB
Mathematica
BPSOSU5 ;BHAM ISC/FCS/DRS/FLS - utilities ;06/01/2004
|
|
;;1.0;E CLAIMS MGMT ENGINE;**1**;JUN 2004
|
|
Q
|
|
;----------------------------------------------------------------------
|
|
TOSCREEN() ;EP; True or False, is output to screen?
|
|
I $E(IOST)'="C" Q 0
|
|
I $D(ZTQUEUED) Q 0
|
|
I IOT'="TRM",IOT'="VTRM" Q 0
|
|
I $D(IO("S")) Q 0
|
|
Q 1
|
|
PRESSANY(NLF,TIMEOUT) ;EP
|
|
I '$$TOSCREEN Q
|
|
N X,I
|
|
S NLF=+$G(NLF)
|
|
S:+$G(TIMEOUT)=0 TIMEOUT=30
|
|
F I=1:1:NLF W !
|
|
I $$FREETEXT^BPSOSU2("Press ENTER to continue: ",,1,1,1,300)
|
|
Q
|
|
;----------------------------------------------------------------------
|
|
;'Press the return key to continue of ^ to exit:' PROMPT
|
|
; See also $$EOPQ^BPSOSU8
|
|
ENDPAGE(NLF,TIMEOUT) ;EP
|
|
I '$$TOSCREEN Q 1
|
|
N X,Y,I,DIR,DTOUT,DUOUT,DIRUT,DIROUT
|
|
S NLF=+$G(NLF)
|
|
F I=1:1:NLF W !
|
|
S:+$G(TIMEOUT)>0 DIR("T")=TIMEOUT
|
|
S DIR(0)="E"
|
|
D ^DIR
|
|
Q $S(Y="":-1,Y=0:"^",1:Y)
|
|
;----------------------------------------------------------------------
|
|
ENDRPT() ; EP
|
|
N RETVAL
|
|
S RETVAL=$$ENDRPT^BPSOSU8() Q
|
|
;=====================================================================
|
|
BYE ; EP
|
|
; Most routines should come here when they exit.
|
|
; Example: GOTO BYE^BPSOSU3
|
|
; IN: FLGSTOP 1=user wanted out
|
|
;
|
|
I $G(FLGSTOP) W " < exit >" HANG 1
|
|
D ^%ZISC
|
|
Q
|
|
;=====================================================================
|
|
BOTTOM(LINES) ;07/26/96
|
|
; IN: lines (optional) = lines from the bottom (default=1)
|
|
; This line-feeds down to the bottom of the screen
|
|
;
|
|
Q:'$G(IOSL)
|
|
N X1,X2,J S LINES=$S($D(LINES):LINES,1:1)
|
|
S X1=($Y+2)
|
|
I X1>(IOSL-LINES) DO
|
|
. S X1=($Y+2)
|
|
S X2=(IOSL-X1) F J=1:1:X2 W !
|
|
Q
|
|
;=================================================================
|