IBDEI3BA ; ; 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,1040,0)
;;=SCHIZOPHRENIA/OTH PSYCHOTIC DISORDERS^43^95
;;^UTILITY(U,$J,358.4,1041,0)
;;=SEXUAL DYSFUNCTIONS^45^95
;;^UTILITY(U,$J,358.4,1042,0)
;;=SLEEP-WAKE DISORDERS^46^95
;;^UTILITY(U,$J,358.4,1043,0)
;;=SUBSTANCE USE DISORDER-ALCOHOL^49^95
;;^UTILITY(U,$J,358.4,1044,0)
;;=SUBSTANCE USE DISORDER-CANNABIS^51^95
;;^UTILITY(U,$J,358.4,1045,0)
;;=SUBSTANCE USE DISORDER-HALLUCINOGEN^52^95
;;^UTILITY(U,$J,358.4,1046,0)
;;=SUBSTANCE USE DISORDER-OPIOID^54^95
;;^UTILITY(U,$J,358.4,1047,0)
;;=SUBSTANCE USE DISORDER-SEDATIVE/HYPNOTIC^55^95
;;^UTILITY(U,$J,358.4,1048,0)
;;=SUBSTANCE USE DISORDER-TOBACCO^57^95
;;^UTILITY(U,$J,358.4,1049,0)
;;=TRAUMA/STRESSOR-RELATED DISORDERS^60^95
;;^UTILITY(U,$J,358.4,1050,0)
;;=SUBSTANCE USE DISORDER-INHALANT^53^95
;;^UTILITY(U,$J,358.4,1051,0)
;;=CLINICAL RESEARCH PROGRAM^5^95
;;^UTILITY(U,$J,358.4,1052,0)
;;=SOMATIC SYMPTOM & RELATED DISORDERS^48^95
;;^UTILITY(U,$J,358.4,1053,0)
;;=DISRUPTIVE,IMPULSE-CONTROL DISORDERS^11^95
;;^UTILITY(U,$J,358.4,1054,0)
;;=ELIMINATION DISORDERS^14^95
;;^UTILITY(U,$J,358.4,1055,0)
;;=GAMBLING DISORDER^17^95
;;^UTILITY(U,$J,358.4,1056,0)
;;=OTHER MENTAL DISORDERS^31^95
;;^UTILITY(U,$J,358.4,1057,0)
;;=NEURODEVELOPMENTAL DISORDERS^28^95
;;^UTILITY(U,$J,358.4,1058,0)
;;=SUBSTANCE USE DISORDER-CAFFEINE^50^95
;;^UTILITY(U,$J,358.4,1059,0)
;;=SUICIDAL IDEATION^59^95
;;^UTILITY(U,$J,358.4,1060,0)
;;=SUBSTANCE USE DISORDER-UNKNOWN SUBSTANCE^58^95
;;^UTILITY(U,$J,358.4,1061,0)
;;=SUBSTANCE USE DISORDER-STIMULANTS^56^95
;;^UTILITY(U,$J,358.4,1062,0)
;;=ADMINISTRATIVE PURPOSES^2^95
;;^UTILITY(U,$J,358.4,1063,0)
;;=CONDITIONS INFLUENCING HEALTH^6^95
;;^UTILITY(U,$J,358.4,1064,0)
;;=CONVALENSCENCE/PALLIATIVE CARE^7^95
;;^UTILITY(U,$J,358.4,1065,0)
;;=FAMILY CIRCUMSTANCES^15^95
;;^UTILITY(U,$J,358.4,1066,0)
;;=HOUSING/ECONOMIC CIRCUMSTANCES^19^95
;;^UTILITY(U,$J,358.4,1067,0)
;;=LIFESTYLE PROBLEMS^21^95
;;^UTILITY(U,$J,358.4,1068,0)
;;=LOWER LIMB AMPUTATION STATUS^22^95
;;^UTILITY(U,$J,358.4,1069,0)
;;=MACHINE/DEVICE DEPENDENCE^23^95
;;^UTILITY(U,$J,358.4,1070,0)
;;=MENTAL/BEHAVIORAL PROBLEMS^25^95
;;^UTILITY(U,$J,358.4,1071,0)
;;=MENTAL/DEVELOPMENTAL SCRN^26^95
;;^UTILITY(U,$J,358.4,1072,0)
;;=ORGAN/TISSUE REPLACED^30^95
;;^UTILITY(U,$J,358.4,1073,0)
;;=PERSONAL HX OF HAZARDS TO HEALTH^34^95
;;^UTILITY(U,$J,358.4,1074,0)
;;=PERSONAL HX OF MENTAL DISORDER^35^95
;;^UTILITY(U,$J,358.4,1075,0)
;;=PERSONS SEEKING CONSULT^37^95
;;^UTILITY(U,$J,358.4,1076,0)
;;=POSTPROCEDURAL STATES^38^95
;;^UTILITY(U,$J,358.4,1077,0)
;;=PSYCHOSOCIAL CIRCUMSTANCES^39^95
;;^UTILITY(U,$J,358.4,1078,0)
;;=SENSES/FUNCTION PROBLEMS^44^95
;;^UTILITY(U,$J,358.4,1079,0)
;;=UNAVAILABILITY OF MED FACILITY CARE^60^95
;;^UTILITY(U,$J,358.4,1080,0)
;;=UPPER LIMB AMPUTATION STATUS^61^95
;;^UTILITY(U,$J,358.4,1081,0)
;;=MD/PA/NP E&M CONSULTATIONS^3^96
;;^UTILITY(U,$J,358.4,1082,0)
;;=MD/PA/NP-ESTABLISHED PATIENT^2^96
;;^UTILITY(U,$J,358.4,1083,0)
;;=MD/PA/NP-NEW PATIENT^1^96
;;^UTILITY(U,$J,358.4,1084,0)
;;=MD/PA/NP HOME VISIT-NEW PATIENT^4^96
;;^UTILITY(U,$J,358.4,1085,0)
;;=MD/PA/NP HOME VISIT-ESTABLISHED PATIENT^5^96
;;^UTILITY(U,$J,358.4,1086,0)
;;=F-T-F ESTABLISHED PATIENT^1^97
;;^UTILITY(U,$J,358.4,1087,0)
;;=F-T-F NEW PATIENT^2^97
;;^UTILITY(U,$J,358.4,1088,0)
;;=HT VIDEO-EST PATIENT^3^97
;;^UTILITY(U,$J,358.4,1089,0)
;;=HT VIDEO-NEW PATIENT^4^97
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3BA 3803 printed Sep 23, 2025@20:21:28 Page 2
IBDEI3BA ; ; 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,1040,0)
+2 ;;=SCHIZOPHRENIA/OTH PSYCHOTIC DISORDERS^43^95
+3 ;;^UTILITY(U,$J,358.4,1041,0)
+4 ;;=SEXUAL DYSFUNCTIONS^45^95
+5 ;;^UTILITY(U,$J,358.4,1042,0)
+6 ;;=SLEEP-WAKE DISORDERS^46^95
+7 ;;^UTILITY(U,$J,358.4,1043,0)
+8 ;;=SUBSTANCE USE DISORDER-ALCOHOL^49^95
+9 ;;^UTILITY(U,$J,358.4,1044,0)
+10 ;;=SUBSTANCE USE DISORDER-CANNABIS^51^95
+11 ;;^UTILITY(U,$J,358.4,1045,0)
+12 ;;=SUBSTANCE USE DISORDER-HALLUCINOGEN^52^95
+13 ;;^UTILITY(U,$J,358.4,1046,0)
+14 ;;=SUBSTANCE USE DISORDER-OPIOID^54^95
+15 ;;^UTILITY(U,$J,358.4,1047,0)
+16 ;;=SUBSTANCE USE DISORDER-SEDATIVE/HYPNOTIC^55^95
+17 ;;^UTILITY(U,$J,358.4,1048,0)
+18 ;;=SUBSTANCE USE DISORDER-TOBACCO^57^95
+19 ;;^UTILITY(U,$J,358.4,1049,0)
+20 ;;=TRAUMA/STRESSOR-RELATED DISORDERS^60^95
+21 ;;^UTILITY(U,$J,358.4,1050,0)
+22 ;;=SUBSTANCE USE DISORDER-INHALANT^53^95
+23 ;;^UTILITY(U,$J,358.4,1051,0)
+24 ;;=CLINICAL RESEARCH PROGRAM^5^95
+25 ;;^UTILITY(U,$J,358.4,1052,0)
+26 ;;=SOMATIC SYMPTOM & RELATED DISORDERS^48^95
+27 ;;^UTILITY(U,$J,358.4,1053,0)
+28 ;;=DISRUPTIVE,IMPULSE-CONTROL DISORDERS^11^95
+29 ;;^UTILITY(U,$J,358.4,1054,0)
+30 ;;=ELIMINATION DISORDERS^14^95
+31 ;;^UTILITY(U,$J,358.4,1055,0)
+32 ;;=GAMBLING DISORDER^17^95
+33 ;;^UTILITY(U,$J,358.4,1056,0)
+34 ;;=OTHER MENTAL DISORDERS^31^95
+35 ;;^UTILITY(U,$J,358.4,1057,0)
+36 ;;=NEURODEVELOPMENTAL DISORDERS^28^95
+37 ;;^UTILITY(U,$J,358.4,1058,0)
+38 ;;=SUBSTANCE USE DISORDER-CAFFEINE^50^95
+39 ;;^UTILITY(U,$J,358.4,1059,0)
+40 ;;=SUICIDAL IDEATION^59^95
+41 ;;^UTILITY(U,$J,358.4,1060,0)
+42 ;;=SUBSTANCE USE DISORDER-UNKNOWN SUBSTANCE^58^95
+43 ;;^UTILITY(U,$J,358.4,1061,0)
+44 ;;=SUBSTANCE USE DISORDER-STIMULANTS^56^95
+45 ;;^UTILITY(U,$J,358.4,1062,0)
+46 ;;=ADMINISTRATIVE PURPOSES^2^95
+47 ;;^UTILITY(U,$J,358.4,1063,0)
+48 ;;=CONDITIONS INFLUENCING HEALTH^6^95
+49 ;;^UTILITY(U,$J,358.4,1064,0)
+50 ;;=CONVALENSCENCE/PALLIATIVE CARE^7^95
+51 ;;^UTILITY(U,$J,358.4,1065,0)
+52 ;;=FAMILY CIRCUMSTANCES^15^95
+53 ;;^UTILITY(U,$J,358.4,1066,0)
+54 ;;=HOUSING/ECONOMIC CIRCUMSTANCES^19^95
+55 ;;^UTILITY(U,$J,358.4,1067,0)
+56 ;;=LIFESTYLE PROBLEMS^21^95
+57 ;;^UTILITY(U,$J,358.4,1068,0)
+58 ;;=LOWER LIMB AMPUTATION STATUS^22^95
+59 ;;^UTILITY(U,$J,358.4,1069,0)
+60 ;;=MACHINE/DEVICE DEPENDENCE^23^95
+61 ;;^UTILITY(U,$J,358.4,1070,0)
+62 ;;=MENTAL/BEHAVIORAL PROBLEMS^25^95
+63 ;;^UTILITY(U,$J,358.4,1071,0)
+64 ;;=MENTAL/DEVELOPMENTAL SCRN^26^95
+65 ;;^UTILITY(U,$J,358.4,1072,0)
+66 ;;=ORGAN/TISSUE REPLACED^30^95
+67 ;;^UTILITY(U,$J,358.4,1073,0)
+68 ;;=PERSONAL HX OF HAZARDS TO HEALTH^34^95
+69 ;;^UTILITY(U,$J,358.4,1074,0)
+70 ;;=PERSONAL HX OF MENTAL DISORDER^35^95
+71 ;;^UTILITY(U,$J,358.4,1075,0)
+72 ;;=PERSONS SEEKING CONSULT^37^95
+73 ;;^UTILITY(U,$J,358.4,1076,0)
+74 ;;=POSTPROCEDURAL STATES^38^95
+75 ;;^UTILITY(U,$J,358.4,1077,0)
+76 ;;=PSYCHOSOCIAL CIRCUMSTANCES^39^95
+77 ;;^UTILITY(U,$J,358.4,1078,0)
+78 ;;=SENSES/FUNCTION PROBLEMS^44^95
+79 ;;^UTILITY(U,$J,358.4,1079,0)
+80 ;;=UNAVAILABILITY OF MED FACILITY CARE^60^95
+81 ;;^UTILITY(U,$J,358.4,1080,0)
+82 ;;=UPPER LIMB AMPUTATION STATUS^61^95
+83 ;;^UTILITY(U,$J,358.4,1081,0)
+84 ;;=MD/PA/NP E&M CONSULTATIONS^3^96
+85 ;;^UTILITY(U,$J,358.4,1082,0)
+86 ;;=MD/PA/NP-ESTABLISHED PATIENT^2^96
+87 ;;^UTILITY(U,$J,358.4,1083,0)
+88 ;;=MD/PA/NP-NEW PATIENT^1^96
+89 ;;^UTILITY(U,$J,358.4,1084,0)
+90 ;;=MD/PA/NP HOME VISIT-NEW PATIENT^4^96
+91 ;;^UTILITY(U,$J,358.4,1085,0)
+92 ;;=MD/PA/NP HOME VISIT-ESTABLISHED PATIENT^5^96
+93 ;;^UTILITY(U,$J,358.4,1086,0)
+94 ;;=F-T-F ESTABLISHED PATIENT^1^97
+95 ;;^UTILITY(U,$J,358.4,1087,0)
+96 ;;=F-T-F NEW PATIENT^2^97
+97 ;;^UTILITY(U,$J,358.4,1088,0)
+98 ;;=HT VIDEO-EST PATIENT^3^97
+99 ;;^UTILITY(U,$J,358.4,1089,0)
+100 ;;=HT VIDEO-NEW PATIENT^4^97
