- IBCOIVM ;ALB/NLR - IVM BILLING ACTIVITY ; 28-APR-94
- ;;Version 2.0 ; INTEGRATED BILLING ;**6,62**; 21-MAR-94
- ;
- EN ; Entry point to generate list of patients with policies identified
- ; through IVM Center, including total amounts billed and collected
- ;
- W !!?6,"This report will generate a list of patients who have policies"
- W !?6,"that were identified through the IVM Center. For all bills"
- W !?6,"generated against these policies, individual and total amounts"
- W !?6,"billed and collected will be indicated. If you are running"
- W !?6,"this report in your Production account, you will have the"
- W !?6,"opportunity to transmit this report to the IVM Center."
- ;
- ; Allow report transmittal if running in Production.
- S IBFLG=0 G:'$$PROD DEVICE
- ;
- W ! S DIR(0)="Y",DIR("B")="NO",DIR("A")="Would you like this report sent to the IVM Center",DIR("?")="^D HLPIVM^IBCOIVM"
- D ^DIR K DIR S IBFLG=+Y I $D(DIRUT)!($D(DUOUT)) G ENQ
- ;
- DEVICE ; Select device for queueing/printing report
- W !!?6,"Please note that this output requires 132 columns.",!
- S %ZIS="QM" D ^%ZIS G:POP ENQ
- I $D(IO("Q")) D G ENQ
- .S ZTRTN="^IBCOIVM1",ZTDESC="IB - IVM BILLING ACTIVITY",ZTSAVE("IBFLG")=""
- .D ^%ZTLOAD W !!,$S($D(ZTSK):"This job has been queued as task #"_ZTSK_".",1:"Unable to queue this job.")
- .K ZTSK,IO("Q") D HOME^%ZIS
- ;
- U IO D ^IBCOIVM1
- ;
- ENQ ; Cleanup
- K DIRUT,DUOUT,DTOUT,DIROUT,I,IBFLG,ZTDESC,ZTREQ,ZTRTN,ZTSAVE
- Q
- ;
- ;
- PROD() ; Is this the production account? Output: 1 - YES, 0 - NO
- N X S X=$G(^XMB("NETNAME"))
- Q $L(X,".")=3!($L(X,".")=4&(X[".MED."))
- ;
- HLPIVM ; Help for sending report to the IVM Center.
- W !!,"The IVM Center has identified insurance policies for a"
- W !,"large number of patients, and wishes to track amounts"
- W !,"billed and collected against these policies. The data"
- W !,"will be compiled nationally and will assist the IVM Center"
- W !,"in meeting its goals. Even if you are planning to transmit"
- W !,"a report to the IVM Center, you should run the report"
- W !,"once without transmitting to check the results. You may"
- W !,"then re-run the report and transmit it to the IVM Center."
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCOIVM 2183 printed Feb 18, 2025@23:44:36 Page 2
- IBCOIVM ;ALB/NLR - IVM BILLING ACTIVITY ; 28-APR-94
- +1 ;;Version 2.0 ; INTEGRATED BILLING ;**6,62**; 21-MAR-94
- +2 ;
- EN ; Entry point to generate list of patients with policies identified
- +1 ; through IVM Center, including total amounts billed and collected
- +2 ;
- +3 WRITE !!?6,"This report will generate a list of patients who have policies"
- +4 WRITE !?6,"that were identified through the IVM Center. For all bills"
- +5 WRITE !?6,"generated against these policies, individual and total amounts"
- +6 WRITE !?6,"billed and collected will be indicated. If you are running"
- +7 WRITE !?6,"this report in your Production account, you will have the"
- +8 WRITE !?6,"opportunity to transmit this report to the IVM Center."
- +9 ;
- +10 ; Allow report transmittal if running in Production.
- +11 SET IBFLG=0
- if '$$PROD
- GOTO DEVICE
- +12 ;
- +13 WRITE !
- SET DIR(0)="Y"
- SET DIR("B")="NO"
- SET DIR("A")="Would you like this report sent to the IVM Center"
- SET DIR("?")="^D HLPIVM^IBCOIVM"
- +14 DO ^DIR
- KILL DIR
- SET IBFLG=+Y
- IF $DATA(DIRUT)!($DATA(DUOUT))
- GOTO ENQ
- +15 ;
- DEVICE ; Select device for queueing/printing report
- +1 WRITE !!?6,"Please note that this output requires 132 columns.",!
- +2 SET %ZIS="QM"
- DO ^%ZIS
- if POP
- GOTO ENQ
- +3 IF $DATA(IO("Q"))
- Begin DoDot:1
- +4 SET ZTRTN="^IBCOIVM1"
- SET ZTDESC="IB - IVM BILLING ACTIVITY"
- SET ZTSAVE("IBFLG")=""
- +5 DO ^%ZTLOAD
- WRITE !!,$SELECT($DATA(ZTSK):"This job has been queued as task #"_ZTSK_".",1:"Unable to queue this job.")
- +6 KILL ZTSK,IO("Q")
- DO HOME^%ZIS
- End DoDot:1
- GOTO ENQ
- +7 ;
- +8 USE IO
- DO ^IBCOIVM1
- +9 ;
- ENQ ; Cleanup
- +1 KILL DIRUT,DUOUT,DTOUT,DIROUT,I,IBFLG,ZTDESC,ZTREQ,ZTRTN,ZTSAVE
- +2 QUIT
- +3 ;
- +4 ;
- PROD() ; Is this the production account? Output: 1 - YES, 0 - NO
- +1 NEW X
- SET X=$GET(^XMB("NETNAME"))
- +2 QUIT $LENGTH(X,".")=3!($LENGTH(X,".")=4&(X[".MED."))
- +3 ;
- HLPIVM ; Help for sending report to the IVM Center.
- +1 WRITE !!,"The IVM Center has identified insurance policies for a"
- +2 WRITE !,"large number of patients, and wishes to track amounts"
- +3 WRITE !,"billed and collected against these policies. The data"
- +4 WRITE !,"will be compiled nationally and will assist the IVM Center"
- +5 WRITE !,"in meeting its goals. Even if you are planning to transmit"
- +6 WRITE !,"a report to the IVM Center, you should run the report"
- +7 WRITE !,"once without transmitting to check the results. You may"
- +8 WRITE !,"then re-run the report and transmit it to the IVM Center."
- +9 QUIT