source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORSETUP1.m@ 837

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