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

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

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1IBCOIVM ;ALB/NLR - IVM BILLING ACTIVITY ; 28-APR-94
2 ;;Version 2.0 ; INTEGRATED BILLING ;**6,62**; 21-MAR-94
3 ;
4EN ; Entry point to generate list of patients with policies identified
5 ; through IVM Center, including total amounts billed and collected
6 ;
7 W !!?6,"This report will generate a list of patients who have policies"
8 W !?6,"that were identified through the IVM Center. For all bills"
9 W !?6,"generated against these policies, individual and total amounts"
10 W !?6,"billed and collected will be indicated. If you are running"
11 W !?6,"this report in your Production account, you will have the"
12 W !?6,"opportunity to transmit this report to the IVM Center."
13 ;
14 ; Allow report transmittal if running in Production.
15 S IBFLG=0 G:'$$PROD DEVICE
16 ;
17 W ! S DIR(0)="Y",DIR("B")="NO",DIR("A")="Would you like this report sent to the IVM Center",DIR("?")="^D HLPIVM^IBCOIVM"
18 D ^DIR K DIR S IBFLG=+Y I $D(DIRUT)!($D(DUOUT)) G ENQ
19 ;
20DEVICE ; Select device for queueing/printing report
21 W !!?6,"Please note that this output requires 132 columns.",!
22 S %ZIS="QM" D ^%ZIS G:POP ENQ
23 I $D(IO("Q")) D G ENQ
24 .S ZTRTN="^IBCOIVM1",ZTDESC="IB - IVM BILLING ACTIVITY",ZTSAVE("IBFLG")=""
25 .D ^%ZTLOAD W !!,$S($D(ZTSK):"This job has been queued as task #"_ZTSK_".",1:"Unable to queue this job.")
26 .K ZTSK,IO("Q") D HOME^%ZIS
27 ;
28 U IO D ^IBCOIVM1
29 ;
30ENQ ; Cleanup
31 K DIRUT,DUOUT,DTOUT,DIROUT,I,IBFLG,ZTDESC,ZTREQ,ZTRTN,ZTSAVE
32 Q
33 ;
34 ;
35PROD() ; Is this the production account? Output: 1 - YES, 0 - NO
36 N X S X=$G(^XMB("NETNAME"))
37 Q $L(X,".")=3!($L(X,".")=4&(X[".MED."))
38 ;
39HLPIVM ; Help for sending report to the IVM Center.
40 W !!,"The IVM Center has identified insurance policies for a"
41 W !,"large number of patients, and wishes to track amounts"
42 W !,"billed and collected against these policies. The data"
43 W !,"will be compiled nationally and will assist the IVM Center"
44 W !,"in meeting its goals. Even if you are planning to transmit"
45 W !,"a report to the IVM Center, you should run the report"
46 W !,"once without transmitting to check the results. You may"
47 W !,"then re-run the report and transmit it to the IVM Center."
48 Q
Note: See TracBrowser for help on using the repository browser.