source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPFLMT.m@ 1352

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

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1DGPFLMT ;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 ;
8EN ;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 ;
22HDR ;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 ;
30INIT ;Init variables and list array
31 D BLD
32 Q
33 ;
34 ;
35BLD ;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 ;
55HELP ;Help Code
56 N X
57 S X="?" D DISP^XQORM1 W !!
58 Q
59 ;
60 ;
61EXIT ;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 ;
71EXPND ;Expand Code
72 Q
Note: See TracBrowser for help on using the repository browser.