source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORSETUP1.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 4.2 KB
Line 
1ORSETUP1 ; SLC/MKB - OE3 Setup post-init cont ;2/5/97 11:28
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
3OI ; -- install generic orderable items
4 N X,Y,DIC,DIE,DA,DR,DLAYGO,ORDG,ORI,ITEM,ID,QDLG,ORJ,OI,IT
5 S OI=$$PTR^ORCD("OR GTX ORDERABLE ITEM")
6 S DIC="^ORD(101.43,",DIC(0)="LX",DLAYGO=101.43,DIE=DIC
7 F ORI=1:1 S ITEM=$T(ITEMS+ORI),X=$P(ITEM,";",3) Q:X="ZZZZ" D
8 . S ORDG=$P(ITEM,";",4),Y=+$O(^ORD(101.43,"S."_ORDG,$$UP^XLFSTR(X),0))
9 . S:Y>0 Y=Y_U_X I Y'>0 K DO,DD D FILE^DICN Q:Y'>0 ; error
10 . S ORDG=$O(^ORD(100.98,"B",ORDG,0)) Q:'ORDG S DA=+Y
11 . I $P(Y,U,3) S ID=DA_";99ORD",DR="1.1///"_X_";2///^S X=ID;5////"_ORDG D ^DIE
12 . F ORJ=6,7 S QDLG=$P(ITEM,";",ORJ) Q:'$L(QDLG) D
13 . . S QDLG=$O(^ORD(101.41,"AB",QDLG,0)) Q:'QDLG
14 . . S IT=$O(^ORD(101.41,QDLG,6,"D",OI,0)) S:IT ^ORD(101.41,QDLG,6,IT,1)=DA
15 Q
16 ;
17ITEMS ;;generic orderable;DGroup;;QOrder;QOrder
18 ;;Temperature;V/M;;GMRVORTEMP
19 ;;Pulse;V/M;;GMRVORPULSE
20 ;;Respiration;V/M;;GMRVORRESP
21 ;;B/P;V/M;;GMRVORB/P
22 ;;Height;V/M;;GMRVORHT
23 ;;Weight;V/M;;GMRVORWT
24 ;;TPR;V/M;;GMRVORTPR
25 ;;TPR B/P;V/M;;GMRVORTPR B/P
26 ;;TPR B/P Ht Wt;V/M;;GMRVORADMIT V/M
27 ;;Activity;ACT;;OR GXACTV AD LIB
28 ;;Ambulate;ACT;;OR GXACTV AMBULATE;OR GXACTV AMBULATE TID
29 ;;Bathroom Privileges;ACT;;OR GXACTV BATHROOM PRIVILEGES
30 ;;Bed Rest;ACT;;OR GXACTV BED REST
31 ;;Bed Rest / BRP;ACT;;OR GXACTV BED REST / BRP
32 ;;HOB up;ACT;;OR GXACTV HOB UP
33 ;;May Leave Ward;ACT;;OR GXACTV MAY LEAVE WARD
34 ;;Out of Bed;ACT;;OR GXACTV OUT OF BED
35 ;;Provide Trapeze;ACT;;OR GXACTV PROVIDE TRAPEZE
36 ;;ROM Exercise;ACT;;OR GXACTV ROM EXERCISE
37 ;;Turn Patient;ACT;;OR GXACTV TURN PATIENT
38 ;;Up in Chair;ACT;;OR GXACTV UP IN CHAIR;OR GXACTV UP IN CHAIR TID
39 ;;Air Mattress;NURS;;OR GXSKIN AIR MATTRESS
40 ;;Arterial Line;NURS;;OR GXHEMO ARTERIAL LINE
41 ;;Arterial Sheath;NURS;;OR GXHEMO ARTERIAL SHEATH
42 ;;Call HO on;NURS;;OR GXPARM CALL HO ON
43 ;;Cardiac Output;NURS;;OR GXHEMO CARDIAC OUTPUT
44 ;;Chest PT;NURS;;OR GXRESP CHEST PT
45 ;;Chest Tube;NURS;;OR GXNURS CHEST TUBE
46 ;;Cold Packs;NURS;;OR GXSKIN COLD PACKS
47 ;;Colostomy;NURS;;OR GXTUBE COLOSTOMY
48 ;;Condom Catheter;NURS;;OR GXTUBE CONDOM CATHETER
49 ;;Drains;NURS;;OR GXTUBE DRAINS ITEM
50 ;;Dressing Change;NURS;;OR GXSKIN DRESSING CHANGE
51 ;;Glascow Coma;NURS;;OR GXNURS GLASCOW COMA
52 ;;Guaiac Aspirate;NURS;;OR GXNURS GUAIAC ASPIRATE
53 ;;Guaiac Emesis;NURS;;OR GXNURS GUAIAC EMESIS
54 ;;Guaiac Stools;NURS;;OR GXNURS GUAIAC STOOLS
55 ;;Hemodynamics;NURS;;OR GXHEMO HEMODYNAMICS ITEM
56 ;;Hemovac;NURS;;OR GXTUBE HEMOVAC
57 ;;I & O;NURS;;OR GXPARM I AND O
58 ;;Ileostomy;NURS;;OR GXTUBE ILEOSTOMY
59 ;;Incentive Spirometer;NURS;;OR GXRESP INCENTIVE SPIROMETER
60 ;;Indwelling Urinary;NURS;;OR GXTUBE INDWELLING URINARY CATH
61 ;;Jackson Pratt;NURS;;OR GXTUBE JACKSON PRATT
62 ;;Mask 35 per cent;NURS;;OR GXOXGN MASK 35 PER CENT
63 ;;Mask 40 per cent;NURS;;OR GXOXGN MASK 40 PER CENT
64 ;;Mask 50 per cent;NURS;;OR GXOXGN MASK 50 PER CENT
65 ;;Nasogastric;NURS;;OR GXTUBE NASOGASTRIC
66 ;;Neuro Check;NURS;;OR GXNURS NEURO CHECK
67 ;;Nursing;NURS;;OR GXNURS NURSING ITEM
68 ;;O2 3lt nasal cannula;NURS;;OR GXOXGN O2 3 LT NASAL CANNULA
69 ;;O2 4lt nasal cannula;NURS;;OR GXOXGN O2 4 LT NASAL CANNULA
70 ;;Oxygen Therapy;NURS;;OR GXOXGN OXYGEN THERAPY ITEM
71 ;;Penrose;NURS;;OR GXTUBE PENROSE
72 ;;Push Fluids;NURS;;OR GXNURS PUSH FLUIDS
73 ;;Rectal Tube;NURS;;OR GXTUBE RECTAL TUBE
74 ;;Respiratory;NURS;;OR GXRESP RESPIRATORY ITEM
75 ;;Sheepskin;NURS;;OR GXSKIN SHEEPSKIN
76 ;;Skin & Wound;NURS;;OR GXSKIN SKIN AND WOUND ITEM
77 ;;Suction;NURS;;OR GXRESP SUCTION
78 ;;Suprapubic Catheter;NURS;;OR GXTUBE SUPRAPUBIC CATHETER
79 ;;Swan Ganz Catheter;NURS;;OR GXHEMO SWAN GANZ CATHETER
80 ;;TCDB;NURS;;OR GXRESP TCDB
81 ;;Trach Care;NURS;;OR GXRESP TRACH CARE
82 ;;Urine pH;NURS;;OR GXNURS URINE PH
83 ;;Urine Spec Grav;NURS;;OR GXNURS URINE SPEC GRAV
84 ;;Urostomy;NURS;;OR GXTUBE UROSTOMY
85 ;;Venous Sheath;NURS;;OR GXHEMO VENOUS SHEATH
86 ;;Ventilator;NURS;;OR GXOXGN VENTILATOR
87 ;;Warm Packs;NURS;;OR GXSKIN WARM PACKS
88 ;;Warm Soaks;NURS;;OR GXSKIN WARM SOAKS
89 ;;Water Mattress;NURS;;OR GXSKIN WATER MATTRESS
90 ;;Admit Patient;ADT
91 ;;Change Treating Specialty;ADT
92 ;;Discharge Patient;ADT
93 ;;Transfer Patient;ADT
94 ;;Condition;COND
95 ;;Diagnosis;DX
96 ;;Do Not Resuscitate;ADT
97 ;;Isolation Procedures;PREC
98 ;;NPO;DIET;;FHWN1;FHWN2
99 ;;Early Tray;E/L T
100 ;;Late Tray;E/L T
101 ;;ZZZZ
Note: See TracBrowser for help on using the repository browser.