| [613] | 1 | IBCOIVM ;ALB/NLR - IVM BILLING ACTIVITY ; 28-APR-94
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;**6,62**; 21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | EN ; 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 | ;
|
|---|
| 20 | DEVICE ; 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 | ;
|
|---|
| 30 | ENQ ; Cleanup
|
|---|
| 31 | K DIRUT,DUOUT,DTOUT,DIROUT,I,IBFLG,ZTDESC,ZTREQ,ZTRTN,ZTSAVE
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
| 34 | ;
|
|---|
| 35 | PROD() ; 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 | ;
|
|---|
| 39 | HLPIVM ; 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
|
|---|
