Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.3 KB
|
Line | |
---|
1 | DGPFLMT ;ALB/RBS - PRF TRANSMISSION ERRORS LM SCREEN ; 4/27/05 12:00pm
|
---|
2 | ;;5.3;Registration;**650**;Aug 13, 1993;Build 3
|
---|
3 | ;
|
---|
4 | ;- no direct entry
|
---|
5 | QUIT
|
---|
6 | ;
|
---|
7 | ;
|
---|
8 | EN ;Main entry point for DGPF TRANSMISSION ERRORS option.
|
---|
9 | ;
|
---|
10 | ; Input: None
|
---|
11 | ; Output: None
|
---|
12 | ;
|
---|
13 | ;invoke DGPF TRANSMISSION ERRORS list template
|
---|
14 | N DGSRTBY
|
---|
15 | ;- sort list (default="N"=Patient Name, also "E"=Date Error Received)
|
---|
16 | S DGSRTBY="N"
|
---|
17 | ;
|
---|
18 | D EN^VALM("DGPF TRANSMISSION ERRORS")
|
---|
19 | Q
|
---|
20 | ;
|
---|
21 | ;
|
---|
22 | HDR ;Header Code
|
---|
23 | N DGHDR
|
---|
24 | S DGHDR="List Sorted By: "_$S($G(DGSRTBY)="N":"Patient Name",1:"Date Error Received")
|
---|
25 | S VALMHDR(1)=""
|
---|
26 | S VALMHDR(1)=$$SETSTR^VALM1(DGHDR,VALMHDR(1),1,$L(DGHDR))
|
---|
27 | Q
|
---|
28 | ;
|
---|
29 | ;
|
---|
30 | INIT ;Init variables and list array
|
---|
31 | D BLD
|
---|
32 | Q
|
---|
33 | ;
|
---|
34 | ;
|
---|
35 | BLD ;Build HL7 Transmission Log "RJ" Rejected Status message list
|
---|
36 | D CLEAN^VALM10
|
---|
37 | K DGARY,VALMHDR
|
---|
38 | K ^TMP("DGPFSORT",$J)
|
---|
39 | ;
|
---|
40 | ;- init array that will contain list of items to display
|
---|
41 | S DGARY="DGPFLMT"
|
---|
42 | K ^TMP(DGARY,$J)
|
---|
43 | ;
|
---|
44 | ;build header area
|
---|
45 | D HDR
|
---|
46 | ;
|
---|
47 | ;init # of lines in list
|
---|
48 | S VALMCNT=0
|
---|
49 | ;
|
---|
50 | ;- call to build list area for error messages
|
---|
51 | D EN^DGPFLMT1(DGARY,DGSRTBY,.VALMCNT)
|
---|
52 | Q
|
---|
53 | ;
|
---|
54 | ;
|
---|
55 | HELP ;Help Code
|
---|
56 | N X
|
---|
57 | S X="?" D DISP^XQORM1 W !!
|
---|
58 | Q
|
---|
59 | ;
|
---|
60 | ;
|
---|
61 | EXIT ;Exit Code
|
---|
62 | D CLEAN^VALM10
|
---|
63 | D CLEAR^VALM1
|
---|
64 | K ^TMP("DGPFSORT",$J)
|
---|
65 | K ^TMP(DGARY,$J)
|
---|
66 | K DGARY
|
---|
67 | K DGSRTBY
|
---|
68 | Q
|
---|
69 | ;
|
---|
70 | ;
|
---|
71 | EXPND ;Expand Code
|
---|
72 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.