IBDEI3BL ; ; 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,1619,0)
;;=PREGNANCY COMPLICATIONS^21^126
;;^UTILITY(U,$J,358.4,1620,0)
;;=PREGNANCY-HYPERTENSION^24^126
;;^UTILITY(U,$J,358.4,1621,0)
;;=PREGNANCY-VOMITING^27^126
;;^UTILITY(U,$J,358.4,1622,0)
;;=LATE PREGNANCY^15^126
;;^UTILITY(U,$J,358.4,1623,0)
;;=PREGNANCY-OTH COMPLICATIONS^25^126
;;^UTILITY(U,$J,358.4,1624,0)
;;=PREGNANCY CONDITIONS^22^126
;;^UTILITY(U,$J,358.4,1625,0)
;;=MULTIPLE GESTATIONS^18^126
;;^UTILITY(U,$J,358.4,1626,0)
;;=PREGNANCY-FETAL ABNORMALITY^23^126
;;^UTILITY(U,$J,358.4,1627,0)
;;=AMNIO/MEMBRANE PROBLEMS^3^126
;;^UTILITY(U,$J,358.4,1628,0)
;;=MAJOR PUERPERAL INFECTIONS^16^126
;;^UTILITY(U,$J,358.4,1629,0)
;;=VENOUS COMPLICATIONS^33^126
;;^UTILITY(U,$J,358.4,1630,0)
;;=PREGNANCY-PYREXIA^26^126
;;^UTILITY(U,$J,358.4,1631,0)
;;=PUERPERIUM COMPLICATIONS^29^126
;;^UTILITY(U,$J,358.4,1632,0)
;;=INFECTION-BREAST/NIPPLE IN PREGNANCY^12^126
;;^UTILITY(U,$J,358.4,1633,0)
;;=PREGNANCY-Z CODES^28^126
;;^UTILITY(U,$J,358.4,1634,0)
;;=GENITOURINARY & RENAL^11^126
;;^UTILITY(U,$J,358.4,1635,0)
;;=DIGESTIVE^9^126
;;^UTILITY(U,$J,358.4,1636,0)
;;=VAGINA^32^126
;;^UTILITY(U,$J,358.4,1637,0)
;;=VULVA^34^126
;;^UTILITY(U,$J,358.4,1638,0)
;;=UTERUS^31^126
;;^UTILITY(U,$J,358.4,1639,0)
;;=PREGNANCY^20^126
;;^UTILITY(U,$J,358.4,1640,0)
;;=PAIN SYNDROME^19^126
;;^UTILITY(U,$J,358.4,1641,0)
;;=MENOPAUSE^17^126
;;^UTILITY(U,$J,358.4,1642,0)
;;=INFERTILITY^14^126
;;^UTILITY(U,$J,358.4,1643,0)
;;=ENDOCRINE^10^126
;;^UTILITY(U,$J,358.4,1644,0)
;;=INFECTION-D/C & PARASITIC DISEASES^13^126
;;^UTILITY(U,$J,358.4,1645,0)
;;=DERMATOLOGY^8^126
;;^UTILITY(U,$J,358.4,1646,0)
;;=CONTRACEPTION-HRT^7^126
;;^UTILITY(U,$J,358.4,1647,0)
;;=CERVICAL^6^126
;;^UTILITY(U,$J,358.4,1648,0)
;;=BREAST^5^126
;;^UTILITY(U,$J,358.4,1649,0)
;;=BLEEDING (NON-PREGNANT)^4^126
;;^UTILITY(U,$J,358.4,1650,0)
;;=ADNEXA^2^126
;;^UTILITY(U,$J,358.4,1651,0)
;;=GENERAL-GLOBAL^1^126
;;^UTILITY(U,$J,358.4,1652,0)
;;=SUICIDE IDEATIONS/ATTEMPTS^30^126
;;^UTILITY(U,$J,358.4,1653,0)
;;=ESTABLISHED PATIENT^1^127
;;^UTILITY(U,$J,358.4,1654,0)
;;=NEW PATIENT^2^127
;;^UTILITY(U,$J,358.4,1655,0)
;;=CONSULTATION^3^127
;;^UTILITY(U,$J,358.4,1656,0)
;;=DIABETES TYPE 2/TYPE 1^16^128
;;^UTILITY(U,$J,358.4,1657,0)
;;=GLAUCOMA-LTG/PIGMENT/PSEUDOEX^20^128
;;^UTILITY(U,$J,358.4,1658,0)
;;=LENS/CATARACT^7^128
;;^UTILITY(U,$J,358.4,1659,0)
;;=LIDS/LASHES/DRY EYE^4^128
;;^UTILITY(U,$J,358.4,1660,0)
;;=MACULA^8^128
;;^UTILITY(U,$J,358.4,1661,0)
;;=RETINA-VASCULAR^10^128
;;^UTILITY(U,$J,358.4,1662,0)
;;=REFRACTIVE/VF/OTHER^3^128
;;^UTILITY(U,$J,358.4,1663,0)
;;=CATEGORIES OF VISION LOSS^2^128
;;^UTILITY(U,$J,358.4,1664,0)
;;=GLOBE/ORBIT/PAIN^13^128
;;^UTILITY(U,$J,358.4,1665,0)
;;=MOST FREQUENT^1^128
;;^UTILITY(U,$J,358.4,1666,0)
;;=CONJUNCTIVA/SCLERA^5^128
;;^UTILITY(U,$J,358.4,1667,0)
;;=CORNEA/PUPILS/IRIS^6^128
;;^UTILITY(U,$J,358.4,1668,0)
;;=GLAUCOMA-OPEN ANGLE^19^128
;;^UTILITY(U,$J,358.4,1669,0)
;;=GLAUCOMA-SUSPECT/OHTN^18^128
;;^UTILITY(U,$J,358.4,1670,0)
;;=GLAUCOMA-OTHER^21^128
;;^UTILITY(U,$J,358.4,1671,0)
;;=MACULA-AMD^9^128
;;^UTILITY(U,$J,358.4,1672,0)
;;=CHOROID/RETINA/RD^11^128
;;^UTILITY(U,$J,358.4,1673,0)
;;=VITREOUS^12^128
;;^UTILITY(U,$J,358.4,1674,0)
;;=OPTIC NERVE/VISUAL PATHWAY^14^128
;;^UTILITY(U,$J,358.4,1675,0)
;;=NEURO/STRABISMUS/EYE MOVEMENT^15^128
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3BL 3775 printed Sep 23, 2025@20:21:38 Page 2
IBDEI3BL ; ; 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,1619,0)
+2 ;;=PREGNANCY COMPLICATIONS^21^126
+3 ;;^UTILITY(U,$J,358.4,1620,0)
+4 ;;=PREGNANCY-HYPERTENSION^24^126
+5 ;;^UTILITY(U,$J,358.4,1621,0)
+6 ;;=PREGNANCY-VOMITING^27^126
+7 ;;^UTILITY(U,$J,358.4,1622,0)
+8 ;;=LATE PREGNANCY^15^126
+9 ;;^UTILITY(U,$J,358.4,1623,0)
+10 ;;=PREGNANCY-OTH COMPLICATIONS^25^126
+11 ;;^UTILITY(U,$J,358.4,1624,0)
+12 ;;=PREGNANCY CONDITIONS^22^126
+13 ;;^UTILITY(U,$J,358.4,1625,0)
+14 ;;=MULTIPLE GESTATIONS^18^126
+15 ;;^UTILITY(U,$J,358.4,1626,0)
+16 ;;=PREGNANCY-FETAL ABNORMALITY^23^126
+17 ;;^UTILITY(U,$J,358.4,1627,0)
+18 ;;=AMNIO/MEMBRANE PROBLEMS^3^126
+19 ;;^UTILITY(U,$J,358.4,1628,0)
+20 ;;=MAJOR PUERPERAL INFECTIONS^16^126
+21 ;;^UTILITY(U,$J,358.4,1629,0)
+22 ;;=VENOUS COMPLICATIONS^33^126
+23 ;;^UTILITY(U,$J,358.4,1630,0)
+24 ;;=PREGNANCY-PYREXIA^26^126
+25 ;;^UTILITY(U,$J,358.4,1631,0)
+26 ;;=PUERPERIUM COMPLICATIONS^29^126
+27 ;;^UTILITY(U,$J,358.4,1632,0)
+28 ;;=INFECTION-BREAST/NIPPLE IN PREGNANCY^12^126
+29 ;;^UTILITY(U,$J,358.4,1633,0)
+30 ;;=PREGNANCY-Z CODES^28^126
+31 ;;^UTILITY(U,$J,358.4,1634,0)
+32 ;;=GENITOURINARY & RENAL^11^126
+33 ;;^UTILITY(U,$J,358.4,1635,0)
+34 ;;=DIGESTIVE^9^126
+35 ;;^UTILITY(U,$J,358.4,1636,0)
+36 ;;=VAGINA^32^126
+37 ;;^UTILITY(U,$J,358.4,1637,0)
+38 ;;=VULVA^34^126
+39 ;;^UTILITY(U,$J,358.4,1638,0)
+40 ;;=UTERUS^31^126
+41 ;;^UTILITY(U,$J,358.4,1639,0)
+42 ;;=PREGNANCY^20^126
+43 ;;^UTILITY(U,$J,358.4,1640,0)
+44 ;;=PAIN SYNDROME^19^126
+45 ;;^UTILITY(U,$J,358.4,1641,0)
+46 ;;=MENOPAUSE^17^126
+47 ;;^UTILITY(U,$J,358.4,1642,0)
+48 ;;=INFERTILITY^14^126
+49 ;;^UTILITY(U,$J,358.4,1643,0)
+50 ;;=ENDOCRINE^10^126
+51 ;;^UTILITY(U,$J,358.4,1644,0)
+52 ;;=INFECTION-D/C & PARASITIC DISEASES^13^126
+53 ;;^UTILITY(U,$J,358.4,1645,0)
+54 ;;=DERMATOLOGY^8^126
+55 ;;^UTILITY(U,$J,358.4,1646,0)
+56 ;;=CONTRACEPTION-HRT^7^126
+57 ;;^UTILITY(U,$J,358.4,1647,0)
+58 ;;=CERVICAL^6^126
+59 ;;^UTILITY(U,$J,358.4,1648,0)
+60 ;;=BREAST^5^126
+61 ;;^UTILITY(U,$J,358.4,1649,0)
+62 ;;=BLEEDING (NON-PREGNANT)^4^126
+63 ;;^UTILITY(U,$J,358.4,1650,0)
+64 ;;=ADNEXA^2^126
+65 ;;^UTILITY(U,$J,358.4,1651,0)
+66 ;;=GENERAL-GLOBAL^1^126
+67 ;;^UTILITY(U,$J,358.4,1652,0)
+68 ;;=SUICIDE IDEATIONS/ATTEMPTS^30^126
+69 ;;^UTILITY(U,$J,358.4,1653,0)
+70 ;;=ESTABLISHED PATIENT^1^127
+71 ;;^UTILITY(U,$J,358.4,1654,0)
+72 ;;=NEW PATIENT^2^127
+73 ;;^UTILITY(U,$J,358.4,1655,0)
+74 ;;=CONSULTATION^3^127
+75 ;;^UTILITY(U,$J,358.4,1656,0)
+76 ;;=DIABETES TYPE 2/TYPE 1^16^128
+77 ;;^UTILITY(U,$J,358.4,1657,0)
+78 ;;=GLAUCOMA-LTG/PIGMENT/PSEUDOEX^20^128
+79 ;;^UTILITY(U,$J,358.4,1658,0)
+80 ;;=LENS/CATARACT^7^128
+81 ;;^UTILITY(U,$J,358.4,1659,0)
+82 ;;=LIDS/LASHES/DRY EYE^4^128
+83 ;;^UTILITY(U,$J,358.4,1660,0)
+84 ;;=MACULA^8^128
+85 ;;^UTILITY(U,$J,358.4,1661,0)
+86 ;;=RETINA-VASCULAR^10^128
+87 ;;^UTILITY(U,$J,358.4,1662,0)
+88 ;;=REFRACTIVE/VF/OTHER^3^128
+89 ;;^UTILITY(U,$J,358.4,1663,0)
+90 ;;=CATEGORIES OF VISION LOSS^2^128
+91 ;;^UTILITY(U,$J,358.4,1664,0)
+92 ;;=GLOBE/ORBIT/PAIN^13^128
+93 ;;^UTILITY(U,$J,358.4,1665,0)
+94 ;;=MOST FREQUENT^1^128
+95 ;;^UTILITY(U,$J,358.4,1666,0)
+96 ;;=CONJUNCTIVA/SCLERA^5^128
+97 ;;^UTILITY(U,$J,358.4,1667,0)
+98 ;;=CORNEA/PUPILS/IRIS^6^128
+99 ;;^UTILITY(U,$J,358.4,1668,0)
+100 ;;=GLAUCOMA-OPEN ANGLE^19^128
+101 ;;^UTILITY(U,$J,358.4,1669,0)
+102 ;;=GLAUCOMA-SUSPECT/OHTN^18^128
+103 ;;^UTILITY(U,$J,358.4,1670,0)
+104 ;;=GLAUCOMA-OTHER^21^128
+105 ;;^UTILITY(U,$J,358.4,1671,0)
+106 ;;=MACULA-AMD^9^128
+107 ;;^UTILITY(U,$J,358.4,1672,0)
+108 ;;=CHOROID/RETINA/RD^11^128
+109 ;;^UTILITY(U,$J,358.4,1673,0)
+110 ;;=VITREOUS^12^128
+111 ;;^UTILITY(U,$J,358.4,1674,0)
+112 ;;=OPTIC NERVE/VISUAL PATHWAY^14^128
+113 ;;^UTILITY(U,$J,358.4,1675,0)
+114 ;;=NEURO/STRABISMUS/EYE MOVEMENT^15^128
