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

IBDEI2YY.m

Go to the documentation of this file.
IBDEI2YY ; ; 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,47384,1,4,0)
 ;;=4^64447
 ;;^UTILITY(U,$J,358.3,47385,0)
 ;;=64448^^182^2367^6^^^^1
 ;;^UTILITY(U,$J,358.3,47385,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,47385,1,2,0)
 ;;=2^NERVE BLK FEMORAL NERVE,CONT INFUSION
 ;;^UTILITY(U,$J,358.3,47385,1,4,0)
 ;;=4^64448
 ;;^UTILITY(U,$J,358.3,47386,0)
 ;;=64405^^182^2367^8^^^^1
 ;;^UTILITY(U,$J,358.3,47386,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,47386,1,2,0)
 ;;=2^NERVE BLK GREATER OCCIPITAL NERVE,INJ
 ;;^UTILITY(U,$J,358.3,47386,1,4,0)
 ;;=4^64405
 ;;^UTILITY(U,$J,358.3,47387,0)
 ;;=64425^^182^2367^9^^^^1
 ;;^UTILITY(U,$J,358.3,47387,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,47387,1,2,0)
 ;;=2^NERVE BLK ILIOINGUINAL/ILIOHYPOGASTRIC,INJ
 ;;^UTILITY(U,$J,358.3,47387,1,4,0)
 ;;=4^64425
 ;;^UTILITY(U,$J,358.3,47388,0)
 ;;=64450^^182^2367^14^^^^1
 ;;^UTILITY(U,$J,358.3,47388,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,47388,1,2,0)
 ;;=2^NERVE BLK PERIPH NERVE/BRANCH NEC
 ;;^UTILITY(U,$J,358.3,47388,1,4,0)
 ;;=4^64450
 ;;^UTILITY(U,$J,358.3,47389,0)
 ;;=64530^^182^2367^5^^^^1
 ;;^UTILITY(U,$J,358.3,47389,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,47389,1,2,0)
 ;;=2^NERVE BLK CELIAC PLEXUS,INJ
 ;;^UTILITY(U,$J,358.3,47389,1,4,0)
 ;;=4^64530
 ;;^UTILITY(U,$J,358.3,47390,0)
 ;;=64520^^182^2367^12^^^^1
 ;;^UTILITY(U,$J,358.3,47390,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,47390,1,2,0)
 ;;=2^NERVE BLK LUMBAR/THORACIC,INJ
 ;;^UTILITY(U,$J,358.3,47390,1,4,0)
 ;;=4^64520
 ;;^UTILITY(U,$J,358.3,47391,0)
 ;;=64505^^182^2367^18^^^^1
 ;;^UTILITY(U,$J,358.3,47391,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,47391,1,2,0)
 ;;=2^NERVE BLK SPHEOPALATINE GANGLION
 ;;^UTILITY(U,$J,358.3,47391,1,4,0)
 ;;=4^64505
 ;;^UTILITY(U,$J,358.3,47392,0)
 ;;=64420^^182^2367^10^^^^1
 ;;^UTILITY(U,$J,358.3,47392,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,47392,1,2,0)
 ;;=2^NERVE BLK INTERCOSTAL NERVE,SNGL INJ
 ;;^UTILITY(U,$J,358.3,47392,1,4,0)
 ;;=4^64420
 ;;^UTILITY(U,$J,358.3,47393,0)
 ;;=64421^^182^2367^11^^^^1
 ;;^UTILITY(U,$J,358.3,47393,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,47393,1,2,0)
 ;;=2^NERVE BLK INTERCOSTAL,MULTI,REG BLK
 ;;^UTILITY(U,$J,358.3,47393,1,4,0)
 ;;=4^64421
 ;;^UTILITY(U,$J,358.3,47394,0)
 ;;=64435^^182^2367^13^^^^1
 ;;^UTILITY(U,$J,358.3,47394,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,47394,1,2,0)
 ;;=2^NERVE BLK PARACERVICAL,INJ
 ;;^UTILITY(U,$J,358.3,47394,1,4,0)
 ;;=4^64435
 ;;^UTILITY(U,$J,358.3,47395,0)
 ;;=64430^^182^2367^15^^^^1
 ;;^UTILITY(U,$J,358.3,47395,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,47395,1,2,0)
 ;;=2^NERVE BLK PUDENDAL NERVE,INJ
 ;;^UTILITY(U,$J,358.3,47395,1,4,0)
 ;;=4^64430
 ;;^UTILITY(U,$J,358.3,47396,0)
 ;;=64445^^182^2367^17^^^^1
 ;;^UTILITY(U,$J,358.3,47396,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,47396,1,2,0)
 ;;=2^NERVE BLK SCIATIC NERVE,SNGL INJ
 ;;^UTILITY(U,$J,358.3,47396,1,4,0)
 ;;=4^64445
 ;;^UTILITY(U,$J,358.3,47397,0)
 ;;=64446^^182^2367^16^^^^1
 ;;^UTILITY(U,$J,358.3,47397,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,47397,1,2,0)
 ;;=2^NERVE BLK SCIATIC NERVE,CONT INFUSION
 ;;^UTILITY(U,$J,358.3,47397,1,4,0)
 ;;=4^64446
 ;;^UTILITY(U,$J,358.3,47398,0)
 ;;=64418^^182^2367^19^^^^1
 ;;^UTILITY(U,$J,358.3,47398,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,47398,1,2,0)
 ;;=2^NERVE BLK SUPRASCAPULAR NERVE
 ;;^UTILITY(U,$J,358.3,47398,1,4,0)
 ;;=4^64418
 ;;^UTILITY(U,$J,358.3,47399,0)
 ;;=64400^^182^2367^22^^^^1