BPSUSCR.m

BPSUSCR ;BHAM ISC/FLS - ECME STRANDED SUBMISSIONS SCREEN MAIN ;03/07/08  10:44

 ;;1.0;E CLAIMS MGMT ENGINE;**1,7,10**;JUN 2004;Build 27

 ;;Per VHA Directive 2004-038, this routine should not be modified.

 ;

 ;STRANDED SUBMISSIONS SCREEN

EN ; -- main entry point for BPS ECME USER SCREEN

 N BPTMPGL,DUOUT,DTOUT,BPQ

 S BPQ=$$MESSAGE^BPSUSCR1() I BPQ=1 Q

 D GETDTS^BPSUSCR1(.BPARR) Q:$D(DUOUT)!$D(DTOUT)

 D EN^VALM("BPS LSTMN ECME UNSTRAND")

 Q

 ;

HDR ; -- header code

 S BPBDT=$$FMTE^XLFDT($P(BPBDT,"."),"5Z")

 S BPEDT=$$FMTE^XLFDT($P(BPEDT,"."),"5Z")

 S VALMHDR(1)="Submissions Stranded from "_BPBDT_" through "_BPEDT

 S VALMHDR(2)="Sorted by Transaction Date"

 Q

 ;

INIT ; -- init variables and list array

 N BPLN,BPLM,BP59,BPSORT,BPDUZ7,BPRET,CONT

 W !,"Please wait..."

 K ^TMP("BPSUSCR-1",$J),^TMP("BPSUSCR-2",$J),^TMP("BPSUSCR",$J)

 S BPTMPGL="^TMP(""BPSUSCR"",$J)"

 S CONT=1,VALMCNT=0

 D COLLECT^BPSUSCR4(.BPARR)

 Q

 ;

HELP ; -- help code

 S X="?" D DISP^XQORM1 W !!

 K X

 Q

 ;

EXIT ; -- exit code

 K BPARR,BPEDT,BPBDT

 D CLEAN^VALM10

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---BPSUSCR   1079     printed  Apr 09, 2024@20:57:24                                                                                                                                                                                                     Page 2

BPSUSCR   ;BHAM ISC/FLS - ECME STRANDED SUBMISSIONS SCREEN MAIN ;03/07/08  10:44

 +1       ;;1.0;E CLAIMS MGMT ENGINE;**1,7,10**;JUN 2004;Build 27

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;

 +4       ;STRANDED SUBMISSIONS SCREEN

EN        ; -- main entry point for BPS ECME USER SCREEN

 +1        NEW BPTMPGL,DUOUT,DTOUT,BPQ

 +2        SET BPQ=$$MESSAGE^BPSUSCR1()

           IF BPQ=1

               QUIT 

 +3        DO GETDTS^BPSUSCR1(.BPARR)

           if $DATA(DUOUT)!$DATA(DTOUT)

               QUIT 

 +4        DO EN^VALM("BPS LSTMN ECME UNSTRAND")

 +5        QUIT 

 +6       ;

HDR       ; -- header code

 +1        SET BPBDT=$$FMTE^XLFDT($PIECE(BPBDT,"."),"5Z")

 +2        SET BPEDT=$$FMTE^XLFDT($PIECE(BPEDT,"."),"5Z")

 +3        SET VALMHDR(1)="Submissions Stranded from "_BPBDT_" through "_BPEDT

 +4        SET VALMHDR(2)="Sorted by Transaction Date"

 +5        QUIT 

 +6       ;

INIT      ; -- init variables and list array

 +1        NEW BPLN,BPLM,BP59,BPSORT,BPDUZ7,BPRET,CONT

 +2        WRITE !,"Please wait..."

 +3        KILL ^TMP("BPSUSCR-1",$JOB),^TMP("BPSUSCR-2",$JOB),^TMP("BPSUSCR",$JOB)

 +4        SET BPTMPGL="^TMP(""BPSUSCR"",$J)"

 +5        SET CONT=1

           SET VALMCNT=0

 +6        DO COLLECT^BPSUSCR4(.BPARR)

 +7        QUIT 

 +8       ;

HELP      ; -- help code

 +1        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +2        KILL X

 +3        QUIT 

 +4       ;

EXIT      ; -- exit code

 +1        KILL BPARR,BPEDT,BPBDT

 +2        DO CLEAN^VALM10

 +3        QUIT