Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BPSRSM

BPSRSM.m

Go to the documentation of this file.
  1. BPSRSM ;BHAM ISC/SS - ECME REPORTS ;05-APR-05
  1. ;;1.0;E CLAIMS MGMT ENGINE;**1**;JUN 2004
  1. ;; Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. Q
  1. EN ; -- main entry point for BPS LSTMN RSCH MENU
  1. D EN^VALM("BPS LSTMN RSCH MENU")
  1. Q
  1. ;
  1. HDR ; -- header code
  1. S VALMHDR(1)=$$HDR^BPSSCR01(1)
  1. S VALMHDR(2)=$$HDR^BPSSCR01(2)
  1. S VALMHDR(3)=$$HDR^BPSSCR01(3)
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. ;^TMP for "BPS LSTMN ECME USRSCR" is used
  1. ;set the Research Screen "begin" line to the current User Screen begin line
  1. I $G(BPVALMBG)>0 S VALMBG=BPVALMBG
  1. Q
  1. ;
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. I $D(BPVALMBG) S BPVALMBG=VALMBG
  1. D CLEANUP
  1. Q
  1. ;
  1. EXPND ; -- expand code
  1. Q
  1. ;
  1. RM ;
  1. N BPVALMBG
  1. ;save the current User Screen "begin" line to use for Research Screen (to stay at the same place)
  1. S BPVALMBG=VALMBG
  1. D EN
  1. ;save the current Research "begin" line to use for the User Screen
  1. I $G(BPVALMBG)>0 S VALMBG=BPVALMBG
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. CLEANUP ;
  1. Q
  1. ;