- 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 Feb 18, 2025@23:19:20 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 ;