- IBDEI3K9 ; ; 19-NOV-2015
- ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
- Q:'DIFQR(358.99) 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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
- Q Q
- ;;^UTILITY(U,$J,358.99)
- ;;=^IBE(358.99,
- ;;^UTILITY(U,$J,358.99,0)
- ;;=IMP/EXP AICS DATA ELEMENTS^358.99^5^5
- ;;^UTILITY(U,$J,358.99,1,0)
- ;;=SHORT NARRATIVE (30 CHAR)^^^^_______________________________^30^10^^^^^NARR
- ;;^UTILITY(U,$J,358.99,1,10)
- ;;=a^^^################################
- ;;^UTILITY(U,$J,358.99,2,0)
- ;;=CPT-4 PROCEDURE CODE^5^^^^5^10^^^^^CPT-4
- ;;^UTILITY(U,$J,358.99,2,1)
- ;;=D INPUTCPT^IBDFN8(.X)
- ;;^UTILITY(U,$J,358.99,2,10)
- ;;=a^XNNNN
- ;;^UTILITY(U,$J,358.99,3,0)
- ;;=ICD-9 DIAGNOSIS CODE^7^^^____.__^7^10^^^^^ICD-9
- ;;^UTILITY(U,$J,358.99,3,1)
- ;;=D INPUTICD^IBDFN8(.X)
- ;;^UTILITY(U,$J,358.99,3,10)
- ;;=a^XF^^NNNN.NN
- ;;^UTILITY(U,$J,358.99,4,0)
- ;;=SHORT NARRATIVE (60 CHAR)^60^^^___________________________________________________________^60^10^^^^^NARR
- ;;^UTILITY(U,$J,358.99,4,10)
- ;;=a^^^###########################################################
- ;;^UTILITY(U,$J,358.99,5,0)
- ;;=ICD-10 DIAGNOSIS CODE^8^^^___.____^8^10^^^^^ICD10
- ;;^UTILITY(U,$J,358.99,5,1)
- ;;=D INPICD10^IBDFN8(.X)
- ;;^UTILITY(U,$J,358.99,5,10)
- ;;=a^XF^^ANX.XXXX
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3K9 1356 printed Jan 18, 2025@03:51:36 Page 2
- IBDEI3K9 ; ; 19-NOV-2015
- +1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
- +2 if 'DIFQR(358.99)
- QUIT
- FOR I=1:2
- SET X=$TEXT(Q+I)
- if X=""
- QUIT
- SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
- SET X=$EXTRACT(X,4,999)
- if $ASCII(Y)=126
- SET I=I+1
- SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
- if $ASCII(Y)=61
- SET Y=$EXTRACT(Y,2,999)
- XECUTE NO
- IF '$TEST
- SET @X=Y
- Q QUIT
- +1 ;;^UTILITY(U,$J,358.99)
- +2 ;;=^IBE(358.99,
- +3 ;;^UTILITY(U,$J,358.99,0)
- +4 ;;=IMP/EXP AICS DATA ELEMENTS^358.99^5^5
- +5 ;;^UTILITY(U,$J,358.99,1,0)
- +6 ;;=SHORT NARRATIVE (30 CHAR)^^^^_______________________________^30^10^^^^^NARR
- +7 ;;^UTILITY(U,$J,358.99,1,10)
- +8 ;;=a^^^################################
- +9 ;;^UTILITY(U,$J,358.99,2,0)
- +10 ;;=CPT-4 PROCEDURE CODE^5^^^^5^10^^^^^CPT-4
- +11 ;;^UTILITY(U,$J,358.99,2,1)
- +12 ;;=D INPUTCPT^IBDFN8(.X)
- +13 ;;^UTILITY(U,$J,358.99,2,10)
- +14 ;;=a^XNNNN
- +15 ;;^UTILITY(U,$J,358.99,3,0)
- +16 ;;=ICD-9 DIAGNOSIS CODE^7^^^____.__^7^10^^^^^ICD-9
- +17 ;;^UTILITY(U,$J,358.99,3,1)
- +18 ;;=D INPUTICD^IBDFN8(.X)
- +19 ;;^UTILITY(U,$J,358.99,3,10)
- +20 ;;=a^XF^^NNNN.NN
- +21 ;;^UTILITY(U,$J,358.99,4,0)
- +22 ;;=SHORT NARRATIVE (60 CHAR)^60^^^___________________________________________________________^60^10^^^^^NARR
- +23 ;;^UTILITY(U,$J,358.99,4,10)
- +24 ;;=a^^^###########################################################
- +25 ;;^UTILITY(U,$J,358.99,5,0)
- +26 ;;=ICD-10 DIAGNOSIS CODE^8^^^___.____^8^10^^^^^ICD10
- +27 ;;^UTILITY(U,$J,358.99,5,1)
- +28 ;;=D INPICD10^IBDFN8(.X)
- +29 ;;^UTILITY(U,$J,358.99,5,10)
- +30 ;;=a^XF^^ANX.XXXX