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

IBDEI0PK.m

Go to the documentation of this file.
IBDEI0PK ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
 Q:'DIFQR(358.3)  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.3,11491,1,4,0)
 ;;=4^T80.211A
 ;;^UTILITY(U,$J,358.3,11491,2)
 ;;=^5054350
 ;;^UTILITY(U,$J,358.3,11492,0)
 ;;=T80.211D^^46^556^4
 ;;^UTILITY(U,$J,358.3,11492,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11492,1,3,0)
 ;;=3^Bloodstream Infection d/t Central Venous Catheter,Subs Encntr
 ;;^UTILITY(U,$J,358.3,11492,1,4,0)
 ;;=4^T80.211D
 ;;^UTILITY(U,$J,358.3,11492,2)
 ;;=^5054351
 ;;^UTILITY(U,$J,358.3,11493,0)
 ;;=E83.59^^46^556^5
 ;;^UTILITY(U,$J,358.3,11493,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11493,1,3,0)
 ;;=3^Calciphylaxis
 ;;^UTILITY(U,$J,358.3,11493,1,4,0)
 ;;=4^E83.59
 ;;^UTILITY(U,$J,358.3,11493,2)
 ;;=^5003006
 ;;^UTILITY(U,$J,358.3,11494,0)
 ;;=T85.621A^^46^556^8
 ;;^UTILITY(U,$J,358.3,11494,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11494,1,3,0)
 ;;=3^Displacement of Intraperitoneal Dialysis Catheter,Init Encntr
 ;;^UTILITY(U,$J,358.3,11494,1,4,0)
 ;;=4^T85.621A
 ;;^UTILITY(U,$J,358.3,11494,2)
 ;;=^5055625
 ;;^UTILITY(U,$J,358.3,11495,0)
 ;;=T85.621D^^46^556^9
 ;;^UTILITY(U,$J,358.3,11495,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11495,1,3,0)
 ;;=3^Displacement of Intraperitoneal Dialysis Catheter,Subs Encntr
 ;;^UTILITY(U,$J,358.3,11495,1,4,0)
 ;;=4^T85.621D
 ;;^UTILITY(U,$J,358.3,11495,2)
 ;;=^5055626
 ;;^UTILITY(U,$J,358.3,11496,0)
 ;;=K65.0^^46^556^10
 ;;^UTILITY(U,$J,358.3,11496,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11496,1,3,0)
 ;;=3^Generalized (acute) Peritonitis
 ;;^UTILITY(U,$J,358.3,11496,1,4,0)
 ;;=4^K65.0
 ;;^UTILITY(U,$J,358.3,11496,2)
 ;;=^332799
 ;;^UTILITY(U,$J,358.3,11497,0)
 ;;=G60.9^^46^556^14
 ;;^UTILITY(U,$J,358.3,11497,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11497,1,3,0)
 ;;=3^Hereditary & Idiopathic Neuropathy,Unspec
 ;;^UTILITY(U,$J,358.3,11497,1,4,0)
 ;;=4^G60.9
 ;;^UTILITY(U,$J,358.3,11497,2)
 ;;=^5004071
 ;;^UTILITY(U,$J,358.3,11498,0)
 ;;=T82.838A^^46^556^12
 ;;^UTILITY(U,$J,358.3,11498,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11498,1,3,0)
 ;;=3^Hemorrhage of Vascular Graft/Fistula,Init Encntr
 ;;^UTILITY(U,$J,358.3,11498,1,4,0)
 ;;=4^T82.838A
 ;;^UTILITY(U,$J,358.3,11498,2)
 ;;=^5054929
 ;;^UTILITY(U,$J,358.3,11499,0)
 ;;=T82.838D^^46^556^13
 ;;^UTILITY(U,$J,358.3,11499,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11499,1,3,0)
 ;;=3^Hemorrhage of Vascular Graft/Fistula,Subs Encntr
 ;;^UTILITY(U,$J,358.3,11499,1,4,0)
 ;;=4^T82.838D
 ;;^UTILITY(U,$J,358.3,11499,2)
 ;;=^5054930
 ;;^UTILITY(U,$J,358.3,11500,0)
 ;;=E83.81^^46^556^15
 ;;^UTILITY(U,$J,358.3,11500,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11500,1,3,0)
 ;;=3^Hungry Bone Syndrome
 ;;^UTILITY(U,$J,358.3,11500,1,4,0)
 ;;=4^E83.81
 ;;^UTILITY(U,$J,358.3,11500,2)
 ;;=^336538
 ;;^UTILITY(U,$J,358.3,11501,0)
 ;;=T85.71XA^^46^556^21
 ;;^UTILITY(U,$J,358.3,11501,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11501,1,3,0)
 ;;=3^Infection d/t Peritoneal Dialysis Catheter,Init Encntr
 ;;^UTILITY(U,$J,358.3,11501,1,4,0)
 ;;=4^T85.71XA
 ;;^UTILITY(U,$J,358.3,11501,2)
 ;;=^5055670
 ;;^UTILITY(U,$J,358.3,11502,0)
 ;;=T85.71XD^^46^556^22
 ;;^UTILITY(U,$J,358.3,11502,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11502,1,3,0)
 ;;=3^Infection d/t Peritoneal Dialysis Catheter,Subs Encntr
 ;;^UTILITY(U,$J,358.3,11502,1,4,0)
 ;;=4^T85.71XD
 ;;^UTILITY(U,$J,358.3,11502,2)
 ;;=^5055671
 ;;^UTILITY(U,$J,358.3,11503,0)
 ;;=T82.7XXA^^46^556^19
 ;;^UTILITY(U,$J,358.3,11503,1,0)
 ;;=^358.31IA^4^2