Routine: IBCOIVM

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

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."

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCOIVM   2183     printed  Apr 09, 2024@21:09:04                                                                                                                                                                                                     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

IBCOIVM.m