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

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