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

IBDEI2AL.m

Go to the documentation of this file.
IBDEI2AL ; ; 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,36603,0)
 ;;=S68.126A^^142^1863^38
 ;;^UTILITY(U,$J,358.3,36603,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36603,1,3,0)
 ;;=3^Amputation,Partial Traumatic Right MCP Little Finger,Init Encntr
 ;;^UTILITY(U,$J,358.3,36603,1,4,0)
 ;;=4^S68.126A
 ;;^UTILITY(U,$J,358.3,36603,2)
 ;;=^5036687
 ;;^UTILITY(U,$J,358.3,36604,0)
 ;;=S68.122A^^142^1863^39
 ;;^UTILITY(U,$J,358.3,36604,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36604,1,3,0)
 ;;=3^Amputation,Partial Traumatic Right MCP Middle Finger,Init Encntr
 ;;^UTILITY(U,$J,358.3,36604,1,4,0)
 ;;=4^S68.122A
 ;;^UTILITY(U,$J,358.3,36604,2)
 ;;=^5036675
 ;;^UTILITY(U,$J,358.3,36605,0)
 ;;=S68.124A^^142^1863^40
 ;;^UTILITY(U,$J,358.3,36605,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36605,1,3,0)
 ;;=3^Amputation,Partial Traumatic Right MCP Ring Finger,Init Encntr
 ;;^UTILITY(U,$J,358.3,36605,1,4,0)
 ;;=4^S68.124A
 ;;^UTILITY(U,$J,358.3,36605,2)
 ;;=^5036681
 ;;^UTILITY(U,$J,358.3,36606,0)
 ;;=S68.021A^^142^1863^41
 ;;^UTILITY(U,$J,358.3,36606,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36606,1,3,0)
 ;;=3^Amputation,Partial Traumatic Right MCP Thumb,Init Encntr
 ;;^UTILITY(U,$J,358.3,36606,1,4,0)
 ;;=4^S68.021A
 ;;^UTILITY(U,$J,358.3,36606,2)
 ;;=^5036630
 ;;^UTILITY(U,$J,358.3,36607,0)
 ;;=S68.620A^^142^1863^44
 ;;^UTILITY(U,$J,358.3,36607,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36607,1,3,0)
 ;;=3^Amputation,Partial Traumatic Right Trnsphal Index Finger,Init Encntr
 ;;^UTILITY(U,$J,358.3,36607,1,4,0)
 ;;=4^S68.620A
 ;;^UTILITY(U,$J,358.3,36607,2)
 ;;=^5036765
 ;;^UTILITY(U,$J,358.3,36608,0)
 ;;=S68.626A^^142^1863^45
 ;;^UTILITY(U,$J,358.3,36608,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36608,1,3,0)
 ;;=3^Amputation,Partial Traumatic Right Trnsphal Little Finger,Init Encntr
 ;;^UTILITY(U,$J,358.3,36608,1,4,0)
 ;;=4^S68.626A
 ;;^UTILITY(U,$J,358.3,36608,2)
 ;;=^5036783
 ;;^UTILITY(U,$J,358.3,36609,0)
 ;;=S68.622A^^142^1863^46
 ;;^UTILITY(U,$J,358.3,36609,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36609,1,3,0)
 ;;=3^Amputation,Partial Traumatic Right Trnsphal Middle Finger,Init Encntr
 ;;^UTILITY(U,$J,358.3,36609,1,4,0)
 ;;=4^S68.622A
 ;;^UTILITY(U,$J,358.3,36609,2)
 ;;=^5036771
 ;;^UTILITY(U,$J,358.3,36610,0)
 ;;=S68.624A^^142^1863^47
 ;;^UTILITY(U,$J,358.3,36610,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36610,1,3,0)
 ;;=3^Amputation,Partial Traumatic Right Trnsphal Ring Finger,Init Encntr
 ;;^UTILITY(U,$J,358.3,36610,1,4,0)
 ;;=4^S68.624A
 ;;^UTILITY(U,$J,358.3,36610,2)
 ;;=^5036777
 ;;^UTILITY(U,$J,358.3,36611,0)
 ;;=S68.521A^^142^1863^48
 ;;^UTILITY(U,$J,358.3,36611,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36611,1,3,0)
 ;;=3^Amputation,Partial Traumatic Right Trnsphal Thumb,Init Encntr
 ;;^UTILITY(U,$J,358.3,36611,1,4,0)
 ;;=4^S68.521A
 ;;^UTILITY(U,$J,358.3,36611,2)
 ;;=^5036726
 ;;^UTILITY(U,$J,358.3,36612,0)
 ;;=Q17.5^^142^1863^386
 ;;^UTILITY(U,$J,358.3,36612,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36612,1,3,0)
 ;;=3^Prominent Ear
 ;;^UTILITY(U,$J,358.3,36612,1,4,0)
 ;;=4^Q17.5
 ;;^UTILITY(U,$J,358.3,36612,2)
 ;;=^5018514
 ;;^UTILITY(U,$J,358.3,36613,0)
 ;;=S68.121A^^142^1863^19
 ;;^UTILITY(U,$J,358.3,36613,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36613,1,3,0)
 ;;=3^Amputation,Partial Traumatic Left MCP Index Finger,Init Encntr
 ;;^UTILITY(U,$J,358.3,36613,1,4,0)
 ;;=4^S68.121A
 ;;^UTILITY(U,$J,358.3,36613,2)
 ;;=^5036672