| 1 | IB20PT61 ;ALB/AAS - Insurance post init stuff ; 2/22/93
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | 399 ; -- create new AE x-ref of file 399
|
|---|
| 5 | W !!!,"<<< Bill/Claims file Conversion."
|
|---|
| 6 | W !," Cross-reference Bill/Claims file by Primary Insurer"
|
|---|
| 7 | S ZTRTN="DQ399^IB20PT61",ZTDESC="IB - v2 BILL/CLAIMS FILE POST INIT UPDATE",ZTIO="" S:$G(IBFORCE) ZTDTH=$$15^IB20PT6
|
|---|
| 8 | W ! D ^%ZTLOAD I '$D(ZTSK) D Q:'IBOK
|
|---|
| 9 | .D MANUAL
|
|---|
| 10 | .I 'IBOK,$P($G(^IBE(350.9,1,3)),"^",19)="" W !!,"You must run the v2.0 post init routine IB20PT6 before allowing users to",!,"print or modify Bill/Claims entries."
|
|---|
| 11 | I $D(ZTSK) W !," Bill/Claims file update queued as task ",ZTSK K ZTSK Q
|
|---|
| 12 | ;
|
|---|
| 13 | N IBCNT,IBCNTD
|
|---|
| 14 | DQ399 D ^IB20PT62,BULL2 ;transfer/convert bill claims file
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | BULL1 ; -- finish bulletin for patient file conversion
|
|---|
| 18 | S XMSUB="IB v2 PATIENT File Conversion Complete"
|
|---|
| 19 | S IBT(1)=" The Integrated Billing Version 2.0 conversion of the patient file"
|
|---|
| 20 | S IBT(2)=" completed.",IBT(2.5)=""
|
|---|
| 21 | S IBT(3)=" Started on: "_$$DAT1^IBOUTL(IBSPDT,"2P")
|
|---|
| 22 | S IBT(4)=" Completed on: "_$$DAT1^IBOUTL(IBEPDT,"2P")
|
|---|
| 23 | S IBT(5)=""
|
|---|
| 24 | S IBT(6)=" Total Patients Checked: "_$G(IBCNT)
|
|---|
| 25 | S IBT(7)=" Total Patients with Insurance Entries: "_$G(IBCNTI)
|
|---|
| 26 | S IBT(8)=" Total number of insurance policies: "_$G(IBCNTPP)
|
|---|
| 27 | S IBT(9)=" Total number of Group Plans created: "_$G(IBCNTP)
|
|---|
| 28 | D SEND^IBTRKR31
|
|---|
| 29 | K IBT,XMSUB
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | BULL2 ; -- finish bulletin for bill/claims conversion
|
|---|
| 33 | S XMSUB="IB v2 BILL/CLAIMS File Conversion Complete"
|
|---|
| 34 | S IBT(1)=" The Integrated Billing Version 2.0 conversion of the BILL/CLAIMS file"
|
|---|
| 35 | S IBT(2)=" completed."
|
|---|
| 36 | S IBT(2.1)=""
|
|---|
| 37 | S IBT(3)=" Started on: "_$$DAT1^IBOUTL(IBSCDT,"2P")
|
|---|
| 38 | S IBT(4)=" Completed on: "_$$DAT1^IBOUTL(IBECDT,"2P")
|
|---|
| 39 | S IBT(5)=""
|
|---|
| 40 | S IBT(6)=" Total Entries in Bill/Claims file: "_$G(IBCNT)
|
|---|
| 41 | S IBT(7)=" Total Bill/Claims Diagnosis Entries Created: "_$G(IBCNTD)
|
|---|
| 42 | D SEND^IBTRKR31
|
|---|
| 43 | K IBT,XMSUB
|
|---|
| 44 | Q
|
|---|
| 45 | ;
|
|---|
| 46 | BULL3 ; -- finish bulletin for loading current inpatients
|
|---|
| 47 | S XMSUB="IB v2 Claims Tracking Update Complete"
|
|---|
| 48 | S IBT(1)=" The Integrated Billing Version 2.0 initial loading of current inpatients"
|
|---|
| 49 | S IBT(2)=" into the claims tracking module has completed.",IBT(2.5)=""
|
|---|
| 50 | S IBT(2.6)=" "_IBCNT_" Patients added to the Claims Tracking Module"
|
|---|
| 51 | S IBT(2.7)=""
|
|---|
| 52 | S IBT(3)=" Started on: "_$$DAT1^IBOUTL(IBSTDT,"2P")
|
|---|
| 53 | S IBT(4)=" Completed on: "_$$DAT1^IBOUTL(IBETDT,"2P")
|
|---|
| 54 | D SEND^IBTRKR31
|
|---|
| 55 | K IBT,XMSUB
|
|---|
| 56 | Q
|
|---|
| 57 | ;
|
|---|
| 58 | MANUAL ; -- ask if want to run manually
|
|---|
| 59 | N DIR,DIRUT,DUOUT,X,Y
|
|---|
| 60 | S IBOK=1
|
|---|
| 61 | W !!,"You did not select to QUEUE this portion of the IB v2 conversion",!
|
|---|
| 62 | S DIR(0)="Y",DIR("A")="OKAY TO RUN NOW"
|
|---|
| 63 | S DIR("?")="Enter 'YES' if you want to run this now directly on this device or 'NO' if you do not wish to run this part of the conversion now."
|
|---|
| 64 | D ^DIR
|
|---|
| 65 | S IBOK=+$G(Y)
|
|---|
| 66 | Q
|
|---|
