- BPSSCRUD ;BHAM ISC/SS - ECME SCREEN UPDATE DISPLAY ;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
- ;
- UD ;
- D REDRAW("Updating screen...")
- Q
- ;
- ;
- ;redraw screen
- REDRAW(BPTXT) ;
- W !,$S($L($G(BPTXT))>0:$G(BPTXT),1:"Please wait...")
- N BPARR
- D RESTVIEW^BPSSCR01(.BPARR) ;prevent VIES setting stored in TMP from cleanup
- D CLEAN^VALM10
- D SAVEVIEW^BPSSCR01(.BPARR) ;put VIES setting back to TMP
- S VALMCNT=$$INIT^BPSSCR01()
- D HDR^BPSSCR
- S VALMBCK="R"
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HBPSSCRUD 561 printed Jan 18, 2025@02:54:37 Page 2
- BPSSCRUD ;BHAM ISC/SS - ECME SCREEN UPDATE DISPLAY ;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 QUIT
- +4 ;
- UD ;
- +1 DO REDRAW("Updating screen...")
- +2 QUIT
- +3 ;
- +4 ;
- +5 ;redraw screen
- REDRAW(BPTXT) ;
- +1 WRITE !,$SELECT($LENGTH($GET(BPTXT))>0:$GET(BPTXT),1:"Please wait...")
- +2 NEW BPARR
- +3 ;prevent VIES setting stored in TMP from cleanup
- DO RESTVIEW^BPSSCR01(.BPARR)
- +4 DO CLEAN^VALM10
- +5 ;put VIES setting back to TMP
- DO SAVEVIEW^BPSSCR01(.BPARR)
- +6 SET VALMCNT=$$INIT^BPSSCR01()
- +7 DO HDR^BPSSCR
- +8 SET VALMBCK="R"
- +9 QUIT
- +10 ;