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

IBDEI2A4.m

Go to the documentation of this file.
IBDEI2A4 ; ; 04-FEB-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
 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,36404,1,4,0)
 ;;=4^S68.117A
 ;;^UTILITY(U,$J,358.3,36404,2)
 ;;=^5036660
 ;;^UTILITY(U,$J,358.3,36405,0)
 ;;=S68.113A^^142^1863^56
 ;;^UTILITY(U,$J,358.3,36405,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36405,1,3,0)
 ;;=3^Amputation,Traumatic,Left MCP Middle Finger,Init Encntr
 ;;^UTILITY(U,$J,358.3,36405,1,4,0)
 ;;=4^S68.113A
 ;;^UTILITY(U,$J,358.3,36405,2)
 ;;=^5036648
 ;;^UTILITY(U,$J,358.3,36406,0)
 ;;=S68.115A^^142^1863^57
 ;;^UTILITY(U,$J,358.3,36406,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36406,1,3,0)
 ;;=3^Amputation,Traumatic,Left MCP Ring Finger,Init Encntr
 ;;^UTILITY(U,$J,358.3,36406,1,4,0)
 ;;=4^S68.115A
 ;;^UTILITY(U,$J,358.3,36406,2)
 ;;=^5036654
 ;;^UTILITY(U,$J,358.3,36407,0)
 ;;=S68.012A^^142^1863^58
 ;;^UTILITY(U,$J,358.3,36407,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36407,1,3,0)
 ;;=3^Amputation,Traumatic,Left MCP Thumb,Init Encntr
 ;;^UTILITY(U,$J,358.3,36407,1,4,0)
 ;;=4^S68.012A
 ;;^UTILITY(U,$J,358.3,36407,2)
 ;;=^5036624
 ;;^UTILITY(U,$J,358.3,36408,0)
 ;;=S68.611A^^142^1863^61
 ;;^UTILITY(U,$J,358.3,36408,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36408,1,3,0)
 ;;=3^Amputation,Traumatic,Left Trnsphal Index Finger,Init Encntr
 ;;^UTILITY(U,$J,358.3,36408,1,4,0)
 ;;=4^S68.611A
 ;;^UTILITY(U,$J,358.3,36408,2)
 ;;=^5036738
 ;;^UTILITY(U,$J,358.3,36409,0)
 ;;=S68.617A^^142^1863^62
 ;;^UTILITY(U,$J,358.3,36409,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36409,1,3,0)
 ;;=3^Amputation,Traumatic,Left Trnsphal Little Finger,Init Encntr
 ;;^UTILITY(U,$J,358.3,36409,1,4,0)
 ;;=4^S68.617A
 ;;^UTILITY(U,$J,358.3,36409,2)
 ;;=^5036756
 ;;^UTILITY(U,$J,358.3,36410,0)
 ;;=S68.613A^^142^1863^63
 ;;^UTILITY(U,$J,358.3,36410,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36410,1,3,0)
 ;;=3^Amputation,Traumatic,Left Trnsphal Middle Finger,Init Encntr
 ;;^UTILITY(U,$J,358.3,36410,1,4,0)
 ;;=4^S68.613A
 ;;^UTILITY(U,$J,358.3,36410,2)
 ;;=^5036744
 ;;^UTILITY(U,$J,358.3,36411,0)
 ;;=S68.615A^^142^1863^64
 ;;^UTILITY(U,$J,358.3,36411,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36411,1,3,0)
 ;;=3^Amputation,Traumatic,Left Trnsphal Ring Finger,Init Encntr
 ;;^UTILITY(U,$J,358.3,36411,1,4,0)
 ;;=4^S68.615A
 ;;^UTILITY(U,$J,358.3,36411,2)
 ;;=^5036750
 ;;^UTILITY(U,$J,358.3,36412,0)
 ;;=S68.512A^^142^1863^65
 ;;^UTILITY(U,$J,358.3,36412,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36412,1,3,0)
 ;;=3^Amputation,Traumatic,Left Trnsphal Thumb,Init Encntr
 ;;^UTILITY(U,$J,358.3,36412,1,4,0)
 ;;=4^S68.512A
 ;;^UTILITY(U,$J,358.3,36412,2)
 ;;=^5036720
 ;;^UTILITY(U,$J,358.3,36413,0)
 ;;=S58.111A^^142^1863^68
 ;;^UTILITY(U,$J,358.3,36413,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36413,1,3,0)
 ;;=3^Amputation,Traumatic,Right Arm Between Elbow & Wrist Level,Init Encntr
 ;;^UTILITY(U,$J,358.3,36413,1,4,0)
 ;;=4^S58.111A
 ;;^UTILITY(U,$J,358.3,36413,2)
 ;;=^5031925
 ;;^UTILITY(U,$J,358.3,36414,0)
 ;;=S98.131A^^142^1863^66
 ;;^UTILITY(U,$J,358.3,36414,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36414,1,3,0)
 ;;=3^Amputation,Traumatic,Right 1 Lesser Toe,Init Encntr
 ;;^UTILITY(U,$J,358.3,36414,1,4,0)
 ;;=4^S98.131A
 ;;^UTILITY(U,$J,358.3,36414,2)
 ;;=^5046281
 ;;^UTILITY(U,$J,358.3,36415,0)
 ;;=S98.011A^^142^1863^69
 ;;^UTILITY(U,$J,358.3,36415,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36415,1,3,0)
 ;;=3^Amputation,Traumatic,Right Foot at Ankle Level,Init Encntr
 ;;^UTILITY(U,$J,358.3,36415,1,4,0)
 ;;=4^S98.011A