source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OR3C101.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 3.1 KB
Line 
1OR3C101 ; SLC/MKB - Cleanup unused protocols ;8/20/97 08:30
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
3KILL ; -- kill old protocols after conversion is done
4 N X,DA,DIK,ORI,ORP,ORMENU
5 S DIK="^ORD(101," F X="DC","EDIT","HOLD","RENEW" S DA=+$O(^ORD(101,"B","ORGY "_X,0)) D:DA ^DIK
6 F ORI=1:1 S X=$P($T(ITEM+ORI),";",3) Q:X="ZZZZ" D
7 . S ORP=$O(^ORD(101,"B",X,0)) Q:'ORP
8 . S ORMENU=0 F S ORMENU=$O(^ORD(101,"AD",ORP,ORMENU)) Q:ORMENU'>0 D
9 . . S DA(1)=ORMENU,DIK="^ORD(101,"_ORMENU_",10,"
10 . . S DA=0 F S DA=$O(^ORD(101,"AD",ORP,ORMENU,DA)) Q:DA'>0 D ^DIK
11 . K DA,DIK S DA=ORP,DIK="^ORD(101," D ^DIK
12 Q
13 ;
14ITEM ;;Protocol name
15 ;;OR GTMOVE A/T/D/S
16 ;;OR GTPARM BPDIAS
17 ;;OR GTPARM BPSYS
18 ;;OR GTPARM PULSE
19 ;;OR GTPARM TEMPERATURE
20 ;;OR GTSKIN WOUND SITE
21 ;;OR GTX FREE TEXT 1
22 ;;OR GTX FREE TEXT 2
23 ;;OR GTX FREE TEXT 3
24 ;;OR GTX FREE TEXT 4
25 ;;OR GTX FREQUENCY
26 ;;OR GTX PROVIDER
27 ;;OR GTX TREATING SPECIALTY
28 ;;OR GTX WORD PROCESSING 1
29 ;;OR GUA ACTV CHECK OTHER
30 ;;OR GUA ACTV DISPLAY GROUP
31 ;;OR GUA GENERIC ORDER MAIN PROTOCOL
32 ;;OR GUA MOVE ATTENDING
33 ;;OR GUA MOVE DISCHARGE TYPE
34 ;;OR GUA MOVE SERVICE
35 ;;OR GWCOND CONDITION
36 ;;OR GWDIAG DIAGNOSIS
37 ;;OR GXACTV AD LIB
38 ;;OR GXACTV AMBULATE
39 ;;OR GXACTV AMBULATE TID
40 ;;OR GXACTV BATHROOM PRIVILEGES
41 ;;OR GXACTV BED REST
42 ;;OR GXACTV BED REST / BRP
43 ;;OR GXACTV HOB UP
44 ;;OR GXACTV MAY LEAVE WARD
45 ;;OR GXACTV OTHER ACTIVITY ORDER
46 ;;OR GXACTV OUT OF BED
47 ;;OR GXACTV PROVIDE TRAPEZE
48 ;;OR GXACTV ROM EXERCISE
49 ;;OR GXACTV TURN PATIENT
50 ;;OR GXACTV UP IN CHAIR
51 ;;OR GXACTV UP IN CHAIR TID
52 ;;OR GXHEMO ARTERIAL LINE
53 ;;OR GXHEMO ARTERIAL SHEATH
54 ;;OR GXHEMO CARDIAC OUTPUT
55 ;;OR GXHEMO HEMODYNAMICS ITEM
56 ;;OR GXHEMO SWAN GANZ CATHETER
57 ;;OR GXHEMO VENOUS SHEATH
58 ;;OR GXMOVE ADMIT PATIENT
59 ;;OR GXMOVE ADMIT/TRANS/DISCH
60 ;;OR GXMOVE DISCHARGE
61 ;;OR GXMOVE PATIENT MOVEMENT
62 ;;OR GXMOVE TRANSFER
63 ;;OR GXMOVE TREATING SPECIALTY
64 ;;OR GXNURS CHEST TUBE
65 ;;OR GXNURS GLASCOW COMA
66 ;;OR GXNURS GUAIAC ASPIRATE
67 ;;OR GXNURS GUAIAC EMESIS
68 ;;OR GXNURS GUAIAC STOOLS
69 ;;OR GXNURS NEURO CHECK
70 ;;OR GXNURS NURSING ITEM
71 ;;OR GXNURS PUSH FLUIDS
72 ;;OR GXNURS URINE PH
73 ;;OR GXNURS URINE SPEC GRAV
74 ;;OR GXOXGN MASK 35 PER CENT
75 ;;OR GXOXGN MASK 40 PER CENT
76 ;;OR GXOXGN MASK 50 PER CENT
77 ;;OR GXOXGN O2 3 LT NASAL CANNULA
78 ;;OR GXOXGN O2 4 LT NASAL CANNULA
79 ;;OR GXOXGN OXYGEN THERAPY ITEM
80 ;;OR GXOXGN VENTILATOR
81 ;;OR GXPARM CALL HO ON
82 ;;OR GXPARM I AND O
83 ;;OR GXRESP CHEST PT
84 ;;OR GXRESP INCENTIVE SPIROMETER
85 ;;OR GXRESP RESPIRATORY ITEM
86 ;;OR GXRESP SUCTION
87 ;;OR GXRESP TCDB
88 ;;OR GXRESP TRACH CARE
89 ;;OR GXSKIN AIR MATTRESS
90 ;;OR GXSKIN COLD PACKS
91 ;;OR GXSKIN DRESSING CHANGE
92 ;;OR GXSKIN SHEEPSKIN
93 ;;OR GXSKIN SKIN AND WOUND ITEM
94 ;;OR GXSKIN WARM PACKS
95 ;;OR GXSKIN WARM SOAKS
96 ;;OR GXSKIN WATER MATTRESS
97 ;;OR GXTEXT TEXT ONLY ORDER
98 ;;OR GXTEXT WORD PROCESSING ORDER
99 ;;OR GXTUBE COLOSTOMY
100 ;;OR GXTUBE CONDOM CATHETER
101 ;;OR GXTUBE DRAINS ITEM
102 ;;OR GXTUBE HEMOVAC
103 ;;OR GXTUBE ILEOSTOMY
104 ;;OR GXTUBE INDWELLING URINARY CATH
105 ;;OR GXTUBE JACKSON PRATT
106 ;;OR GXTUBE NASOGASTRIC
107 ;;OR GXTUBE PENROSE
108 ;;OR GXTUBE RECTAL TUBE
109 ;;OR GXTUBE SUPRAPUBIC CATHETER
110 ;;OR GXTUBE UROSTOMY
111 ;;ZZZZ
Note: See TracBrowser for help on using the repository browser.