source: FOIAVistA/trunk/r/SCHEDULING-SD-SC/SCMCHLR1.m@ 1267

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

initial load of FOIAVistA 6/30/08 version

File size: 2.5 KB
Line 
1SCMCHLR1 ;ALB/KCL - PCMM HL7 Reject Processing - List Manager Screen ; 10-JAN-2000
2 ;;5.3;Scheduling;**210**;AUG 13, 1993
3 ;
4EN ; Description: Main entry point for SCMC PCMM TRANSMISSION ERRORS. Used
5 ; to invoke LM and load list template.
6 ;
7 ; Input: None
8 ; Output: None
9 ;
10 ;Invoke list template
11 D EN^VALM("SCMC PCMM TRANSMISSION ERRORS")
12 Q
13 ;
14 ;
15HDR ; Description: Header code to display text in header area.
16 ;
17 ;Sort by
18 S VALMHDR(1)="Sort By: "_$S(SCSORTBY="N":"Patient Name",SCSORTBY="D":"Date Error Received",SCSORTBY="P":"Provider",1:"Unknown")
19 ;
20 ;Date range
21 I $G(SCBEG),($G(SCEND)) D
22 .S VALMHDR(1)=$$SETSTR^VALM1("Date Range: "_$$FDATE^VALM1(SCBEG)_" to "_$$FDATE^VALM1(SCEND),VALMHDR(1),46,80)
23 E D
24 .S VALMHDR(1)=$$SETSTR^VALM1("Date Range: "_$$DRMSG,VALMHDR(1),46,80)
25 ;
26 ;Error processing status
27 S VALMHDR(2)="Error Processing Status: "_$S(SCEPS=1:"New",SCEPS=2:"Checked",SCEPS=3:"New/Checked",1:"Unknown")
28 ;
29 ;Indicates marked for re-transmit
30 S VALMHDR(2)=$$SETSTR^VALM1($$MRKMSG,VALMHDR(2),46,80)
31 ;
32 Q
33 ;
34 ;
35INIT ; Description: Initilize variables and list array for building list.
36 ;
37 K SCBEG,SCEND,SCEPS,SCSORTBY
38 K VALMBEG,VALMEND,VALMSG
39 ;
40 ;Display custom message in LM display window
41 ;S VALMSG=$$MRKMSG
42 ;
43 ;Set sort by = 'Patient Name'
44 S SCSORTBY="N"
45 ;
46 ;Set error processing status = both 'New/Checked'
47 S SCEPS=3
48 ;
49 ;Init date range, list all errors
50 S SCBEG=0
51 S SCEND=DT
52 ;
53 ;Build PCMM transmission errors screen
54 D BUILD
55 Q
56 ;
57 ;
58BUILD ; Description: Used to build PCMM error transmission screen.
59 ;
60 ;Kill the array related data before building the list
61 D CLEAN^VALM10
62 ;
63 K SCARY,VALMHDR
64 S SCARY="SCERR" ; set global array subscript
65 K ^TMP(SCARY_"SRT",$J),^TMP(SCARY_"IDX",$J)
66 S VALMBG=1 ; init list start line
67 S VALMCNT=0 ; init # of lines in list
68 ;
69 ;Builder header area
70 D HDR
71 ;
72 ;Build list area for transmission log errors
73 D EN^SCMCHLR2(SCARY,SCBEG,SCEND,SCEPS,SCSORTBY,.VALMCNT)
74 Q
75 ;
76 ;
77MRKMSG() ; Description: Returns custom message for list manager header
78 ;
79 Q "* - Marked for re-transmit"
80 ;
81 ;
82DRMSG() ; Description: Returns custom message for date range in list manager header.
83 ;
84 Q "(None) List All Errors"
85 ;
86 ;
87HELP ; Description: This entry point provides custom help code when user
88 ; enters a '?' at the menu prompt.
89 ;
90 S X="?" D DISP^XQORM1 W !!
91 Q
92 ;
93 ;
94EXIT ; Description: This is used to cleanup variables and do other exit processing.
95 ;
96 D CLEAR^VALM1
97 D CLEAN^VALM10
98 K SCBEG,SCEND,SCEPS,SCSORTBY,VALMSG
99 K ^TMP(SCARY_"SRT",$J),^TMP(SCARY_"IDX",$J)
100 Q
101 ;
102 ;
103EXPND ;Expand code
104 Q
Note: See TracBrowser for help on using the repository browser.