IBDEI3IX ; ; 19-NOV-2015
;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
Q:'DIFQR(358.4) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,358.4,2308,0)
;;=RADIATION^19^206
;;^UTILITY(U,$J,358.4,2309,0)
;;=OCCUPATIONAL^15^206
;;^UTILITY(U,$J,358.4,2310,0)
;;=PAIN^16^206
;;^UTILITY(U,$J,358.4,2311,0)
;;=PLEURAL DISEASE^17^206
;;^UTILITY(U,$J,358.4,2312,0)
;;=PSYCHIATRIC/BEHAVIORAL^18^206
;;^UTILITY(U,$J,358.4,2313,0)
;;=SKIN^22^206
;;^UTILITY(U,$J,358.4,2314,0)
;;=NEUROLOGIC^12^206
;;^UTILITY(U,$J,358.4,2315,0)
;;=OBSTRUCTIVE DISEASE^14^206
;;^UTILITY(U,$J,358.4,2316,0)
;;=VASCULAR^24^206
;;^UTILITY(U,$J,358.4,2317,0)
;;=SYMPTOMS^21^206
;;^UTILITY(U,$J,358.4,2318,0)
;;=FOLLOW-UP^2^207
;;^UTILITY(U,$J,358.4,2319,0)
;;=CONSULTATIONS^1^207
;;^UTILITY(U,$J,358.4,2320,0)
;;=NURSING^4^207
;;^UTILITY(U,$J,358.4,2321,0)
;;=NEW PATIENT^3^207
;;^UTILITY(U,$J,358.4,2322,0)
;;=TREATMENT PLANNING^12^208
;;^UTILITY(U,$J,358.4,2323,0)
;;=SIMULATION^7^208
;;^UTILITY(U,$J,358.4,2324,0)
;;=TREATMENT DEVICES^11^208
;;^UTILITY(U,$J,358.4,2325,0)
;;=DOSIMETRY CALCULATIONS^2^208
;;^UTILITY(U,$J,358.4,2326,0)
;;=TELETHERAPY ISODOSE PLAN^9^208
;;^UTILITY(U,$J,358.4,2327,0)
;;=WEEKLY TX MANAGEMENT^13^208
;;^UTILITY(U,$J,358.4,2328,0)
;;=MISCELLANEOUS^6^208
;;^UTILITY(U,$J,358.4,2329,0)
;;=IMRT PLAN^4^208
;;^UTILITY(U,$J,358.4,2330,0)
;;=TREATMENT DELIVERY^10^208
;;^UTILITY(U,$J,358.4,2331,0)
;;=BRACHYTHERAPY ISODOSE PLAN^1^208
;;^UTILITY(U,$J,358.4,2332,0)
;;=STEREOTACTIC TREATMENT^8^208
;;^UTILITY(U,$J,358.4,2333,0)
;;=GUIDANCE^3^208
;;^UTILITY(U,$J,358.4,2334,0)
;;=LARYNGOSCOPY^5^208
;;^UTILITY(U,$J,358.4,2335,0)
;;=RADIATION TREATMENT^1^209
;;^UTILITY(U,$J,358.4,2336,0)
;;=RADIATION FOLLOW-UP^2^209
;;^UTILITY(U,$J,358.4,2337,0)
;;=BENIGN NEOPLASMS^4^209
;;^UTILITY(U,$J,358.4,2338,0)
;;=URINARY TRACT^43^209
;;^UTILITY(U,$J,358.4,2339,0)
;;=BREAST-FEMALE^7^209
;;^UTILITY(U,$J,358.4,2340,0)
;;=EYE/BRAIN/CNS^14^209
;;^UTILITY(U,$J,358.4,2341,0)
;;=CONNECTIVE & SOFT TISSUE^11^209
;;^UTILITY(U,$J,358.4,2342,0)
;;=ESOPHAGUS^13^209
;;^UTILITY(U,$J,358.4,2343,0)
;;=HYPOPHARYNX^18^209
;;^UTILITY(U,$J,358.4,2344,0)
;;=LARYNX^19^209
;;^UTILITY(U,$J,358.4,2345,0)
;;=BRONCHUS/LUNG^9^209
;;^UTILITY(U,$J,358.4,2346,0)
;;=LYMPHOID/HEMATOPOIETIC^22^209
;;^UTILITY(U,$J,358.4,2347,0)
;;=MELANOMA^23^209
;;^UTILITY(U,$J,358.4,2348,0)
;;=MOUTH^27^209
;;^UTILITY(U,$J,358.4,2349,0)
;;=NASOPHARYNX^28^209
;;^UTILITY(U,$J,358.4,2350,0)
;;=OROPHARYNX^29^209
;;^UTILITY(U,$J,358.4,2351,0)
;;=PANCREAS^31^209
;;^UTILITY(U,$J,358.4,2352,0)
;;=ANUS/ANAL CANAL^3^209
;;^UTILITY(U,$J,358.4,2353,0)
;;=SALIVARY GLANDS^35^209
;;^UTILITY(U,$J,358.4,2354,0)
;;=SECONDARY MALIG NEOP-OTH SITES^38^209
;;^UTILITY(U,$J,358.4,2355,0)
;;=LIP/ORAL CAVITY/PHARYNX^20^209
;;^UTILITY(U,$J,358.4,2356,0)
;;=MISCELLANEOUS^26^209
;;^UTILITY(U,$J,358.4,2357,0)
;;=PERSONAL HX OF CANCER^32^209
;;^UTILITY(U,$J,358.4,2358,0)
;;=MERKEL CELL CARCINOMA^24^209
;;^UTILITY(U,$J,358.4,2359,0)
;;=COLON^10^209
;;^UTILITY(U,$J,358.4,2360,0)
;;=BREAST-MALE^8^209
;;^UTILITY(U,$J,358.4,2361,0)
;;=GENITAL ORGANS-MALE^16^209
;;^UTILITY(U,$J,358.4,2362,0)
;;=GENITAL ORGANS-FEMALE^15^209
;;^UTILITY(U,$J,358.4,2363,0)
;;=PALATE^30^209
;;^UTILITY(U,$J,358.4,2364,0)
;;=STOMACH^41^209
;;^UTILITY(U,$J,358.4,2365,0)
;;=SMALL INTESTINE^40^209
;;^UTILITY(U,$J,358.4,2366,0)
;;=LIVER/INTRAHEPATIC BILE DUCTS^21^209
;;^UTILITY(U,$J,358.4,2367,0)
;;=BILIARY TRACT^5^209
;;^UTILITY(U,$J,358.4,2368,0)
;;=DIGESTIVE ORGAN^12^209
;;^UTILITY(U,$J,358.4,2369,0)
;;=RESPIRATORY/INTRATHORACIC ORGANS^33^209
;;^UTILITY(U,$J,358.4,2370,0)
;;=HEART/MEDIASTINUM/PLEURA^17^209
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3IX 3994 printed Dec 13, 2024@02:49:40 Page 2
IBDEI3IX ; ; 19-NOV-2015
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
+2 if 'DIFQR(358.4)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.4,2308,0)
+2 ;;=RADIATION^19^206
+3 ;;^UTILITY(U,$J,358.4,2309,0)
+4 ;;=OCCUPATIONAL^15^206
+5 ;;^UTILITY(U,$J,358.4,2310,0)
+6 ;;=PAIN^16^206
+7 ;;^UTILITY(U,$J,358.4,2311,0)
+8 ;;=PLEURAL DISEASE^17^206
+9 ;;^UTILITY(U,$J,358.4,2312,0)
+10 ;;=PSYCHIATRIC/BEHAVIORAL^18^206
+11 ;;^UTILITY(U,$J,358.4,2313,0)
+12 ;;=SKIN^22^206
+13 ;;^UTILITY(U,$J,358.4,2314,0)
+14 ;;=NEUROLOGIC^12^206
+15 ;;^UTILITY(U,$J,358.4,2315,0)
+16 ;;=OBSTRUCTIVE DISEASE^14^206
+17 ;;^UTILITY(U,$J,358.4,2316,0)
+18 ;;=VASCULAR^24^206
+19 ;;^UTILITY(U,$J,358.4,2317,0)
+20 ;;=SYMPTOMS^21^206
+21 ;;^UTILITY(U,$J,358.4,2318,0)
+22 ;;=FOLLOW-UP^2^207
+23 ;;^UTILITY(U,$J,358.4,2319,0)
+24 ;;=CONSULTATIONS^1^207
+25 ;;^UTILITY(U,$J,358.4,2320,0)
+26 ;;=NURSING^4^207
+27 ;;^UTILITY(U,$J,358.4,2321,0)
+28 ;;=NEW PATIENT^3^207
+29 ;;^UTILITY(U,$J,358.4,2322,0)
+30 ;;=TREATMENT PLANNING^12^208
+31 ;;^UTILITY(U,$J,358.4,2323,0)
+32 ;;=SIMULATION^7^208
+33 ;;^UTILITY(U,$J,358.4,2324,0)
+34 ;;=TREATMENT DEVICES^11^208
+35 ;;^UTILITY(U,$J,358.4,2325,0)
+36 ;;=DOSIMETRY CALCULATIONS^2^208
+37 ;;^UTILITY(U,$J,358.4,2326,0)
+38 ;;=TELETHERAPY ISODOSE PLAN^9^208
+39 ;;^UTILITY(U,$J,358.4,2327,0)
+40 ;;=WEEKLY TX MANAGEMENT^13^208
+41 ;;^UTILITY(U,$J,358.4,2328,0)
+42 ;;=MISCELLANEOUS^6^208
+43 ;;^UTILITY(U,$J,358.4,2329,0)
+44 ;;=IMRT PLAN^4^208
+45 ;;^UTILITY(U,$J,358.4,2330,0)
+46 ;;=TREATMENT DELIVERY^10^208
+47 ;;^UTILITY(U,$J,358.4,2331,0)
+48 ;;=BRACHYTHERAPY ISODOSE PLAN^1^208
+49 ;;^UTILITY(U,$J,358.4,2332,0)
+50 ;;=STEREOTACTIC TREATMENT^8^208
+51 ;;^UTILITY(U,$J,358.4,2333,0)
+52 ;;=GUIDANCE^3^208
+53 ;;^UTILITY(U,$J,358.4,2334,0)
+54 ;;=LARYNGOSCOPY^5^208
+55 ;;^UTILITY(U,$J,358.4,2335,0)
+56 ;;=RADIATION TREATMENT^1^209
+57 ;;^UTILITY(U,$J,358.4,2336,0)
+58 ;;=RADIATION FOLLOW-UP^2^209
+59 ;;^UTILITY(U,$J,358.4,2337,0)
+60 ;;=BENIGN NEOPLASMS^4^209
+61 ;;^UTILITY(U,$J,358.4,2338,0)
+62 ;;=URINARY TRACT^43^209
+63 ;;^UTILITY(U,$J,358.4,2339,0)
+64 ;;=BREAST-FEMALE^7^209
+65 ;;^UTILITY(U,$J,358.4,2340,0)
+66 ;;=EYE/BRAIN/CNS^14^209
+67 ;;^UTILITY(U,$J,358.4,2341,0)
+68 ;;=CONNECTIVE & SOFT TISSUE^11^209
+69 ;;^UTILITY(U,$J,358.4,2342,0)
+70 ;;=ESOPHAGUS^13^209
+71 ;;^UTILITY(U,$J,358.4,2343,0)
+72 ;;=HYPOPHARYNX^18^209
+73 ;;^UTILITY(U,$J,358.4,2344,0)
+74 ;;=LARYNX^19^209
+75 ;;^UTILITY(U,$J,358.4,2345,0)
+76 ;;=BRONCHUS/LUNG^9^209
+77 ;;^UTILITY(U,$J,358.4,2346,0)
+78 ;;=LYMPHOID/HEMATOPOIETIC^22^209
+79 ;;^UTILITY(U,$J,358.4,2347,0)
+80 ;;=MELANOMA^23^209
+81 ;;^UTILITY(U,$J,358.4,2348,0)
+82 ;;=MOUTH^27^209
+83 ;;^UTILITY(U,$J,358.4,2349,0)
+84 ;;=NASOPHARYNX^28^209
+85 ;;^UTILITY(U,$J,358.4,2350,0)
+86 ;;=OROPHARYNX^29^209
+87 ;;^UTILITY(U,$J,358.4,2351,0)
+88 ;;=PANCREAS^31^209
+89 ;;^UTILITY(U,$J,358.4,2352,0)
+90 ;;=ANUS/ANAL CANAL^3^209
+91 ;;^UTILITY(U,$J,358.4,2353,0)
+92 ;;=SALIVARY GLANDS^35^209
+93 ;;^UTILITY(U,$J,358.4,2354,0)
+94 ;;=SECONDARY MALIG NEOP-OTH SITES^38^209
+95 ;;^UTILITY(U,$J,358.4,2355,0)
+96 ;;=LIP/ORAL CAVITY/PHARYNX^20^209
+97 ;;^UTILITY(U,$J,358.4,2356,0)
+98 ;;=MISCELLANEOUS^26^209
+99 ;;^UTILITY(U,$J,358.4,2357,0)
+100 ;;=PERSONAL HX OF CANCER^32^209
+101 ;;^UTILITY(U,$J,358.4,2358,0)
+102 ;;=MERKEL CELL CARCINOMA^24^209
+103 ;;^UTILITY(U,$J,358.4,2359,0)
+104 ;;=COLON^10^209
+105 ;;^UTILITY(U,$J,358.4,2360,0)
+106 ;;=BREAST-MALE^8^209
+107 ;;^UTILITY(U,$J,358.4,2361,0)
+108 ;;=GENITAL ORGANS-MALE^16^209
+109 ;;^UTILITY(U,$J,358.4,2362,0)
+110 ;;=GENITAL ORGANS-FEMALE^15^209
+111 ;;^UTILITY(U,$J,358.4,2363,0)
+112 ;;=PALATE^30^209
+113 ;;^UTILITY(U,$J,358.4,2364,0)
+114 ;;=STOMACH^41^209
+115 ;;^UTILITY(U,$J,358.4,2365,0)
+116 ;;=SMALL INTESTINE^40^209
+117 ;;^UTILITY(U,$J,358.4,2366,0)
+118 ;;=LIVER/INTRAHEPATIC BILE DUCTS^21^209
+119 ;;^UTILITY(U,$J,358.4,2367,0)
+120 ;;=BILIARY TRACT^5^209
+121 ;;^UTILITY(U,$J,358.4,2368,0)
+122 ;;=DIGESTIVE ORGAN^12^209
+123 ;;^UTILITY(U,$J,358.4,2369,0)
+124 ;;=RESPIRATORY/INTRATHORACIC ORGANS^33^209
+125 ;;^UTILITY(U,$J,358.4,2370,0)
+126 ;;=HEART/MEDIASTINUM/PLEURA^17^209
