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

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