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

IBDEI2AT.m

Go to the documentation of this file.
IBDEI2AT ; ; 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,36695,1,4,0)
 ;;=4^S85.901A
 ;;^UTILITY(U,$J,358.3,36695,2)
 ;;=^5043415
 ;;^UTILITY(U,$J,358.3,36696,0)
 ;;=S45.901A^^142^1863^236
 ;;^UTILITY(U,$J,358.3,36696,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36696,1,3,0)
 ;;=3^Injury Blood Vessel Unspec Right Shoulder/Upper Arm,Init Encntr
 ;;^UTILITY(U,$J,358.3,36696,1,4,0)
 ;;=4^S45.901A
 ;;^UTILITY(U,$J,358.3,36696,2)
 ;;=^5028122
 ;;^UTILITY(U,$J,358.3,36697,0)
 ;;=S65.901A^^142^1863^237
 ;;^UTILITY(U,$J,358.3,36697,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36697,1,3,0)
 ;;=3^Injury Blood Vessel Unspec Right Wrist/Hand,Init Encntr
 ;;^UTILITY(U,$J,358.3,36697,1,4,0)
 ;;=4^S65.901A
 ;;^UTILITY(U,$J,358.3,36697,2)
 ;;=^5036066
 ;;^UTILITY(U,$J,358.3,36698,0)
 ;;=C44.40^^142^1863^340
 ;;^UTILITY(U,$J,358.3,36698,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36698,1,3,0)
 ;;=3^Malig Neop Skin Scalp/Neck,Unspec
 ;;^UTILITY(U,$J,358.3,36698,1,4,0)
 ;;=4^C44.40
 ;;^UTILITY(U,$J,358.3,36698,2)
 ;;=^340600
 ;;^UTILITY(U,$J,358.3,36699,0)
 ;;=C44.90^^142^1863^348
 ;;^UTILITY(U,$J,358.3,36699,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36699,1,3,0)
 ;;=3^Malig Neop Skin,Unspec
 ;;^UTILITY(U,$J,358.3,36699,1,4,0)
 ;;=4^C44.90
 ;;^UTILITY(U,$J,358.3,36699,2)
 ;;=^5001091
 ;;^UTILITY(U,$J,358.3,36700,0)
 ;;=G56.92^^142^1863^358
 ;;^UTILITY(U,$J,358.3,36700,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36700,1,3,0)
 ;;=3^Mononeuropathy Left Upper Limb
 ;;^UTILITY(U,$J,358.3,36700,1,4,0)
 ;;=4^G56.92
 ;;^UTILITY(U,$J,358.3,36700,2)
 ;;=^5004037
 ;;^UTILITY(U,$J,358.3,36701,0)
 ;;=G56.91^^142^1863^359
 ;;^UTILITY(U,$J,358.3,36701,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36701,1,3,0)
 ;;=3^Mononeuropathy Right Upper Limb
 ;;^UTILITY(U,$J,358.3,36701,1,4,0)
 ;;=4^G56.91
 ;;^UTILITY(U,$J,358.3,36701,2)
 ;;=^5004036
 ;;^UTILITY(U,$J,358.3,36702,0)
 ;;=S01.102A^^142^1863^367
 ;;^UTILITY(U,$J,358.3,36702,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36702,1,3,0)
 ;;=3^Open Wound Left Eyelid/Periocular Area,Init Encntr
 ;;^UTILITY(U,$J,358.3,36702,1,4,0)
 ;;=4^S01.102A
 ;;^UTILITY(U,$J,358.3,36702,2)
 ;;=^5020054
 ;;^UTILITY(U,$J,358.3,36703,0)
 ;;=S61.402A^^142^1863^368
 ;;^UTILITY(U,$J,358.3,36703,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36703,1,3,0)
 ;;=3^Open Wound Left Hand,Init Encntr
 ;;^UTILITY(U,$J,358.3,36703,1,4,0)
 ;;=4^S61.402A
 ;;^UTILITY(U,$J,358.3,36703,2)
 ;;=^5032984
 ;;^UTILITY(U,$J,358.3,36704,0)
 ;;=S61.201A^^142^1863^369
 ;;^UTILITY(U,$J,358.3,36704,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36704,1,3,0)
 ;;=3^Open Wound Left Index Finger w/o Nail Damage,Init Encntr
 ;;^UTILITY(U,$J,358.3,36704,1,4,0)
 ;;=4^S61.201A
 ;;^UTILITY(U,$J,358.3,36704,2)
 ;;=^5032744
 ;;^UTILITY(U,$J,358.3,36705,0)
 ;;=S61.207A^^142^1863^370
 ;;^UTILITY(U,$J,358.3,36705,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36705,1,3,0)
 ;;=3^Open Wound Left Little Finger w/o Nail Damage,Init Encntr
 ;;^UTILITY(U,$J,358.3,36705,1,4,0)
 ;;=4^S61.207A
 ;;^UTILITY(U,$J,358.3,36705,2)
 ;;=^5032762
 ;;^UTILITY(U,$J,358.3,36706,0)
 ;;=S61.203A^^142^1863^371
 ;;^UTILITY(U,$J,358.3,36706,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36706,1,3,0)
 ;;=3^Open Wound Left Middle Finger w/o Nail Damage,Init Encntr
 ;;^UTILITY(U,$J,358.3,36706,1,4,0)
 ;;=4^S61.203A
 ;;^UTILITY(U,$J,358.3,36706,2)
 ;;=^5032750
 ;;^UTILITY(U,$J,358.3,36707,0)
 ;;=S61.205A^^142^1863^372