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

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

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1DGPFLFD ;ALB/KCL - PRF DISPLAY FLAG DETAIL LM SCREEN ; 3/13/03
2 ;;5.3;Registration;**425**;Aug 13, 1993
3 ;
4 ;no direct entry
5 QUIT
6 ;
7EN ;Main entry point for DGPF FLAG DETAIL list template.
8 ;
9 ; Input:
10 ; DGPFIEN - IEN of record in PRF NATIONAL FLAG or PRF LOCAL
11 ; FLAG file [ex: "1;DGPF(26.15,"]
12 ;
13 ; Output: None
14 ;
15 ;quit if required input not defined
16 Q:$G(DGPFIEN)']""
17 ;
18 ;display wait msg to user
19 D WAIT^DICD
20 ;
21 ;invoke DGPF FLAG DETAIL list template
22 D EN^VALM("DGPF FLAG DETAIL")
23 Q
24 ;
25 ;
26HDR ;Header Code
27 ;
28 N DGHDR
29 N DGRESULT
30 N DGPFLG
31 K DGPFLG
32 ;
33 ;retrieve flag, place into DGHDR array
34 S DGRESULT=$$GETFLAG^DGPFUT1(DGPFIEN,.DGPFLG)
35 ;
36 ;construct header array
37 S VALMHDR(1)="Flag Name: "_$S(DGRESULT:$P($G(DGPFLG("FLAG")),U,2),1:"UNKNOWN")
38 S DGHDR="Flag Status: "_$S(DGRESULT:$P($G(DGPFLG("STAT")),U,2),1:"UNKNOWN")
39 S VALMHDR(1)=$$SETSTR^VALM1(DGHDR,VALMHDR(1),55,$L(DGHDR))
40 ;
41 Q
42 ;
43 ;
44INIT ;Init variables and list array
45 ;
46 D BLD
47 ;
48 Q
49 ;
50 ;
51BLD ;Build flag detail screen (list area)
52 ;
53 D CLEAN^VALM10
54 K VALMHDR
55 K ^TMP("DGPFDET",$J)
56 ;
57 ;init number of lines in list
58 S VALMCNT=0
59 ;
60 ;build header
61 D HDR
62 ;
63 ;build list area for flag detail
64 D EN^DGPFLFD1("DGPFDET",DGPFIEN,.VALMCNT)
65 ;
66 Q
67 ;
68 ;
69HELP ;Help Code
70 S X="?" D DISP^XQORM1 W !!
71 Q
72 ;
73 ;
74EXIT ;Exit Code
75 ;
76 D CLEAN^VALM10
77 D CLEAR^VALM1
78 K ^TMP("DGPFDET",$J)
79 Q
80 ;
81 ;
82EXPND ;Expand Code
83 Q
Note: See TracBrowser for help on using the repository browser.