IBINI0BF ; ; 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,447,0)
;;=447^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,448,0)
;;=448^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,449,0)
;;=449^OTHER SPEECH PAT^^OTHER SPEECH-LANGUAGE PATHOLOGY
;;^UTILITY(U,$J,399.2,450,0)
;;=450^EMERG ROOM^1^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,451,0)
;;=451^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,452,0)
;;=452^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,453,0)
;;=453^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,454,0)
;;=454^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,455,0)
;;=455^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,456,0)
;;=456^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,457,0)
;;=457^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,458,0)
;;=458^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,459,0)
;;=459^OTHER EMER ROOM^^OTHER EMERGENCY ROOM
;;^UTILITY(U,$J,399.2,460,0)
;;=460^PULMONARY FUNC^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,461,0)
;;=461^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,462,0)
;;=462^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,463,0)
;;=463^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,464,0)
;;=464^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,465,0)
;;=465^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,466,0)
;;=466^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,467,0)
;;=467^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,468,0)
;;=468^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,469,0)
;;=469^OTHER PULMON FUNC^^OTHER PULMONARY FUNCTION
;;^UTILITY(U,$J,399.2,470,0)
;;=470^AUDIOLOGY^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,471,0)
;;=471^AUDIOLOGY/DX^^DIAGNOSTIC
;;^UTILITY(U,$J,399.2,472,0)
;;=472^AUDIOLOGY/RX^^TREATMENT
;;^UTILITY(U,$J,399.2,473,0)
;;=473^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,474,0)
;;=474^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,475,0)
;;=475^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,476,0)
;;=476^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,477,0)
;;=477^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,478,0)
;;=478^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,479,0)
;;=479^OTHER AUDIOL^^OTHER AUDIOLOGY
;;^UTILITY(U,$J,399.2,480,0)
;;=480^CARDIOLOGY^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,481,0)
;;=481^CARDIAC CATH LAB^^CARDIAC CATH LAB
;;^UTILITY(U,$J,399.2,482,0)
;;=482^STRESS TEST^^STRESS TEST
;;^UTILITY(U,$J,399.2,483,0)
;;=483^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,484,0)
;;=484^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,485,0)
;;=485^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,486,0)
;;=486^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,487,0)
;;=487^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,488,0)
;;=488^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,489,0)
;;=489^OTHER CARDIOL^^OTHER CARDIOLOGY
;;^UTILITY(U,$J,399.2,490,0)
;;=490^AMBUL SURG^1^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,491,0)
;;=491^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,492,0)
;;=492^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,493,0)
;;=493^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,494,0)
;;=494^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,495,0)
;;=495^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,496,0)
;;=496^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,497,0)
;;=497^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,498,0)
;;=498^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,499,0)
;;=499^OTHER AMBL SURG^^OTHER AMBULATORY SURGICAL CARE
;;^UTILITY(U,$J,399.2,500,0)
;;=500^OUTPATIENT SVS^1^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,501,0)
;;=501^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,502,0)
;;=502^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,503,0)
;;=503^*RESERVED^^*RESERVED
IBINI0BF ; ; 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,447,0)
+2 ;;=447^*RESERVED^^*RESERVED
+3 ;;^UTILITY(U,$J,399.2,448,0)
+4 ;;=448^*RESERVED^^*RESERVED
+5 ;;^UTILITY(U,$J,399.2,449,0)
+6 ;;=449^OTHER SPEECH PAT^^OTHER SPEECH-LANGUAGE PATHOLOGY
+7 ;;^UTILITY(U,$J,399.2,450,0)
+8 ;;=450^EMERG ROOM^1^GENERAL CLASSIFICATION
+9 ;;^UTILITY(U,$J,399.2,451,0)
+10 ;;=451^*RESERVED^^*RESERVED
+11 ;;^UTILITY(U,$J,399.2,452,0)
+12 ;;=452^*RESERVED^^*RESERVED
+13 ;;^UTILITY(U,$J,399.2,453,0)
+14 ;;=453^*RESERVED^^*RESERVED
+15 ;;^UTILITY(U,$J,399.2,454,0)
+16 ;;=454^*RESERVED^^*RESERVED
+17 ;;^UTILITY(U,$J,399.2,455,0)
+18 ;;=455^*RESERVED^^*RESERVED
+19 ;;^UTILITY(U,$J,399.2,456,0)
+20 ;;=456^*RESERVED^^*RESERVED
+21 ;;^UTILITY(U,$J,399.2,457,0)
+22 ;;=457^*RESERVED^^*RESERVED
+23 ;;^UTILITY(U,$J,399.2,458,0)
+24 ;;=458^*RESERVED^^*RESERVED
+25 ;;^UTILITY(U,$J,399.2,459,0)
+26 ;;=459^OTHER EMER ROOM^^OTHER EMERGENCY ROOM
+27 ;;^UTILITY(U,$J,399.2,460,0)
+28 ;;=460^PULMONARY FUNC^^GENERAL CLASSIFICATION
+29 ;;^UTILITY(U,$J,399.2,461,0)
+30 ;;=461^*RESERVED^^*RESERVED
+31 ;;^UTILITY(U,$J,399.2,462,0)
+32 ;;=462^*RESERVED^^*RESERVED
+33 ;;^UTILITY(U,$J,399.2,463,0)
+34 ;;=463^*RESERVED^^*RESERVED
+35 ;;^UTILITY(U,$J,399.2,464,0)
+36 ;;=464^*RESERVED^^*RESERVED
+37 ;;^UTILITY(U,$J,399.2,465,0)
+38 ;;=465^*RESERVED^^*RESERVED
+39 ;;^UTILITY(U,$J,399.2,466,0)
+40 ;;=466^*RESERVED^^*RESERVED
+41 ;;^UTILITY(U,$J,399.2,467,0)
+42 ;;=467^*RESERVED^^*RESERVED
+43 ;;^UTILITY(U,$J,399.2,468,0)
+44 ;;=468^*RESERVED^^*RESERVED
+45 ;;^UTILITY(U,$J,399.2,469,0)
+46 ;;=469^OTHER PULMON FUNC^^OTHER PULMONARY FUNCTION
+47 ;;^UTILITY(U,$J,399.2,470,0)
+48 ;;=470^AUDIOLOGY^^GENERAL CLASSIFICATION
+49 ;;^UTILITY(U,$J,399.2,471,0)
+50 ;;=471^AUDIOLOGY/DX^^DIAGNOSTIC
+51 ;;^UTILITY(U,$J,399.2,472,0)
+52 ;;=472^AUDIOLOGY/RX^^TREATMENT
+53 ;;^UTILITY(U,$J,399.2,473,0)
+54 ;;=473^*RESERVED^^*RESERVED
+55 ;;^UTILITY(U,$J,399.2,474,0)
+56 ;;=474^*RESERVED^^*RESERVED
+57 ;;^UTILITY(U,$J,399.2,475,0)
+58 ;;=475^*RESERVED^^*RESERVED
+59 ;;^UTILITY(U,$J,399.2,476,0)
+60 ;;=476^*RESERVED^^*RESERVED
+61 ;;^UTILITY(U,$J,399.2,477,0)
+62 ;;=477^*RESERVED^^*RESERVED
+63 ;;^UTILITY(U,$J,399.2,478,0)
+64 ;;=478^*RESERVED^^*RESERVED
+65 ;;^UTILITY(U,$J,399.2,479,0)
+66 ;;=479^OTHER AUDIOL^^OTHER AUDIOLOGY
+67 ;;^UTILITY(U,$J,399.2,480,0)
+68 ;;=480^CARDIOLOGY^^GENERAL CLASSIFICATION
+69 ;;^UTILITY(U,$J,399.2,481,0)
+70 ;;=481^CARDIAC CATH LAB^^CARDIAC CATH LAB
+71 ;;^UTILITY(U,$J,399.2,482,0)
+72 ;;=482^STRESS TEST^^STRESS TEST
+73 ;;^UTILITY(U,$J,399.2,483,0)
+74 ;;=483^*RESERVED^^*RESERVED
+75 ;;^UTILITY(U,$J,399.2,484,0)
+76 ;;=484^*RESERVED^^*RESERVED
+77 ;;^UTILITY(U,$J,399.2,485,0)
+78 ;;=485^*RESERVED^^*RESERVED
+79 ;;^UTILITY(U,$J,399.2,486,0)
+80 ;;=486^*RESERVED^^*RESERVED
+81 ;;^UTILITY(U,$J,399.2,487,0)
+82 ;;=487^*RESERVED^^*RESERVED
+83 ;;^UTILITY(U,$J,399.2,488,0)
+84 ;;=488^*RESERVED^^*RESERVED
+85 ;;^UTILITY(U,$J,399.2,489,0)
+86 ;;=489^OTHER CARDIOL^^OTHER CARDIOLOGY
+87 ;;^UTILITY(U,$J,399.2,490,0)
+88 ;;=490^AMBUL SURG^1^GENERAL CLASSIFICATION
+89 ;;^UTILITY(U,$J,399.2,491,0)
+90 ;;=491^*RESERVED^^*RESERVED
+91 ;;^UTILITY(U,$J,399.2,492,0)
+92 ;;=492^*RESERVED^^*RESERVED
+93 ;;^UTILITY(U,$J,399.2,493,0)
+94 ;;=493^*RESERVED^^*RESERVED
+95 ;;^UTILITY(U,$J,399.2,494,0)
+96 ;;=494^*RESERVED^^*RESERVED
+97 ;;^UTILITY(U,$J,399.2,495,0)
+98 ;;=495^*RESERVED^^*RESERVED
+99 ;;^UTILITY(U,$J,399.2,496,0)
+100 ;;=496^*RESERVED^^*RESERVED
+101 ;;^UTILITY(U,$J,399.2,497,0)
+102 ;;=497^*RESERVED^^*RESERVED
+103 ;;^UTILITY(U,$J,399.2,498,0)
+104 ;;=498^*RESERVED^^*RESERVED
+105 ;;^UTILITY(U,$J,399.2,499,0)
+106 ;;=499^OTHER AMBL SURG^^OTHER AMBULATORY SURGICAL CARE
+107 ;;^UTILITY(U,$J,399.2,500,0)
+108 ;;=500^OUTPATIENT SVS^1^GENERAL CLASSIFICATION
+109 ;;^UTILITY(U,$J,399.2,501,0)
+110 ;;=501^*RESERVED^^*RESERVED
+111 ;;^UTILITY(U,$J,399.2,502,0)
+112 ;;=502^*RESERVED^^*RESERVED
+113 ;;^UTILITY(U,$J,399.2,503,0)
+114 ;;=503^*RESERVED^^*RESERVED
