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

IBDEI3IG.m

Go to the documentation of this file.
IBDEI3IG ; ; 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,1302,0)
 ;;=VACCINE ADMINISTRATION^5^131
 ;;^UTILITY(U,$J,358.4,1303,0)
 ;;=VACCINES^6^131
 ;;^UTILITY(U,$J,358.4,1304,0)
 ;;=PC COMMON DIAGNOSES^1^132
 ;;^UTILITY(U,$J,358.4,1305,0)
 ;;=ADMINISTRATIVE TOPICS^2^132
 ;;^UTILITY(U,$J,358.4,1306,0)
 ;;=ANGINA^3^132
 ;;^UTILITY(U,$J,358.4,1307,0)
 ;;=ATHEROSCLEROSIS^4^132
 ;;^UTILITY(U,$J,358.4,1308,0)
 ;;=CARDIOVASCULAR^5^132
 ;;^UTILITY(U,$J,358.4,1309,0)
 ;;=DERMATOLOGY^9^132
 ;;^UTILITY(U,$J,358.4,1310,0)
 ;;=EAR DISORDERS^10^132
 ;;^UTILITY(U,$J,358.4,1311,0)
 ;;=EENT^11^132
 ;;^UTILITY(U,$J,358.4,1312,0)
 ;;=ENDOCRINE/METABOLIC^12^132
 ;;^UTILITY(U,$J,358.4,1313,0)
 ;;=EYE DISORDERS^13^132
 ;;^UTILITY(U,$J,358.4,1314,0)
 ;;=EYE INJURY^14^132
 ;;^UTILITY(U,$J,358.4,1315,0)
 ;;=GASTROENTEROLOGY^15^132
 ;;^UTILITY(U,$J,358.4,1316,0)
 ;;=GU/RENAL^16^132
 ;;^UTILITY(U,$J,358.4,1317,0)
 ;;=HEADACHE^17^132
 ;;^UTILITY(U,$J,358.4,1318,0)
 ;;=HEART FAILURE^18^132
 ;;^UTILITY(U,$J,358.4,1319,0)
 ;;=HEART VALVE DISEASE^19^132
 ;;^UTILITY(U,$J,358.4,1320,0)
 ;;=HEMATOLOGY/ONCOLOGY^20^132
 ;;^UTILITY(U,$J,358.4,1321,0)
 ;;=HISTORY OF ILLNESS^21^132
 ;;^UTILITY(U,$J,358.4,1322,0)
 ;;=INFECTIOUS DISEASE^22^132
 ;;^UTILITY(U,$J,358.4,1323,0)
 ;;=LIVER DISEASE^23^132
 ;;^UTILITY(U,$J,358.4,1324,0)
 ;;=MENTAL HEALTH^25^132
 ;;^UTILITY(U,$J,358.4,1325,0)
 ;;=MOVEMENT DISORDERS^26^132
 ;;^UTILITY(U,$J,358.4,1326,0)
 ;;=MUSCULOSKELETAL^27^132
 ;;^UTILITY(U,$J,358.4,1327,0)
 ;;=NEUROLOGY^28^132
 ;;^UTILITY(U,$J,358.4,1328,0)
 ;;=PAIN^29^132
 ;;^UTILITY(U,$J,358.4,1329,0)
 ;;=PREVENTIVE HEALTH^30^132
 ;;^UTILITY(U,$J,358.4,1330,0)
 ;;=PULMONARY^31^132
 ;;^UTILITY(U,$J,358.4,1331,0)
 ;;=SEXUAL TRAUMA^32^132
 ;;^UTILITY(U,$J,358.4,1332,0)
 ;;=SIGNS,SYMPTOMS,CONDITIONS^33^132
 ;;^UTILITY(U,$J,358.4,1333,0)
 ;;=SPRAIN/STRAIN-INITIAL ENCOUNTER^34^132
 ;;^UTILITY(U,$J,358.4,1334,0)
 ;;=SUBSTANCE DISORDERS^35^132
 ;;^UTILITY(U,$J,358.4,1335,0)
 ;;=VARICOSE VEINS^36^132
 ;;^UTILITY(U,$J,358.4,1336,0)
 ;;=WOMEN'S HEALTH^37^132
 ;;^UTILITY(U,$J,358.4,1337,0)
 ;;=WOUNDS-INITIAL ENCOUNTER^38^132
 ;;^UTILITY(U,$J,358.4,1338,0)
 ;;=COMA^7^132
 ;;^UTILITY(U,$J,358.4,1339,0)
 ;;=CAUSES OF INJURY^6^132
 ;;^UTILITY(U,$J,358.4,1340,0)
 ;;=DEMENTIA^8^132
 ;;^UTILITY(U,$J,358.4,1341,0)
 ;;=LONG TERM CURRENT DRUG THERAPY^24^132
 ;;^UTILITY(U,$J,358.4,1342,0)
 ;;=NEW PATIENT^2^133
 ;;^UTILITY(U,$J,358.4,1343,0)
 ;;=ESTABLISHED PATIENT^1^133
 ;;^UTILITY(U,$J,358.4,1344,0)
 ;;=CONSULTATIONS^3^133
 ;;^UTILITY(U,$J,358.4,1345,0)
 ;;=IMMUNIZATIONS^2^134
 ;;^UTILITY(U,$J,358.4,1346,0)
 ;;=INJECTION^3^134
 ;;^UTILITY(U,$J,358.4,1347,0)
 ;;=SKIN TESTS^10^134
 ;;^UTILITY(U,$J,358.4,1348,0)
 ;;=NURSING PROCEDURES^5^134
 ;;^UTILITY(U,$J,358.4,1349,0)
 ;;=MINOR PROCEDURES^4^134
 ;;^UTILITY(U,$J,358.4,1350,0)
 ;;=SPLINTS^10^134
 ;;^UTILITY(U,$J,358.4,1351,0)
 ;;=REPAIR-SIMPLE SCALP,NK,TRUNK,GENTIALS^9^134
 ;;^UTILITY(U,$J,358.4,1352,0)
 ;;=REPAIR-SIMPLE FACE,MUCOUS^8^134
 ;;^UTILITY(U,$J,358.4,1353,0)
 ;;=PREVENTIVE MED-EST PT^6^134
 ;;^UTILITY(U,$J,358.4,1354,0)
 ;;=PREVENTIVE MED-NEW PT^7^134
 ;;^UTILITY(U,$J,358.4,1355,0)
 ;;=IMMUNIZATION ADMIN^1^134
 ;;^UTILITY(U,$J,358.4,1356,0)
 ;;=PC COMMON DIAGNOSES^1^135
 ;;^UTILITY(U,$J,358.4,1357,0)
 ;;=ADMINISTRATIVE TOPICS^2^135
 ;;^UTILITY(U,$J,358.4,1358,0)
 ;;=ANGINA^3^135
 ;;^UTILITY(U,$J,358.4,1359,0)
 ;;=ATHEROSCLEROSIS^4^135
 ;;^UTILITY(U,$J,358.4,1360,0)
 ;;=CARDIOVASCULAR^5^135
 ;;^UTILITY(U,$J,358.4,1361,0)
 ;;=DERMATOLOGY^9^135
 ;;^UTILITY(U,$J,358.4,1362,0)
 ;;=EAR DISORDERS^10^135
 ;;^UTILITY(U,$J,358.4,1363,0)
 ;;=EENT^11^135