BPSSCRUD.m

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 ---BPSSCRUD   561     printed  Oct 16, 2024@17:54:13                                                                                                                                                                                                     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      ;