BPSREOP ;BHAM ISC/SS - REOPEN CLOSED CLAIMS ;05-APR-05
;;1.0;E CLAIMS MGMT ENGINE;**3**;JUN 2004;Build 20
;; Per VHA Directive 10-93-142, this routine should not be modified.
;Reopen closed claims
;Q
EN1 ;
N BPDFN,BPSTRT,BPEND
W @IOF
I $$WHATTODO(.BPDFN,.BPSTRT,.BPEND)<0 Q
;
EN ; -- main entry point for BPS LSTMN ECME REOPEN
N VALMAR,VALMBCK,VALMCNT,VALMHDR,X
D EN^VALM("BPS LSTMN ECME REOPEN")
Q
;
HDR ; -- header code
;S VALMHDR(1)="This is a test header for BPS LSTMN ECME REOPEN."
;S VALMHDR(2)="This is the second line"
Q
;
INIT ; -- init variables and list array
N BPTMPGL,Y
;ask what patient and what is date range
I ('$D(BPDFN))!('$D(BPSTRT))!('$D(BPEND)) W !,"BPDFN,BPSTRT,BPEND need to be defined! " Q
D COLLECT^BPSREOP1(BPDFN,BPSTRT,BPEND)
S VALMHDR(1)="PATIENT: "_$$PATINF^BPSREOP1(BPDFN)_" Closed claims from "_$$FORMDATE^BPSSCRU6(BPSTRT,3)_" to "_$$FORMDATE^BPSSCRU6(BPEND,3)
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
Q
;
EXPND ; -- expand code
Q
;
;prompts the user to select patient , start and end dates
;input/output (by reference):
;BPDFN - patient ien #2
;BPSTRT - start date (fileman format)
;BPEND - end date (fileman format)
;Return value:
;-1 quit
; 1 - continue (okay)_
;
WHATTODO(BPDFN,BPSTRT,BPEND) ;
S BPDFN=$$PROMPT^BPSSCRCV("P^DPT(","Select PATIENT NAME","")
I BPDFN<0 Q -1
S BPSTRT=$$ASKDATE^BPSSCRU6("START WITH DATE:","TODAY")
I BPSTRT<0 Q -1
F S BPEND=$$ASKDATE^BPSSCRU6("GO TO DATE:","TODAY") Q:(BPEND<0)!(BPEND'<BPSTRT) D
. W !,"The GO TO date cannot precede the START date."
I BPEND<0 Q -1
Q 1
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HBPSREOP 1677 printed Dec 13, 2024@01:52:30 Page 2
BPSREOP ;BHAM ISC/SS - REOPEN CLOSED CLAIMS ;05-APR-05
+1 ;;1.0;E CLAIMS MGMT ENGINE;**3**;JUN 2004;Build 20
+2 ;; Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;Reopen closed claims
+4 ;Q
EN1 ;
+1 NEW BPDFN,BPSTRT,BPEND
+2 WRITE @IOF
+3 IF $$WHATTODO(.BPDFN,.BPSTRT,.BPEND)<0
QUIT
+4 ;
EN ; -- main entry point for BPS LSTMN ECME REOPEN
+1 NEW VALMAR,VALMBCK,VALMCNT,VALMHDR,X
+2 DO EN^VALM("BPS LSTMN ECME REOPEN")
+3 QUIT
+4 ;
HDR ; -- header code
+1 ;S VALMHDR(1)="This is a test header for BPS LSTMN ECME REOPEN."
+2 ;S VALMHDR(2)="This is the second line"
+3 QUIT
+4 ;
INIT ; -- init variables and list array
+1 NEW BPTMPGL,Y
+2 ;ask what patient and what is date range
+3 IF ('$DATA(BPDFN))!('$DATA(BPSTRT))!('$DATA(BPEND))
WRITE !,"BPDFN,BPSTRT,BPEND need to be defined! "
QUIT
+4 DO COLLECT^BPSREOP1(BPDFN,BPSTRT,BPEND)
+5 SET VALMHDR(1)="PATIENT: "_$$PATINF^BPSREOP1(BPDFN)_" Closed claims from "_$$FORMDATE^BPSSCRU6(BPSTRT,3)_" to "_$$FORMDATE^BPSSCRU6(BPEND,3)
+6 QUIT
+7 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 QUIT
+2 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
+3 ;prompts the user to select patient , start and end dates
+4 ;input/output (by reference):
+5 ;BPDFN - patient ien #2
+6 ;BPSTRT - start date (fileman format)
+7 ;BPEND - end date (fileman format)
+8 ;Return value:
+9 ;-1 quit
+10 ; 1 - continue (okay)_
+11 ;
WHATTODO(BPDFN,BPSTRT,BPEND) ;
+1 SET BPDFN=$$PROMPT^BPSSCRCV("P^DPT(","Select PATIENT NAME","")
+2 IF BPDFN<0
QUIT -1
+3 SET BPSTRT=$$ASKDATE^BPSSCRU6("START WITH DATE:","TODAY")
+4 IF BPSTRT<0
QUIT -1
+5 FOR
SET BPEND=$$ASKDATE^BPSSCRU6("GO TO DATE:","TODAY")
if (BPEND<0)!(BPEND'<BPSTRT)
QUIT
Begin DoDot:1
+6 WRITE !,"The GO TO date cannot precede the START date."
End DoDot:1
+7 IF BPEND<0
QUIT -1
+8 QUIT 1
+9 ;
