- 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
