IBINI0DQ ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
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,"OPT",4083,1,3,0)
;;= Deceased Patients
;;^UTILITY(U,$J,"OPT",4083,1,4,0)
;;= Non-Veterans
;;^UTILITY(U,$J,"OPT",4083,1,5,0)
;;= Patients who are rated SC greater than 50%
;;^UTILITY(U,$J,"OPT",4083,1,6,0)
;;=The user will be allowed to sort by Exemption Status Date, and by
;;^UTILITY(U,$J,"OPT",4083,1,7,0)
;;=Patient name. Optionally, the user can store the results of the
;;^UTILITY(U,$J,"OPT",4083,1,8,0)
;;=search in a template named IB EXEMPTION LIST for local printing purposes.
;;^UTILITY(U,$J,"OPT",4083,1,9,0)
;;=
;;^UTILITY(U,$J,"OPT",4083,25)
;;=IBARXEPL
;;^UTILITY(U,$J,"OPT",4083,"U")
;;=LETTERS TO EXEMPT PATIENTS
;;^UTILITY(U,$J,"OPT",4093,0)
;;=IBDF ENCOUNTER FORM^Encounter Forms^^M^^^^^^^y^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",4093,1,0)
;;=^^1^1^2930930^
;;^UTILITY(U,$J,"OPT",4093,1,1,0)
;;=Contains all of the encounter form options.
;;^UTILITY(U,$J,"OPT",4093,10,0)
;;=^19.01PI^11^5
;;^UTILITY(U,$J,"OPT",4093,10,5,0)
;;=4106^PM^3
;;^UTILITY(U,$J,"OPT",4093,10,5,"^")
;;=IBDF PRINT MANAGER
;;^UTILITY(U,$J,"OPT",4093,10,8,0)
;;=4178^TK^4
;;^UTILITY(U,$J,"OPT",4093,10,8,"^")
;;=IBDF EDIT TOOL KIT
;;^UTILITY(U,$J,"OPT",4093,10,9,0)
;;=4179^PR^2
;;^UTILITY(U,$J,"OPT",4093,10,9,"^")
;;=IBDF PRINT OPTIONS
;;^UTILITY(U,$J,"OPT",4093,10,10,0)
;;=4181^EE^1
;;^UTILITY(U,$J,"OPT",4093,10,10,"^")
;;=IBDF EDIT ENCOUNTER FORMS
;;^UTILITY(U,$J,"OPT",4093,10,11,0)
;;=4107^IR^5
;;^UTILITY(U,$J,"OPT",4093,10,11,"^")
;;=IBDF IRM OPTIONS
;;^UTILITY(U,$J,"OPT",4093,99)
;;=55852,54008
;;^UTILITY(U,$J,"OPT",4093,"U")
;;=ENCOUNTER FORMS
;;^UTILITY(U,$J,"OPT",4094,0)
;;=IBDF CLINIC SETUP/EDIT FORMS^Clinic Setup/Edit Forms^^A^^^^^^^^INTEGRATED BILLING^^1
;;^UTILITY(U,$J,"OPT",4094,1,0)
;;=^^1^1^2930820^^^^
;;^UTILITY(U,$J,"OPT",4094,1,1,0)
;;=The form generator for creating encounter forms.
;;^UTILITY(U,$J,"OPT",4094,20)
;;=D ^IBDF6
;;^UTILITY(U,$J,"OPT",4094,"U")
;;=CLINIC SETUP/EDIT FORMS
;;^UTILITY(U,$J,"OPT",4095,0)
;;=IBDF PRINT ENCOUNTER FORMS^Print Encounter Forms for Appointments^^A^^^^^^^^INTEGRATED BILLING^^1
;;^UTILITY(U,$J,"OPT",4095,1,0)
;;=^^2^2^2931012^^
;;^UTILITY(U,$J,"OPT",4095,1,1,0)
;;=For printing an encounter form for appointments, either by division,
;;^UTILITY(U,$J,"OPT",4095,1,2,0)
;;=clinic, or patient.
;;^UTILITY(U,$J,"OPT",4095,20)
;;=D ^IBDF1B
;;^UTILITY(U,$J,"OPT",4095,"U")
;;=PRINT ENCOUNTER FORMS FOR APPO
;;^UTILITY(U,$J,"OPT",4096,0)
;;=IBDF PRINT BLNK ENCOUNTER FORM^Print Blank Encounter Form^^A^^^^^^^y^INTEGRATED BILLING^^1
;;^UTILITY(U,$J,"OPT",4096,1,0)
;;=^^2^2^2930610^^^^
;;^UTILITY(U,$J,"OPT",4096,1,1,0)
;;=This option allows the user to select a clinic, and if an encounter form
;;^UTILITY(U,$J,"OPT",4096,1,2,0)
;;=is defined for use with an embossed patient card the form will be printed.
;;^UTILITY(U,$J,"OPT",4096,20)
;;=D MAIN^IBDF1A(0)
;;^UTILITY(U,$J,"OPT",4096,"U")
;;=PRINT BLANK ENCOUNTER FORM
;;^UTILITY(U,$J,"OPT",4098,0)
;;=IBDF PRNT FORM W/DATA NO APPT.^Print Form w/Patient Data, No Appt^^A^^^^^^^^INTEGRATED BILLING^^1
;;^UTILITY(U,$J,"OPT",4098,1,0)
;;=^^3^3^2930820^^^^
;;^UTILITY(U,$J,"OPT",4098,1,1,0)
;;=
;;^UTILITY(U,$J,"OPT",4098,1,2,0)
;;=Allows an encounter form to be printed with patient data, but does not ask
;;^UTILITY(U,$J,"OPT",4098,1,3,0)
;;=that an appt. be selected. Uses current time as the appointment time.
;;^UTILITY(U,$J,"OPT",4098,20)
;;=D MAIN^IBDF1A(1)
;;^UTILITY(U,$J,"OPT",4098,"U")
;;=PRINT FORM W/PATIENT DATA, NO
IBINI0DQ ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 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,"OPT",4083,1,3,0)
+2 ;;= Deceased Patients
+3 ;;^UTILITY(U,$J,"OPT",4083,1,4,0)
+4 ;;= Non-Veterans
+5 ;;^UTILITY(U,$J,"OPT",4083,1,5,0)
+6 ;;= Patients who are rated SC greater than 50%
+7 ;;^UTILITY(U,$J,"OPT",4083,1,6,0)
+8 ;;=The user will be allowed to sort by Exemption Status Date, and by
+9 ;;^UTILITY(U,$J,"OPT",4083,1,7,0)
+10 ;;=Patient name. Optionally, the user can store the results of the
+11 ;;^UTILITY(U,$J,"OPT",4083,1,8,0)
+12 ;;=search in a template named IB EXEMPTION LIST for local printing purposes.
+13 ;;^UTILITY(U,$J,"OPT",4083,1,9,0)
+14 ;;=
+15 ;;^UTILITY(U,$J,"OPT",4083,25)
+16 ;;=IBARXEPL
+17 ;;^UTILITY(U,$J,"OPT",4083,"U")
+18 ;;=LETTERS TO EXEMPT PATIENTS
+19 ;;^UTILITY(U,$J,"OPT",4093,0)
+20 ;;=IBDF ENCOUNTER FORM^Encounter Forms^^M^^^^^^^y^INTEGRATED BILLING
+21 ;;^UTILITY(U,$J,"OPT",4093,1,0)
+22 ;;=^^1^1^2930930^
+23 ;;^UTILITY(U,$J,"OPT",4093,1,1,0)
+24 ;;=Contains all of the encounter form options.
+25 ;;^UTILITY(U,$J,"OPT",4093,10,0)
+26 ;;=^19.01PI^11^5
+27 ;;^UTILITY(U,$J,"OPT",4093,10,5,0)
+28 ;;=4106^PM^3
+29 ;;^UTILITY(U,$J,"OPT",4093,10,5,"^")
+30 ;;=IBDF PRINT MANAGER
+31 ;;^UTILITY(U,$J,"OPT",4093,10,8,0)
+32 ;;=4178^TK^4
+33 ;;^UTILITY(U,$J,"OPT",4093,10,8,"^")
+34 ;;=IBDF EDIT TOOL KIT
+35 ;;^UTILITY(U,$J,"OPT",4093,10,9,0)
+36 ;;=4179^PR^2
+37 ;;^UTILITY(U,$J,"OPT",4093,10,9,"^")
+38 ;;=IBDF PRINT OPTIONS
+39 ;;^UTILITY(U,$J,"OPT",4093,10,10,0)
+40 ;;=4181^EE^1
+41 ;;^UTILITY(U,$J,"OPT",4093,10,10,"^")
+42 ;;=IBDF EDIT ENCOUNTER FORMS
+43 ;;^UTILITY(U,$J,"OPT",4093,10,11,0)
+44 ;;=4107^IR^5
+45 ;;^UTILITY(U,$J,"OPT",4093,10,11,"^")
+46 ;;=IBDF IRM OPTIONS
+47 ;;^UTILITY(U,$J,"OPT",4093,99)
+48 ;;=55852,54008
+49 ;;^UTILITY(U,$J,"OPT",4093,"U")
+50 ;;=ENCOUNTER FORMS
+51 ;;^UTILITY(U,$J,"OPT",4094,0)
+52 ;;=IBDF CLINIC SETUP/EDIT FORMS^Clinic Setup/Edit Forms^^A^^^^^^^^INTEGRATED BILLING^^1
+53 ;;^UTILITY(U,$J,"OPT",4094,1,0)
+54 ;;=^^1^1^2930820^^^^
+55 ;;^UTILITY(U,$J,"OPT",4094,1,1,0)
+56 ;;=The form generator for creating encounter forms.
+57 ;;^UTILITY(U,$J,"OPT",4094,20)
+58 ;;=D ^IBDF6
+59 ;;^UTILITY(U,$J,"OPT",4094,"U")
+60 ;;=CLINIC SETUP/EDIT FORMS
+61 ;;^UTILITY(U,$J,"OPT",4095,0)
+62 ;;=IBDF PRINT ENCOUNTER FORMS^Print Encounter Forms for Appointments^^A^^^^^^^^INTEGRATED BILLING^^1
+63 ;;^UTILITY(U,$J,"OPT",4095,1,0)
+64 ;;=^^2^2^2931012^^
+65 ;;^UTILITY(U,$J,"OPT",4095,1,1,0)
+66 ;;=For printing an encounter form for appointments, either by division,
+67 ;;^UTILITY(U,$J,"OPT",4095,1,2,0)
+68 ;;=clinic, or patient.
+69 ;;^UTILITY(U,$J,"OPT",4095,20)
+70 ;;=D ^IBDF1B
+71 ;;^UTILITY(U,$J,"OPT",4095,"U")
+72 ;;=PRINT ENCOUNTER FORMS FOR APPO
+73 ;;^UTILITY(U,$J,"OPT",4096,0)
+74 ;;=IBDF PRINT BLNK ENCOUNTER FORM^Print Blank Encounter Form^^A^^^^^^^y^INTEGRATED BILLING^^1
+75 ;;^UTILITY(U,$J,"OPT",4096,1,0)
+76 ;;=^^2^2^2930610^^^^
+77 ;;^UTILITY(U,$J,"OPT",4096,1,1,0)
+78 ;;=This option allows the user to select a clinic, and if an encounter form
+79 ;;^UTILITY(U,$J,"OPT",4096,1,2,0)
+80 ;;=is defined for use with an embossed patient card the form will be printed.
+81 ;;^UTILITY(U,$J,"OPT",4096,20)
+82 ;;=D MAIN^IBDF1A(0)
+83 ;;^UTILITY(U,$J,"OPT",4096,"U")
+84 ;;=PRINT BLANK ENCOUNTER FORM
+85 ;;^UTILITY(U,$J,"OPT",4098,0)
+86 ;;=IBDF PRNT FORM W/DATA NO APPT.^Print Form w/Patient Data, No Appt^^A^^^^^^^^INTEGRATED BILLING^^1
+87 ;;^UTILITY(U,$J,"OPT",4098,1,0)
+88 ;;=^^3^3^2930820^^^^
+89 ;;^UTILITY(U,$J,"OPT",4098,1,1,0)
+90 ;;=
+91 ;;^UTILITY(U,$J,"OPT",4098,1,2,0)
+92 ;;=Allows an encounter form to be printed with patient data, but does not ask
+93 ;;^UTILITY(U,$J,"OPT",4098,1,3,0)
+94 ;;=that an appt. be selected. Uses current time as the appointment time.
+95 ;;^UTILITY(U,$J,"OPT",4098,20)
+96 ;;=D MAIN^IBDF1A(1)
+97 ;;^UTILITY(U,$J,"OPT",4098,"U")
+98 ;;=PRINT FORM W/PATIENT DATA, NO
