IBINI0DM ; ; 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",3537,"U")
;;=OUTPATIENT/REGISTRATION EVENTS
;;^UTILITY(U,$J,"OPT",3542,0)
;;=IB PURGE LIST LOG ENTRIES^List Archive/Purge Log Entries^^R^^XUMGR^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",3542,1,0)
;;=^^3^3^2920519^^^
;;^UTILITY(U,$J,"OPT",3542,1,1,0)
;;=This option may be used to list all of the log entries in the
;;^UTILITY(U,$J,"OPT",3542,1,2,0)
;;=IB ARCHIVE/PURGE LOG file, #350.6. All entries in the file are
;;^UTILITY(U,$J,"OPT",3542,1,3,0)
;;=listed, in the order that they were added to the file.
;;^UTILITY(U,$J,"OPT",3542,25)
;;=LST^IBPO
;;^UTILITY(U,$J,"OPT",3542,"U")
;;=LIST ARCHIVE/PURGE LOG ENTRIES
;;^UTILITY(U,$J,"OPT",3543,0)
;;=IB PURGE LOG INQUIRY^Archive/Purge Log Inquiry^^R^^XUMGR^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",3543,1,0)
;;=^^2^2^2920519^^^
;;^UTILITY(U,$J,"OPT",3543,1,1,0)
;;=This option may be used to provide a full inquiry of any entry in the
;;^UTILITY(U,$J,"OPT",3543,1,2,0)
;;=IB ARCHIVE/PURGE LOG, file #350.6.
;;^UTILITY(U,$J,"OPT",3543,25)
;;=INQ^IBPO
;;^UTILITY(U,$J,"OPT",3543,"U")
;;=ARCHIVE/PURGE LOG INQUIRY
;;^UTILITY(U,$J,"OPT",3544,0)
;;=IB PURGE LIST TEMPLATE ENTRIES^List Search Template Entries^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",3544,1,0)
;;=^^2^2^2920519^
;;^UTILITY(U,$J,"OPT",3544,1,1,0)
;;=This option may be used to list all entries in a Search Template which
;;^UTILITY(U,$J,"OPT",3544,1,2,0)
;;=are scheduled to be archived and purged.
;;^UTILITY(U,$J,"OPT",3544,25)
;;=TMP^IBPO
;;^UTILITY(U,$J,"OPT",3544,"U")
;;=LIST SEARCH TEMPLATE ENTRIES
;;^UTILITY(U,$J,"OPT",3545,0)
;;=IB PURGE DELETE TEMPLATE ENTRY^Delete Entry from Search Template^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",3545,1,0)
;;=^^10^10^2940207^^^
;;^UTILITY(U,$J,"OPT",3545,1,1,0)
;;=This option may be used to prevent a record from being purged from the
;;^UTILITY(U,$J,"OPT",3545,1,2,0)
;;=database. The user will be prompted for an established Search Template
;;^UTILITY(U,$J,"OPT",3545,1,3,0)
;;=based on one of the following three files:
;;^UTILITY(U,$J,"OPT",3545,1,4,0)
;;=
;;^UTILITY(U,$J,"OPT",3545,1,5,0)
;;= 350 INTEGRATED BILLING ACTION
;;^UTILITY(U,$J,"OPT",3545,1,6,0)
;;= 351 CATEGORY C BILLING CLOCK
;;^UTILITY(U,$J,"OPT",3545,1,7,0)
;;= 399 BILL/CLAIMS
;;^UTILITY(U,$J,"OPT",3545,1,8,0)
;;=
;;^UTILITY(U,$J,"OPT",3545,1,9,0)
;;=The records stored in this template will be listed, and the user may
;;^UTILITY(U,$J,"OPT",3545,1,10,0)
;;=select a record to be deleted from the template.
;;^UTILITY(U,$J,"OPT",3545,25)
;;=IBPUDEL
;;^UTILITY(U,$J,"OPT",3545,"U")
;;=DELETE ENTRY FROM SEARCH TEMPL
;;^UTILITY(U,$J,"OPT",3546,0)
;;=IB MT PASS CONV CHARGES^Send Converted Charges to A/R^To be removed with the next version of IB^R^^IB AUTHORIZE^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",3546,1,0)
;;=^^2^2^2931229^^^^
;;^UTILITY(U,$J,"OPT",3546,1,1,0)
;;=This option sends converted charges to accounts receivable. User can
;;^UTILITY(U,$J,"OPT",3546,1,2,0)
;;=use Patient name or a Cutoff date as selection criteria.
;;^UTILITY(U,$J,"OPT",3546,25)
;;=START^IBRCON3
;;^UTILITY(U,$J,"OPT",3546,"U")
;;=SEND CONVERTED CHARGES TO A/R
;;^UTILITY(U,$J,"OPT",3547,0)
;;=IB SITE DEVICE SETUP^Select Default Device for Forms^^E^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",3547,1,0)
;;=^^3^3^2920722^^
;;^UTILITY(U,$J,"OPT",3547,1,1,0)
;;=This option allows associating devices as the default answer when printing
;;^UTILITY(U,$J,"OPT",3547,1,2,0)
;;=forms. This is used to enter the default device for AR for follow-up
IBINI0DM ; ; 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",3537,"U")
+2 ;;=OUTPATIENT/REGISTRATION EVENTS
+3 ;;^UTILITY(U,$J,"OPT",3542,0)
+4 ;;=IB PURGE LIST LOG ENTRIES^List Archive/Purge Log Entries^^R^^XUMGR^^^^^^INTEGRATED BILLING
+5 ;;^UTILITY(U,$J,"OPT",3542,1,0)
+6 ;;=^^3^3^2920519^^^
+7 ;;^UTILITY(U,$J,"OPT",3542,1,1,0)
+8 ;;=This option may be used to list all of the log entries in the
+9 ;;^UTILITY(U,$J,"OPT",3542,1,2,0)
+10 ;;=IB ARCHIVE/PURGE LOG file, #350.6. All entries in the file are
+11 ;;^UTILITY(U,$J,"OPT",3542,1,3,0)
+12 ;;=listed, in the order that they were added to the file.
+13 ;;^UTILITY(U,$J,"OPT",3542,25)
+14 ;;=LST^IBPO
+15 ;;^UTILITY(U,$J,"OPT",3542,"U")
+16 ;;=LIST ARCHIVE/PURGE LOG ENTRIES
+17 ;;^UTILITY(U,$J,"OPT",3543,0)
+18 ;;=IB PURGE LOG INQUIRY^Archive/Purge Log Inquiry^^R^^XUMGR^^^^^^INTEGRATED BILLING
+19 ;;^UTILITY(U,$J,"OPT",3543,1,0)
+20 ;;=^^2^2^2920519^^^
+21 ;;^UTILITY(U,$J,"OPT",3543,1,1,0)
+22 ;;=This option may be used to provide a full inquiry of any entry in the
+23 ;;^UTILITY(U,$J,"OPT",3543,1,2,0)
+24 ;;=IB ARCHIVE/PURGE LOG, file #350.6.
+25 ;;^UTILITY(U,$J,"OPT",3543,25)
+26 ;;=INQ^IBPO
+27 ;;^UTILITY(U,$J,"OPT",3543,"U")
+28 ;;=ARCHIVE/PURGE LOG INQUIRY
+29 ;;^UTILITY(U,$J,"OPT",3544,0)
+30 ;;=IB PURGE LIST TEMPLATE ENTRIES^List Search Template Entries^^R^^^^^^^^INTEGRATED BILLING
+31 ;;^UTILITY(U,$J,"OPT",3544,1,0)
+32 ;;=^^2^2^2920519^
+33 ;;^UTILITY(U,$J,"OPT",3544,1,1,0)
+34 ;;=This option may be used to list all entries in a Search Template which
+35 ;;^UTILITY(U,$J,"OPT",3544,1,2,0)
+36 ;;=are scheduled to be archived and purged.
+37 ;;^UTILITY(U,$J,"OPT",3544,25)
+38 ;;=TMP^IBPO
+39 ;;^UTILITY(U,$J,"OPT",3544,"U")
+40 ;;=LIST SEARCH TEMPLATE ENTRIES
+41 ;;^UTILITY(U,$J,"OPT",3545,0)
+42 ;;=IB PURGE DELETE TEMPLATE ENTRY^Delete Entry from Search Template^^R^^^^^^^^INTEGRATED BILLING
+43 ;;^UTILITY(U,$J,"OPT",3545,1,0)
+44 ;;=^^10^10^2940207^^^
+45 ;;^UTILITY(U,$J,"OPT",3545,1,1,0)
+46 ;;=This option may be used to prevent a record from being purged from the
+47 ;;^UTILITY(U,$J,"OPT",3545,1,2,0)
+48 ;;=database. The user will be prompted for an established Search Template
+49 ;;^UTILITY(U,$J,"OPT",3545,1,3,0)
+50 ;;=based on one of the following three files:
+51 ;;^UTILITY(U,$J,"OPT",3545,1,4,0)
+52 ;;=
+53 ;;^UTILITY(U,$J,"OPT",3545,1,5,0)
+54 ;;= 350 INTEGRATED BILLING ACTION
+55 ;;^UTILITY(U,$J,"OPT",3545,1,6,0)
+56 ;;= 351 CATEGORY C BILLING CLOCK
+57 ;;^UTILITY(U,$J,"OPT",3545,1,7,0)
+58 ;;= 399 BILL/CLAIMS
+59 ;;^UTILITY(U,$J,"OPT",3545,1,8,0)
+60 ;;=
+61 ;;^UTILITY(U,$J,"OPT",3545,1,9,0)
+62 ;;=The records stored in this template will be listed, and the user may
+63 ;;^UTILITY(U,$J,"OPT",3545,1,10,0)
+64 ;;=select a record to be deleted from the template.
+65 ;;^UTILITY(U,$J,"OPT",3545,25)
+66 ;;=IBPUDEL
+67 ;;^UTILITY(U,$J,"OPT",3545,"U")
+68 ;;=DELETE ENTRY FROM SEARCH TEMPL
+69 ;;^UTILITY(U,$J,"OPT",3546,0)
+70 ;;=IB MT PASS CONV CHARGES^Send Converted Charges to A/R^To be removed with the next version of IB^R^^IB AUTHORIZE^^^^^^INTEGRATED BILLING
+71 ;;^UTILITY(U,$J,"OPT",3546,1,0)
+72 ;;=^^2^2^2931229^^^^
+73 ;;^UTILITY(U,$J,"OPT",3546,1,1,0)
+74 ;;=This option sends converted charges to accounts receivable. User can
+75 ;;^UTILITY(U,$J,"OPT",3546,1,2,0)
+76 ;;=use Patient name or a Cutoff date as selection criteria.
+77 ;;^UTILITY(U,$J,"OPT",3546,25)
+78 ;;=START^IBRCON3
+79 ;;^UTILITY(U,$J,"OPT",3546,"U")
+80 ;;=SEND CONVERTED CHARGES TO A/R
+81 ;;^UTILITY(U,$J,"OPT",3547,0)
+82 ;;=IB SITE DEVICE SETUP^Select Default Device for Forms^^E^^^^^^^^INTEGRATED BILLING
+83 ;;^UTILITY(U,$J,"OPT",3547,1,0)
+84 ;;=^^3^3^2920722^^
+85 ;;^UTILITY(U,$J,"OPT",3547,1,1,0)
+86 ;;=This option allows associating devices as the default answer when printing
+87 ;;^UTILITY(U,$J,"OPT",3547,1,2,0)
+88 ;;=forms. This is used to enter the default device for AR for follow-up
