source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/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