IBDEI3B9 ; ; 04-FEB-2020
;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,358.4,986,0)
;;=ADAPTIVE BEHAVIOR TREATMENT^2^92
;;^UTILITY(U,$J,358.4,987,0)
;;=PROCEDURES^6^92
;;^UTILITY(U,$J,358.4,988,0)
;;=AMPUTATION STATUS^1^93
;;^UTILITY(U,$J,358.4,989,0)
;;=BRAIN DISORDERS^2^93
;;^UTILITY(U,$J,358.4,990,0)
;;=CARDIOPULMONARY^4^93
;;^UTILITY(U,$J,358.4,991,0)
;;=COMPLICATIONS DUE TO^5^93
;;^UTILITY(U,$J,358.4,992,0)
;;=MUSCULOSKELETAL/CONNECTIVE TISSUE^12^93
;;^UTILITY(U,$J,358.4,993,0)
;;=Z CODES^21^93
;;^UTILITY(U,$J,358.4,994,0)
;;=BRAIN INJURY - TRAUMATIC^3^93
;;^UTILITY(U,$J,358.4,995,0)
;;=FEMUR/THIGH/KNEE FRACTURE^7^93
;;^UTILITY(U,$J,358.4,996,0)
;;=FOOT/TOE/ANKLE FRANCTURE^8^93
;;^UTILITY(U,$J,358.4,997,0)
;;=HAND/FINGER FRACTURE^9^93
;;^UTILITY(U,$J,358.4,998,0)
;;=HIP/PELVIS FRACTURE^10^93
;;^UTILITY(U,$J,358.4,999,0)
;;=HUMERUS/SHOULDER FRACTURE^11^93
;;^UTILITY(U,$J,358.4,1000,0)
;;=TIBIA/FIBULA FRACTURE^19^93
;;^UTILITY(U,$J,358.4,1001,0)
;;=SPINE FRACTURE^16^93
;;^UTILITY(U,$J,358.4,1002,0)
;;=WRIST/FOREARM FRACTURE^20^93
;;^UTILITY(U,$J,358.4,1003,0)
;;=OTHER FRACTURE^14^93
;;^UTILITY(U,$J,358.4,1004,0)
;;=PAIN^15^93
;;^UTILITY(U,$J,358.4,1005,0)
;;=SPINAL CONDITIONS^17^93
;;^UTILITY(U,$J,358.4,1006,0)
;;=SYMPTOMS^18^93
;;^UTILITY(U,$J,358.4,1007,0)
;;=FALLS^6^93
;;^UTILITY(U,$J,358.4,1008,0)
;;=NERVES^13^93
;;^UTILITY(U,$J,358.4,1009,0)
;;=PSYCHIATRIC THERAPY-INDIVIDUAL^8^94
;;^UTILITY(U,$J,358.4,1010,0)
;;=INTAKE/SCREENING^4^94
;;^UTILITY(U,$J,358.4,1011,0)
;;=CASE MANAGEMENT SERVICES^1^94
;;^UTILITY(U,$J,358.4,1012,0)
;;=HEALTH AND BEHAVIOR ASSESSMENT^3^94
;;^UTILITY(U,$J,358.4,1013,0)
;;=EDUCATION/TRAINING^2^94
;;^UTILITY(U,$J,358.4,1014,0)
;;=TEAM CONFERENCE-FTF W/ PATIENT^10^94
;;^UTILITY(U,$J,358.4,1015,0)
;;=MD/PA/NP PSYCHOTHERAPY W/ E&M^6^94
;;^UTILITY(U,$J,358.4,1016,0)
;;=MD/PA/NP/SW PROLONGED SERVICES^5^94
;;^UTILITY(U,$J,358.4,1017,0)
;;=PSYCHIATRIC THERAPY-GROUP^9^94
;;^UTILITY(U,$J,358.4,1018,0)
;;=TEAM CONFERENCE-FTF W/O PATIENT^11^94
;;^UTILITY(U,$J,358.4,1019,0)
;;=PEER SUPPORT^7^94
;;^UTILITY(U,$J,358.4,1020,0)
;;=ABUSE,NEGLECT, & VIOLENCE^1^95
;;^UTILITY(U,$J,358.4,1021,0)
;;=ANXIETY DISORDERS^3^95
;;^UTILITY(U,$J,358.4,1022,0)
;;=BIPOLAR DISORDERS^4^95
;;^UTILITY(U,$J,358.4,1023,0)
;;=NEUROCOGNITIVE DISORDERS^27^95
;;^UTILITY(U,$J,358.4,1024,0)
;;=DEPRESSIVE DISORDERS^10^95
;;^UTILITY(U,$J,358.4,1025,0)
;;=DISSOCIATIVE DISORDERS ^12^95
;;^UTILITY(U,$J,358.4,1026,0)
;;=FEEDING & EATING DISORDERS^16^95
;;^UTILITY(U,$J,358.4,1027,0)
;;=EDUCATIONAL/OCCUPATIONAL PROBLEMS^13^95
;;^UTILITY(U,$J,358.4,1028,0)
;;=GENDER DYSPHORIA^18^95
;;^UTILITY(U,$J,358.4,1029,0)
;;=HOUSING/ECONOMIC PROBLEMS^20^95
;;^UTILITY(U,$J,358.4,1030,0)
;;=MEDICATION-INDUCED MOVEMENT DISORDERS^24^95
;;^UTILITY(U,$J,358.4,1031,0)
;;=OBSESSIVE-COMPULSIVE & RELATED DISORDERS^29^95
;;^UTILITY(U,$J,358.4,1032,0)
;;=PERSONAL HX & CURRENT CIRCUMSTANCES^33^95
;;^UTILITY(U,$J,358.4,1033,0)
;;=COUNSELING/MEDICAL ADVICE^8^95
;;^UTILITY(U,$J,358.4,1034,0)
;;=SOCIAL ENVIRONMENT PROBLEMS^47^95
;;^UTILITY(U,$J,358.4,1035,0)
;;=PARAPHILIC DISORDERS^32^95
;;^UTILITY(U,$J,358.4,1036,0)
;;=PERSONALITY DISORDERS^36^95
;;^UTILITY(U,$J,358.4,1037,0)
;;=CRIME/LEGAL SYSTEM PROBLEMS^9^95
;;^UTILITY(U,$J,358.4,1038,0)
;;=PSYCHOSOCIAL/PERSONAL/ENVIRONMENTAL^40^95
;;^UTILITY(U,$J,358.4,1039,0)
;;=RELATIONAL PROBLEMS^41^95
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3B9 3772 printed Dec 13, 2024@02:45:24 Page 2
IBDEI3B9 ; ; 04-FEB-2020
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
+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,999)
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,986,0)
+2 ;;=ADAPTIVE BEHAVIOR TREATMENT^2^92
+3 ;;^UTILITY(U,$J,358.4,987,0)
+4 ;;=PROCEDURES^6^92
+5 ;;^UTILITY(U,$J,358.4,988,0)
+6 ;;=AMPUTATION STATUS^1^93
+7 ;;^UTILITY(U,$J,358.4,989,0)
+8 ;;=BRAIN DISORDERS^2^93
+9 ;;^UTILITY(U,$J,358.4,990,0)
+10 ;;=CARDIOPULMONARY^4^93
+11 ;;^UTILITY(U,$J,358.4,991,0)
+12 ;;=COMPLICATIONS DUE TO^5^93
+13 ;;^UTILITY(U,$J,358.4,992,0)
+14 ;;=MUSCULOSKELETAL/CONNECTIVE TISSUE^12^93
+15 ;;^UTILITY(U,$J,358.4,993,0)
+16 ;;=Z CODES^21^93
+17 ;;^UTILITY(U,$J,358.4,994,0)
+18 ;;=BRAIN INJURY - TRAUMATIC^3^93
+19 ;;^UTILITY(U,$J,358.4,995,0)
+20 ;;=FEMUR/THIGH/KNEE FRACTURE^7^93
+21 ;;^UTILITY(U,$J,358.4,996,0)
+22 ;;=FOOT/TOE/ANKLE FRANCTURE^8^93
+23 ;;^UTILITY(U,$J,358.4,997,0)
+24 ;;=HAND/FINGER FRACTURE^9^93
+25 ;;^UTILITY(U,$J,358.4,998,0)
+26 ;;=HIP/PELVIS FRACTURE^10^93
+27 ;;^UTILITY(U,$J,358.4,999,0)
+28 ;;=HUMERUS/SHOULDER FRACTURE^11^93
+29 ;;^UTILITY(U,$J,358.4,1000,0)
+30 ;;=TIBIA/FIBULA FRACTURE^19^93
+31 ;;^UTILITY(U,$J,358.4,1001,0)
+32 ;;=SPINE FRACTURE^16^93
+33 ;;^UTILITY(U,$J,358.4,1002,0)
+34 ;;=WRIST/FOREARM FRACTURE^20^93
+35 ;;^UTILITY(U,$J,358.4,1003,0)
+36 ;;=OTHER FRACTURE^14^93
+37 ;;^UTILITY(U,$J,358.4,1004,0)
+38 ;;=PAIN^15^93
+39 ;;^UTILITY(U,$J,358.4,1005,0)
+40 ;;=SPINAL CONDITIONS^17^93
+41 ;;^UTILITY(U,$J,358.4,1006,0)
+42 ;;=SYMPTOMS^18^93
+43 ;;^UTILITY(U,$J,358.4,1007,0)
+44 ;;=FALLS^6^93
+45 ;;^UTILITY(U,$J,358.4,1008,0)
+46 ;;=NERVES^13^93
+47 ;;^UTILITY(U,$J,358.4,1009,0)
+48 ;;=PSYCHIATRIC THERAPY-INDIVIDUAL^8^94
+49 ;;^UTILITY(U,$J,358.4,1010,0)
+50 ;;=INTAKE/SCREENING^4^94
+51 ;;^UTILITY(U,$J,358.4,1011,0)
+52 ;;=CASE MANAGEMENT SERVICES^1^94
+53 ;;^UTILITY(U,$J,358.4,1012,0)
+54 ;;=HEALTH AND BEHAVIOR ASSESSMENT^3^94
+55 ;;^UTILITY(U,$J,358.4,1013,0)
+56 ;;=EDUCATION/TRAINING^2^94
+57 ;;^UTILITY(U,$J,358.4,1014,0)
+58 ;;=TEAM CONFERENCE-FTF W/ PATIENT^10^94
+59 ;;^UTILITY(U,$J,358.4,1015,0)
+60 ;;=MD/PA/NP PSYCHOTHERAPY W/ E&M^6^94
+61 ;;^UTILITY(U,$J,358.4,1016,0)
+62 ;;=MD/PA/NP/SW PROLONGED SERVICES^5^94
+63 ;;^UTILITY(U,$J,358.4,1017,0)
+64 ;;=PSYCHIATRIC THERAPY-GROUP^9^94
+65 ;;^UTILITY(U,$J,358.4,1018,0)
+66 ;;=TEAM CONFERENCE-FTF W/O PATIENT^11^94
+67 ;;^UTILITY(U,$J,358.4,1019,0)
+68 ;;=PEER SUPPORT^7^94
+69 ;;^UTILITY(U,$J,358.4,1020,0)
+70 ;;=ABUSE,NEGLECT, & VIOLENCE^1^95
+71 ;;^UTILITY(U,$J,358.4,1021,0)
+72 ;;=ANXIETY DISORDERS^3^95
+73 ;;^UTILITY(U,$J,358.4,1022,0)
+74 ;;=BIPOLAR DISORDERS^4^95
+75 ;;^UTILITY(U,$J,358.4,1023,0)
+76 ;;=NEUROCOGNITIVE DISORDERS^27^95
+77 ;;^UTILITY(U,$J,358.4,1024,0)
+78 ;;=DEPRESSIVE DISORDERS^10^95
+79 ;;^UTILITY(U,$J,358.4,1025,0)
+80 ;;=DISSOCIATIVE DISORDERS ^12^95
+81 ;;^UTILITY(U,$J,358.4,1026,0)
+82 ;;=FEEDING & EATING DISORDERS^16^95
+83 ;;^UTILITY(U,$J,358.4,1027,0)
+84 ;;=EDUCATIONAL/OCCUPATIONAL PROBLEMS^13^95
+85 ;;^UTILITY(U,$J,358.4,1028,0)
+86 ;;=GENDER DYSPHORIA^18^95
+87 ;;^UTILITY(U,$J,358.4,1029,0)
+88 ;;=HOUSING/ECONOMIC PROBLEMS^20^95
+89 ;;^UTILITY(U,$J,358.4,1030,0)
+90 ;;=MEDICATION-INDUCED MOVEMENT DISORDERS^24^95
+91 ;;^UTILITY(U,$J,358.4,1031,0)
+92 ;;=OBSESSIVE-COMPULSIVE & RELATED DISORDERS^29^95
+93 ;;^UTILITY(U,$J,358.4,1032,0)
+94 ;;=PERSONAL HX & CURRENT CIRCUMSTANCES^33^95
+95 ;;^UTILITY(U,$J,358.4,1033,0)
+96 ;;=COUNSELING/MEDICAL ADVICE^8^95
+97 ;;^UTILITY(U,$J,358.4,1034,0)
+98 ;;=SOCIAL ENVIRONMENT PROBLEMS^47^95
+99 ;;^UTILITY(U,$J,358.4,1035,0)
+100 ;;=PARAPHILIC DISORDERS^32^95
+101 ;;^UTILITY(U,$J,358.4,1036,0)
+102 ;;=PERSONALITY DISORDERS^36^95
+103 ;;^UTILITY(U,$J,358.4,1037,0)
+104 ;;=CRIME/LEGAL SYSTEM PROBLEMS^9^95
+105 ;;^UTILITY(U,$J,358.4,1038,0)
+106 ;;=PSYCHOSOCIAL/PERSONAL/ENVIRONMENTAL^40^95
+107 ;;^UTILITY(U,$J,358.4,1039,0)
+108 ;;=RELATIONAL PROBLEMS^41^95
