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