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

BPSSCRUD.m

Go to the documentation of this file.
  1. BPSSCRUD ;BHAM ISC/SS - ECME SCREEN UPDATE DISPLAY ;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. Q
  1. ;
  1. UD ;
  1. D REDRAW("Updating screen...")
  1. Q
  1. ;
  1. ;
  1. ;redraw screen
  1. REDRAW(BPTXT) ;
  1. W !,$S($L($G(BPTXT))>0:$G(BPTXT),1:"Please wait...")
  1. N BPARR
  1. D RESTVIEW^BPSSCR01(.BPARR) ;prevent VIES setting stored in TMP from cleanup
  1. D CLEAN^VALM10
  1. D SAVEVIEW^BPSSCR01(.BPARR) ;put VIES setting back to TMP
  1. S VALMCNT=$$INIT^BPSSCR01()
  1. D HDR^BPSSCR
  1. S VALMBCK="R"
  1. Q
  1. ;