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 ---[H[J[2J[HBPSUSCR 1079 printed Oct 16, 2024@17:54:20 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
