- IB20PT61 ;ALB/AAS - Insurance post init stuff ; 2/22/93
- ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- ;
- 399 ; -- create new AE x-ref of file 399
- W !!!,"<<< Bill/Claims file Conversion."
- W !," Cross-reference Bill/Claims file by Primary Insurer"
- S ZTRTN="DQ399^IB20PT61",ZTDESC="IB - v2 BILL/CLAIMS FILE POST INIT UPDATE",ZTIO="" S:$G(IBFORCE) ZTDTH=$$15^IB20PT6
- W ! D ^%ZTLOAD I '$D(ZTSK) D Q:'IBOK
- .D MANUAL
- .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."
- I $D(ZTSK) W !," Bill/Claims file update queued as task ",ZTSK K ZTSK Q
- ;
- N IBCNT,IBCNTD
- DQ399 D ^IB20PT62,BULL2 ;transfer/convert bill claims file
- Q
- ;
- BULL1 ; -- finish bulletin for patient file conversion
- S XMSUB="IB v2 PATIENT File Conversion Complete"
- S IBT(1)=" The Integrated Billing Version 2.0 conversion of the patient file"
- S IBT(2)=" completed.",IBT(2.5)=""
- S IBT(3)=" Started on: "_$$DAT1^IBOUTL(IBSPDT,"2P")
- S IBT(4)=" Completed on: "_$$DAT1^IBOUTL(IBEPDT,"2P")
- S IBT(5)=""
- S IBT(6)=" Total Patients Checked: "_$G(IBCNT)
- S IBT(7)=" Total Patients with Insurance Entries: "_$G(IBCNTI)
- S IBT(8)=" Total number of insurance policies: "_$G(IBCNTPP)
- S IBT(9)=" Total number of Group Plans created: "_$G(IBCNTP)
- D SEND^IBTRKR31
- K IBT,XMSUB
- Q
- ;
- BULL2 ; -- finish bulletin for bill/claims conversion
- S XMSUB="IB v2 BILL/CLAIMS File Conversion Complete"
- S IBT(1)=" The Integrated Billing Version 2.0 conversion of the BILL/CLAIMS file"
- S IBT(2)=" completed."
- S IBT(2.1)=""
- S IBT(3)=" Started on: "_$$DAT1^IBOUTL(IBSCDT,"2P")
- S IBT(4)=" Completed on: "_$$DAT1^IBOUTL(IBECDT,"2P")
- S IBT(5)=""
- S IBT(6)=" Total Entries in Bill/Claims file: "_$G(IBCNT)
- S IBT(7)=" Total Bill/Claims Diagnosis Entries Created: "_$G(IBCNTD)
- D SEND^IBTRKR31
- K IBT,XMSUB
- Q
- ;
- BULL3 ; -- finish bulletin for loading current inpatients
- S XMSUB="IB v2 Claims Tracking Update Complete"
- S IBT(1)=" The Integrated Billing Version 2.0 initial loading of current inpatients"
- S IBT(2)=" into the claims tracking module has completed.",IBT(2.5)=""
- S IBT(2.6)=" "_IBCNT_" Patients added to the Claims Tracking Module"
- S IBT(2.7)=""
- S IBT(3)=" Started on: "_$$DAT1^IBOUTL(IBSTDT,"2P")
- S IBT(4)=" Completed on: "_$$DAT1^IBOUTL(IBETDT,"2P")
- D SEND^IBTRKR31
- K IBT,XMSUB
- Q
- ;
- MANUAL ; -- ask if want to run manually
- N DIR,DIRUT,DUOUT,X,Y
- S IBOK=1
- W !!,"You did not select to QUEUE this portion of the IB v2 conversion",!
- S DIR(0)="Y",DIR("A")="OKAY TO RUN NOW"
- 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."
- D ^DIR
- S IBOK=+$G(Y)
- Q
- IB20PT61 ;ALB/AAS - Insurance post init stuff ; 2/22/93
- +1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- +2 ;
- 399 ; -- create new AE x-ref of file 399
- +1 WRITE !!!,"<<< Bill/Claims file Conversion."
- +2 WRITE !," Cross-reference Bill/Claims file by Primary Insurer"
- +3 SET ZTRTN="DQ399^IB20PT61"
- SET ZTDESC="IB - v2 BILL/CLAIMS FILE POST INIT UPDATE"
- SET ZTIO=""
- IF $GET(IBFORCE)
- SET ZTDTH=$$15^IB20PT6
- +4 WRITE !
- DO ^%ZTLOAD
- IF '$DATA(ZTSK)
- Begin DoDot:1
- +5 DO MANUAL
- +6 IF 'IBOK
- IF $PIECE($GET(^IBE(350.9,1,3)),"^",19)=""
- WRITE !!,"You must run the v2.0 post init routine IB20PT6 before allowing users to",!,"print or modify Bill/Claims entries."
- End DoDot:1
- IF 'IBOK
- QUIT
- +7 IF $DATA(ZTSK)
- WRITE !," Bill/Claims file update queued as task ",ZTSK
- KILL ZTSK
- QUIT
- +8 ;
- +9 NEW IBCNT,IBCNTD
- DQ399 ;transfer/convert bill claims file
- DO ^IB20PT62
- DO BULL2
- +1 QUIT
- +2 ;
- BULL1 ; -- finish bulletin for patient file conversion
- +1 SET XMSUB="IB v2 PATIENT File Conversion Complete"
- +2 SET IBT(1)=" The Integrated Billing Version 2.0 conversion of the patient file"
- +3 SET IBT(2)=" completed."
- SET IBT(2.5)=""
- +4 SET IBT(3)=" Started on: "_$$DAT1^IBOUTL(IBSPDT,"2P")
- +5 SET IBT(4)=" Completed on: "_$$DAT1^IBOUTL(IBEPDT,"2P")
- +6 SET IBT(5)=""
- +7 SET IBT(6)=" Total Patients Checked: "_$GET(IBCNT)
- +8 SET IBT(7)=" Total Patients with Insurance Entries: "_$GET(IBCNTI)
- +9 SET IBT(8)=" Total number of insurance policies: "_$GET(IBCNTPP)
- +10 SET IBT(9)=" Total number of Group Plans created: "_$GET(IBCNTP)
- +11 DO SEND^IBTRKR31
- +12 KILL IBT,XMSUB
- +13 QUIT
- +14 ;
- BULL2 ; -- finish bulletin for bill/claims conversion
- +1 SET XMSUB="IB v2 BILL/CLAIMS File Conversion Complete"
- +2 SET IBT(1)=" The Integrated Billing Version 2.0 conversion of the BILL/CLAIMS file"
- +3 SET IBT(2)=" completed."
- +4 SET IBT(2.1)=""
- +5 SET IBT(3)=" Started on: "_$$DAT1^IBOUTL(IBSCDT,"2P")
- +6 SET IBT(4)=" Completed on: "_$$DAT1^IBOUTL(IBECDT,"2P")
- +7 SET IBT(5)=""
- +8 SET IBT(6)=" Total Entries in Bill/Claims file: "_$GET(IBCNT)
- +9 SET IBT(7)=" Total Bill/Claims Diagnosis Entries Created: "_$GET(IBCNTD)
- +10 DO SEND^IBTRKR31
- +11 KILL IBT,XMSUB
- +12 QUIT
- +13 ;
- BULL3 ; -- finish bulletin for loading current inpatients
- +1 SET XMSUB="IB v2 Claims Tracking Update Complete"
- +2 SET IBT(1)=" The Integrated Billing Version 2.0 initial loading of current inpatients"
- +3 SET IBT(2)=" into the claims tracking module has completed."
- SET IBT(2.5)=""
- +4 SET IBT(2.6)=" "_IBCNT_" Patients added to the Claims Tracking Module"
- +5 SET IBT(2.7)=""
- +6 SET IBT(3)=" Started on: "_$$DAT1^IBOUTL(IBSTDT,"2P")
- +7 SET IBT(4)=" Completed on: "_$$DAT1^IBOUTL(IBETDT,"2P")
- +8 DO SEND^IBTRKR31
- +9 KILL IBT,XMSUB
- +10 QUIT
- +11 ;
- MANUAL ; -- ask if want to run manually
- +1 NEW DIR,DIRUT,DUOUT,X,Y
- +2 SET IBOK=1
- +3 WRITE !!,"You did not select to QUEUE this portion of the IB v2 conversion",!
- +4 SET DIR(0)="Y"
- SET DIR("A")="OKAY TO RUN NOW"
- +5 SET 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."
- +6 DO ^DIR
- +7 SET IBOK=+$GET(Y)
- +8 QUIT
