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

IBDEI3I0.m

Go to the documentation of this file.
IBDEI3I0 ; ; 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,313,0)
 ;;=INTENSIVE CARE^5^36
 ;;^UTILITY(U,$J,358.4,314,0)
 ;;=TELE-HEALTH ICU^9^36
 ;;^UTILITY(U,$J,358.4,315,0)
 ;;=BRAIN^1^37
 ;;^UTILITY(U,$J,358.4,316,0)
 ;;=DIGESTIVE^2^37
 ;;^UTILITY(U,$J,358.4,317,0)
 ;;=ENDOCRINE^3^37
 ;;^UTILITY(U,$J,358.4,318,0)
 ;;=HEART^4^37
 ;;^UTILITY(U,$J,358.4,319,0)
 ;;=LIVER^5^37
 ;;^UTILITY(U,$J,358.4,320,0)
 ;;=LUNGS^6^37
 ;;^UTILITY(U,$J,358.4,321,0)
 ;;=MUSCULOSKELETAL^7^37
 ;;^UTILITY(U,$J,358.4,322,0)
 ;;=OTHER^8^37
 ;;^UTILITY(U,$J,358.4,323,0)
 ;;=POSTOPERATIVE COMPLICATIONS^9^37
 ;;^UTILITY(U,$J,358.4,324,0)
 ;;=SEPSIS^10^37
 ;;^UTILITY(U,$J,358.4,325,0)
 ;;=URINARY TRACT^11^37
 ;;^UTILITY(U,$J,358.4,326,0)
 ;;=NEW PATIENT^2^38
 ;;^UTILITY(U,$J,358.4,327,0)
 ;;=ESTABLISHED PATIENT^1^38
 ;;^UTILITY(U,$J,358.4,328,0)
 ;;=CONSULTATIONS^3^38
 ;;^UTILITY(U,$J,358.4,329,0)
 ;;=BIOPSY/DEBRIDEMENT^1^39
 ;;^UTILITY(U,$J,358.4,330,0)
 ;;=I&D/ASPIRATION^10^39
 ;;^UTILITY(U,$J,358.4,331,0)
 ;;=DESTRUCT-BENIGN/PREMALIG LESIONS^3^39
 ;;^UTILITY(U,$J,358.4,332,0)
 ;;=PARING/CUTTING^16^39
 ;;^UTILITY(U,$J,358.4,333,0)
 ;;=EXCISE BENIGN-SCALP/NECK/HAND/GENITAL/FT^5^39
 ;;^UTILITY(U,$J,358.4,334,0)
 ;;=EXCISE BENIGN-FACE/EAR/NOSE/LIP/LID^4^39
 ;;^UTILITY(U,$J,358.4,335,0)
 ;;=EXCISION BENIGN-TRUNK/ARM/LEG^6^39
 ;;^UTILITY(U,$J,358.4,336,0)
 ;;=EXCISE MALIG-FACE/EAR/NOSE/LIP/LID^7^39
 ;;^UTILITY(U,$J,358.4,337,0)
 ;;=EXCISE MALIG-SCALP/NECK/HAND/GENITAL/FT^8^39
 ;;^UTILITY(U,$J,358.4,338,0)
 ;;=EXCISION MALIG-TRUNK/ARM/LEG^9^39
 ;;^UTILITY(U,$J,358.4,339,0)
 ;;=REPAIR,SIMPLE-SCALP/NECK/TRUNK/EXTREM^21^39
 ;;^UTILITY(U,$J,358.4,340,0)
 ;;=REPAIR,SIMPLE-FACE/EAR/NOSE/LID/LIP^20^39
 ;;^UTILITY(U,$J,358.4,341,0)
 ;;=REPAIR,INTERMED-SCALP/TRUNK/LEG/ARM^19^39
 ;;^UTILITY(U,$J,358.4,342,0)
 ;;=REPAIR,INTERMED-FACE/EAR/NOSE/LID/LIP^17^39
 ;;^UTILITY(U,$J,358.4,343,0)
 ;;=REPAIR,INTERMED-NECK/HAND/GENITAL/FT^18^39
 ;;^UTILITY(U,$J,358.4,344,0)
 ;;=REPAIR-SIMPLE WOUND DEHISCENCE^22^39
 ;;^UTILITY(U,$J,358.4,345,0)
 ;;=NURSING PROCEDURES^14^39
 ;;^UTILITY(U,$J,358.4,346,0)
 ;;=BLOOD^2^39
 ;;^UTILITY(U,$J,358.4,347,0)
 ;;=IV INFUSION^11^39
 ;;^UTILITY(U,$J,358.4,348,0)
 ;;=MEDICATION^12^39
 ;;^UTILITY(U,$J,358.4,349,0)
 ;;=MEDICATION ADMINISTATION^13^39
 ;;^UTILITY(U,$J,358.4,350,0)
 ;;=PARACENTESIS^15^39
 ;;^UTILITY(U,$J,358.4,351,0)
 ;;=OTHER^23^39
 ;;^UTILITY(U,$J,358.4,352,0)
 ;;=ABDOMINAL PAIN^1^40
 ;;^UTILITY(U,$J,358.4,353,0)
 ;;=AFTERCARE POST SURGERY^2^40
 ;;^UTILITY(U,$J,358.4,354,0)
 ;;=BENIGN LESIONS OF SKIN^3^40
 ;;^UTILITY(U,$J,358.4,355,0)
 ;;=BREAST-FEMALE^5^40
 ;;^UTILITY(U,$J,358.4,356,0)
 ;;=BREAST-MALE^6^40
 ;;^UTILITY(U,$J,358.4,357,0)
 ;;=CARDIOVASCULAR^7^40
 ;;^UTILITY(U,$J,358.4,358,0)
 ;;=CIRRHOSIS^8^40
 ;;^UTILITY(U,$J,358.4,359,0)
 ;;=COLITIS^9^40
 ;;^UTILITY(U,$J,358.4,360,0)
 ;;=CROHN'S^10^40
 ;;^UTILITY(U,$J,358.4,361,0)
 ;;=DIVERTICULITIS^11^40
 ;;^UTILITY(U,$J,358.4,362,0)
 ;;=DIVERTICULOSIS^12^40
 ;;^UTILITY(U,$J,358.4,363,0)
 ;;=ENT^13^40
 ;;^UTILITY(U,$J,358.4,364,0)
 ;;=GANGLION^14^40
 ;;^UTILITY(U,$J,358.4,365,0)
 ;;=GANGRENE^15^40
 ;;^UTILITY(U,$J,358.4,366,0)
 ;;=GENERAL SIGNS/SYMPTOMS^16^40
 ;;^UTILITY(U,$J,358.4,367,0)
 ;;=GI^17^40
 ;;^UTILITY(U,$J,358.4,368,0)
 ;;=GYN^18^40
 ;;^UTILITY(U,$J,358.4,369,0)
 ;;=HEMORRHOIDS^19^40
 ;;^UTILITY(U,$J,358.4,370,0)
 ;;=INTESTINAL ABSCESS^20^40
 ;;^UTILITY(U,$J,358.4,371,0)
 ;;=LACERATION^21^40
 ;;^UTILITY(U,$J,358.4,372,0)
 ;;=MALIGNANT SKIN LESION^23^40
 ;;^UTILITY(U,$J,358.4,373,0)
 ;;=MELANOMA^24^40
 ;;^UTILITY(U,$J,358.4,374,0)
 ;;=MERKEL CELL CARCINOMA^25^40
 ;;^UTILITY(U,$J,358.4,375,0)
 ;;=OPEN WOUND^26^40