BPSRSM ;BHAM ISC/SS - ECME REPORTS ;05-APR-05
;;1.0;E CLAIMS MGMT ENGINE;**1**;JUN 2004
;; Per VHA Directive 10-93-142, this routine should not be modified.
;
Q
EN ; -- main entry point for BPS LSTMN RSCH MENU
D EN^VALM("BPS LSTMN RSCH MENU")
Q
;
HDR ; -- header code
S VALMHDR(1)=$$HDR^BPSSCR01(1)
S VALMHDR(2)=$$HDR^BPSSCR01(2)
S VALMHDR(3)=$$HDR^BPSSCR01(3)
Q
;
INIT ; -- init variables and list array
;^TMP for "BPS LSTMN ECME USRSCR" is used
;set the Research Screen "begin" line to the current User Screen begin line
I $G(BPVALMBG)>0 S VALMBG=BPVALMBG
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
I $D(BPVALMBG) S BPVALMBG=VALMBG
D CLEANUP
Q
;
EXPND ; -- expand code
Q
;
RM ;
N BPVALMBG
;save the current User Screen "begin" line to use for Research Screen (to stay at the same place)
S BPVALMBG=VALMBG
D EN
;save the current Research "begin" line to use for the User Screen
I $G(BPVALMBG)>0 S VALMBG=BPVALMBG
S VALMBCK="R"
Q
;
CLEANUP ;
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HBPSRSM 1061 printed Oct 16, 2024@17:53:46 Page 2
BPSRSM ;BHAM ISC/SS - ECME REPORTS ;05-APR-05
+1 ;;1.0;E CLAIMS MGMT ENGINE;**1**;JUN 2004
+2 ;; Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
+4 QUIT
EN ; -- main entry point for BPS LSTMN RSCH MENU
+1 DO EN^VALM("BPS LSTMN RSCH MENU")
+2 QUIT
+3 ;
HDR ; -- header code
+1 SET VALMHDR(1)=$$HDR^BPSSCR01(1)
+2 SET VALMHDR(2)=$$HDR^BPSSCR01(2)
+3 SET VALMHDR(3)=$$HDR^BPSSCR01(3)
+4 QUIT
+5 ;
INIT ; -- init variables and list array
+1 ;^TMP for "BPS LSTMN ECME USRSCR" is used
+2 ;set the Research Screen "begin" line to the current User Screen begin line
+3 IF $GET(BPVALMBG)>0
SET VALMBG=BPVALMBG
+4 QUIT
+5 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 IF $DATA(BPVALMBG)
SET BPVALMBG=VALMBG
+2 DO CLEANUP
+3 QUIT
+4 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
RM ;
+1 NEW BPVALMBG
+2 ;save the current User Screen "begin" line to use for Research Screen (to stay at the same place)
+3 SET BPVALMBG=VALMBG
+4 DO EN
+5 ;save the current Research "begin" line to use for the User Screen
+6 IF $GET(BPVALMBG)>0
SET VALMBG=BPVALMBG
+7 SET VALMBCK="R"
+8 QUIT
+9 ;
CLEANUP ;
+1 QUIT
+2 ;
