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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20PT61 2803 printed Dec 13, 2024@02:05:23 Page 2
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
