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

IBDEI3B5.m

Go to the documentation of this file.
  1. IBDEI3B5 ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,358.4,754,0)
  1. ;;=NON-THERMAL ULTRASOUND^6^79
  1. ;;^UTILITY(U,$J,358.4,755,0)
  1. ;;=ABDOMINAL PAIN^1^80
  1. ;;^UTILITY(U,$J,358.4,756,0)
  1. ;;=AFTERCARE POST SURGERY^2^80
  1. ;;^UTILITY(U,$J,358.4,757,0)
  1. ;;=BENIGN LESIONS OF SKIN^3^80
  1. ;;^UTILITY(U,$J,358.4,758,0)
  1. ;;=BREAST-FEMALE^5^80
  1. ;;^UTILITY(U,$J,358.4,759,0)
  1. ;;=BREAST-MALE^6^80
  1. ;;^UTILITY(U,$J,358.4,760,0)
  1. ;;=CARDIOVASCULAR^7^80
  1. ;;^UTILITY(U,$J,358.4,761,0)
  1. ;;=CIRRHOSIS^8^80
  1. ;;^UTILITY(U,$J,358.4,762,0)
  1. ;;=COLITIS^9^80
  1. ;;^UTILITY(U,$J,358.4,763,0)
  1. ;;=CROHN'S^10^80
  1. ;;^UTILITY(U,$J,358.4,764,0)
  1. ;;=DIVERTICULITIS^11^80
  1. ;;^UTILITY(U,$J,358.4,765,0)
  1. ;;=DIVERTICULOSIS^12^80
  1. ;;^UTILITY(U,$J,358.4,766,0)
  1. ;;=ENT^13^80
  1. ;;^UTILITY(U,$J,358.4,767,0)
  1. ;;=GANGLION^14^80
  1. ;;^UTILITY(U,$J,358.4,768,0)
  1. ;;=GANGRENE^15^80
  1. ;;^UTILITY(U,$J,358.4,769,0)
  1. ;;=GENERAL SIGNS/SYMPTOMS^16^80
  1. ;;^UTILITY(U,$J,358.4,770,0)
  1. ;;=GI^17^80
  1. ;;^UTILITY(U,$J,358.4,771,0)
  1. ;;=GYN^18^80
  1. ;;^UTILITY(U,$J,358.4,772,0)
  1. ;;=HEMORRHOIDS^19^80
  1. ;;^UTILITY(U,$J,358.4,773,0)
  1. ;;=INTESTINAL ABSCESS^22^80
  1. ;;^UTILITY(U,$J,358.4,774,0)
  1. ;;=LACERATION^24^80
  1. ;;^UTILITY(U,$J,358.4,775,0)
  1. ;;=MALIGNANT SKIN LESION^25^80
  1. ;;^UTILITY(U,$J,358.4,776,0)
  1. ;;=MELANOMA^26^80
  1. ;;^UTILITY(U,$J,358.4,777,0)
  1. ;;=MERKEL CELL CARCINOMA^27^80
  1. ;;^UTILITY(U,$J,358.4,778,0)
  1. ;;=OPEN WOUND^28^80
  1. ;;^UTILITY(U,$J,358.4,779,0)
  1. ;;=ORTHO^29^80
  1. ;;^UTILITY(U,$J,358.4,780,0)
  1. ;;=OTHER INJURY^30^80
  1. ;;^UTILITY(U,$J,358.4,781,0)
  1. ;;=PAIN IN EXTREMITIES^31^80
  1. ;;^UTILITY(U,$J,358.4,782,0)
  1. ;;=INFECTION^21^80
  1. ;;^UTILITY(U,$J,358.4,783,0)
  1. ;;=POSTPROCEDURAL COMPLICATION^32^80
  1. ;;^UTILITY(U,$J,358.4,784,0)
  1. ;;=RESPIRATORY^35^80
  1. ;;^UTILITY(U,$J,358.4,785,0)
  1. ;;=TRIGGER FINGER^37^80
  1. ;;^UTILITY(U,$J,358.4,786,0)
  1. ;;=ULCER^38^80
  1. ;;^UTILITY(U,$J,358.4,787,0)
  1. ;;=UROLOGY^39^80
  1. ;;^UTILITY(U,$J,358.4,788,0)
  1. ;;=VARICOSE VEINS^40^80
  1. ;;^UTILITY(U,$J,358.4,789,0)
  1. ;;=INTRAOPERATIVE COMPLICATIONS^23^80
  1. ;;^UTILITY(U,$J,358.4,790,0)
  1. ;;=BITE^4^80
  1. ;;^UTILITY(U,$J,358.4,791,0)
  1. ;;=PUNCTURE WOUND^34^80
  1. ;;^UTILITY(U,$J,358.4,792,0)
  1. ;;=PREOPERATIVE EXAMS^33^80
  1. ;;^UTILITY(U,$J,358.4,793,0)
  1. ;;=HERNIA^20^80
  1. ;;^UTILITY(U,$J,358.4,794,0)
  1. ;;=SUICIDE IDEATIONS/ATTEMPTS^36^80
  1. ;;^UTILITY(U,$J,358.4,795,0)
  1. ;;=NEW PATIENT^2^81
  1. ;;^UTILITY(U,$J,358.4,796,0)
  1. ;;=ESTABLISHED PATIENT^1^81
  1. ;;^UTILITY(U,$J,358.4,797,0)
  1. ;;=CONSULTATIONS^3^81
  1. ;;^UTILITY(U,$J,358.4,798,0)
  1. ;;=COMPREHENSIVE ASSESSMENT/TREATMENT^2^82
  1. ;;^UTILITY(U,$J,358.4,799,0)
  1. ;;=VACCINE ADMINISTRATION^7^82
  1. ;;^UTILITY(U,$J,358.4,800,0)
  1. ;;=INJECTION ADMINISTRATION^3^82
  1. ;;^UTILITY(U,$J,358.4,801,0)
  1. ;;=INJECTIONS-DRUGS/MEDICATIONS^4^82
  1. ;;^UTILITY(U,$J,358.4,802,0)
  1. ;;=VACCINES^8^82
  1. ;;^UTILITY(U,$J,358.4,803,0)
  1. ;;=ADVANCE CARE PLANNING^1^82
  1. ;;^UTILITY(U,$J,358.4,804,0)
  1. ;;=PROLONGED SERVICES^6^82
  1. ;;^UTILITY(U,$J,358.4,805,0)
  1. ;;=NURSING PROCEDURES^5^82
  1. ;;^UTILITY(U,$J,358.4,806,0)
  1. ;;=DEMENTIA/COGNITIVE^6^83
  1. ;;^UTILITY(U,$J,358.4,807,0)
  1. ;;=MENTAL HEALTH^18^83
  1. ;;^UTILITY(U,$J,358.4,808,0)
  1. ;;=ABDOMINAL/GASTRO/DIGESTIVE^1^83
  1. ;;^UTILITY(U,$J,358.4,809,0)
  1. ;;=ANEMIA/BLOOD^2^83
  1. ;;^UTILITY(U,$J,358.4,810,0)
  1. ;;=BREAST/SKIN/HAIR/NAIL/SOFT TISSUE^3^83
  1. ;;^UTILITY(U,$J,358.4,811,0)
  1. ;;=CANCER^4^83
  1. ;;^UTILITY(U,$J,358.4,812,0)
  1. ;;=CARDIO/VASCULAR^5^83
  1. ;;^UTILITY(U,$J,358.4,813,0)
  1. ;;=EAR/HEARING^7^83
  1. ;;^UTILITY(U,$J,358.4,814,0)
  1. ;;=EAR/HEARING-VESTIBULAR FUNCTION^8^83