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

IBDEI18V.m

Go to the documentation of this file.
  1. IBDEI18V ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,20170,2)
  1. ;;=^5013757
  1. ;;^UTILITY(U,$J,358.3,20171,0)
  1. ;;=S92.152S^^67^884^13
  1. ;;^UTILITY(U,$J,358.3,20171,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20171,1,3,0)
  1. ;;=3^Disp avulsion fx of left talus, sequela
  1. ;;^UTILITY(U,$J,358.3,20171,1,4,0)
  1. ;;=4^S92.152S
  1. ;;^UTILITY(U,$J,358.3,20171,2)
  1. ;;=^5044786
  1. ;;^UTILITY(U,$J,358.3,20172,0)
  1. ;;=S92.151S^^67^884^14
  1. ;;^UTILITY(U,$J,358.3,20172,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20172,1,3,0)
  1. ;;=3^Disp avulsion fx of right talus, sequela
  1. ;;^UTILITY(U,$J,358.3,20172,1,4,0)
  1. ;;=4^S92.151S
  1. ;;^UTILITY(U,$J,358.3,20172,2)
  1. ;;=^5044779
  1. ;;^UTILITY(U,$J,358.3,20173,0)
  1. ;;=S92.032S^^67^884^15
  1. ;;^UTILITY(U,$J,358.3,20173,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20173,1,3,0)
  1. ;;=3^Disp avulsion tuberosity fx of left calcaneus, sequela
  1. ;;^UTILITY(U,$J,358.3,20173,1,4,0)
  1. ;;=4^S92.032S
  1. ;;^UTILITY(U,$J,358.3,20173,2)
  1. ;;=^5044464
  1. ;;^UTILITY(U,$J,358.3,20174,0)
  1. ;;=S92.142S^^67^884^29
  1. ;;^UTILITY(U,$J,358.3,20174,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20174,1,3,0)
  1. ;;=3^Disp dome fx of left talus, sequela
  1. ;;^UTILITY(U,$J,358.3,20174,1,4,0)
  1. ;;=4^S92.142S
  1. ;;^UTILITY(U,$J,358.3,20174,2)
  1. ;;=^5044744
  1. ;;^UTILITY(U,$J,358.3,20175,0)
  1. ;;=S92.031S^^67^884^16
  1. ;;^UTILITY(U,$J,358.3,20175,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20175,1,3,0)
  1. ;;=3^Disp avulsion tuberosity fx of right calcaneus, sequela
  1. ;;^UTILITY(U,$J,358.3,20175,1,4,0)
  1. ;;=4^S92.031S
  1. ;;^UTILITY(U,$J,358.3,20175,2)
  1. ;;=^5044457
  1. ;;^UTILITY(U,$J,358.3,20176,0)
  1. ;;=S92.141S^^67^884^30
  1. ;;^UTILITY(U,$J,358.3,20176,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20176,1,3,0)
  1. ;;=3^Disp dome fx of right talus, sequela
  1. ;;^UTILITY(U,$J,358.3,20176,1,4,0)
  1. ;;=4^S92.141S
  1. ;;^UTILITY(U,$J,358.3,20176,2)
  1. ;;=^5044737
  1. ;;^UTILITY(U,$J,358.3,20177,0)
  1. ;;=S92.022S^^67^884^11
  1. ;;^UTILITY(U,$J,358.3,20177,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20177,1,3,0)
  1. ;;=3^Disp anterior process fx of left calcaneus,sequela
  1. ;;^UTILITY(U,$J,358.3,20177,1,4,0)
  1. ;;=4^S92.022S
  1. ;;^UTILITY(U,$J,358.3,20177,2)
  1. ;;=^5044422
  1. ;;^UTILITY(U,$J,358.3,20178,0)
  1. ;;=S92.021S^^67^884^12
  1. ;;^UTILITY(U,$J,358.3,20178,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20178,1,3,0)
  1. ;;=3^Disp anterior process fx of right calcaneus,sequela
  1. ;;^UTILITY(U,$J,358.3,20178,1,4,0)
  1. ;;=4^S92.021S
  1. ;;^UTILITY(U,$J,358.3,20178,2)
  1. ;;=^5044415
  1. ;;^UTILITY(U,$J,358.3,20179,0)
  1. ;;=S92.012S^^67^884^19
  1. ;;^UTILITY(U,$J,358.3,20179,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20179,1,3,0)
  1. ;;=3^Disp body of left calcaneus fx, sequela
  1. ;;^UTILITY(U,$J,358.3,20179,1,4,0)
  1. ;;=4^S92.012S
  1. ;;^UTILITY(U,$J,358.3,20179,2)
  1. ;;=^5044380
  1. ;;^UTILITY(U,$J,358.3,20180,0)
  1. ;;=S92.122S^^67^884^20
  1. ;;^UTILITY(U,$J,358.3,20180,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20180,1,3,0)
  1. ;;=3^Disp body of left talus fx, sequela
  1. ;;^UTILITY(U,$J,358.3,20180,1,4,0)
  1. ;;=4^S92.122S
  1. ;;^UTILITY(U,$J,358.3,20180,2)
  1. ;;=^5044660
  1. ;;^UTILITY(U,$J,358.3,20181,0)
  1. ;;=S92.011S^^67^884^21
  1. ;;^UTILITY(U,$J,358.3,20181,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20181,1,3,0)
  1. ;;=3^Disp body of right calcaneus fx, sequela
  1. ;;^UTILITY(U,$J,358.3,20181,1,4,0)
  1. ;;=4^S92.011S
  1. ;;^UTILITY(U,$J,358.3,20181,2)
  1. ;;=^5044373
  1. ;;^UTILITY(U,$J,358.3,20182,0)
  1. ;;=S92.121S^^67^884^22
  1. ;;^UTILITY(U,$J,358.3,20182,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20182,1,3,0)
  1. ;;=3^Disp body of right talus fx, sequela