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

IBDEI3B0.m

Go to the documentation of this file.
IBDEI3B0 ; ; 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,463,0)
 ;;=ENDOCRINE DISORDER^4^58
 ;;^UTILITY(U,$J,358.4,464,0)
 ;;=HEARING DISORDER^6^58
 ;;^UTILITY(U,$J,358.4,465,0)
 ;;=GASTROINTESTINAL DISORDER^5^58
 ;;^UTILITY(U,$J,358.4,466,0)
 ;;=INJURIES^8^58
 ;;^UTILITY(U,$J,358.4,467,0)
 ;;=NEOPLASM^11^58
 ;;^UTILITY(U,$J,358.4,468,0)
 ;;=RESPIRATORY DISORDER^13^58
 ;;^UTILITY(U,$J,358.4,469,0)
 ;;=SIGNS AND SYMPTOMS^15^58
 ;;^UTILITY(U,$J,358.4,470,0)
 ;;=SUBSTANCE DISORDERS^16^58
 ;;^UTILITY(U,$J,358.4,471,0)
 ;;=WEIGHT MANAGEMENT^18^58
 ;;^UTILITY(U,$J,358.4,472,0)
 ;;=MOOD DISORDER^9^58
 ;;^UTILITY(U,$J,358.4,473,0)
 ;;=MUSCULOSKELETAL DISORDER^10^58
 ;;^UTILITY(U,$J,358.4,474,0)
 ;;=NEUROLOGICAL^12^58
 ;;^UTILITY(U,$J,358.4,475,0)
 ;;=SUICIDE IDEATIONS/ATTEMPTS^17^58
 ;;^UTILITY(U,$J,358.4,476,0)
 ;;=ESTABLISHED PATIENT^1^59
 ;;^UTILITY(U,$J,358.4,477,0)
 ;;=NEW PATIENT^2^59
 ;;^UTILITY(U,$J,358.4,478,0)
 ;;=INPATIENT ADMISSION VISIT^2^61
 ;;^UTILITY(U,$J,358.4,479,0)
 ;;=INPATIENT CONSULTS^1^61
 ;;^UTILITY(U,$J,358.4,480,0)
 ;;=INPATIENT SUBSEQUENT VISIT^3^61
 ;;^UTILITY(U,$J,358.4,481,0)
 ;;=DISCHARGE VISIT^4^61
 ;;^UTILITY(U,$J,358.4,482,0)
 ;;=OBSERVATION ADMISSION^5^61
 ;;^UTILITY(U,$J,358.4,483,0)
 ;;=OBSERVATION DISCHARGE^7^61
 ;;^UTILITY(U,$J,358.4,484,0)
 ;;=OBSERVATION SUBSEQUENT VISIT^6^61
 ;;^UTILITY(U,$J,358.4,485,0)
 ;;=BEDSIDE PROCEDURES^1^62
 ;;^UTILITY(U,$J,358.4,486,0)
 ;;=BLOODS,ARTERIAL & VENOUS^2^62
 ;;^UTILITY(U,$J,358.4,487,0)
 ;;=BRONCHOSCOPY^3^62
 ;;^UTILITY(U,$J,358.4,488,0)
 ;;=EXERCISE TESTING^4^62
 ;;^UTILITY(U,$J,358.4,489,0)
 ;;=OXIMETRY^6^62
 ;;^UTILITY(U,$J,358.4,490,0)
 ;;=PULMONARY FUCTION TESTING^7^62
 ;;^UTILITY(U,$J,358.4,491,0)
 ;;=RESPIRATORY THERAPY^8^62
 ;;^UTILITY(U,$J,358.4,492,0)
 ;;=THORACENTESIS^10^62
 ;;^UTILITY(U,$J,358.4,493,0)
 ;;=INTENSIVE CARE^5^62
 ;;^UTILITY(U,$J,358.4,494,0)
 ;;=TELE-HEALTH ICU^9^62
 ;;^UTILITY(U,$J,358.4,495,0)
 ;;=BRAIN^1^63
 ;;^UTILITY(U,$J,358.4,496,0)
 ;;=DIGESTIVE^2^63
 ;;^UTILITY(U,$J,358.4,497,0)
 ;;=ENDOCRINE^3^63
 ;;^UTILITY(U,$J,358.4,498,0)
 ;;=HEART^4^63
 ;;^UTILITY(U,$J,358.4,499,0)
 ;;=LIVER^5^63
 ;;^UTILITY(U,$J,358.4,500,0)
 ;;=LUNGS^6^63
 ;;^UTILITY(U,$J,358.4,501,0)
 ;;=MUSCULOSKELETAL^7^63
 ;;^UTILITY(U,$J,358.4,502,0)
 ;;=OTHER^8^63
 ;;^UTILITY(U,$J,358.4,503,0)
 ;;=POSTOPERATIVE COMPLICATIONS^9^63
 ;;^UTILITY(U,$J,358.4,504,0)
 ;;=SEPSIS^10^63
 ;;^UTILITY(U,$J,358.4,505,0)
 ;;=URINARY TRACT^12^63
 ;;^UTILITY(U,$J,358.4,506,0)
 ;;=SUICIDE IDEATIONS/ATTEMPTS^11^63
 ;;^UTILITY(U,$J,358.4,507,0)
 ;;=NEW PATIENT^2^64
 ;;^UTILITY(U,$J,358.4,508,0)
 ;;=ESTABLISHED PATIENT^1^64
 ;;^UTILITY(U,$J,358.4,509,0)
 ;;=CONSULTATIONS^3^64
 ;;^UTILITY(U,$J,358.4,510,0)
 ;;=POST-OP FOLLOW-UP^4^64
 ;;^UTILITY(U,$J,358.4,511,0)
 ;;=A DIAGNOSES^1^65
 ;;^UTILITY(U,$J,358.4,512,0)
 ;;=D DIAGNOSES^4^65
 ;;^UTILITY(U,$J,358.4,513,0)
 ;;=E DIAGNOSES^5^65
 ;;^UTILITY(U,$J,358.4,514,0)
 ;;=F DIAGNOSES^6^65
 ;;^UTILITY(U,$J,358.4,515,0)
 ;;=I DIAGNOSES^9^65
 ;;^UTILITY(U,$J,358.4,516,0)
 ;;=K DIAGNOSES^10^65
 ;;^UTILITY(U,$J,358.4,517,0)
 ;;=M DIAGNOSES^12^65
 ;;^UTILITY(U,$J,358.4,518,0)
 ;;=N DIAGNOSES^13^65
 ;;^UTILITY(U,$J,358.4,519,0)
 ;;=P DIAGNOSES^15^65
 ;;^UTILITY(U,$J,358.4,520,0)
 ;;=R DIAGNOSES^16^65
 ;;^UTILITY(U,$J,358.4,521,0)
 ;;=S DIAGNOSES^17^65
 ;;^UTILITY(U,$J,358.4,522,0)
 ;;=T DIAGNOSES^19^65
 ;;^UTILITY(U,$J,358.4,523,0)
 ;;=V DIAGNOSES^21^65
 ;;^UTILITY(U,$J,358.4,524,0)
 ;;=X DIAGNOSES^23^65