IB20PT61.m

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