IBCORC ;ALB/CPM - RANK INSURANCE CARRIERS ; 30-JUN-93
;;Version 2.0 ; INTEGRATED BILLING ;**29**; 21-MAR-94
;
EN ; Entry point to generate ranking of insurance carriers by amount billed
;
W !!?6,"This report will generate a list of insurance carriers ranked by"
W !?6,"the total amount billed. Please note that you may no longer opt"
W !?6,"to transmit this report to the MCCR Program Office in VACO using"
W !?6,"this option."
W !!?6,"You must select a date range in which bills to be used in the"
W !?6,"totals will be selected."
;
START W ! S DIR(0)="DA^2860101:NOW:EX",DIR("A")="Enter Start Date on Bill Search: ",DIR("?")="^D HLPD1^IBCORC"
D ^DIR K DIR S IBABEG=+Y G:'Y ENQ
;
END W ! S DIR(0)="DA^"_+Y_":NOW:EX",DIR("A")="Enter End Date on Bill Search: ",DIR("B")=$$DAT2^IBOUTL(DT),DIR("?")="^D HLPD2^IBCORC"
D ^DIR K DIR S IBAEND=+Y G:'Y ENQ
;
NUM W ! S DIR("A")="Enter number of insurance carriers to rank: ",DIR(0)="NA^1:1000:0",DIR("B")=30,DIR("?")="^D HLPN^IBCORC"
D ^DIR K DIR S IBNR=+Y G:'Y ENQ
;
; 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 MCCR Program Office",DIR("?")="^D HLPCO^IBCORC"
;D ^DIR K DIR S IBFLG=+Y I $D(DIRUT)!($D(DUOUT)) G ENQ
;
DEVICE ; Select device for queueing/printing report
S %ZIS="QM" D ^%ZIS G:POP ENQ
I $D(IO("Q")) D G ENQ
.S ZTRTN="DQ^IBCORC1",ZTDESC="RANK INSURANCE CARRIERS"
.F I="IBABEG","IBAEND","IBFLG","IBNR" S ZTSAVE(I)=""
.D ^%ZTLOAD K IO("Q")
.W !!,$S($D(ZTSK):"This job has been queued as task #"_ZTSK_".",1:"Unable to queue this job.")
.K ZTSK
U IO
D DQ^IBCORC1
;
ENQ ; Cleanup
K I,IBABEG,IBAEND,IBFLG,IBNR
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."))
;
HLPD1 ; Help for Start date.
W !!,"This report uses the date the bill was first printed to determine if the"
W !,"bill should be included in the accumulative total."
W !!,"Please enter the lower date range for the first printed date, which"
W !,"should be a past date on or after 10/1/86, or '^' to exit."
Q
;
HLPD2 ; Help for End date.
W !!,"This report uses the date the bill was first printed to determine if the"
W !,"bill should be included in the accumulative total."
W !!,"Please enter the upper date range for the first printed date, which"
W !,"should be a past date on or after ",$$DAT1^IBOUTL(IBABEG),", or '^' to exit."
Q
;
HLPN ; Help for number of carriers to rank.
W !!,"This report will rank any number of insurance carriers (from 1 to 1000)"
W !,"for the total amount billed within a date range."
W !!,"Please enter a number between 1 and 1000, or '^' to exit."
Q
HLPCO ; Help for sending report to Central Office.
W !!,"After the new fiscal year begins, this report should be generated for the"
W !,"previous fiscal year and transmitted to the MCCR Program Office. The data"
W !,"will be compiled nationally to determine which insurance carriers are the"
W !,"largest customers of VA. The compiled data will assist the Program Office"
W !,"in planning for future electronic billing systems."
W !!,"Even if you are planning to transmit a report to the Program Office, you"
W !,"should run this report once without transmitting to check the results."
W !,"You may then re-run the report and transmit it centrally."
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCORC 3503 printed Dec 13, 2024@02:18:39 Page 2
IBCORC ;ALB/CPM - RANK INSURANCE CARRIERS ; 30-JUN-93
+1 ;;Version 2.0 ; INTEGRATED BILLING ;**29**; 21-MAR-94
+2 ;
EN ; Entry point to generate ranking of insurance carriers by amount billed
+1 ;
+2 WRITE !!?6,"This report will generate a list of insurance carriers ranked by"
+3 WRITE !?6,"the total amount billed. Please note that you may no longer opt"
+4 WRITE !?6,"to transmit this report to the MCCR Program Office in VACO using"
+5 WRITE !?6,"this option."
+6 WRITE !!?6,"You must select a date range in which bills to be used in the"
+7 WRITE !?6,"totals will be selected."
+8 ;
START WRITE !
SET DIR(0)="DA^2860101:NOW:EX"
SET DIR("A")="Enter Start Date on Bill Search: "
SET DIR("?")="^D HLPD1^IBCORC"
+1 DO ^DIR
KILL DIR
SET IBABEG=+Y
if 'Y
GOTO ENQ
+2 ;
END WRITE !
SET DIR(0)="DA^"_+Y_":NOW:EX"
SET DIR("A")="Enter End Date on Bill Search: "
SET DIR("B")=$$DAT2^IBOUTL(DT)
SET DIR("?")="^D HLPD2^IBCORC"
+1 DO ^DIR
KILL DIR
SET IBAEND=+Y
if 'Y
GOTO ENQ
+2 ;
NUM WRITE !
SET DIR("A")="Enter number of insurance carriers to rank: "
SET DIR(0)="NA^1:1000:0"
SET DIR("B")=30
SET DIR("?")="^D HLPN^IBCORC"
+1 DO ^DIR
KILL DIR
SET IBNR=+Y
if 'Y
GOTO ENQ
+2 ;
+3 ; Allow report transmittal if running in Production.
+4 ; G:'$$PROD DEVICE
SET IBFLG=0
+5 ;
+6 ;W ! S DIR(0)="Y",DIR("B")="NO",DIR("A")="Would you like this report sent to the MCCR Program Office",DIR("?")="^D HLPCO^IBCORC"
+7 ;D ^DIR K DIR S IBFLG=+Y I $D(DIRUT)!($D(DUOUT)) G ENQ
+8 ;
DEVICE ; Select device for queueing/printing report
+1 SET %ZIS="QM"
DO ^%ZIS
if POP
GOTO ENQ
+2 IF $DATA(IO("Q"))
Begin DoDot:1
+3 SET ZTRTN="DQ^IBCORC1"
SET ZTDESC="RANK INSURANCE CARRIERS"
+4 FOR I="IBABEG","IBAEND","IBFLG","IBNR"
SET ZTSAVE(I)=""
+5 DO ^%ZTLOAD
KILL IO("Q")
+6 WRITE !!,$SELECT($DATA(ZTSK):"This job has been queued as task #"_ZTSK_".",1:"Unable to queue this job.")
+7 KILL ZTSK
End DoDot:1
GOTO ENQ
+8 USE IO
+9 DO DQ^IBCORC1
+10 ;
ENQ ; Cleanup
+1 KILL I,IBABEG,IBAEND,IBFLG,IBNR
+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 ;
HLPD1 ; Help for Start date.
+1 WRITE !!,"This report uses the date the bill was first printed to determine if the"
+2 WRITE !,"bill should be included in the accumulative total."
+3 WRITE !!,"Please enter the lower date range for the first printed date, which"
+4 WRITE !,"should be a past date on or after 10/1/86, or '^' to exit."
+5 QUIT
+6 ;
HLPD2 ; Help for End date.
+1 WRITE !!,"This report uses the date the bill was first printed to determine if the"
+2 WRITE !,"bill should be included in the accumulative total."
+3 WRITE !!,"Please enter the upper date range for the first printed date, which"
+4 WRITE !,"should be a past date on or after ",$$DAT1^IBOUTL(IBABEG),", or '^' to exit."
+5 QUIT
+6 ;
HLPN ; Help for number of carriers to rank.
+1 WRITE !!,"This report will rank any number of insurance carriers (from 1 to 1000)"
+2 WRITE !,"for the total amount billed within a date range."
+3 WRITE !!,"Please enter a number between 1 and 1000, or '^' to exit."
+4 QUIT
HLPCO ; Help for sending report to Central Office.
+1 WRITE !!,"After the new fiscal year begins, this report should be generated for the"
+2 WRITE !,"previous fiscal year and transmitted to the MCCR Program Office. The data"
+3 WRITE !,"will be compiled nationally to determine which insurance carriers are the"
+4 WRITE !,"largest customers of VA. The compiled data will assist the Program Office"
+5 WRITE !,"in planning for future electronic billing systems."
+6 WRITE !!,"Even if you are planning to transmit a report to the Program Office, you"
+7 WRITE !,"should run this report once without transmitting to check the results."
+8 WRITE !,"You may then re-run the report and transmit it centrally."
+9 QUIT
