IBINI08A ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQR(357.6) 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,357.6)
;;=^IBE(357.6,
;;^UTILITY(U,$J,357.6,0)
;;=PACKAGE INTERFACE^357.6I^55^46
;;^UTILITY(U,$J,357.6,1,0)
;;=DPT PATIENT'S NAME^VADPT^IBDFN^PATIENT FILE^1^2^1^1^1^^^1^^
;;^UTILITY(U,$J,357.6,1,1,0)
;;=^^2^2^2930212^^^^
;;^UTILITY(U,$J,357.6,1,1,1,0)
;;=
;;^UTILITY(U,$J,357.6,1,1,2,0)
;;=Patient's Name
;;^UTILITY(U,$J,357.6,1,2)
;;=Patient's Name^30
;;^UTILITY(U,$J,357.6,1,3)
;;=PATIENT NAME MAS
;;^UTILITY(U,$J,357.6,1,7,0)
;;=^357.67^1^1
;;^UTILITY(U,$J,357.6,1,7,1,0)
;;=DFN
;;^UTILITY(U,$J,357.6,2,0)
;;=DPT PATIENT'S SEX^VADPT^IBDFN^PATIENT FILE^1^2^2^^1^^^1^^
;;^UTILITY(U,$J,357.6,2,1,0)
;;=^^1^1^2931015^^^^
;;^UTILITY(U,$J,357.6,2,1,1,0)
;;=Patient's sex, either 'MALE' or 'FEMALE', or "M" or "F".
;;^UTILITY(U,$J,357.6,2,2)
;;=Patient's Sex^6^Patient's Sex (Code)^1
;;^UTILITY(U,$J,357.6,2,3)
;;=PATIENT SEX MAS
;;^UTILITY(U,$J,357.6,2,7,0)
;;=^357.67^1^1
;;^UTILITY(U,$J,357.6,2,7,1,0)
;;=DFN
;;^UTILITY(U,$J,357.6,3,0)
;;=DPT PATIENT'S DOB/AGE^VADPT^IBDFN^PATIENT FILE^1^2^2^^1^^^1^^
;;^UTILITY(U,$J,357.6,3,1,0)
;;=^^2^2^2930726^^
;;^UTILITY(U,$J,357.6,3,1,1,0)
;;=Patient's DOB in MMM DD, YYYY format
;;^UTILITY(U,$J,357.6,3,1,2,0)
;;=Patient's age in years.
;;^UTILITY(U,$J,357.6,3,2)
;;=Patient's DOB^12^Patient's Age^3
;;^UTILITY(U,$J,357.6,3,3)
;;=PATIENT DOB AGE MAS PIMS
;;^UTILITY(U,$J,357.6,3,7,0)
;;=^357.67^1^1
;;^UTILITY(U,$J,357.6,3,7,1,0)
;;=DFN
;;^UTILITY(U,$J,357.6,4,0)
;;=GMRA PATIENT'S ALLERGIES^ALLERGY^IBDFN2^ALLERGY^1^2^4^1^1^^^1^^
;;^UTILITY(U,$J,357.6,4,1,0)
;;=^^7^7^2931015^^
;;^UTILITY(U,$J,357.6,4,1,1,0)
;;=Used to disply a list of the patient's allergies, both true and adverse
;;^UTILITY(U,$J,357.6,4,1,2,0)
;;=reactions, verified and unverified. Data returned:
;;^UTILITY(U,$J,357.6,4,1,3,0)
;;= allergy name
;;^UTILITY(U,$J,357.6,4,1,4,0)
;;= type of allergen
;;^UTILITY(U,$J,357.6,4,1,5,0)
;;= type (code only - F=food, D=drug,O=other)
;;^UTILITY(U,$J,357.6,4,1,6,0)
;;= verified? YES/NO
;;^UTILITY(U,$J,357.6,4,1,7,0)
;;= true allergy? YES/NO
;;^UTILITY(U,$J,357.6,4,2)
;;=ALLERGY NAME^30^TYPE OF ALLERGEN^5^TYPE (F=FOOD,D=DRUG,O=OTHER)^1^VERIFIED? (YES/NO)^3^TRUE ALLERGY? (YES/NO)^3
;;^UTILITY(U,$J,357.6,4,3)
;;=ALLERGIES ALLERGY PATIENT
;;^UTILITY(U,$J,357.6,4,7,0)
;;=^357.67^1^1
;;^UTILITY(U,$J,357.6,4,7,1,0)
;;=DFN
;;^UTILITY(U,$J,357.6,7,0)
;;=DG SELECT CPT PROCEDURE CODES^CPT^IBDFN4^MAS^^3^2^^1^^^1^^
;;^UTILITY(U,$J,357.6,7,1,0)
;;=^^2^2^2930726^^^
;;^UTILITY(U,$J,357.6,7,1,1,0)
;;=Allows for the selection of CPT codes from the CPT file. The user can
;;^UTILITY(U,$J,357.6,7,1,2,0)
;;=limit his selections by choosing a major CPT category if he wishes.
;;^UTILITY(U,$J,357.6,7,2)
;;=CODE^5^SHORT NAME^28^DESCRIPTION^161^^^^^^^^^^^1^1
;;^UTILITY(U,$J,357.6,7,3)
;;=SELECT CPT CODES
;;^UTILITY(U,$J,357.6,8,0)
;;=DPT PATIENT'S SC CONDITIONS^ELIG^IBDFN^PATIENT FILE^1^2^4^1^1^^^1^^
;;^UTILITY(U,$J,357.6,8,1,0)
;;=^^7^7^2931015^^^^
;;^UTILITY(U,$J,357.6,8,1,1,0)
;;=Used to output a list of the patients service connected conditons, along with
;;^UTILITY(U,$J,357.6,8,1,2,0)
;;=the percentage ratings. Data returned:
;;^UTILITY(U,$J,357.6,8,1,3,0)
;;= disability name
;;^UTILITY(U,$J,357.6,8,1,4,0)
;;= disability percentage
;;^UTILITY(U,$J,357.6,8,1,5,0)
;;= disability percentage with the label "%"
;;^UTILITY(U,$J,357.6,8,1,6,0)
;;= disabilty percentage with the label "%SC"
;;^UTILITY(U,$J,357.6,8,1,7,0)
;;= disability percentage with the label "% - SERVICE CONNECTED"
IBINI08A ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQR(357.6)
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,357.6)
+2 ;;=^IBE(357.6,
+3 ;;^UTILITY(U,$J,357.6,0)
+4 ;;=PACKAGE INTERFACE^357.6I^55^46
+5 ;;^UTILITY(U,$J,357.6,1,0)
+6 ;;=DPT PATIENT'S NAME^VADPT^IBDFN^PATIENT FILE^1^2^1^1^1^^^1^^
+7 ;;^UTILITY(U,$J,357.6,1,1,0)
+8 ;;=^^2^2^2930212^^^^
+9 ;;^UTILITY(U,$J,357.6,1,1,1,0)
+10 ;;=
+11 ;;^UTILITY(U,$J,357.6,1,1,2,0)
+12 ;;=Patient's Name
+13 ;;^UTILITY(U,$J,357.6,1,2)
+14 ;;=Patient's Name^30
+15 ;;^UTILITY(U,$J,357.6,1,3)
+16 ;;=PATIENT NAME MAS
+17 ;;^UTILITY(U,$J,357.6,1,7,0)
+18 ;;=^357.67^1^1
+19 ;;^UTILITY(U,$J,357.6,1,7,1,0)
+20 ;;=DFN
+21 ;;^UTILITY(U,$J,357.6,2,0)
+22 ;;=DPT PATIENT'S SEX^VADPT^IBDFN^PATIENT FILE^1^2^2^^1^^^1^^
+23 ;;^UTILITY(U,$J,357.6,2,1,0)
+24 ;;=^^1^1^2931015^^^^
+25 ;;^UTILITY(U,$J,357.6,2,1,1,0)
+26 ;;=Patient's sex, either 'MALE' or 'FEMALE', or "M" or "F".
+27 ;;^UTILITY(U,$J,357.6,2,2)
+28 ;;=Patient's Sex^6^Patient's Sex (Code)^1
+29 ;;^UTILITY(U,$J,357.6,2,3)
+30 ;;=PATIENT SEX MAS
+31 ;;^UTILITY(U,$J,357.6,2,7,0)
+32 ;;=^357.67^1^1
+33 ;;^UTILITY(U,$J,357.6,2,7,1,0)
+34 ;;=DFN
+35 ;;^UTILITY(U,$J,357.6,3,0)
+36 ;;=DPT PATIENT'S DOB/AGE^VADPT^IBDFN^PATIENT FILE^1^2^2^^1^^^1^^
+37 ;;^UTILITY(U,$J,357.6,3,1,0)
+38 ;;=^^2^2^2930726^^
+39 ;;^UTILITY(U,$J,357.6,3,1,1,0)
+40 ;;=Patient's DOB in MMM DD, YYYY format
+41 ;;^UTILITY(U,$J,357.6,3,1,2,0)
+42 ;;=Patient's age in years.
+43 ;;^UTILITY(U,$J,357.6,3,2)
+44 ;;=Patient's DOB^12^Patient's Age^3
+45 ;;^UTILITY(U,$J,357.6,3,3)
+46 ;;=PATIENT DOB AGE MAS PIMS
+47 ;;^UTILITY(U,$J,357.6,3,7,0)
+48 ;;=^357.67^1^1
+49 ;;^UTILITY(U,$J,357.6,3,7,1,0)
+50 ;;=DFN
+51 ;;^UTILITY(U,$J,357.6,4,0)
+52 ;;=GMRA PATIENT'S ALLERGIES^ALLERGY^IBDFN2^ALLERGY^1^2^4^1^1^^^1^^
+53 ;;^UTILITY(U,$J,357.6,4,1,0)
+54 ;;=^^7^7^2931015^^
+55 ;;^UTILITY(U,$J,357.6,4,1,1,0)
+56 ;;=Used to disply a list of the patient's allergies, both true and adverse
+57 ;;^UTILITY(U,$J,357.6,4,1,2,0)
+58 ;;=reactions, verified and unverified. Data returned:
+59 ;;^UTILITY(U,$J,357.6,4,1,3,0)
+60 ;;= allergy name
+61 ;;^UTILITY(U,$J,357.6,4,1,4,0)
+62 ;;= type of allergen
+63 ;;^UTILITY(U,$J,357.6,4,1,5,0)
+64 ;;= type (code only - F=food, D=drug,O=other)
+65 ;;^UTILITY(U,$J,357.6,4,1,6,0)
+66 ;;= verified? YES/NO
+67 ;;^UTILITY(U,$J,357.6,4,1,7,0)
+68 ;;= true allergy? YES/NO
+69 ;;^UTILITY(U,$J,357.6,4,2)
+70 ;;=ALLERGY NAME^30^TYPE OF ALLERGEN^5^TYPE (F=FOOD,D=DRUG,O=OTHER)^1^VERIFIED? (YES/NO)^3^TRUE ALLERGY? (YES/NO)^3
+71 ;;^UTILITY(U,$J,357.6,4,3)
+72 ;;=ALLERGIES ALLERGY PATIENT
+73 ;;^UTILITY(U,$J,357.6,4,7,0)
+74 ;;=^357.67^1^1
+75 ;;^UTILITY(U,$J,357.6,4,7,1,0)
+76 ;;=DFN
+77 ;;^UTILITY(U,$J,357.6,7,0)
+78 ;;=DG SELECT CPT PROCEDURE CODES^CPT^IBDFN4^MAS^^3^2^^1^^^1^^
+79 ;;^UTILITY(U,$J,357.6,7,1,0)
+80 ;;=^^2^2^2930726^^^
+81 ;;^UTILITY(U,$J,357.6,7,1,1,0)
+82 ;;=Allows for the selection of CPT codes from the CPT file. The user can
+83 ;;^UTILITY(U,$J,357.6,7,1,2,0)
+84 ;;=limit his selections by choosing a major CPT category if he wishes.
+85 ;;^UTILITY(U,$J,357.6,7,2)
+86 ;;=CODE^5^SHORT NAME^28^DESCRIPTION^161^^^^^^^^^^^1^1
+87 ;;^UTILITY(U,$J,357.6,7,3)
+88 ;;=SELECT CPT CODES
+89 ;;^UTILITY(U,$J,357.6,8,0)
+90 ;;=DPT PATIENT'S SC CONDITIONS^ELIG^IBDFN^PATIENT FILE^1^2^4^1^1^^^1^^
+91 ;;^UTILITY(U,$J,357.6,8,1,0)
+92 ;;=^^7^7^2931015^^^^
+93 ;;^UTILITY(U,$J,357.6,8,1,1,0)
+94 ;;=Used to output a list of the patients service connected conditons, along with
+95 ;;^UTILITY(U,$J,357.6,8,1,2,0)
+96 ;;=the percentage ratings. Data returned:
+97 ;;^UTILITY(U,$J,357.6,8,1,3,0)
+98 ;;= disability name
+99 ;;^UTILITY(U,$J,357.6,8,1,4,0)
+100 ;;= disability percentage
+101 ;;^UTILITY(U,$J,357.6,8,1,5,0)
+102 ;;= disability percentage with the label "%"
+103 ;;^UTILITY(U,$J,357.6,8,1,6,0)
+104 ;;= disabilty percentage with the label "%SC"
+105 ;;^UTILITY(U,$J,357.6,8,1,7,0)
+106 ;;= disability percentage with the label "% - SERVICE CONNECTED"
