IBDEI01C.m

IBDEI01C	; ; 18-MAR-1994

	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

	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

Q	Q

	;;^UTILITY(U,$J,358.5,327,0)

	;;=SC %^84^8

	;;^UTILITY(U,$J,358.5,327,2,0)

	;;=^357.52I^3^2

	;;^UTILITY(U,$J,358.5,327,2,2,0)

	;;=SC%:^^^17^4^4^22^3^7

	;;^UTILITY(U,$J,358.5,327,2,3,0)

	;;=%^^^25^4

	;;^UTILITY(U,$J,358.5,328,0)

	;;=SC TREATMENT QUESTIONS^85^26

	;;^UTILITY(U,$J,358.5,328,2,0)

	;;=^357.52I^2^2

	;;^UTILITY(U,$J,358.5,328,2,1,0)

	;;=SERVICE CONNECTED?^^I^^^0^0^46^1

	;;^UTILITY(U,$J,358.5,328,2,2,0)

	;;=AO,IR OR EC?^^I^^^1^0^43^5

	;;^UTILITY(U,$J,358.5,329,0)

	;;=Subjective:^88^2^^^Subjective:^^^^0^1^8^2^132

	;;^UTILITY(U,$J,358.5,330,0)

	;;=OBJECTIVE^88^2^^^Objective:^^^^0^9^8^2^132

	;;^UTILITY(U,$J,358.5,331,0)

	;;=ASSESSMENT/DIAGNOSIS^88^2^^^Assessment/Diagnosis:^^^^0^17^8^2^132

	;;^UTILITY(U,$J,358.5,332,0)

	;;=PLAN^88^2^^^Plan:^^^^0^25^4^2^132

	;;^UTILITY(U,$J,358.5,333,0)

	;;=SIGNATURE^88^3

	;;^UTILITY(U,$J,358.5,333,2,0)

	;;=^357.52I^1^1

	;;^UTILITY(U,$J,358.5,333,2,1,0)

	;;=Provider Signature^^^79^31^30^59^60^1

	;;^UTILITY(U,$J,358.5,334,0)

	;;=Subjective:^89^2^^^Subjective:^^^^0^1^8^2^132

	;;^UTILITY(U,$J,358.5,335,0)

	;;=OBJECTIVE^89^2^^^Objective:^^^^0^9^8^2^132

	;;^UTILITY(U,$J,358.5,336,0)

	;;=ASSESSMENT/DIAGNOSIS^89^2^^^Assessment/Diagnosis:^^^^0^17^8^2^132

	;;^UTILITY(U,$J,358.5,337,0)

	;;=PLAN^89^2^^^Plan:^^^^0^25^4^2^132

	;;^UTILITY(U,$J,358.5,338,0)

	;;=SIGNATURE^89^3

	;;^UTILITY(U,$J,358.5,338,2,0)

	;;=^357.52I^1^1

	;;^UTILITY(U,$J,358.5,338,2,1,0)

	;;=Provider Signature:^^^40^29^30^59^60^1

IBDEI01C  ; ; 18-MAR-1994

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

 +2        IF 'DIFQR(358.5)

               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.5,327,0)

 +2       ;;=SC %^84^8

 +3       ;;^UTILITY(U,$J,358.5,327,2,0)

 +4       ;;=^357.52I^3^2

 +5       ;;^UTILITY(U,$J,358.5,327,2,2,0)

 +6       ;;=SC%:^^^17^4^4^22^3^7

 +7       ;;^UTILITY(U,$J,358.5,327,2,3,0)

 +8       ;;=%^^^25^4

 +9       ;;^UTILITY(U,$J,358.5,328,0)

 +10      ;;=SC TREATMENT QUESTIONS^85^26

 +11      ;;^UTILITY(U,$J,358.5,328,2,0)

 +12      ;;=^357.52I^2^2

 +13      ;;^UTILITY(U,$J,358.5,328,2,1,0)

 +14      ;;=SERVICE CONNECTED?^^I^^^0^0^46^1

 +15      ;;^UTILITY(U,$J,358.5,328,2,2,0)

 +16      ;;=AO,IR OR EC?^^I^^^1^0^43^5

 +17      ;;^UTILITY(U,$J,358.5,329,0)

 +18      ;;=Subjective:^88^2^^^Subjective:^^^^0^1^8^2^132

 +19      ;;^UTILITY(U,$J,358.5,330,0)

 +20      ;;=OBJECTIVE^88^2^^^Objective:^^^^0^9^8^2^132

 +21      ;;^UTILITY(U,$J,358.5,331,0)

 +22      ;;=ASSESSMENT/DIAGNOSIS^88^2^^^Assessment/Diagnosis:^^^^0^17^8^2^132

 +23      ;;^UTILITY(U,$J,358.5,332,0)

 +24      ;;=PLAN^88^2^^^Plan:^^^^0^25^4^2^132

 +25      ;;^UTILITY(U,$J,358.5,333,0)

 +26      ;;=SIGNATURE^88^3

 +27      ;;^UTILITY(U,$J,358.5,333,2,0)

 +28      ;;=^357.52I^1^1

 +29      ;;^UTILITY(U,$J,358.5,333,2,1,0)

 +30      ;;=Provider Signature^^^79^31^30^59^60^1

 +31      ;;^UTILITY(U,$J,358.5,334,0)

 +32      ;;=Subjective:^89^2^^^Subjective:^^^^0^1^8^2^132

 +33      ;;^UTILITY(U,$J,358.5,335,0)

 +34      ;;=OBJECTIVE^89^2^^^Objective:^^^^0^9^8^2^132

 +35      ;;^UTILITY(U,$J,358.5,336,0)

 +36      ;;=ASSESSMENT/DIAGNOSIS^89^2^^^Assessment/Diagnosis:^^^^0^17^8^2^132

 +37      ;;^UTILITY(U,$J,358.5,337,0)

 +38      ;;=PLAN^89^2^^^Plan:^^^^0^25^4^2^132

 +39      ;;^UTILITY(U,$J,358.5,338,0)

 +40      ;;=SIGNATURE^89^3

 +41      ;;^UTILITY(U,$J,358.5,338,2,0)

 +42      ;;=^357.52I^1^1

 +43      ;;^UTILITY(U,$J,358.5,338,2,1,0)

 +44      ;;=Provider Signature:^^^40^29^30^59^60^1