source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORSET98.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 3.7 KB
Line 
1ORSET98 ; slc/KCM - Set up display group file ;10/25/97 15:11
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
3PRE ; -- Pre-init to rename RAD entry in Display Group file
4 N X,Y,DA,DR,DIE
5 S DA=$O(^ORD(100.98,"B","RAD",0))
6 I DA S DIE="^ORD(100.98,",DR=".01///GENERAL RADIOLOGY" D ^DIE
7 Q
8 ;
9POST ; -- Post-init to setup Display Group file
10 N X,ORSEQ,ORADG,ORIMG,ORDG,ORI
11 F ORSEQ=1:1 S X=$T(TOP+ORSEQ) Q:X["ZZZZZ" D ATOP ; add Def Dlg
12 S ORADG=+$O(^ORD(100.98,"B","RAD",0)),ORIMG=+$O(^ORD(100.98,"B","XRAY",0))
13 F ORI="ALL","SUM" S ORDG=+$O(^ORD(100.98,"B",ORI,0)) D ; RAD -> XRAY
14 . N DA S DA=$O(^ORD(100.98,"AD",ORADG,ORDG,0)) Q:'DA
15 . S ^ORD(100.98,ORDG,1,DA,0)=ORIMG,^ORD(100.98,ORDG,1,"B",ORIMG,DA)=""
16 . S ^ORD(100.98,"AD",ORIMG,ORDG,DA)=""
17 . K ^ORD(100.98,"AD",ORADG,ORDG),^ORD(100.98,ORDG,1,"B",ORADG)
18 F ORSEQ=1:1 S X=$T(SUB+ORSEQ) Q:X["ZZZZZ" D ASUB ; add members
19 Q
20 ;
21ATOP ; Top level - Add Default Dialog ptr
22 N DA,DLG S DA=+$O(^ORD(100.98,"B",$P(X,";",5),0)) Q:'DA
23 S DLG=$P(X,";",6) Q:'$L(DLG) S DLG=+$O(^ORD(101.41,"AB",DLG,0))
24 S:DLG $P(^ORD(100.98,DA,0),U,4)=DLG
25 Q
26ASUB ; Add members
27 Q:'$O(^ORD(100.98,"B",$P(X,";",4),0))
28 N DA,DIC,DLAYGO,Y
29 S DA(1)=$O(^ORD(100.98,"B",$P(X,";",3),0)) I 'DA(1) K DA Q
30 S:'$D(^ORD(100.98,DA(1),1,0)) ^(0)="^100.981P^^"
31 S DIC="^ORD(100.98,"_DA(1)_",1,",DIC(0)="NLX",DLAYGO=100.98
32 S X=$P(X,";",4) D ^DIC
33 Q
34TOP ;;NAME;Mixed Name;SHORT NAME;DIALOG
35 ;;ALL SERVICES;All;ALL
36 ;;PHARMACY;Meds;RX
37 ;;SUPPLIES/DEVICES;Supplies;SPLY;PSO SUPPLY
38 ;;INPATIENT MEDICATIONS;Inpt. Meds;I RX;PSJ OR PAT OE
39 ;;UNIT DOSE MEDICATIONS;Inpt. Meds;UD RX;PSJ OR PAT OE
40 ;;IV MEDICATIONS;IV Fluids;IV RX;PSJI OR PAT FLUID OE
41 ;;PARENTERAL NUTRITION;TPN;TPN
42 ;;OUTPATIENT MEDICATIONS;Out. Meds;O RX;PSO OERR
43 ;;LABORATORY;Lab;LAB;LR OTHER LAB TESTS
44 ;;CHEMISTRY;Chemistry;CH
45 ;;HEMATOLOGY;Hematology;HEMA
46 ;;MICROBIOLOGY;Microbiology;MI
47 ;;BLOOD BANK;Blood Bank;BB
48 ;;ANATOMIC PATHOLOGY;Anat. Path.;AP
49 ;;IMAGING;Imaging;XRAY;RA OERR EXAM
50 ;;GENERAL RADIOLOGY;Radiology;RAD
51 ;;CT SCAN;CT Scan;CT
52 ;;MAGNETIC RESONANCE IMAGING;MRI;MRI
53 ;;ANGIO/NEURO/INTERVENTIONAL;Angio/Neuro;ANI
54 ;;CARDIOLOGY STUDIES (NUC MED);Cardiology;CARD
55 ;;NUCLEAR MEDICINE;Nuclear Med;NM
56 ;;ULTRASOUND;Ultrasound;US
57 ;;VASCULAR LAB;Vascular Lab;VAS
58 ;;MAMMOGRAPHY;Mammography;MAM
59 ;;DIETETICS;Diet;DIET
60 ;;DIET ORDERS;Diet;DO;FHW1
61 ;;TUBEFEEDINGS;Tubefeeding;TF;FHW8
62 ;;DIET ADDITIONAL ORDERS;Diet Add'l;D AO;FHW7
63 ;;EARLY/LATE TRAYS;Early/Late Trays;E/L T;FHW2
64 ;;CONSULTS;Consults;CSLT;GMRCOR CONSULT
65 ;;PROCEDURES;Procedures;PROC;GMRCOR REQUEST
66 ;;VITALS/MEASUREMENTS;Vitals;V/M;GMRVOR
67 ;;NURSING;Nursing;NURS;OR GXMISC GENERAL
68 ;;ACTIVITY;Activity;ACT;OR GXACTV OTHER ACTIVITY ORDER
69 ;;SURGERY;Surgery;SURG
70 ;;SUMMARY ORDER;;SUM
71 ;;M.A.S.;A/D/T;ADT
72 ;;OTHER HOSPITAL SERVICES;Other;OTHER
73 ;;ALLERGIES;Allergy;ALG;GMRAOR ALLERGY ENTER/EDIT
74 ;;DIAGNOSIS;Diagnosis;DX;OR GWDIAG DIAGNOSIS
75 ;;CONDITION;Condition;COND;OR GWCOND CONDITION
76 ;;PRECAUTIONS;Precautions;PREC;FHW3
77 ;;ORDER ENTRY/RESULTS REPORTING;OE/RR;OE/RR
78 ;;ZZZZZ
79SUB ;;PARENT;MEMBER
80 ;;ALL;RX
81 ;;ALL;LAB
82 ;;ALL;XRAY
83 ;;ALL;DIET
84 ;;ALL;CSLT
85 ;;ALL;PROC
86 ;;ALL;V/M
87 ;;ALL;NURS
88 ;;ALL;SURG
89 ;;ALL;ADT
90 ;;ALL;OTHER
91 ;;ALL;ALG
92 ;;ALL;SPLY
93 ;;SUM;ADT
94 ;;SUM;V/M
95 ;;SUM;DO
96 ;;SUM;D AO
97 ;;SUM;TF
98 ;;SUM;E/L T
99 ;;SUM;D CON
100 ;;SUM;DIET
101 ;;SUM;UD RX
102 ;;SUM;IV RX
103 ;;SUM;I RX
104 ;;SUM;CH
105 ;;SUM;HEMA
106 ;;SUM;MI
107 ;;SUM;LAB
108 ;;SUM;XRAY
109 ;;SUM;CSLT
110 ;;SUM;OTHER
111 ;;RX;I RX
112 ;;RX;O RX
113 ;;I RX;UD RX
114 ;;I RX;IV RX
115 ;;IV RX;TPN
116 ;;LAB;CH
117 ;;LAB;HEMA
118 ;;LAB;MI
119 ;;LAB;BB
120 ;;LAB;AP
121 ;;XRAY;RAD
122 ;;XRAY;CT
123 ;;XRAY;MRI
124 ;;XRAY;ANI
125 ;;XRAY;CARD
126 ;;XRAY;NM
127 ;;XRAY;US
128 ;;XRAY;VAS
129 ;;XRAY;MAM
130 ;;DIET;DO
131 ;;DIET;TF
132 ;;DIET;D AO
133 ;;DIET;E/L T
134 ;;DIET;PREC
135 ;;NURS;ACT
136 ;;ADT;DX
137 ;;ADT;COND
138 ;;ZZZZZ
Note: See TracBrowser for help on using the repository browser.