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

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

initial load of WorldVistAEHR

File size: 1.1 KB
RevLine 
[613]1DGPFLMQD ;ALB/RPM - PRF QUERY RESULTS DETAIL LM SCREEN ; 1/26/06 11:43
2 ;;5.3;Registration;**650**;Aug 13, 1993;Build 3
3 ;
4 Q ;no direct entry
5 ;
6EN(DGSET,DGORF) ;Main entry point for DGPF QUERY DETAIL list template.
7 ;
8 ; Input:
9 ; DGSET - query result assignment ID
10 ; DGORF - array of parsed query results
11 ;
12 ; Output: None
13 ;
14 ;quit if required input parameters not defined
15 Q:'$G(DGSET)
16 Q:$G(DGORF)=""
17 ;
18 ;display wait msg to user
19 D WAIT^DICD
20 ;
21 ;invoke list manager and load list template
22 D EN^VALM("DGPF QUERY DETAIL")
23 Q
24 ;
25 ;
26HDR ;Header Code
27 ;
28 D BLDHDR^DGPFLMQ1(DGORF,.VALMHDR)
29 Q
30 ;
31 ;
32INIT ;Init variables and list array
33 ;
34 D BLD
35 Q
36 ;
37 ;
38BLD ;Build record flag detail LM screen
39 ;
40 D CLEAN^VALM10
41 K VALMHDR
42 K ^TMP("DGPFQDET",$J)
43 ;
44 ;init number of lines in list
45 S VALMCNT=0
46 ;
47 ;build header
48 D HDR
49 ;
50 ;build list area for record flag detail
51 D EN^DGPFLMQ2("DGPFQDET",DGSET,.VALMCNT)
52 ;
53 Q
54 ;
55 ;
56HELP ;Help Code
57 N X
58 S X="?" D DISP^XQORM1 W !!
59 Q
60 ;
61 ;
62EXIT ;Exit Code
63 D CLEAN^VALM10
64 D CLEAR^VALM1
65 K ^TMP("DGPFQDET",$J)
66 Q
67 ;
68 ;
69EXPND ;Expand Code
70 Q
Note: See TracBrowser for help on using the repository browser.