Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDEI3ID

IBDEI3ID.m

Go to the documentation of this file.
IBDEI3ID ; ; 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,1121,0)
 ;;="B" MISC DIAGNOSIS^4^113
 ;;^UTILITY(U,$J,358.4,1122,0)
 ;;=BIPOLAR DISORDERS^5^113
 ;;^UTILITY(U,$J,358.4,1123,0)
 ;;=CANCER (NOT MELANOMA)^6^113
 ;;^UTILITY(U,$J,358.4,1124,0)
 ;;="C" MISC DIAGNOSIS^7^113
 ;;^UTILITY(U,$J,358.4,1125,0)
 ;;="D" MISC DIAGNOSIS^8^113
 ;;^UTILITY(U,$J,358.4,1126,0)
 ;;=DEMENTIA^9^113
 ;;^UTILITY(U,$J,358.4,1127,0)
 ;;=DEPRESSION^10^113
 ;;^UTILITY(U,$J,358.4,1128,0)
 ;;="E/F" MISC DIAGNOSIS^11^113
 ;;^UTILITY(U,$J,358.4,1129,0)
 ;;="G" MISC DIAGNOSIS^12^113
 ;;^UTILITY(U,$J,358.4,1130,0)
 ;;="H" MISC DIAGNOSIS^13^113
 ;;^UTILITY(U,$J,358.4,1131,0)
 ;;="I" MISC DIAGNOSIS^14^113
 ;;^UTILITY(U,$J,358.4,1132,0)
 ;;="J/K/L" MISC DIAGNOSIS^15^113
 ;;^UTILITY(U,$J,358.4,1133,0)
 ;;="M" MISC DIAGNOSIS^16^113
 ;;^UTILITY(U,$J,358.4,1134,0)
 ;;="N/O" MISC DIAGNOSIS^17^113
 ;;^UTILITY(U,$J,358.4,1135,0)
 ;;="P" MISC DIAGNOSIS^18^113
 ;;^UTILITY(U,$J,358.4,1136,0)
 ;;=PAIN^19^113
 ;;^UTILITY(U,$J,358.4,1137,0)
 ;;=PERSONALITY DISORDERS^20^113
 ;;^UTILITY(U,$J,358.4,1138,0)
 ;;="R" DIAGNOSIS^21^113
 ;;^UTILITY(U,$J,358.4,1139,0)
 ;;="S" DIAGNOSIS^22^113
 ;;^UTILITY(U,$J,358.4,1140,0)
 ;;=SCHIZOPHRENIC DISORDERS^23^113
 ;;^UTILITY(U,$J,358.4,1141,0)
 ;;=SCREENING^24^113
 ;;^UTILITY(U,$J,358.4,1142,0)
 ;;=SUBSTANCE ABUSE^25^113
 ;;^UTILITY(U,$J,358.4,1143,0)
 ;;=SYMPTOMS^26^113
 ;;^UTILITY(U,$J,358.4,1144,0)
 ;;="T/U" MISC DIAGNOSIS^27^113
 ;;^UTILITY(U,$J,358.4,1145,0)
 ;;="V/W/X/Y/Z" MISC DIAGNOSIS^28^113
 ;;^UTILITY(U,$J,358.4,1146,0)
 ;;=OTHER^29^113
 ;;^UTILITY(U,$J,358.4,1147,0)
 ;;=Z-CODES^30^113
 ;;^UTILITY(U,$J,358.4,1148,0)
 ;;=TELEHEALTH-SECONDARY ONLY^31^113
 ;;^UTILITY(U,$J,358.4,1149,0)
 ;;=DIABETES^7.5^113
 ;;^UTILITY(U,$J,358.4,1150,0)
 ;;=FACE-TO-FACE^1^114
 ;;^UTILITY(U,$J,358.4,1151,0)
 ;;=INTERVENTION^2^114
 ;;^UTILITY(U,$J,358.4,1152,0)
 ;;=CCHT VIDEO^4^114
 ;;^UTILITY(U,$J,358.4,1153,0)
 ;;=OTHER^5^115
 ;;^UTILITY(U,$J,358.4,1154,0)
 ;;=CARDIOLOGY/EKG^1^115
 ;;^UTILITY(U,$J,358.4,1155,0)
 ;;=HT EDUCATION^4^115
 ;;^UTILITY(U,$J,358.4,1156,0)
 ;;=HT MONTHLY MONITOR^3^115
 ;;^UTILITY(U,$J,358.4,1157,0)
 ;;=HT HOME VISIT^2^115
 ;;^UTILITY(U,$J,358.4,1158,0)
 ;;="A" MISC DIAGNOSIS^1^116
 ;;^UTILITY(U,$J,358.4,1159,0)
 ;;=ADJUSTMENT REACTION^2^116
 ;;^UTILITY(U,$J,358.4,1160,0)
 ;;=ANXIETY DISORDER^3^116
 ;;^UTILITY(U,$J,358.4,1161,0)
 ;;="B" MISC DIAGNOSIS^4^116
 ;;^UTILITY(U,$J,358.4,1162,0)
 ;;=BIPOLAR DISORDERS^5^116
 ;;^UTILITY(U,$J,358.4,1163,0)
 ;;=CANCER (NOT MELANOMA)^6^116
 ;;^UTILITY(U,$J,358.4,1164,0)
 ;;="C" MISC DIAGNOSIS^7^116
 ;;^UTILITY(U,$J,358.4,1165,0)
 ;;="D" MISC DIAGNOSIS^8^116
 ;;^UTILITY(U,$J,358.4,1166,0)
 ;;=DEMENTIA^9^116
 ;;^UTILITY(U,$J,358.4,1167,0)
 ;;=DEPRESSION^10^116
 ;;^UTILITY(U,$J,358.4,1168,0)
 ;;="E/F" MISC DIAGNOSIS^11^116
 ;;^UTILITY(U,$J,358.4,1169,0)
 ;;="G" MISC DIAGNOSIS^12^116
 ;;^UTILITY(U,$J,358.4,1170,0)
 ;;="H" MISC DIAGNOSIS^13^116
 ;;^UTILITY(U,$J,358.4,1171,0)
 ;;="I" MISC DIAGNOSIS^14^116
 ;;^UTILITY(U,$J,358.4,1172,0)
 ;;="J/K/L" MISC DIAGNOSIS^15^116
 ;;^UTILITY(U,$J,358.4,1173,0)
 ;;="M" MISC DIAGNOSIS^16^116
 ;;^UTILITY(U,$J,358.4,1174,0)
 ;;="N/O" MISC DIAGNOSIS^17^116
 ;;^UTILITY(U,$J,358.4,1175,0)
 ;;="P" MISC DIAGNOSIS^18^116
 ;;^UTILITY(U,$J,358.4,1176,0)
 ;;=PAIN^19^116
 ;;^UTILITY(U,$J,358.4,1177,0)
 ;;=PERSONALITY DISORDERS^20^116
 ;;^UTILITY(U,$J,358.4,1178,0)
 ;;="R" DIAGNOSIS^21^116
 ;;^UTILITY(U,$J,358.4,1179,0)
 ;;="S" DIAGNOSIS^22^116
 ;;^UTILITY(U,$J,358.4,1180,0)
 ;;=SCHIZOPHRENIC DISORDERS^23^116
 ;;^UTILITY(U,$J,358.4,1181,0)
 ;;=SCREENING^24^116
 ;;^UTILITY(U,$J,358.4,1182,0)
 ;;=SUBSTANCE ABUSE^25^116