source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSREOP.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1BPSREOP ;BHAM ISC/SS - REOPEN CLOSED CLAIMS ;05-APR-05
2 ;;1.0;E CLAIMS MGMT ENGINE;**3**;JUN 2004;Build 20
3 ;; Per VHA Directive 10-93-142, this routine should not be modified.
4 ;Reopen closed claims
5 ;Q
6EN1 ;
7 N BPDFN,BPSTRT,BPEND
8 W @IOF
9 I $$WHATTODO(.BPDFN,.BPSTRT,.BPEND)<0 Q
10 ;
11EN ; -- main entry point for BPS LSTMN ECME REOPEN
12 N VALMAR,VALMBCK,VALMCNT,VALMHDR,X
13 D EN^VALM("BPS LSTMN ECME REOPEN")
14 Q
15 ;
16HDR ; -- header code
17 ;S VALMHDR(1)="This is a test header for BPS LSTMN ECME REOPEN."
18 ;S VALMHDR(2)="This is the second line"
19 Q
20 ;
21INIT ; -- init variables and list array
22 N BPTMPGL,Y
23 ;ask what patient and what is date range
24 I ('$D(BPDFN))!('$D(BPSTRT))!('$D(BPEND)) W !,"BPDFN,BPSTRT,BPEND need to be defined! " Q
25 D COLLECT^BPSREOP1(BPDFN,BPSTRT,BPEND)
26 S VALMHDR(1)="PATIENT: "_$$PATINF^BPSREOP1(BPDFN)_" Closed claims from "_$$FORMDATE^BPSSCRU6(BPSTRT,3)_" to "_$$FORMDATE^BPSSCRU6(BPEND,3)
27 Q
28 ;
29HELP ; -- help code
30 S X="?" D DISP^XQORM1 W !!
31 Q
32 ;
33EXIT ; -- exit code
34 Q
35 ;
36EXPND ; -- expand code
37 Q
38 ;
39 ;prompts the user to select patient , start and end dates
40 ;input/output (by reference):
41 ;BPDFN - patient ien #2
42 ;BPSTRT - start date (fileman format)
43 ;BPEND - end date (fileman format)
44 ;Return value:
45 ;-1 quit
46 ; 1 - continue (okay)_
47 ;
48WHATTODO(BPDFN,BPSTRT,BPEND) ;
49 S BPDFN=$$PROMPT^BPSSCRCV("P^DPT(","Select PATIENT NAME","")
50 I BPDFN<0 Q -1
51 S BPSTRT=$$ASKDATE^BPSSCRU6("START WITH DATE:","TODAY")
52 I BPSTRT<0 Q -1
53 F S BPEND=$$ASKDATE^BPSSCRU6("GO TO DATE:","TODAY") Q:(BPEND<0)!(BPEND'<BPSTRT) D
54 . W !,"The GO TO date cannot precede the START date."
55 I BPEND<0 Q -1
56 Q 1
57 ;
Note: See TracBrowser for help on using the repository browser.