| 1 | BPSOSU5 ;BHAM ISC/FCS/DRS/FLS - utilities ;06/01/2004
|
|---|
| 2 | ;;1.0;E CLAIMS MGMT ENGINE;**1**;JUN 2004
|
|---|
| 3 | Q
|
|---|
| 4 | ;----------------------------------------------------------------------
|
|---|
| 5 | TOSCREEN() ;EP; True or False, is output to screen?
|
|---|
| 6 | I $E(IOST)'="C" Q 0
|
|---|
| 7 | I $D(ZTQUEUED) Q 0
|
|---|
| 8 | I IOT'="TRM",IOT'="VTRM" Q 0
|
|---|
| 9 | I $D(IO("S")) Q 0
|
|---|
| 10 | Q 1
|
|---|
| 11 | PRESSANY(NLF,TIMEOUT) ;EP
|
|---|
| 12 | I '$$TOSCREEN Q
|
|---|
| 13 | N X,I
|
|---|
| 14 | S NLF=+$G(NLF)
|
|---|
| 15 | S:+$G(TIMEOUT)=0 TIMEOUT=30
|
|---|
| 16 | F I=1:1:NLF W !
|
|---|
| 17 | I $$FREETEXT^BPSOSU2("Press ENTER to continue: ",,1,1,1,300)
|
|---|
| 18 | Q
|
|---|
| 19 | ;----------------------------------------------------------------------
|
|---|
| 20 | ;'Press the return key to continue of ^ to exit:' PROMPT
|
|---|
| 21 | ; See also $$EOPQ^BPSOSU8
|
|---|
| 22 | ENDPAGE(NLF,TIMEOUT) ;EP
|
|---|
| 23 | I '$$TOSCREEN Q 1
|
|---|
| 24 | N X,Y,I,DIR,DTOUT,DUOUT,DIRUT,DIROUT
|
|---|
| 25 | S NLF=+$G(NLF)
|
|---|
| 26 | F I=1:1:NLF W !
|
|---|
| 27 | S:+$G(TIMEOUT)>0 DIR("T")=TIMEOUT
|
|---|
| 28 | S DIR(0)="E"
|
|---|
| 29 | D ^DIR
|
|---|
| 30 | Q $S(Y="":-1,Y=0:"^",1:Y)
|
|---|
| 31 | ;----------------------------------------------------------------------
|
|---|
| 32 | ENDRPT() ; EP
|
|---|
| 33 | N RETVAL
|
|---|
| 34 | S RETVAL=$$ENDRPT^BPSOSU8() Q
|
|---|
| 35 | ;=====================================================================
|
|---|
| 36 | BYE ; EP
|
|---|
| 37 | ; Most routines should come here when they exit.
|
|---|
| 38 | ; Example: GOTO BYE^BPSOSU3
|
|---|
| 39 | ; IN: FLGSTOP 1=user wanted out
|
|---|
| 40 | ;
|
|---|
| 41 | I $G(FLGSTOP) W " < exit >" HANG 1
|
|---|
| 42 | D ^%ZISC
|
|---|
| 43 | Q
|
|---|
| 44 | ;=====================================================================
|
|---|
| 45 | BOTTOM(LINES) ;07/26/96
|
|---|
| 46 | ; IN: lines (optional) = lines from the bottom (default=1)
|
|---|
| 47 | ; This line-feeds down to the bottom of the screen
|
|---|
| 48 | ;
|
|---|
| 49 | Q:'$G(IOSL)
|
|---|
| 50 | N X1,X2,J S LINES=$S($D(LINES):LINES,1:1)
|
|---|
| 51 | S X1=($Y+2)
|
|---|
| 52 | I X1>(IOSL-LINES) DO
|
|---|
| 53 | . S X1=($Y+2)
|
|---|
| 54 | S X2=(IOSL-X1) F J=1:1:X2 W !
|
|---|
| 55 | Q
|
|---|
| 56 | ;=================================================================
|
|---|
