OR3C101.m

OR3C101 ; SLC/MKB - Cleanup unused protocols ;8/20/97  08:30

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997

KILL ; -- kill old protocols after conversion is done

 N X,DA,DIK,ORI,ORP,ORMENU

 S DIK="^ORD(101," F X="DC","EDIT","HOLD","RENEW" S DA=+$O(^ORD(101,"B","ORGY "_X,0)) D:DA ^DIK

 F ORI=1:1 S X=$P($T(ITEM+ORI),";",3) Q:X="ZZZZ"  D

 . S ORP=$O(^ORD(101,"B",X,0)) Q:'ORP

 . S ORMENU=0 F  S ORMENU=$O(^ORD(101,"AD",ORP,ORMENU)) Q:ORMENU'>0  D

 . . S DA(1)=ORMENU,DIK="^ORD(101,"_ORMENU_",10,"

 . . S DA=0 F  S DA=$O(^ORD(101,"AD",ORP,ORMENU,DA)) Q:DA'>0  D ^DIK

 . K DA,DIK S DA=ORP,DIK="^ORD(101," D ^DIK

 Q

 ;

ITEM ;;Protocol name

 ;;OR GTMOVE A/T/D/S

 ;;OR GTPARM BPDIAS

 ;;OR GTPARM BPSYS

 ;;OR GTPARM PULSE

 ;;OR GTPARM TEMPERATURE

 ;;OR GTSKIN WOUND SITE

 ;;OR GTX FREE TEXT 1

 ;;OR GTX FREE TEXT 2

 ;;OR GTX FREE TEXT 3

 ;;OR GTX FREE TEXT 4

 ;;OR GTX FREQUENCY

 ;;OR GTX PROVIDER

 ;;OR GTX TREATING SPECIALTY

 ;;OR GTX WORD PROCESSING 1

 ;;OR GUA ACTV CHECK OTHER

 ;;OR GUA ACTV DISPLAY GROUP

 ;;OR GUA GENERIC ORDER MAIN PROTOCOL

 ;;OR GUA MOVE ATTENDING

 ;;OR GUA MOVE DISCHARGE TYPE

 ;;OR GUA MOVE SERVICE

 ;;OR GWCOND CONDITION

 ;;OR GWDIAG DIAGNOSIS

 ;;OR GXACTV AD LIB

 ;;OR GXACTV AMBULATE

 ;;OR GXACTV AMBULATE TID

 ;;OR GXACTV BATHROOM PRIVILEGES

 ;;OR GXACTV BED REST

 ;;OR GXACTV BED REST / BRP

 ;;OR GXACTV HOB UP

 ;;OR GXACTV MAY LEAVE WARD

 ;;OR GXACTV OTHER ACTIVITY ORDER

 ;;OR GXACTV OUT OF BED

 ;;OR GXACTV PROVIDE TRAPEZE

 ;;OR GXACTV ROM EXERCISE

 ;;OR GXACTV TURN PATIENT

 ;;OR GXACTV UP IN CHAIR

 ;;OR GXACTV UP IN CHAIR TID

 ;;OR GXHEMO ARTERIAL LINE

 ;;OR GXHEMO ARTERIAL SHEATH

 ;;OR GXHEMO CARDIAC OUTPUT

 ;;OR GXHEMO HEMODYNAMICS ITEM

 ;;OR GXHEMO SWAN GANZ CATHETER

 ;;OR GXHEMO VENOUS SHEATH

 ;;OR GXMOVE ADMIT PATIENT

 ;;OR GXMOVE ADMIT/TRANS/DISCH

 ;;OR GXMOVE DISCHARGE

 ;;OR GXMOVE PATIENT MOVEMENT

 ;;OR GXMOVE TRANSFER

 ;;OR GXMOVE TREATING SPECIALTY

 ;;OR GXNURS CHEST TUBE

 ;;OR GXNURS GLASCOW COMA

 ;;OR GXNURS GUAIAC ASPIRATE

 ;;OR GXNURS GUAIAC EMESIS

 ;;OR GXNURS GUAIAC STOOLS

 ;;OR GXNURS NEURO CHECK

 ;;OR GXNURS NURSING ITEM

 ;;OR GXNURS PUSH FLUIDS

 ;;OR GXNURS URINE PH

 ;;OR GXNURS URINE SPEC GRAV

 ;;OR GXOXGN MASK 35 PER CENT

 ;;OR GXOXGN MASK 40 PER CENT

 ;;OR GXOXGN MASK 50 PER CENT

 ;;OR GXOXGN O2 3 LT NASAL CANNULA

 ;;OR GXOXGN O2 4 LT NASAL CANNULA

 ;;OR GXOXGN OXYGEN THERAPY ITEM

 ;;OR GXOXGN VENTILATOR

 ;;OR GXPARM CALL HO ON

 ;;OR GXPARM I AND O

 ;;OR GXRESP CHEST PT

 ;;OR GXRESP INCENTIVE SPIROMETER

 ;;OR GXRESP RESPIRATORY ITEM

 ;;OR GXRESP SUCTION

 ;;OR GXRESP TCDB

 ;;OR GXRESP TRACH CARE

 ;;OR GXSKIN AIR MATTRESS

 ;;OR GXSKIN COLD PACKS

 ;;OR GXSKIN DRESSING CHANGE

 ;;OR GXSKIN SHEEPSKIN

 ;;OR GXSKIN SKIN AND WOUND ITEM

 ;;OR GXSKIN WARM PACKS

 ;;OR GXSKIN WARM SOAKS

 ;;OR GXSKIN WATER MATTRESS

 ;;OR GXTEXT TEXT ONLY ORDER

 ;;OR GXTEXT WORD PROCESSING ORDER

 ;;OR GXTUBE COLOSTOMY

 ;;OR GXTUBE CONDOM CATHETER

 ;;OR GXTUBE DRAINS ITEM

 ;;OR GXTUBE HEMOVAC

 ;;OR GXTUBE ILEOSTOMY

 ;;OR GXTUBE INDWELLING URINARY CATH

 ;;OR GXTUBE JACKSON PRATT

 ;;OR GXTUBE NASOGASTRIC

 ;;OR GXTUBE PENROSE

 ;;OR GXTUBE RECTAL TUBE

 ;;OR GXTUBE SUPRAPUBIC CATHETER

 ;;OR GXTUBE UROSTOMY

 ;;ZZZZ

