source: FOIAVistA/trunk/r/INCOME_VERIFICATION_MATCH-IVM/IVMLERR.m@ 1765

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

initial load of FOIAVistA 6/30/08 version

File size: 1.9 KB
Line 
1IVMLERR ;ALB/RMO - IVM Transmission Error Processing - List Manager Screen; 15-SEP-1997
2 ;;2.0;INCOME VERIFICATION MATCH;**9**; 21-OCT-94
3 ;
4EN ;Main entry point for IVM transmission error processing option
5 ; Input -- None
6 ; Output -- None
7 ;
8 ;Invoke IVM TRANSMISSION ERRORS list template
9 D EN^VALM("IVM TRANSMISSION ERRORS")
10 Q
11 ;
12HDR ;Header code
13 ;
14 ;Sort by
15 S VALMHDR(1)="Sort By: "_$S(IVMSRTBY="P":"Patient Name",IVMSRTBY="D":"Date/Time ACK Received",1:"Unknown")
16 ;
17 ;Date range
18 S VALMHDR(1)=$$SETSTR^VALM1("Date Range: "_$$FDATE^VALM1(IVMBEG)_" thru "_$$FDATE^VALM1(IVMEND),VALMHDR(1),46,80)
19 ;
20 ;Error processing status
21 N HDR,PCE,STA
22 S HDR=""
23 F PCE=1:1 S STA=$P(IVMEPSTA,U,PCE) Q:STA="" D
24 . S:HDR'="" HDR=HDR_"/"
25 . S HDR=HDR_$$LOWER^VALM1($$EXT^IVMTLOG("ERROR STATUS",STA))
26 S VALMHDR(2)="Error Processing Statuses: "_$S(HDR="":"Unknown",1:HDR)
27 Q
28 ;
29INIT ;Init variables and list array
30 N VALMB,VALMBEG,VALMEND,X,X1,X2
31 K IVMBEG,IVMEND,IVMEPSTA,IVMSRTBY
32 ;
33 S VALMSG=$$MSG
34 ;
35 ;Ask user for date range - default two weeks prior to today
36 S X1=DT,X2=-14 D C^%DTC S VALMB=X
37 D RANGE^VALM1
38 I 'VALMBEG!('VALMEND) S VALMQUIT=1 G INITQ
39 S IVMBEG=VALMBEG,IVMEND=VALMEND
40 ;
41 ;Set error processing status to new
42 S IVMEPSTA="1"
43 ;
44 ;Set sort by to patient name
45 S IVMSRTBY="P"
46 ;
47 ;Build IVM transmission error screen
48 D BLD
49INITQ Q
50 ;
51BLD ;Build IVM transmission error screen
52 D CLEAN^VALM10
53 K IVMARY,VALMHDR
54 S IVMARY="IVMERR"
55 K ^TMP(IVMARY_"SRT",$J),^TMP(IVMARY_"IDX",$J)
56 S VALMBG=1,VALMCNT=0
57 ;
58 ;Build header
59 D HDR
60 ;
61 ;Build list area for transmission errors
62 D EN^IVMLERR1(IVMARY,IVMBEG,IVMEND,IVMEPSTA,IVMSRTBY,.VALMCNT)
63 Q
64 ;
65MSG() ;Custom message for list manager 'message window'
66 Q "* = Patient has been flagged for transmission"
67 ;
68HELP ;Help code
69 S X="?" D DISP^XQORM1 W !!
70 Q
71 ;
72EXIT ;Exit code
73 D CLEAN^VALM10
74 D CLEAR^VALM1
75 K IVMBEG,IVMEND,IVMEPSTA,IVMSRTBY,^TMP(IVMARY_"SRT",$J),^TMP(IVMARY_"IDX",$J),IVMARY
76 Q
77 ;
78EXPND ;Expand code
79 Q
80 ;
Note: See TracBrowser for help on using the repository browser.