102 lines
4.2 KiB
Mathematica
102 lines
4.2 KiB
Mathematica
ORSETUP1 ; SLC/MKB - OE3 Setup post-init cont ;2/5/97 11:28
|
|
;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
|
|
OI ; -- install generic orderable items
|
|
N X,Y,DIC,DIE,DA,DR,DLAYGO,ORDG,ORI,ITEM,ID,QDLG,ORJ,OI,IT
|
|
S OI=$$PTR^ORCD("OR GTX ORDERABLE ITEM")
|
|
S DIC="^ORD(101.43,",DIC(0)="LX",DLAYGO=101.43,DIE=DIC
|
|
F ORI=1:1 S ITEM=$T(ITEMS+ORI),X=$P(ITEM,";",3) Q:X="ZZZZ" D
|
|
. S ORDG=$P(ITEM,";",4),Y=+$O(^ORD(101.43,"S."_ORDG,$$UP^XLFSTR(X),0))
|
|
. S:Y>0 Y=Y_U_X I Y'>0 K DO,DD D FILE^DICN Q:Y'>0 ; error
|
|
. S ORDG=$O(^ORD(100.98,"B",ORDG,0)) Q:'ORDG S DA=+Y
|
|
. I $P(Y,U,3) S ID=DA_";99ORD",DR="1.1///"_X_";2///^S X=ID;5////"_ORDG D ^DIE
|
|
. F ORJ=6,7 S QDLG=$P(ITEM,";",ORJ) Q:'$L(QDLG) D
|
|
. . S QDLG=$O(^ORD(101.41,"AB",QDLG,0)) Q:'QDLG
|
|
. . S IT=$O(^ORD(101.41,QDLG,6,"D",OI,0)) S:IT ^ORD(101.41,QDLG,6,IT,1)=DA
|
|
Q
|
|
;
|
|
ITEMS ;;generic orderable;DGroup;;QOrder;QOrder
|
|
;;Temperature;V/M;;GMRVORTEMP
|
|
;;Pulse;V/M;;GMRVORPULSE
|
|
;;Respiration;V/M;;GMRVORRESP
|
|
;;B/P;V/M;;GMRVORB/P
|
|
;;Height;V/M;;GMRVORHT
|
|
;;Weight;V/M;;GMRVORWT
|
|
;;TPR;V/M;;GMRVORTPR
|
|
;;TPR B/P;V/M;;GMRVORTPR B/P
|
|
;;TPR B/P Ht Wt;V/M;;GMRVORADMIT V/M
|
|
;;Activity;ACT;;OR GXACTV AD LIB
|
|
;;Ambulate;ACT;;OR GXACTV AMBULATE;OR GXACTV AMBULATE TID
|
|
;;Bathroom Privileges;ACT;;OR GXACTV BATHROOM PRIVILEGES
|
|
;;Bed Rest;ACT;;OR GXACTV BED REST
|
|
;;Bed Rest / BRP;ACT;;OR GXACTV BED REST / BRP
|
|
;;HOB up;ACT;;OR GXACTV HOB UP
|
|
;;May Leave Ward;ACT;;OR GXACTV MAY LEAVE WARD
|
|
;;Out of Bed;ACT;;OR GXACTV OUT OF BED
|
|
;;Provide Trapeze;ACT;;OR GXACTV PROVIDE TRAPEZE
|
|
;;ROM Exercise;ACT;;OR GXACTV ROM EXERCISE
|
|
;;Turn Patient;ACT;;OR GXACTV TURN PATIENT
|
|
;;Up in Chair;ACT;;OR GXACTV UP IN CHAIR;OR GXACTV UP IN CHAIR TID
|
|
;;Air Mattress;NURS;;OR GXSKIN AIR MATTRESS
|
|
;;Arterial Line;NURS;;OR GXHEMO ARTERIAL LINE
|
|
;;Arterial Sheath;NURS;;OR GXHEMO ARTERIAL SHEATH
|
|
;;Call HO on;NURS;;OR GXPARM CALL HO ON
|
|
;;Cardiac Output;NURS;;OR GXHEMO CARDIAC OUTPUT
|
|
;;Chest PT;NURS;;OR GXRESP CHEST PT
|
|
;;Chest Tube;NURS;;OR GXNURS CHEST TUBE
|
|
;;Cold Packs;NURS;;OR GXSKIN COLD PACKS
|
|
;;Colostomy;NURS;;OR GXTUBE COLOSTOMY
|
|
;;Condom Catheter;NURS;;OR GXTUBE CONDOM CATHETER
|
|
;;Drains;NURS;;OR GXTUBE DRAINS ITEM
|
|
;;Dressing Change;NURS;;OR GXSKIN DRESSING CHANGE
|
|
;;Glascow Coma;NURS;;OR GXNURS GLASCOW COMA
|
|
;;Guaiac Aspirate;NURS;;OR GXNURS GUAIAC ASPIRATE
|
|
;;Guaiac Emesis;NURS;;OR GXNURS GUAIAC EMESIS
|
|
;;Guaiac Stools;NURS;;OR GXNURS GUAIAC STOOLS
|
|
;;Hemodynamics;NURS;;OR GXHEMO HEMODYNAMICS ITEM
|
|
;;Hemovac;NURS;;OR GXTUBE HEMOVAC
|
|
;;I & O;NURS;;OR GXPARM I AND O
|
|
;;Ileostomy;NURS;;OR GXTUBE ILEOSTOMY
|
|
;;Incentive Spirometer;NURS;;OR GXRESP INCENTIVE SPIROMETER
|
|
;;Indwelling Urinary;NURS;;OR GXTUBE INDWELLING URINARY CATH
|
|
;;Jackson Pratt;NURS;;OR GXTUBE JACKSON PRATT
|
|
;;Mask 35 per cent;NURS;;OR GXOXGN MASK 35 PER CENT
|
|
;;Mask 40 per cent;NURS;;OR GXOXGN MASK 40 PER CENT
|
|
;;Mask 50 per cent;NURS;;OR GXOXGN MASK 50 PER CENT
|
|
;;Nasogastric;NURS;;OR GXTUBE NASOGASTRIC
|
|
;;Neuro Check;NURS;;OR GXNURS NEURO CHECK
|
|
;;Nursing;NURS;;OR GXNURS NURSING ITEM
|
|
;;O2 3lt nasal cannula;NURS;;OR GXOXGN O2 3 LT NASAL CANNULA
|
|
;;O2 4lt nasal cannula;NURS;;OR GXOXGN O2 4 LT NASAL CANNULA
|
|
;;Oxygen Therapy;NURS;;OR GXOXGN OXYGEN THERAPY ITEM
|
|
;;Penrose;NURS;;OR GXTUBE PENROSE
|
|
;;Push Fluids;NURS;;OR GXNURS PUSH FLUIDS
|
|
;;Rectal Tube;NURS;;OR GXTUBE RECTAL TUBE
|
|
;;Respiratory;NURS;;OR GXRESP RESPIRATORY ITEM
|
|
;;Sheepskin;NURS;;OR GXSKIN SHEEPSKIN
|
|
;;Skin & Wound;NURS;;OR GXSKIN SKIN AND WOUND ITEM
|
|
;;Suction;NURS;;OR GXRESP SUCTION
|
|
;;Suprapubic Catheter;NURS;;OR GXTUBE SUPRAPUBIC CATHETER
|
|
;;Swan Ganz Catheter;NURS;;OR GXHEMO SWAN GANZ CATHETER
|
|
;;TCDB;NURS;;OR GXRESP TCDB
|
|
;;Trach Care;NURS;;OR GXRESP TRACH CARE
|
|
;;Urine pH;NURS;;OR GXNURS URINE PH
|
|
;;Urine Spec Grav;NURS;;OR GXNURS URINE SPEC GRAV
|
|
;;Urostomy;NURS;;OR GXTUBE UROSTOMY
|
|
;;Venous Sheath;NURS;;OR GXHEMO VENOUS SHEATH
|
|
;;Ventilator;NURS;;OR GXOXGN VENTILATOR
|
|
;;Warm Packs;NURS;;OR GXSKIN WARM PACKS
|
|
;;Warm Soaks;NURS;;OR GXSKIN WARM SOAKS
|
|
;;Water Mattress;NURS;;OR GXSKIN WATER MATTRESS
|
|
;;Admit Patient;ADT
|
|
;;Change Treating Specialty;ADT
|
|
;;Discharge Patient;ADT
|
|
;;Transfer Patient;ADT
|
|
;;Condition;COND
|
|
;;Diagnosis;DX
|
|
;;Do Not Resuscitate;ADT
|
|
;;Isolation Procedures;PREC
|
|
;;NPO;DIET;;FHWN1;FHWN2
|
|
;;Early Tray;E/L T
|
|
;;Late Tray;E/L T
|
|
;;ZZZZ
|