BPSRSM.m

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 ---BPSRSM   1061     printed  Apr 09, 2024@20:56:43                                                                                                                                                                                                      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       ;