Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBCOIVM

IBCOIVM.m

Go to the documentation of this file.
  1. IBCOIVM ;ALB/NLR - IVM BILLING ACTIVITY ; 28-APR-94
  1. ;;Version 2.0 ; INTEGRATED BILLING ;**6,62**; 21-MAR-94
  1. ;
  1. EN ; Entry point to generate list of patients with policies identified
  1. ; through IVM Center, including total amounts billed and collected
  1. ;
  1. W !!?6,"This report will generate a list of patients who have policies"
  1. W !?6,"that were identified through the IVM Center. For all bills"
  1. W !?6,"generated against these policies, individual and total amounts"
  1. W !?6,"billed and collected will be indicated. If you are running"
  1. W !?6,"this report in your Production account, you will have the"
  1. W !?6,"opportunity to transmit this report to the IVM Center."
  1. ;
  1. ; Allow report transmittal if running in Production.
  1. S IBFLG=0 G:'$$PROD DEVICE
  1. ;
  1. W ! S DIR(0)="Y",DIR("B")="NO",DIR("A")="Would you like this report sent to the IVM Center",DIR("?")="^D HLPIVM^IBCOIVM"
  1. D ^DIR K DIR S IBFLG=+Y I $D(DIRUT)!($D(DUOUT)) G ENQ
  1. ;
  1. DEVICE ; Select device for queueing/printing report
  1. W !!?6,"Please note that this output requires 132 columns.",!
  1. S %ZIS="QM" D ^%ZIS G:POP ENQ
  1. I $D(IO("Q")) D G ENQ
  1. .S ZTRTN="^IBCOIVM1",ZTDESC="IB - IVM BILLING ACTIVITY",ZTSAVE("IBFLG")=""
  1. .D ^%ZTLOAD W !!,$S($D(ZTSK):"This job has been queued as task #"_ZTSK_".",1:"Unable to queue this job.")
  1. .K ZTSK,IO("Q") D HOME^%ZIS
  1. ;
  1. U IO D ^IBCOIVM1
  1. ;
  1. ENQ ; Cleanup
  1. K DIRUT,DUOUT,DTOUT,DIROUT,I,IBFLG,ZTDESC,ZTREQ,ZTRTN,ZTSAVE
  1. Q
  1. ;
  1. ;
  1. PROD() ; Is this the production account? Output: 1 - YES, 0 - NO
  1. N X S X=$G(^XMB("NETNAME"))
  1. Q $L(X,".")=3!($L(X,".")=4&(X[".MED."))
  1. ;
  1. HLPIVM ; Help for sending report to the IVM Center.
  1. W !!,"The IVM Center has identified insurance policies for a"
  1. W !,"large number of patients, and wishes to track amounts"
  1. W !,"billed and collected against these policies. The data"
  1. W !,"will be compiled nationally and will assist the IVM Center"
  1. W !,"in meeting its goals. Even if you are planning to transmit"
  1. W !,"a report to the IVM Center, you should run the report"
  1. W !,"once without transmitting to check the results. You may"
  1. W !,"then re-run the report and transmit it to the IVM Center."
  1. Q