source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORKMGR.m@ 1535

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

initial load of FOIAVistA 6/30/08 version

File size: 3.5 KB
Line 
1ORKMGR ; SLC/AEB,CLA - Manager Options - Order Checking Parameters ;9/22/97
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**9,85,105**;Dec 17, 1997
3 ;
4PFLAG ;
5 N ORKT,PAR,PIEN
6 S ORKT="Enable/Disable an Order Check",PIEN=0
7 S PIEN=$O(^XTV(8989.51,"B","ORK PROCESSING FLAG",PIEN)) Q:PIEN=""
8 S PAR=PIEN
9 D TITLE(ORKT) D PROC(PAR)
10 Q
11 ;
12CLINDL ;
13 N ORKT,PAR,PIEN
14 S ORKT="Set Clinical Danger Level for an Order Check",PIEN=0
15 S PIEN=$O(^XTV(8989.51,"B","ORK CLINICAL DANGER LEVEL",PIEN)) Q:PIEN=""
16 S PAR=PIEN
17 D TITLE(ORKT) D PROC(PAR)
18 Q
19 ;
20CTLIMH ;
21 N ORKT,PAR,PIEN
22 S ORKT="CT Scanner Height Limit",PIEN=0
23 S PIEN=$O(^XTV(8989.51,"B","ORK CT LIMIT HT",PIEN)) Q:PIEN=""
24 S PAR=PIEN
25 D TITLE(ORKT) D PROC(PAR)
26 Q
27 ;
28CTLIMW ;
29 N ORKT,PAR,PIEN
30 S ORKT="CAT Scanner Weight Limit",PIEN=0
31 S PIEN=$O(^XTV(8989.51,"B","ORK CT LIMIT WT",PIEN)) Q:PIEN=""
32 S PAR=PIEN
33 D TITLE(ORKT) D PROC(PAR)
34 Q
35 ;
36MRLIMH ;
37 N ORKT,PAR,PIEN
38 S ORKT="MRI Scanner Height Limit",PIEN=0
39 S PIEN=$O(^XTV(8989.51,"B","ORK MRI LIMIT HT",PIEN)) Q:PIEN=""
40 S PAR=PIEN
41 D TITLE(ORKT) D PROC(PAR)
42 Q
43 ;
44MRLIMW ;
45 N ORKT,PAR,PIEN
46 S ORKT="MRI Scanner Weight Limit",PIEN=0
47 S PIEN=$O(^XTV(8989.51,"B","ORK MRI LIMIT WT",PIEN)) Q:PIEN=""
48 S PAR=PIEN
49 D TITLE(ORKT) D PROC(PAR)
50 Q
51 ;
52DUPOR ;
53 N ORKT,PAR,PIEN
54 S ORKT="Orderable Item Duplicate Order Range",PIEN=0
55 S PIEN=$O(^XTV(8989.51,"B","ORK DUP ORDER RANGE OI",PIEN)) Q:PIEN=""
56 S PAR=PIEN
57 D TITLE(ORKT) D PROC(PAR)
58 Q
59 ;
60DUPLR ;
61 N ORKT,PAR,PIEN
62 S ORKT="Lab Duplicate Order Range",PIEN=0
63 S PIEN=$O(^XTV(8989.51,"B","ORK DUP ORDER RANGE LAB",PIEN)) Q:PIEN=""
64 S PAR=PIEN
65 D TITLE(ORKT) D PROC(PAR)
66 Q
67 ;
68DUPRA ;
69 N ORKT,PAR,PIEN
70 S ORKT="Imaging Duplicate Order Range",PIEN=0
71 S PIEN=$O(^XTV(8989.51,"B","ORK DUP ORDER RANGE RADIOLOGY",PIEN)) Q:PIEN=""
72 S PAR=PIEN
73 D TITLE(ORKT) D PROC(PAR)
74 Q
75 ;
76SYSEN ;
77 N ORKT,PAR,PIEN
78 S ORKT="Enable or Disable Order Checking System",PIEN=0
79 S PIEN=$O(^XTV(8989.51,"B","ORK SYSTEM ENABLE/DISABLE",PIEN)) Q:PIEN=""
80 S PAR=PIEN
81 D TITLE(ORKT) D PROC(PAR)
82 Q
83 ;
84DEBUG ;
85 N ORKT,PAR,PIEN
86 S ORKT="Enable or Disable Logging Debug Messages",PIEN=0
87 S PIEN=$O(^XTV(8989.51,"B","ORK DEBUG ENABLE/DISABLE",PIEN)) Q:PIEN=""
88 S PAR=PIEN
89 D TITLE(ORKT) D PROC(PAR)
90 Q
91 ;
92POLYRX ;
93 N ORKT,PAR,PIEN
94 S ORKT="Set Number of Meds for Polypharmacy",PIEN=0
95 S PIEN=$O(^XTV(8989.51,"B","ORK POLYPHARMACY",PIEN)) Q:PIEN=""
96 S PAR=PIEN
97 D TITLE(ORKT) D PROC(PAR)
98 Q
99 ;
100GLUCREAT ;
101 N ORKT,PAR,PIEN
102 S ORKT="Set Creatinine Search Range for Glucophage-Lab Results Order Check",PIEN=0
103 S PIEN=$O(^XTV(8989.51,"B","ORK GLUCOPHAGE CREATININE",PIEN)) Q:PIEN=""
104 S PAR=PIEN
105 D TITLE(ORKT) D PROC(PAR)
106 Q
107 ;
108EDITUSER ;
109 N ORKT,PAR,PIEN
110 S ORKT="Set One or More Order Checks to be Uneditable By End Users",PIEN=0
111 S PIEN=$O(^XTV(8989.51,"B","ORK EDITABLE BY USER",PIEN)) Q:PIEN=""
112 S PAR=PIEN
113 D TITLE(ORKT) D PROC(PAR)
114 Q
115 ;
116CMCREAT ;
117 N ORKT,PAR,PIEN
118 S ORKT="Set Creatinine Search Range for Biochem Abnormality for Contrast Media Order Chk",PIEN=0
119 S PIEN=$O(^XTV(8989.51,"B","ORK CONTRAST MEDIA CREATININE",PIEN)) Q:PIEN=""
120 S PAR=PIEN
121 D TITLE(ORKT) D PROC(PAR)
122 Q
123 ;
124TITLE(ORKT) ;
125 ; Center and write title - Parameter to be set
126 S IOP=0 D ^%ZIS K IOP W @IOF
127 W !,?(80-$L(ORKT)-1/2),ORKT
128 Q
129PROC(PAR) ; Process Parameter Settings
130 D EDITPAR^XPAREDIT(PAR)
131 Q
132USRCHKS ; List order checks a user could receive
133 N ORKUSR
134 ; Get user DUZ number
135 K DIC,Y S DIC="^VA(200,",DIC(0)="AEQ",DIC("A")="Enter user's name: ",DIC("B")=DUZ D ^DIC Q:Y<1
136 S ORKUSR=$S(Y'<1:$P(Y,"^"),1:DUZ) K DIC,Y,DUOUT,DTOUT
137 D USRCHKS^ORKUTL(ORKUSR)
138 Q
Note: See TracBrowser for help on using the repository browser.