ORSETUP1.m

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 ---ORSETUP1   4380     printed  Feb 19, 2025@00:00:42                                                                                                                                                                                                    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