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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOR3C101 3277 printed Nov 22, 2024@17:36:40 Page 2
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