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

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

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1DGPFLF ;ALB/KCL - PRF FLAG MANAGEMENT LM SCREEN ; 3/10/03
2 ;;5.3;Registration;**425**;Aug 13, 1993
3 ;
4 ;- no direct entry
5 QUIT
6 ;
7EN ;Main entry point for DGPF RECORD FLAG MANAGEMENT option.
8 ;
9 ; Input: None
10 ; Output: None
11 ;
12 ;- invoke DGPF RECORD FLAG MANAGEMENT list template
13 D EN^VALM("DGPF RECORD FLAG MANAGEMENT")
14 Q
15 ;
16 ;
17HDR ;Header Code
18 ;
19 N DGHDR
20 S VALMHDR(1)="Flag Category: "_$S(DGCAT=1:"I (National)",DGCAT=2:"II (Local)",1:"Unknown")
21 S DGHDR="Sorted By: "_$S(DGSRTBY="N":"Flag Name",DGSRTBY="T":"Flag Type",1:"Unknown")
22 S VALMHDR(1)=$$SETSTR^VALM1(DGHDR,VALMHDR(1),57,$L(DGHDR))
23 Q
24 ;
25 ;
26INIT ;Init variables and list array
27 ;
28 ;- init flag categorey to list (default=National)
29 S DGCAT=1
30 ;
31 ;init list sort by criteria (default=Flag Name)
32 S DGSRTBY="N"
33 ;
34 ;build record flag list area
35 D BLD
36 ;
37 Q
38 ;
39 ;
40BLD ;Build record flag screen (list area)
41 ;
42 D CLEAN^VALM10
43 K DGARY,VALMHDR
44 K ^TMP("DGPFSORT",$J)
45 ;
46 ;- init array that will contain list of items to display
47 S DGARY="DGPFLAG"
48 K ^TMP(DGARY,$J)
49 ;
50 ;init # of lines in list
51 S VALMCNT=0
52 ;
53 ;build header area
54 D HDR
55 ;
56 ;build list area for flag screen
57 D EN^DGPFLF1(DGARY,DGCAT,DGSRTBY,.VALMCNT)
58 ;
59 Q
60 ;
61 ;
62HELP ;Help Code
63 ;
64 S X="?" D DISP^XQORM1 W !!
65 Q
66 ;
67 ;
68EXIT ;Exit Code
69 ;
70 D CLEAN^VALM10
71 D CLEAR^VALM1
72 K DGCAT
73 K DGSRTBY
74 K ^TMP("DGPFSORT",$J)
75 K ^TMP(DGARY,$J)
76 K ^TMP(DGARY,"IDX",$J)
77 K DGARY
78 Q
79 ;
80 ;
81EXPND ;Expand Code
82 Q
Note: See TracBrowser for help on using the repository browser.