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

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

initial load of WorldVistAEHR

File size: 704 bytes
Line 
1DGPFLMQ ;ALB/RPM - PRF QUERY LISTMAN SCREEN ; 1/24/06 13:47
2 ;;5.3;Registration;**650**;Aug 13,1993;Build 3
3 ;
4 Q ;no direct entry
5 ;
6EN(DGORF) ;Main entry point for DGPF RECORD FLAG QUERY list.
7 ;
8 ; Input:
9 ; DGORF - parsed ORF segments data array
10 ;
11 ; Output: None
12 ;
13 Q:$G(DGORF)=""
14 ;
15 ;display wait msg to user
16 D WAIT^DICD
17 ;
18 ;invoke list manager and load list template
19 D EN^VALM("DGPF RECORD FLAG QUERY")
20 Q
21 ;
22 ;
23HDR ;Header Code
24 D BLDHDR^DGPFLMQ1(DGORF,.VALMHDR) Q
25 Q
26 ;
27INIT ;Init variables and list array
28 D BLDLIST^DGPFLMQ1(DGORF)
29 Q
30 ;
31HELP ;Help Code
32 N X
33 S X="?" D DISP^XQORM1 W !!
34 Q
35 ;
36 ;
37EXIT ;Exit Code
38 ;
39 D CLEAN^VALM10
40 D CLEAR^VALM1
41 Q
42 ;
43 ;
44EXPND ;Expand Code
45 Q
Note: See TracBrowser for help on using the repository browser.