OR3C101   ; SLC/MKB - Cleanup unused protocols ;8/20/97  08:30

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997

KILL      ; -- kill old protocols after conversion is done

 +1        NEW X,DA,DIK,ORI,ORP,ORMENU

 +2        SET DIK="^ORD(101,"

           FOR X="DC","EDIT","HOLD","RENEW"

               SET DA=+$ORDER(^ORD(101,"B","ORGY "_X,0))

               IF DA

                   DO ^DIK

 +3        FOR ORI=1:1

               SET X=$PIECE($TEXT(ITEM+ORI),";",3)

               IF X="ZZZZ"

                   QUIT 

               Begin DoDot:1

 +4                SET ORP=$ORDER(^ORD(101,"B",X,0))

                   IF 'ORP

                       QUIT 

 +5                SET ORMENU=0

                   FOR 

                       SET ORMENU=$ORDER(^ORD(101,"AD",ORP,ORMENU))

                       IF ORMENU'>0

                           QUIT 

                       Begin DoDot:2

 +6                        SET DA(1)=ORMENU

                           SET DIK="^ORD(101,"_ORMENU_",10,"

 +7                        SET DA=0

                           FOR 

                               SET DA=$ORDER(^ORD(101,"AD",ORP,ORMENU,DA))

                               IF DA'>0

                                   QUIT 

                               DO ^DIK

                       End DoDot:2

 +8                KILL DA,DIK

                   SET DA=ORP

                   SET DIK="^ORD(101,"

                   DO ^DIK

               End DoDot:1

 +9        QUIT 

 +10      ;

