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 Dec 13, 2024@02:18:13 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
