- IBDEI007 ; ; 18-MAR-1994
- ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- Q:'DIFQR(358.1) 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.1)
- ;;=^IBE(358.1,
- ;;^UTILITY(U,$J,358.1,0)
- ;;=IMP/EXP ENCOUNTER FORM BLOCK^358.1I^89^78
- ;;^UTILITY(U,$J,358.1,1,0)
- ;;=PROGRESS NOTES (SOAP)^1^^23^0^132^30^^^2^^^Patient progess notes in SOAP format.
- ;;^UTILITY(U,$J,358.1,2,0)
- ;;=BUFFALO'S PROVIDER ORDERS^1^^54^0^132^21^^^2^^^FOR ENTERING ORDERS
- ;;^UTILITY(U,$J,358.1,3,0)
- ;;=PAGE 1 HEADER^1^^0^0^132^1^^^2^^^CLINIC & APPT DATE^
- ;;^UTILITY(U,$J,358.1,4,0)
- ;;=SIGNATURE^1^^75^0^132^5^^^2^^^SPACE FOR SIGNATURE & CLINIC^
- ;;^UTILITY(U,$J,358.1,5,0)
- ;;=VITALS^1^^19^0^132^4^^^2^^^FOR RECORDING VITALS^
- ;;^UTILITY(U,$J,358.1,6,0)
- ;;=BUFFALO'S DEMOGRAPHICS^1^^2^0^132^17^^^2^^^PATIENT DEMOGRAPHICS^
- ;;^UTILITY(U,$J,358.1,7,0)
- ;;=BUFFALO'S DOCTORS NOTES^2^^20^0^132^26^^^2^^^Dx,PROCDURE NOTES,FINDINGS, PLAN, ETC.
- ;;^UTILITY(U,$J,358.1,8,0)
- ;;=PAGE 1 HEADER^2^^0^0^132^1^^^2^^^CLINIC & APPT DATE^
- ;;^UTILITY(U,$J,358.1,9,0)
- ;;=SIGNATURE^2^^75^0^132^5^^^2^^^SPACE FOR SIGNATURE & CLINIC^
- ;;^UTILITY(U,$J,358.1,10,0)
- ;;=BUFFALO'S CPT CODES^2^^47^0^132^28^^^2^**CPT CHECKLIST**^C^CPT SELECTION LIST^
- ;;^UTILITY(U,$J,358.1,11,0)
- ;;=BUFFALO'S DEMOGRAPHICS^2^^2^0^132^17^^^2^^^PATIENT DEMOGRAPHICS^
- ;;^UTILITY(U,$J,358.1,12,0)
- ;;=APPOINTMENT^3^^0^93^38^3^^^2^^UC^Contains the clinic & date/time of appointment.
- ;;^UTILITY(U,$J,358.1,13,0)
- ;;=ALLERGIES^3^^26^0^50^9^^^1^****** PATIENT ALLERGIES ******^UC^Displays the patient's allergies and has space for allergies to be written in.
- ;;^UTILITY(U,$J,358.1,14,0)
- ;;=SUPPLEMENTAL DEMOGRAPHICS^3^^9^0^49^17^^^2^^BUC^Contains address, insurance, employment and marital data.
- ;;^UTILITY(U,$J,358.1,15,0)
- ;;=VITAL SIGNS^3^^5^51^79^4^^^2^Vital Signs:^^For writting in the patient's vital signs.^
- ;;^UTILITY(U,$J,358.1,16,0)
- ;;=PROGRESS NOTES (UNSTRUCTURED)^3^^52^0^100^28^^^2^^BUC^Data fields (w/o data) - for writting progress notes (Not in SOAP format)^
- ;;^UTILITY(U,$J,358.1,17,0)
- ;;=DIAGNOSIS CODES^3^^9^52^80^26^^^1^PLEASE CHECK OFF DIAGNOSIS TREATED THIS VISIT^UC^This block contains a list of ICD-9 diagnosis codes to select from.^
- ;;^UTILITY(U,$J,358.1,18,0)
- ;;=CPT CODES^3^^35^0^129^16^^^1^PLEASE CHECK PROCEDURES PERFORMED THIS VISIT^CU^Contains a list of CPT codes that can be selected.^
- ;;^UTILITY(U,$J,358.1,19,0)
- ;;=BASIC DEMOGRAPHICS^3^^0^0^50^26^^^1^^BUC^Contains patient name,dob,sex,pid,SC conditions^
- ;;^UTILITY(U,$J,358.1,20,0)
- ;;=HIDDEN SC TREATMENT QUESTIONS^3^^77^0^46^2^^^2^^UC^Data fields - questions on SC of treatment - displayed only if applicable^
- ;;^UTILITY(U,$J,358.1,21,0)
- ;;=TYPE OF VISIT - 1994 CODES^3^^53^89^43^21^^^1^^^Selection list - visit types with their CPT codes^
- ;;^UTILITY(U,$J,358.1,31,0)
- ;;=APPOINTMENT^5^^0^94^38^3^^^2^^UC^Contains the clinic & date/time of appointment.
- ;;^UTILITY(U,$J,358.1,32,0)
- ;;=ALLERGIES^5^^17^0^50^9^^^1^****** PATIENT ALLERGIES ******^UC^Displays the patient's allergies and has space for allergies to be written in.
- ;;^UTILITY(U,$J,358.1,33,0)
- ;;=DIAGNOSIS CODES^5^^26^0^132^13^^^1^PLEASE CHECK OFF DIAGNOSIS TREATED THIS VISIT^UC^This block contains a list of ICD-9 diagnosis codes to select from.^
- ;;^UTILITY(U,$J,358.1,34,0)
- ;;=INSURANCE INFORMATION^5^^11^0^50^5^^^2^^BUC^insurance indicator, insurance policies^
- ;;^UTILITY(U,$J,358.1,35,0)
- ;;=VITAL SIGNS^5^^10^54^30^16^^^1^Vital Signs:^^For writting in the patient's vital signs.^
- ;;^UTILITY(U,$J,358.1,36,0)
- ;;=SIGNATURE^5^^75^59^45^5^^^2^^^space for signature, prints clinic name^
- ;;^UTILITY(U,$J,358.1,36,1)
- ;;=
- IBDEI007 ; ; 18-MAR-1994
- +1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- +2 IF 'DIFQR(358.1)
- 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.1)
- +2 ;;=^IBE(358.1,
- +3 ;;^UTILITY(U,$J,358.1,0)
- +4 ;;=IMP/EXP ENCOUNTER FORM BLOCK^358.1I^89^78
- +5 ;;^UTILITY(U,$J,358.1,1,0)
- +6 ;;=PROGRESS NOTES (SOAP)^1^^23^0^132^30^^^2^^^Patient progess notes in SOAP format.
- +7 ;;^UTILITY(U,$J,358.1,2,0)
- +8 ;;=BUFFALO'S PROVIDER ORDERS^1^^54^0^132^21^^^2^^^FOR ENTERING ORDERS
- +9 ;;^UTILITY(U,$J,358.1,3,0)
- +10 ;;=PAGE 1 HEADER^1^^0^0^132^1^^^2^^^CLINIC & APPT DATE^
- +11 ;;^UTILITY(U,$J,358.1,4,0)
- +12 ;;=SIGNATURE^1^^75^0^132^5^^^2^^^SPACE FOR SIGNATURE & CLINIC^
- +13 ;;^UTILITY(U,$J,358.1,5,0)
- +14 ;;=VITALS^1^^19^0^132^4^^^2^^^FOR RECORDING VITALS^
- +15 ;;^UTILITY(U,$J,358.1,6,0)
- +16 ;;=BUFFALO'S DEMOGRAPHICS^1^^2^0^132^17^^^2^^^PATIENT DEMOGRAPHICS^
- +17 ;;^UTILITY(U,$J,358.1,7,0)
- +18 ;;=BUFFALO'S DOCTORS NOTES^2^^20^0^132^26^^^2^^^Dx,PROCDURE NOTES,FINDINGS, PLAN, ETC.
- +19 ;;^UTILITY(U,$J,358.1,8,0)
- +20 ;;=PAGE 1 HEADER^2^^0^0^132^1^^^2^^^CLINIC & APPT DATE^
- +21 ;;^UTILITY(U,$J,358.1,9,0)
- +22 ;;=SIGNATURE^2^^75^0^132^5^^^2^^^SPACE FOR SIGNATURE & CLINIC^
- +23 ;;^UTILITY(U,$J,358.1,10,0)
- +24 ;;=BUFFALO'S CPT CODES^2^^47^0^132^28^^^2^**CPT CHECKLIST**^C^CPT SELECTION LIST^
- +25 ;;^UTILITY(U,$J,358.1,11,0)
- +26 ;;=BUFFALO'S DEMOGRAPHICS^2^^2^0^132^17^^^2^^^PATIENT DEMOGRAPHICS^
- +27 ;;^UTILITY(U,$J,358.1,12,0)
- +28 ;;=APPOINTMENT^3^^0^93^38^3^^^2^^UC^Contains the clinic & date/time of appointment.
- +29 ;;^UTILITY(U,$J,358.1,13,0)
- +30 ;;=ALLERGIES^3^^26^0^50^9^^^1^****** PATIENT ALLERGIES ******^UC^Displays the patient's allergies and has space for allergies to be written in.
- +31 ;;^UTILITY(U,$J,358.1,14,0)
- +32 ;;=SUPPLEMENTAL DEMOGRAPHICS^3^^9^0^49^17^^^2^^BUC^Contains address, insurance, employment and marital data.
- +33 ;;^UTILITY(U,$J,358.1,15,0)
- +34 ;;=VITAL SIGNS^3^^5^51^79^4^^^2^Vital Signs:^^For writting in the patient's vital signs.^
- +35 ;;^UTILITY(U,$J,358.1,16,0)
- +36 ;;=PROGRESS NOTES (UNSTRUCTURED)^3^^52^0^100^28^^^2^^BUC^Data fields (w/o data) - for writting progress notes (Not in SOAP format)^
- +37 ;;^UTILITY(U,$J,358.1,17,0)
- +38 ;;=DIAGNOSIS CODES^3^^9^52^80^26^^^1^PLEASE CHECK OFF DIAGNOSIS TREATED THIS VISIT^UC^This block contains a list of ICD-9 diagnosis codes to select from.^
- +39 ;;^UTILITY(U,$J,358.1,18,0)
- +40 ;;=CPT CODES^3^^35^0^129^16^^^1^PLEASE CHECK PROCEDURES PERFORMED THIS VISIT^CU^Contains a list of CPT codes that can be selected.^
- +41 ;;^UTILITY(U,$J,358.1,19,0)
- +42 ;;=BASIC DEMOGRAPHICS^3^^0^0^50^26^^^1^^BUC^Contains patient name,dob,sex,pid,SC conditions^
- +43 ;;^UTILITY(U,$J,358.1,20,0)
- +44 ;;=HIDDEN SC TREATMENT QUESTIONS^3^^77^0^46^2^^^2^^UC^Data fields - questions on SC of treatment - displayed only if applicable^
- +45 ;;^UTILITY(U,$J,358.1,21,0)
- +46 ;;=TYPE OF VISIT - 1994 CODES^3^^53^89^43^21^^^1^^^Selection list - visit types with their CPT codes^
- +47 ;;^UTILITY(U,$J,358.1,31,0)
- +48 ;;=APPOINTMENT^5^^0^94^38^3^^^2^^UC^Contains the clinic & date/time of appointment.
- +49 ;;^UTILITY(U,$J,358.1,32,0)
- +50 ;;=ALLERGIES^5^^17^0^50^9^^^1^****** PATIENT ALLERGIES ******^UC^Displays the patient's allergies and has space for allergies to be written in.
- +51 ;;^UTILITY(U,$J,358.1,33,0)
- +52 ;;=DIAGNOSIS CODES^5^^26^0^132^13^^^1^PLEASE CHECK OFF DIAGNOSIS TREATED THIS VISIT^UC^This block contains a list of ICD-9 diagnosis codes to select from.^
- +53 ;;^UTILITY(U,$J,358.1,34,0)
- +54 ;;=INSURANCE INFORMATION^5^^11^0^50^5^^^2^^BUC^insurance indicator, insurance policies^
- +55 ;;^UTILITY(U,$J,358.1,35,0)
- +56 ;;=VITAL SIGNS^5^^10^54^30^16^^^1^Vital Signs:^^For writting in the patient's vital signs.^
- +57 ;;^UTILITY(U,$J,358.1,36,0)
- +58 ;;=SIGNATURE^5^^75^59^45^5^^^2^^^space for signature, prints clinic name^
- +59 ;;^UTILITY(U,$J,358.1,36,1)
- +60 ;;=