ITEM      ;;Protocol name

 +1       ;;OR GTMOVE A/T/D/S

 +2       ;;OR GTPARM BPDIAS

 +3       ;;OR GTPARM BPSYS

 +4       ;;OR GTPARM PULSE

 +5       ;;OR GTPARM TEMPERATURE

 +6       ;;OR GTSKIN WOUND SITE

 +7       ;;OR GTX FREE TEXT 1

 +8       ;;OR GTX FREE TEXT 2

 +9       ;;OR GTX FREE TEXT 3

 +10      ;;OR GTX FREE TEXT 4

 +11      ;;OR GTX FREQUENCY

 +12      ;;OR GTX PROVIDER

 +13      ;;OR GTX TREATING SPECIALTY

 +14      ;;OR GTX WORD PROCESSING 1

 +15      ;;OR GUA ACTV CHECK OTHER

 +16      ;;OR GUA ACTV DISPLAY GROUP

 +17      ;;OR GUA GENERIC ORDER MAIN PROTOCOL

 +18      ;;OR GUA MOVE ATTENDING

 +19      ;;OR GUA MOVE DISCHARGE TYPE

 +20      ;;OR GUA MOVE SERVICE

 +21      ;;OR GWCOND CONDITION

 +22      ;;OR GWDIAG DIAGNOSIS

 +23      ;;OR GXACTV AD LIB

 +24      ;;OR GXACTV AMBULATE

 +25      ;;OR GXACTV AMBULATE TID

 +26      ;;OR GXACTV BATHROOM PRIVILEGES

 +27      ;;OR GXACTV BED REST

 +28      ;;OR GXACTV BED REST / BRP

 +29      ;;OR GXACTV HOB UP

 +30      ;;OR GXACTV MAY LEAVE WARD

 +31      ;;OR GXACTV OTHER ACTIVITY ORDER

 +32      ;;OR GXACTV OUT OF BED

 +33      ;;OR GXACTV PROVIDE TRAPEZE

 +34      ;;OR GXACTV ROM EXERCISE

 +35      ;;OR GXACTV TURN PATIENT

 +36      ;;OR GXACTV UP IN CHAIR

 +37      ;;OR GXACTV UP IN CHAIR TID

 +38      ;;OR GXHEMO ARTERIAL LINE

 +39      ;;OR GXHEMO ARTERIAL SHEATH

 +40      ;;OR GXHEMO CARDIAC OUTPUT

 +41      ;;OR GXHEMO HEMODYNAMICS ITEM

 +42      ;;OR GXHEMO SWAN GANZ CATHETER

 +43      ;;OR GXHEMO VENOUS SHEATH

 +44      ;;OR GXMOVE ADMIT PATIENT

 +45      ;;OR GXMOVE ADMIT/TRANS/DISCH

 +46      ;;OR GXMOVE DISCHARGE

 +47      ;;OR GXMOVE PATIENT MOVEMENT

 +48      ;;OR GXMOVE TRANSFER

 +49      ;;OR GXMOVE TREATING SPECIALTY

 +50      ;;OR GXNURS CHEST TUBE

 +51      ;;OR GXNURS GLASCOW COMA

 +52      ;;OR GXNURS GUAIAC ASPIRATE

 +53      ;;OR GXNURS GUAIAC EMESIS

 +54      ;;OR GXNURS GUAIAC STOOLS

 +55      ;;OR GXNURS NEURO CHECK

 +56      ;;OR GXNURS NURSING ITEM

 +57      ;;OR GXNURS PUSH FLUIDS

 +58      ;;OR GXNURS URINE PH

 +59      ;;OR GXNURS URINE SPEC GRAV

 +60      ;;OR GXOXGN MASK 35 PER CENT

 +61      ;;OR GXOXGN MASK 40 PER CENT

 +62      ;;OR GXOXGN MASK 50 PER CENT

 +63      ;;OR GXOXGN O2 3 LT NASAL CANNULA

 +64      ;;OR GXOXGN O2 4 LT NASAL CANNULA

 +65      ;;OR GXOXGN OXYGEN THERAPY ITEM

 +66      ;;OR GXOXGN VENTILATOR

 +67      ;;OR GXPARM CALL HO ON

 +68      ;;OR GXPARM I AND O

 +69      ;;OR GXRESP CHEST PT

 +70      ;;OR GXRESP INCENTIVE SPIROMETER

 +71      ;;OR GXRESP RESPIRATORY ITEM

 +72      ;;OR GXRESP SUCTION

 +73      ;;OR GXRESP TCDB

 +74      ;;OR GXRESP TRACH CARE

 +75      ;;OR GXSKIN AIR MATTRESS

 +76      ;;OR GXSKIN COLD PACKS

 +77      ;;OR GXSKIN DRESSING CHANGE

 +78      ;;OR GXSKIN SHEEPSKIN

 +79      ;;OR GXSKIN SKIN AND WOUND ITEM

 +80      ;;OR GXSKIN WARM PACKS

 +81      ;;OR GXSKIN WARM SOAKS

 +82      ;;OR GXSKIN WATER MATTRESS

 +83      ;;OR GXTEXT TEXT ONLY ORDER

 +84      ;;OR GXTEXT WORD PROCESSING ORDER

 +85      ;;OR GXTUBE COLOSTOMY

 +86      ;;OR GXTUBE CONDOM CATHETER

 +87      ;;OR GXTUBE DRAINS ITEM

 +88      ;;OR GXTUBE HEMOVAC

 +89      ;;OR GXTUBE ILEOSTOMY

 +90      ;;OR GXTUBE INDWELLING URINARY CATH

 +91      ;;OR GXTUBE JACKSON PRATT

 +92      ;;OR GXTUBE NASOGASTRIC

 +93      ;;OR GXTUBE PENROSE

 +94      ;;OR GXTUBE RECTAL TUBE

 +95      ;;OR GXTUBE SUPRAPUBIC CATHETER

 +96      ;;OR GXTUBE UROSTOMY

 +97      ;;ZZZZ