source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IB20PT61.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.7 KB
Line 
1IB20PT61 ;ALB/AAS - Insurance post init stuff ; 2/22/93
2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
3 ;
4399 ; -- 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
14DQ399 D ^IB20PT62,BULL2 ;transfer/convert bill claims file
15 Q
16 ;
17BULL1 ; -- 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 ;
32BULL2 ; -- 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 ;
46BULL3 ; -- 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 ;
58MANUAL ; -- 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
Note: See TracBrowser for help on using the repository browser.