BPSOSU5 ;BHAM ISC/FCS/DRS/FLS - utilities ;03/07/08 10:39
;;1.0;E CLAIMS MGMT ENGINE;**1,7**;JUN 2004;Build 46
;;Per VHA Directive 2004-038, this routine should not be modified.
;
;----------------------------------------------------------------------
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
;=================================================================
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HBPSOSU5 1807 printed Dec 13, 2024@01:52:13 Page 2
BPSOSU5 ;BHAM ISC/FCS/DRS/FLS - utilities ;03/07/08 10:39
+1 ;;1.0;E CLAIMS MGMT ENGINE;**1,7**;JUN 2004;Build 46
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
+4 ;----------------------------------------------------------------------
TOSCREEN() ;EP; True or False, is output to screen?
+1 IF $EXTRACT(IOST)'="C"
QUIT 0
+2 IF $DATA(ZTQUEUED)
QUIT 0
+3 IF IOT'="TRM"
IF IOT'="VTRM"
QUIT 0
+4 IF $DATA(IO("S"))
QUIT 0
+5 QUIT 1
PRESSANY(NLF,TIMEOUT) ;EP
+1 IF '$$TOSCREEN
QUIT
+2 NEW X,I
+3 SET NLF=+$GET(NLF)
+4 if +$GET(TIMEOUT)=0
SET TIMEOUT=30
+5 FOR I=1:1:NLF
WRITE !
+6 IF $$FREETEXT^BPSOSU2("Press ENTER to continue: ",,1,1,1,300)
+7 QUIT
+8 ;----------------------------------------------------------------------
+9 ;'Press the return key to continue of ^ to exit:' PROMPT
+10 ; See also $$EOPQ^BPSOSU8
ENDPAGE(NLF,TIMEOUT) ;EP
+1 IF '$$TOSCREEN
QUIT 1
+2 NEW X,Y,I,DIR,DTOUT,DUOUT,DIRUT,DIROUT
+3 SET NLF=+$GET(NLF)
+4 FOR I=1:1:NLF
WRITE !
+5 if +$GET(TIMEOUT)>0
SET DIR("T")=TIMEOUT
+6 SET DIR(0)="E"
+7 DO ^DIR
+8 QUIT $SELECT(Y="":-1,Y=0:"^",1:Y)
+9 ;----------------------------------------------------------------------
ENDRPT() ; EP
+1 NEW RETVAL
+2 SET RETVAL=$$ENDRPT^BPSOSU8()
QUIT
+3 ;=====================================================================
BYE ; EP
+1 ; Most routines should come here when they exit.
+2 ; Example: GOTO BYE^BPSOSU3
+3 ; IN: FLGSTOP 1=user wanted out
+4 ;
+5 IF $GET(FLGSTOP)
WRITE " < exit >"
HANG 1
+6 DO ^%ZISC
+7 QUIT
+8 ;=====================================================================
BOTTOM(LINES) ;07/26/96
+1 ; IN: lines (optional) = lines from the bottom (default=1)
+2 ; This line-feeds down to the bottom of the screen
+3 ;
+4 if '$GET(IOSL)
QUIT
+5 NEW X1,X2,J
SET LINES=$SELECT($DATA(LINES):LINES,1:1)
+6 SET X1=($Y+2)
+7 IF X1>(IOSL-LINES)
Begin DoDot:1
+8 SET X1=($Y+2)
End DoDot:1
+9 SET X2=(IOSL-X1)
FOR J=1:1:X2
WRITE !
+10 QUIT
+11 ;=================================================================
