IBDEI01M ; ; 18-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQR(358.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,358.6,13,1,5,0)
;;= policy number
;;^UTILITY(U,$J,358.6,13,1,6,0)
;;= group name
;;^UTILITY(U,$J,358.6,13,1,7,0)
;;= policy holder's relationship to the patient
;;^UTILITY(U,$J,358.6,13,1,8,0)
;;= policy expiration date
;;^UTILITY(U,$J,358.6,13,1,9,0)
;;= group number
;;^UTILITY(U,$J,358.6,13,1,10,0)
;;= name of insured
;;^UTILITY(U,$J,358.6,13,2)
;;=INSURANCE COMPANY^30^EXPIRATION DATE^12^POLICY NUMBER^20^GROUP NUMBER^17^GROUP NAME^20^NAME OF INSURED^30^HOLDER'S RELATIONSHIP^9
;;^UTILITY(U,$J,358.6,13,3)
;;=PATIENT INSURANCE MAS PIMS
;;^UTILITY(U,$J,358.6,13,4)
;;=S ACT=2
;;^UTILITY(U,$J,358.6,13,6,0)
;;=^357.66^1^1
;;^UTILITY(U,$J,358.6,13,6,1,0)
;;=ACT
;;^UTILITY(U,$J,358.6,13,7,0)
;;=^357.67^1^1
;;^UTILITY(U,$J,358.6,13,7,1,0)
;;=DFN
;;^UTILITY(U,$J,358.6,14,0)
;;=SD INSTITUTION NAME^INST^IBDFN1^SCHEDULING^1^2^1^0^1^^^1^^
;;^UTILITY(U,$J,358.6,14,1,0)
;;=^^1^1^2930603^^
;;^UTILITY(U,$J,358.6,14,1,1,0)
;;=Obtains the name of the institution of the clinic of the appointment.
;;^UTILITY(U,$J,358.6,14,2)
;;=INSTITUTION NAME^30
;;^UTILITY(U,$J,358.6,14,3)
;;=FACILITY INSTITUTION PIMS MAS SCHEDULING
;;^UTILITY(U,$J,358.6,14,7,0)
;;=^357.67^1^1
;;^UTILITY(U,$J,358.6,14,7,1,0)
;;=IBCLINIC
;;^UTILITY(U,$J,358.6,15,0)
;;=GMRA PATIENT'S ALLERGIES^ALLERGY^IBDFN2^ALLERGY^1^2^4^1^1^^^1^^
;;^UTILITY(U,$J,358.6,15,1,0)
;;=^^7^7^2931015^^
;;^UTILITY(U,$J,358.6,15,1,1,0)
;;=Used to disply a list of the patient's allergies, both true and adverse
;;^UTILITY(U,$J,358.6,15,1,2,0)
;;=reactions, verified and unverified. Data returned:
;;^UTILITY(U,$J,358.6,15,1,3,0)
;;= allergy name
;;^UTILITY(U,$J,358.6,15,1,4,0)
;;= type of allergen
;;^UTILITY(U,$J,358.6,15,1,5,0)
;;= type (code only - F=food, D=drug,O=other)
;;^UTILITY(U,$J,358.6,15,1,6,0)
;;= verified? YES/NO
;;^UTILITY(U,$J,358.6,15,1,7,0)
;;= true allergy? YES/NO
;;^UTILITY(U,$J,358.6,15,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,358.6,15,3)
;;=ALLERGIES ALLERGY PATIENT
;;^UTILITY(U,$J,358.6,15,7,0)
;;=^357.67^1^1
;;^UTILITY(U,$J,358.6,15,7,1,0)
;;=DFN
;;^UTILITY(U,$J,358.6,16,0)
;;=DPT PATIENT'S TELEPHONE NUMBER^ADDRESS^IBDFN6^PATIENT FILE^1^2^1^^1^^^1^^
;;^UTILITY(U,$J,358.6,16,1,0)
;;=^^1^1^2930217^^
;;^UTILITY(U,$J,358.6,16,1,1,0)
;;=Used to display the patient's telephone number.
;;^UTILITY(U,$J,358.6,16,2)
;;=TELEPHONE NUMBER^20
;;^UTILITY(U,$J,358.6,16,3)
;;=PATIENT TELEPHONE MAS
;;^UTILITY(U,$J,358.6,16,7,0)
;;=^357.67^1^1
;;^UTILITY(U,$J,358.6,16,7,1,0)
;;=DFN
;;^UTILITY(U,$J,358.6,17,0)
;;=DPT PATIENT'S MARITAL STATUS^VADPT^IBDFN^PATIENT FILE^1^2^1^^1^^^1^^
;;^UTILITY(U,$J,358.6,17,1,0)
;;=^^1^1^2930217^
;;^UTILITY(U,$J,358.6,17,1,1,0)
;;=For displaying the patient's marital status.
;;^UTILITY(U,$J,358.6,17,2)
;;=MARITAL STATUS^15
;;^UTILITY(U,$J,358.6,17,3)
;;=PATIENT MARITAL STATUS MAS
;;^UTILITY(U,$J,358.6,17,7,0)
;;=^357.67^1^1
;;^UTILITY(U,$J,358.6,17,7,1,0)
;;=DFN
;;^UTILITY(U,$J,358.6,18,0)
;;=DPT PATIENT'S EMPLOYER NAME^EMPLOYER^IBDFN2^PATIENT FILE^1^2^1^^1^^^1^^
;;^UTILITY(U,$J,358.6,18,1,0)
;;=^^1^1^2930217^
;;^UTILITY(U,$J,358.6,18,1,1,0)
;;=For displaying the patient's employer.
;;^UTILITY(U,$J,358.6,18,2)
;;=employer name^45
;;^UTILITY(U,$J,358.6,18,3)
;;=PATIENT EMPLOYER MAS
;;^UTILITY(U,$J,358.6,18,7,0)
;;=^357.67^1^1
;;^UTILITY(U,$J,358.6,18,7,1,0)
;;=DFN
;;^UTILITY(U,$J,358.6,19,0)
;;=DPT PATIENT'S EMPLOYMENT STATUS^EMPLMNT^IBDFN^PATIENT FILE^1^2^1^^1^^^1^^
IBDEI01M ; ; 18-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQR(358.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,358.6,13,1,5,0)
+2 ;;= policy number
+3 ;;^UTILITY(U,$J,358.6,13,1,6,0)
+4 ;;= group name
+5 ;;^UTILITY(U,$J,358.6,13,1,7,0)
+6 ;;= policy holder's relationship to the patient
+7 ;;^UTILITY(U,$J,358.6,13,1,8,0)
+8 ;;= policy expiration date
+9 ;;^UTILITY(U,$J,358.6,13,1,9,0)
+10 ;;= group number
+11 ;;^UTILITY(U,$J,358.6,13,1,10,0)
+12 ;;= name of insured
+13 ;;^UTILITY(U,$J,358.6,13,2)
+14 ;;=INSURANCE COMPANY^30^EXPIRATION DATE^12^POLICY NUMBER^20^GROUP NUMBER^17^GROUP NAME^20^NAME OF INSURED^30^HOLDER'S RELATIONSHIP^9
+15 ;;^UTILITY(U,$J,358.6,13,3)
+16 ;;=PATIENT INSURANCE MAS PIMS
+17 ;;^UTILITY(U,$J,358.6,13,4)
+18 ;;=S ACT=2
+19 ;;^UTILITY(U,$J,358.6,13,6,0)
+20 ;;=^357.66^1^1
+21 ;;^UTILITY(U,$J,358.6,13,6,1,0)
+22 ;;=ACT
+23 ;;^UTILITY(U,$J,358.6,13,7,0)
+24 ;;=^357.67^1^1
+25 ;;^UTILITY(U,$J,358.6,13,7,1,0)
+26 ;;=DFN
+27 ;;^UTILITY(U,$J,358.6,14,0)
+28 ;;=SD INSTITUTION NAME^INST^IBDFN1^SCHEDULING^1^2^1^0^1^^^1^^
+29 ;;^UTILITY(U,$J,358.6,14,1,0)
+30 ;;=^^1^1^2930603^^
+31 ;;^UTILITY(U,$J,358.6,14,1,1,0)
+32 ;;=Obtains the name of the institution of the clinic of the appointment.
+33 ;;^UTILITY(U,$J,358.6,14,2)
+34 ;;=INSTITUTION NAME^30
+35 ;;^UTILITY(U,$J,358.6,14,3)
+36 ;;=FACILITY INSTITUTION PIMS MAS SCHEDULING
+37 ;;^UTILITY(U,$J,358.6,14,7,0)
+38 ;;=^357.67^1^1
+39 ;;^UTILITY(U,$J,358.6,14,7,1,0)
+40 ;;=IBCLINIC
+41 ;;^UTILITY(U,$J,358.6,15,0)
+42 ;;=GMRA PATIENT'S ALLERGIES^ALLERGY^IBDFN2^ALLERGY^1^2^4^1^1^^^1^^
+43 ;;^UTILITY(U,$J,358.6,15,1,0)
+44 ;;=^^7^7^2931015^^
+45 ;;^UTILITY(U,$J,358.6,15,1,1,0)
+46 ;;=Used to disply a list of the patient's allergies, both true and adverse
+47 ;;^UTILITY(U,$J,358.6,15,1,2,0)
+48 ;;=reactions, verified and unverified. Data returned:
+49 ;;^UTILITY(U,$J,358.6,15,1,3,0)
+50 ;;= allergy name
+51 ;;^UTILITY(U,$J,358.6,15,1,4,0)
+52 ;;= type of allergen
+53 ;;^UTILITY(U,$J,358.6,15,1,5,0)
+54 ;;= type (code only - F=food, D=drug,O=other)
+55 ;;^UTILITY(U,$J,358.6,15,1,6,0)
+56 ;;= verified? YES/NO
+57 ;;^UTILITY(U,$J,358.6,15,1,7,0)
+58 ;;= true allergy? YES/NO
+59 ;;^UTILITY(U,$J,358.6,15,2)
+60 ;;=ALLERGY NAME^30^TYPE OF ALLERGEN^5^TYPE (F=FOOD,D=DRUG,O=OTHER)^1^VERIFIED? (YES/NO)^3^TRUE ALLERGY? (YES/NO)^3
+61 ;;^UTILITY(U,$J,358.6,15,3)
+62 ;;=ALLERGIES ALLERGY PATIENT
+63 ;;^UTILITY(U,$J,358.6,15,7,0)
+64 ;;=^357.67^1^1
+65 ;;^UTILITY(U,$J,358.6,15,7,1,0)
+66 ;;=DFN
+67 ;;^UTILITY(U,$J,358.6,16,0)
+68 ;;=DPT PATIENT'S TELEPHONE NUMBER^ADDRESS^IBDFN6^PATIENT FILE^1^2^1^^1^^^1^^
+69 ;;^UTILITY(U,$J,358.6,16,1,0)
+70 ;;=^^1^1^2930217^^
+71 ;;^UTILITY(U,$J,358.6,16,1,1,0)
+72 ;;=Used to display the patient's telephone number.
+73 ;;^UTILITY(U,$J,358.6,16,2)
+74 ;;=TELEPHONE NUMBER^20
+75 ;;^UTILITY(U,$J,358.6,16,3)
+76 ;;=PATIENT TELEPHONE MAS
+77 ;;^UTILITY(U,$J,358.6,16,7,0)
+78 ;;=^357.67^1^1
+79 ;;^UTILITY(U,$J,358.6,16,7,1,0)
+80 ;;=DFN
+81 ;;^UTILITY(U,$J,358.6,17,0)
+82 ;;=DPT PATIENT'S MARITAL STATUS^VADPT^IBDFN^PATIENT FILE^1^2^1^^1^^^1^^
+83 ;;^UTILITY(U,$J,358.6,17,1,0)
+84 ;;=^^1^1^2930217^
+85 ;;^UTILITY(U,$J,358.6,17,1,1,0)
+86 ;;=For displaying the patient's marital status.
+87 ;;^UTILITY(U,$J,358.6,17,2)
+88 ;;=MARITAL STATUS^15
+89 ;;^UTILITY(U,$J,358.6,17,3)
+90 ;;=PATIENT MARITAL STATUS MAS
+91 ;;^UTILITY(U,$J,358.6,17,7,0)
+92 ;;=^357.67^1^1
+93 ;;^UTILITY(U,$J,358.6,17,7,1,0)
+94 ;;=DFN
+95 ;;^UTILITY(U,$J,358.6,18,0)
+96 ;;=DPT PATIENT'S EMPLOYER NAME^EMPLOYER^IBDFN2^PATIENT FILE^1^2^1^^1^^^1^^
+97 ;;^UTILITY(U,$J,358.6,18,1,0)
+98 ;;=^^1^1^2930217^
+99 ;;^UTILITY(U,$J,358.6,18,1,1,0)
+100 ;;=For displaying the patient's employer.
+101 ;;^UTILITY(U,$J,358.6,18,2)
+102 ;;=employer name^45
+103 ;;^UTILITY(U,$J,358.6,18,3)
+104 ;;=PATIENT EMPLOYER MAS
+105 ;;^UTILITY(U,$J,358.6,18,7,0)
+106 ;;=^357.67^1^1
+107 ;;^UTILITY(U,$J,358.6,18,7,1,0)
+108 ;;=DFN
+109 ;;^UTILITY(U,$J,358.6,19,0)
+110 ;;=DPT PATIENT'S EMPLOYMENT STATUS^EMPLMNT^IBDFN^PATIENT FILE^1^2^1^^1^^^1^^
