IBINI0BD ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQR(399.2) 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,399.2,340,0)
;;=340^NUCLEAR MEDICINE OR (NUC MED)^1^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,341,0)
;;=341^NUC MED/DX^^DIAGNOSTIC
;;^UTILITY(U,$J,399.2,342,0)
;;=342^NUC MED/RX^^THERAPEUTIC
;;^UTILITY(U,$J,399.2,343,0)
;;=343^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,344,0)
;;=344^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,345,0)
;;=345^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,346,0)
;;=346^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,347,0)
;;=347^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,348,0)
;;=348^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,349,0)
;;=349^NUC MED/OTHER^^OTHER
;;^UTILITY(U,$J,399.2,350,0)
;;=350^CT SCAN^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,351,0)
;;=351^CT SCAN/HEAD^^HEAD SCAN
;;^UTILITY(U,$J,399.2,352,0)
;;=352^CT SCAN/BODY^^BODY SCAN
;;^UTILITY(U,$J,399.2,353,0)
;;=353^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,354,0)
;;=354^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,355,0)
;;=355^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,356,0)
;;=356^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,357,0)
;;=357^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,358,0)
;;=358^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,359,0)
;;=359^CT SCAN/OTHER^^OTHER CT SCANS
;;^UTILITY(U,$J,399.2,360,0)
;;=360^OR SERVICES^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,361,0)
;;=361^OR/MINOR^^MINOR SURGERY
;;^UTILITY(U,$J,399.2,362,0)
;;=362^OR/ORGAN TRANS^^ORGAN TRANSPLANT-OTHER THAN KIDNEY
;;^UTILITY(U,$J,399.2,363,0)
;;=363^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,364,0)
;;=364^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,365,0)
;;=365^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,366,0)
;;=366^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,367,0)
;;=367^OR/KIDNEY TRANS^^KIDNEY TRANSPLANT
;;^UTILITY(U,$J,399.2,368,0)
;;=368^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,369,0)
;;=369^OR/OTHER^^OTHER OPERATING ROOM SERVICES
;;^UTILITY(U,$J,399.2,370,0)
;;=370^ANESTHESIA^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,371,0)
;;=371^ANESTHE/INCIDENT RAD^^ANESTHESIA INCIDENT TO RADIOLOGY
;;^UTILITY(U,$J,399.2,372,0)
;;=372^ANESTHE/INCDNT OTHER DX^^ANESTHESIA INCIDENT TO OTHER DIAGNOSTIC SERVICES
;;^UTILITY(U,$J,399.2,373,0)
;;=373^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,374,0)
;;=374^ANESTHE/ACUPUNC^^ACUPUNCTURE
;;^UTILITY(U,$J,399.2,375,0)
;;=375^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,376,0)
;;=376^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,377,0)
;;=377^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,378,0)
;;=378^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,379,0)
;;=379^ANESTHE/OTHER^^OTHER ANESTHESIA
;;^UTILITY(U,$J,399.2,380,0)
;;=380^BLOOD^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,381,0)
;;=381^BLOOD/PKD RED^^PACKED RED CELLS
;;^UTILITY(U,$J,399.2,382,0)
;;=382^BLOOD/WHOLE^^WHOLE BLOOD
;;^UTILITY(U,$J,399.2,383,0)
;;=383^BLOOD/PLASMA^^PLASMA
;;^UTILITY(U,$J,399.2,384,0)
;;=384^BLOOD/PLATELETS^^PLATELETS
;;^UTILITY(U,$J,399.2,385,0)
;;=385^BLOOD/LEUCOCYTES^^LEUCOCYTES
;;^UTILITY(U,$J,399.2,386,0)
;;=386^BLOOD/COMPONENTS^^OTHER COMPONENTS
;;^UTILITY(U,$J,399.2,387,0)
;;=387^BLOOD/DERIVATIVES^^OTHER DERIVATIVES (CRYOPRICIPITATES)
;;^UTILITY(U,$J,399.2,388,0)
;;=388^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,389,0)
;;=389^BLOOD/OTHER^^OTHER BLOOD
;;^UTILITY(U,$J,399.2,390,0)
;;=390^BLOOD/STOR-PROC^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,391,0)
;;=391^BLOOD/ADMIN^^BLOOD ADMINISTRATION
;;^UTILITY(U,$J,399.2,392,0)
;;=392^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,393,0)
;;=393^*RESERVED^^*RESERVED
IBINI0BD ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQR(399.2)
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,399.2,340,0)
+2 ;;=340^NUCLEAR MEDICINE OR (NUC MED)^1^GENERAL CLASSIFICATION
+3 ;;^UTILITY(U,$J,399.2,341,0)
+4 ;;=341^NUC MED/DX^^DIAGNOSTIC
+5 ;;^UTILITY(U,$J,399.2,342,0)
+6 ;;=342^NUC MED/RX^^THERAPEUTIC
+7 ;;^UTILITY(U,$J,399.2,343,0)
+8 ;;=343^*RESERVED^^*RESERVED
+9 ;;^UTILITY(U,$J,399.2,344,0)
+10 ;;=344^*RESERVED^^*RESERVED
+11 ;;^UTILITY(U,$J,399.2,345,0)
+12 ;;=345^*RESERVED^^*RESERVED
+13 ;;^UTILITY(U,$J,399.2,346,0)
+14 ;;=346^*RESERVED^^*RESERVED
+15 ;;^UTILITY(U,$J,399.2,347,0)
+16 ;;=347^*RESERVED^^*RESERVED
+17 ;;^UTILITY(U,$J,399.2,348,0)
+18 ;;=348^*RESERVED^^*RESERVED
+19 ;;^UTILITY(U,$J,399.2,349,0)
+20 ;;=349^NUC MED/OTHER^^OTHER
+21 ;;^UTILITY(U,$J,399.2,350,0)
+22 ;;=350^CT SCAN^^GENERAL CLASSIFICATION
+23 ;;^UTILITY(U,$J,399.2,351,0)
+24 ;;=351^CT SCAN/HEAD^^HEAD SCAN
+25 ;;^UTILITY(U,$J,399.2,352,0)
+26 ;;=352^CT SCAN/BODY^^BODY SCAN
+27 ;;^UTILITY(U,$J,399.2,353,0)
+28 ;;=353^*RESERVED^^*RESERVED
+29 ;;^UTILITY(U,$J,399.2,354,0)
+30 ;;=354^*RESERVED^^*RESERVED
+31 ;;^UTILITY(U,$J,399.2,355,0)
+32 ;;=355^*RESERVED^^*RESERVED
+33 ;;^UTILITY(U,$J,399.2,356,0)
+34 ;;=356^*RESERVED^^*RESERVED
+35 ;;^UTILITY(U,$J,399.2,357,0)
+36 ;;=357^*RESERVED^^*RESERVED
+37 ;;^UTILITY(U,$J,399.2,358,0)
+38 ;;=358^*RESERVED^^*RESERVED
+39 ;;^UTILITY(U,$J,399.2,359,0)
+40 ;;=359^CT SCAN/OTHER^^OTHER CT SCANS
+41 ;;^UTILITY(U,$J,399.2,360,0)
+42 ;;=360^OR SERVICES^^GENERAL CLASSIFICATION
+43 ;;^UTILITY(U,$J,399.2,361,0)
+44 ;;=361^OR/MINOR^^MINOR SURGERY
+45 ;;^UTILITY(U,$J,399.2,362,0)
+46 ;;=362^OR/ORGAN TRANS^^ORGAN TRANSPLANT-OTHER THAN KIDNEY
+47 ;;^UTILITY(U,$J,399.2,363,0)
+48 ;;=363^*RESERVED^^*RESERVED
+49 ;;^UTILITY(U,$J,399.2,364,0)
+50 ;;=364^*RESERVED^^*RESERVED
+51 ;;^UTILITY(U,$J,399.2,365,0)
+52 ;;=365^*RESERVED^^*RESERVED
+53 ;;^UTILITY(U,$J,399.2,366,0)
+54 ;;=366^*RESERVED^^*RESERVED
+55 ;;^UTILITY(U,$J,399.2,367,0)
+56 ;;=367^OR/KIDNEY TRANS^^KIDNEY TRANSPLANT
+57 ;;^UTILITY(U,$J,399.2,368,0)
+58 ;;=368^*RESERVED^^*RESERVED
+59 ;;^UTILITY(U,$J,399.2,369,0)
+60 ;;=369^OR/OTHER^^OTHER OPERATING ROOM SERVICES
+61 ;;^UTILITY(U,$J,399.2,370,0)
+62 ;;=370^ANESTHESIA^^GENERAL CLASSIFICATION
+63 ;;^UTILITY(U,$J,399.2,371,0)
+64 ;;=371^ANESTHE/INCIDENT RAD^^ANESTHESIA INCIDENT TO RADIOLOGY
+65 ;;^UTILITY(U,$J,399.2,372,0)
+66 ;;=372^ANESTHE/INCDNT OTHER DX^^ANESTHESIA INCIDENT TO OTHER DIAGNOSTIC SERVICES
+67 ;;^UTILITY(U,$J,399.2,373,0)
+68 ;;=373^*RESERVED^^*RESERVED
+69 ;;^UTILITY(U,$J,399.2,374,0)
+70 ;;=374^ANESTHE/ACUPUNC^^ACUPUNCTURE
+71 ;;^UTILITY(U,$J,399.2,375,0)
+72 ;;=375^*RESERVED^^*RESERVED
+73 ;;^UTILITY(U,$J,399.2,376,0)
+74 ;;=376^*RESERVED^^*RESERVED
+75 ;;^UTILITY(U,$J,399.2,377,0)
+76 ;;=377^*RESERVED^^*RESERVED
+77 ;;^UTILITY(U,$J,399.2,378,0)
+78 ;;=378^*RESERVED^^*RESERVED
+79 ;;^UTILITY(U,$J,399.2,379,0)
+80 ;;=379^ANESTHE/OTHER^^OTHER ANESTHESIA
+81 ;;^UTILITY(U,$J,399.2,380,0)
+82 ;;=380^BLOOD^^GENERAL CLASSIFICATION
+83 ;;^UTILITY(U,$J,399.2,381,0)
+84 ;;=381^BLOOD/PKD RED^^PACKED RED CELLS
+85 ;;^UTILITY(U,$J,399.2,382,0)
+86 ;;=382^BLOOD/WHOLE^^WHOLE BLOOD
+87 ;;^UTILITY(U,$J,399.2,383,0)
+88 ;;=383^BLOOD/PLASMA^^PLASMA
+89 ;;^UTILITY(U,$J,399.2,384,0)
+90 ;;=384^BLOOD/PLATELETS^^PLATELETS
+91 ;;^UTILITY(U,$J,399.2,385,0)
+92 ;;=385^BLOOD/LEUCOCYTES^^LEUCOCYTES
+93 ;;^UTILITY(U,$J,399.2,386,0)
+94 ;;=386^BLOOD/COMPONENTS^^OTHER COMPONENTS
+95 ;;^UTILITY(U,$J,399.2,387,0)
+96 ;;=387^BLOOD/DERIVATIVES^^OTHER DERIVATIVES (CRYOPRICIPITATES)
+97 ;;^UTILITY(U,$J,399.2,388,0)
+98 ;;=388^*RESERVED^^*RESERVED
+99 ;;^UTILITY(U,$J,399.2,389,0)
+100 ;;=389^BLOOD/OTHER^^OTHER BLOOD
+101 ;;^UTILITY(U,$J,399.2,390,0)
+102 ;;=390^BLOOD/STOR-PROC^^GENERAL CLASSIFICATION
+103 ;;^UTILITY(U,$J,399.2,391,0)
+104 ;;=391^BLOOD/ADMIN^^BLOOD ADMINISTRATION
+105 ;;^UTILITY(U,$J,399.2,392,0)
+106 ;;=392^*RESERVED^^*RESERVED
+107 ;;^UTILITY(U,$J,399.2,393,0)
+108 ;;=393^*RESERVED^^*RESERVED
