source: FOIAVistA/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSRSM.m@ 1394

Last change on this file since 1394 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1015 bytes
Line 
1BPSRSM ;BHAM ISC/SS - ECME REPORTS ;05-APR-05
2 ;;1.0;E CLAIMS MGMT ENGINE;**1**;JUN 2004
3 ;; Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 Q
6EN ; -- main entry point for BPS LSTMN RSCH MENU
7 D EN^VALM("BPS LSTMN RSCH MENU")
8 Q
9 ;
10HDR ; -- header code
11 S VALMHDR(1)=$$HDR^BPSSCR01(1)
12 S VALMHDR(2)=$$HDR^BPSSCR01(2)
13 S VALMHDR(3)=$$HDR^BPSSCR01(3)
14 Q
15 ;
16INIT ; -- init variables and list array
17 ;^TMP for "BPS LSTMN ECME USRSCR" is used
18 ;set the Research Screen "begin" line to the current User Screen begin line
19 I $G(BPVALMBG)>0 S VALMBG=BPVALMBG
20 Q
21 ;
22HELP ; -- help code
23 S X="?" D DISP^XQORM1 W !!
24 Q
25 ;
26EXIT ; -- exit code
27 I $D(BPVALMBG) S BPVALMBG=VALMBG
28 D CLEANUP
29 Q
30 ;
31EXPND ; -- expand code
32 Q
33 ;
34RM ;
35 N BPVALMBG
36 ;save the current User Screen "begin" line to use for Research Screen (to stay at the same place)
37 S BPVALMBG=VALMBG
38 D EN
39 ;save the current Research "begin" line to use for the User Screen
40 I $G(BPVALMBG)>0 S VALMBG=BPVALMBG
41 S VALMBCK="R"
42 Q
43 ;
44CLEANUP ;
45 Q
46 ;
Note: See TracBrowser for help on using the repository browser.