source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPFLF2.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: 2.4 KB
RevLine 
[613]1DGPFLF2 ;ALB/KCL - PRF FLAG MANAGEMENT LM PROTOCOL ACTIONS ; 3/18/03
2 ;;5.3;Registration;**425**;Aug 13, 1993
3 ;
4 ;no direct entry
5 QUIT
6 ;
7 ;
8SL ;Entry point for DGPF SORT FLAG LIST action protocol.
9 ;
10 ; Input:
11 ; DGSRTBY - flag list sort by criteria (N=Flag Name, T=Flage Type)
12 ;
13 ; Output:
14 ; DGSRTBY - flag list sort by criteria (N=Flag Name, T=Flage Type)
15 ; VALMBCK - 'R' = refresh screen
16 ;
17 N DGCODE,DGFG
18 ;
19 ;set screen to full scrolling region
20 D FULL^VALM1
21 ;
22 D
23 . ;- prompt for sort criteria
24 . W !
25 . S DGFG=DGSRTBY ;save original sort to default to
26 . S DGCODE="Y" ;DIC(0)="Y" for Yes/No answering
27 . S DGSRTBY=$$ANSWER^DGPFUT("Would you like to sort the list by '"_$S($G(DGFG)="N":"Flag Type",1:"Flag Name")_"'","Yes",DGCODE)
28 . I $G(DGSRTBY)'=1 S DGSRTBY=DGFG Q ;no sort change
29 . S DGSRTBY=$S($G(DGFG)="N":"T",1:"N") ;change sort (flip / flop)
30 . ;
31 . ;- re-build list for selected sort criteria
32 . D BLD^DGPFLF
33 ;
34 ;return to LM (refresh screen)
35 S VALMBCK="R"
36 Q
37 ;
38 ;
39CC ;Entry point for DGPF CHANGE CATEGORY action protocol.
40 ;
41 ; Input:
42 ; DGCAT - flag category (1=National, 2=Local)
43 ;
44 ; Output:
45 ; DGCAT - flag category (1=National, 2=Local)
46 ; VALMBCK - 'R' = refresh screen
47 ;
48 N DGCODE
49 N DGFG
50 ;
51 ;set screen to full scrolling region
52 D FULL^VALM1
53 ;
54 ;change category
55 S DGCAT=$S($G(DGCAT)=1:2,1:1)
56 ;
57 ;re-build list for category change
58 D BLD^DGPFLF
59 ;
60 ;return to LM (refresh screen)
61 S VALMBCK="R"
62 Q
63 ;
64 ;
65DF ;Entry point for DGPF DISPLAY FLAG DETAIL action protocol.
66 ;
67 ; Input:
68 ;
69 ; Output:
70 ; VALMBCK - 'R' = refresh screen
71 ;
72 N SEL ;user selection
73 N VALMY ;output of EN^VALM2 call, array of user selected entries
74 N DGPFIEN ;IEN of record in PRF NATIONAL FLAG or PRF LOCAL FLAG file
75 ; [ex: "1;DGPF(26.15,"]
76 ;
77 ;set screen to full scroll region
78 D FULL^VALM1
79 ;
80 ;is action selection allowed?
81 I '$D(@VALMAR@("IDX")) D Q
82 . W !!?2,">>> '"_$P($G(XQORNOD(0)),U,3)_"' action not allowed at this point.",*7
83 . W !?6,"There are no record flags to display."
84 . D PAUSE^VALM1
85 . S VALMBCK="R"
86 ;
87 ;ask user to select a single flag for displaying details
88 S (SEL,DGPFIEN,VALMBCK)=""
89 D EN^VALM2($G(XQORNOD(0)),"S")
90 ;
91 ;process user selection
92 S SEL=$O(VALMY(""))
93 I SEL,$D(@VALMAR@("IDX",SEL)) D
94 . S DGPFIEN=$P($G(@VALMAR@("IDX",SEL)),U)
95 . ;- display flag details
96 . N VALMHDR
97 . D EN^DGPFLFD
98 ;
99 ;return to LM (refresh screen)
100 S VALMBCK="R"
101 Q
Note: See TracBrowser for help on using the repository browser.