source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XQOPED.m@ 1141

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

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1XQOPED ;SEA/Luke - Option Editor ;04/27/98 12:26
2 ;;8.0;KERNEL;**46**;Jul 10, 1995
3 ;
4IN ;Called from the Pre Action of the XQEDTOPT form
5 K ^TMP($J,"XQOPED")
6 ;I $D(XQDICNEW) S ^TMP($J,"XQOPED","NEW")=XQDICNEW
7 Q
8 ;
9OUT ;Called from the Post Action of the XQEDTOPT form
10 I $D(XQDICNEW),$P(XQDICNEW,U,3) D CMPLT
11 I $D(DDSCHANG),DDSCHANG D PUT^DDSVAL(DIE,.DA,3.6,DUZ,"","I")
12 ;I $D(DDSCHANG),DDSCHANG S ^TMP($J,"XQOPED","CHANGED")=DA
13 K DDSCHANG,XQDICNEW ;,DDSPAGE,DDSPARM
14 Q
15 ;
16CHECK() ;See if this person should have programmer access to the
17 ;EXECUTABLES subfile containing the ENTRY ACTION, etc.
18 ;
19 ;Returns a 1 if the user has a key or an @-sign, 0 if not.
20 ;
21 ;Called by the branching logic of the EXECUTABLES form-only field
22 ;on Page 1 (Main) of the XQEDTOPT ScreenMan form.
23 ;
24 N XQYES S XQYES=0
25 ;
26 Q:'$D(DUZ) XQYES
27 I $D(^XUSEC("XUMGR",DUZ)) S XQYES=1
28 I $D(^XUSEC("XUPROG",DUZ)) S XQYES=1
29 ;I $D(^XUSEC("XUPROGMODE",DUZ)) S XQYES=1
30 ;I $D(^XUSEC("XQSMDFM",DUZ)) S XQYES=1
31 ;
32 ;
33 Q:'$D(DUZ(0)) XQYES
34 I DUZ(0)="@" S XQYES=1
35 ;I DUZ(0)="#" S XQYES=1
36 ;
37 Q XQYES
38 ;
39 ;
40EA ;ENTRY ACTION for the option XQOPED, the screen-based option editor
41 K ^TMP($J,"XQOPED")
42 I $$CHECK() S DLAYGO=19
43 Q
44 ;
45XA ;EXIT ACTION for the option XQOPED, the screen based Option Editor
46 ;Repoint the CREATOR field for the modified options
47 ;
48 I $D(^TMP($J,"XQOPED","CHANGED")) D
49 .N % S %=0
50 .F Q:%="" D
51 ..S %=$O(^TMP($J,"XQOPED","CHANGED")) Q:%=""
52 ..I $D(^DIC(19,%,0))#2 S $P(^(0),U,5)=DUZ
53 ..Q
54 .Q
55 K ^TMP($J,"XQOPED")
56 Q
57 ;
58CMPLT ;Check to make sure that the option is complete enough to leave
59 ;it in the Option File.
60 I $D(XQDICNEW) D
61 .N %
62 .S %=$P(^DIC(19,+XQDICNEW,0),U,4) ;Check the TYPE field
63 .I %']"" S DA=+XQDICNEW,DIK="^DIC(19," D ^DIK K DIK,DA
64 .Q
65 Q
66 ;
67 ;This code was graciously provided by David LaLiberte
68 ;AUHBHLP
69 ;692/DCL-TMT PLAN SCREEN HELP PROCESSOR;OCT 07, 1997@13:34
70 ;;1.0;WHITE CITY TMT PLAN PKG;;6-17-97
71H(XQIEN) ;Process Help for ScreenMan form
72 Q:$G(XQIEN)'>0
73 Q:$D(^DIC(19.8,XQIEN,1))'>9
74 N XQA,XQI
75 F XQI=1:1:5 Q:'$D(^DIC(19.8,XQIEN,1,XQI,0)) S XQA(XQI)=^(0)
76 D HLP^DDSUTL(.XQA)
77 K XQIEN
78 Q
Note: See TracBrowser for help on using the repository browser.