Last change
on this file since 789 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.4 KB
|
Line | |
---|
1 | DGPFLF ;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 | ;
|
---|
7 | EN ;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 | ;
|
---|
17 | HDR ;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 | ;
|
---|
26 | INIT ;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 | ;
|
---|
40 | BLD ;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 | ;
|
---|
62 | HELP ;Help Code
|
---|
63 | ;
|
---|
64 | S X="?" D DISP^XQORM1 W !!
|
---|
65 | Q
|
---|
66 | ;
|
---|
67 | ;
|
---|
68 | EXIT ;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 | ;
|
---|
81 | EXPND ;Expand Code
|
---|
82 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.