BPSREOP.m

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 ---BPSREOP   1677     printed  Apr 09, 2024@20:58:20                                                                                                                                                                                                     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       ;