source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSSCRUD.m@ 724

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

initial load of WorldVistAEHR

File size: 539 bytes
RevLine 
[613]1BPSSCRUD ;BHAM ISC/SS - ECME SCREEN UPDATE DISPLAY ;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 Q
5 ;
6UD ;
7 D REDRAW("Updating screen...")
8 Q
9 ;
10 ;
11 ;redraw screen
12REDRAW(BPTXT) ;
13 W !,$S($L($G(BPTXT))>0:$G(BPTXT),1:"Please wait...")
14 N BPARR
15 D RESTVIEW^BPSSCR01(.BPARR) ;prevent VIES setting stored in TMP from cleanup
16 D CLEAN^VALM10
17 D SAVEVIEW^BPSSCR01(.BPARR) ;put VIES setting back to TMP
18 S VALMCNT=$$INIT^BPSSCR01()
19 D HDR^BPSSCR
20 S VALMBCK="R"
21 Q
22 ;
Note: See TracBrowser for help on using the repository browser.