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

IBDEI015.m

Go to the documentation of this file.
  1. IBDEI015 ; ; 18-MAR-1994
  1. ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. Q:'DIFQR(358.5) 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
  1. Q Q
  1. ;;^UTILITY(U,$J,358.5,199,2,2,0)
  1. ;;=ICD-9 CODE^^I^^^6^62^7^2
  1. ;;^UTILITY(U,$J,358.5,199,2,3,0)
  1. ;;=SC?^^I^^^6^71^1^5
  1. ;;^UTILITY(U,$J,358.5,200,0)
  1. ;;=PROBLEM 4^53^28^1^4
  1. ;;^UTILITY(U,$J,358.5,200,2,0)
  1. ;;=^357.52I^3^3
  1. ;;^UTILITY(U,$J,358.5,200,2,1,0)
  1. ;;=PROBLEM TEXT^^I^^^7^21^40^1
  1. ;;^UTILITY(U,$J,358.5,200,2,2,0)
  1. ;;=ICD-9 CODE^^I^^^7^62^7^2
  1. ;;^UTILITY(U,$J,358.5,200,2,3,0)
  1. ;;=SC?^^I^^^7^71^1^5
  1. ;;^UTILITY(U,$J,358.5,201,0)
  1. ;;=OTHER ALLERGIES^54^3
  1. ;;^UTILITY(U,$J,358.5,201,2,0)
  1. ;;=^357.52I^1^1
  1. ;;^UTILITY(U,$J,358.5,201,2,1,0)
  1. ;;=Other:^^^1^7
  1. ;;^UTILITY(U,$J,358.5,202,0)
  1. ;;=ALLERGY 1^54^15^0^1
  1. ;;^UTILITY(U,$J,358.5,202,2,0)
  1. ;;=^357.52I^4^4
  1. ;;^UTILITY(U,$J,358.5,202,2,1,0)
  1. ;;=ALLERGY^^I^^^3^1^30^1
  1. ;;^UTILITY(U,$J,358.5,202,2,2,0)
  1. ;;=TYPE^^U^32^2^3^32^5^2
  1. ;;^UTILITY(U,$J,358.5,202,2,3,0)
  1. ;;=VER^^U^45^2^3^45^3^4
  1. ;;^UTILITY(U,$J,358.5,202,2,4,0)
  1. ;;=TRUE^^U^39^2^3^40^3^5
  1. ;;^UTILITY(U,$J,358.5,203,0)
  1. ;;=ALLERGY 2^54^15^0^2
  1. ;;^UTILITY(U,$J,358.5,203,2,0)
  1. ;;=^357.52I^4^4
  1. ;;^UTILITY(U,$J,358.5,203,2,1,0)
  1. ;;=ALLERGY^^I^^^4^1^30^1
  1. ;;^UTILITY(U,$J,358.5,203,2,2,0)
  1. ;;=TYPE^^I^^^4^32^5^2
  1. ;;^UTILITY(U,$J,358.5,203,2,3,0)
  1. ;;=TRUE^^I^^^4^40^3^5
  1. ;;^UTILITY(U,$J,358.5,203,2,4,0)
  1. ;;=VER^^I^^^4^45^3^4
  1. ;;^UTILITY(U,$J,358.5,204,0)
  1. ;;=ALLERGY 3^54^15^0^3
  1. ;;^UTILITY(U,$J,358.5,204,2,0)
  1. ;;=^357.52I^4^4
  1. ;;^UTILITY(U,$J,358.5,204,2,1,0)
  1. ;;=ALLERGY^^I^^^5^1^30^1
  1. ;;^UTILITY(U,$J,358.5,204,2,2,0)
  1. ;;=TYPE^^I^^^5^32^5^2
  1. ;;^UTILITY(U,$J,358.5,204,2,3,0)
  1. ;;=TRUE^^I^^^5^40^3^5
  1. ;;^UTILITY(U,$J,358.5,204,2,4,0)
  1. ;;=VER^^I^^^5^45^3^4
  1. ;;^UTILITY(U,$J,358.5,205,0)
  1. ;;=ALLERGY 4^54^15^1^4
  1. ;;^UTILITY(U,$J,358.5,205,2,0)
  1. ;;=^357.52I^4^4
  1. ;;^UTILITY(U,$J,358.5,205,2,1,0)
  1. ;;=ALLERGY^^I^^^6^1^30^1
  1. ;;^UTILITY(U,$J,358.5,205,2,2,0)
  1. ;;=TYPE^^I^^^6^32^5^2
  1. ;;^UTILITY(U,$J,358.5,205,2,3,0)
  1. ;;=TRUE^^I^^^6^40^3^5
  1. ;;^UTILITY(U,$J,358.5,205,2,4,0)
  1. ;;=VER^^I^^^6^45^3^4
  1. ;;^UTILITY(U,$J,358.5,206,0)
  1. ;;=CLINIC^55^5
  1. ;;^UTILITY(U,$J,358.5,206,2,0)
  1. ;;=^357.52I^1^1
  1. ;;^UTILITY(U,$J,358.5,206,2,1,0)
  1. ;;=Clinic:^^^0^0^0^8^30^1
  1. ;;^UTILITY(U,$J,358.5,207,0)
  1. ;;=APPT. DT/TIME^55^4
  1. ;;^UTILITY(U,$J,358.5,207,2,0)
  1. ;;=^357.52I^1^1
  1. ;;^UTILITY(U,$J,358.5,207,2,1,0)
  1. ;;=Appt. DT/Time:^^^0^2^2^15^23^1
  1. ;;^UTILITY(U,$J,358.5,208,0)
  1. ;;=CANCELLED?^56^3
  1. ;;^UTILITY(U,$J,358.5,208,2,0)
  1. ;;=^357.52I^1^1
  1. ;;^UTILITY(U,$J,358.5,208,2,1,0)
  1. ;;=Cancelled^^^1^2^2^13^20^1
  1. ;;^UTILITY(U,$J,358.5,209,0)
  1. ;;=NO-SHOW?^56^3
  1. ;;^UTILITY(U,$J,358.5,209,2,0)
  1. ;;=^357.52I^1^1
  1. ;;^UTILITY(U,$J,358.5,209,2,1,0)
  1. ;;=No-Show^^^1^3^3^13^20^1
  1. ;;^UTILITY(U,$J,358.5,210,0)
  1. ;;=CHECKED-OUT?^56^3
  1. ;;^UTILITY(U,$J,358.5,210,2,0)
  1. ;;=^357.52I^1^1
  1. ;;^UTILITY(U,$J,358.5,210,2,1,0)
  1. ;;=Checked-Out^^^1^4^4^13^20^1
  1. ;;^UTILITY(U,$J,358.5,211,0)
  1. ;;=RESCHEDULED?^56^3
  1. ;;^UTILITY(U,$J,358.5,211,2,0)
  1. ;;=^357.52I^1^1
  1. ;;^UTILITY(U,$J,358.5,211,2,1,0)
  1. ;;=Rescheduled^^^1^1^1^13^20^1
  1. ;;^UTILITY(U,$J,358.5,212,0)
  1. ;;=PATIENT NAME^57^6
  1. ;;^UTILITY(U,$J,358.5,212,2,0)
  1. ;;=^357.52I^1^1
  1. ;;^UTILITY(U,$J,358.5,212,2,1,0)
  1. ;;=Patient Name:^^^1^1^1^15^30^1
  1. ;;^UTILITY(U,$J,358.5,213,0)
  1. ;;=PATIENT DOB^57^22
  1. ;;^UTILITY(U,$J,358.5,213,2,0)
  1. ;;=^357.52I^1^1
  1. ;;^UTILITY(U,$J,358.5,213,2,1,0)
  1. ;;=DOB:^^^1^2^2^6^12^1
  1. ;;^UTILITY(U,$J,358.5,214,0)
  1. ;;=PID^57^7
  1. ;;^UTILITY(U,$J,358.5,214,2,0)
  1. ;;=^357.52I^1^1
  1. ;;^UTILITY(U,$J,358.5,214,2,1,0)
  1. ;;=PID:^^^19^2^2^24^15^1
  1. ;;^UTILITY(U,$J,358.5,215,0)
  1. ;;=SC CONDITION 1^57^11^^1
  1. ;;^UTILITY(U,$J,358.5,215,2,0)
  1. ;;=^357.52I^2^2
  1. ;;^UTILITY(U,$J,358.5,215,2,1,0)
  1. ;;=SC Conditions:^^U^1^4^5^1^40^1
  1. ;;^UTILITY(U,$J,358.5,215,2,2,0)
  1. ;;=%^^I^^^5^42^4^3