source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCORC.m@ 789

Last change on this file since 789 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.3 KB
Line 
1IBCORC ;ALB/CPM - RANK INSURANCE CARRIERS ; 30-JUN-93
2 ;;Version 2.0 ; INTEGRATED BILLING ;**29**; 21-MAR-94
3 ;
4EN ; Entry point to generate ranking of insurance carriers by amount billed
5 ;
6 W !!?6,"This report will generate a list of insurance carriers ranked by"
7 W !?6,"the total amount billed. Please note that you may no longer opt"
8 W !?6,"to transmit this report to the MCCR Program Office in VACO using"
9 W !?6,"this option."
10 W !!?6,"You must select a date range in which bills to be used in the"
11 W !?6,"totals will be selected."
12 ;
13START W ! S DIR(0)="DA^2860101:NOW:EX",DIR("A")="Enter Start Date on Bill Search: ",DIR("?")="^D HLPD1^IBCORC"
14 D ^DIR K DIR S IBABEG=+Y G:'Y ENQ
15 ;
16END 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"
17 D ^DIR K DIR S IBAEND=+Y G:'Y ENQ
18 ;
19NUM W ! S DIR("A")="Enter number of insurance carriers to rank: ",DIR(0)="NA^1:1000:0",DIR("B")=30,DIR("?")="^D HLPN^IBCORC"
20 D ^DIR K DIR S IBNR=+Y G:'Y ENQ
21 ;
22 ; Allow report transmittal if running in Production.
23 S IBFLG=0 ; G:'$$PROD DEVICE
24 ;
25 ;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"
26 ;D ^DIR K DIR S IBFLG=+Y I $D(DIRUT)!($D(DUOUT)) G ENQ
27 ;
28DEVICE ; Select device for queueing/printing report
29 S %ZIS="QM" D ^%ZIS G:POP ENQ
30 I $D(IO("Q")) D G ENQ
31 .S ZTRTN="DQ^IBCORC1",ZTDESC="RANK INSURANCE CARRIERS"
32 .F I="IBABEG","IBAEND","IBFLG","IBNR" S ZTSAVE(I)=""
33 .D ^%ZTLOAD K IO("Q")
34 .W !!,$S($D(ZTSK):"This job has been queued as task #"_ZTSK_".",1:"Unable to queue this job.")
35 .K ZTSK
36 U IO
37 D DQ^IBCORC1
38 ;
39ENQ ; Cleanup
40 K I,IBABEG,IBAEND,IBFLG,IBNR
41 Q
42 ;
43 ;
44PROD() ; Is this the production account? Output: 1 - YES, 0 - NO
45 N X S X=$G(^XMB("NETNAME"))
46 Q $L(X,".")=3!($L(X,".")=4&(X[".MED."))
47 ;
48HLPD1 ; Help for Start date.
49 W !!,"This report uses the date the bill was first printed to determine if the"
50 W !,"bill should be included in the accumulative total."
51 W !!,"Please enter the lower date range for the first printed date, which"
52 W !,"should be a past date on or after 10/1/86, or '^' to exit."
53 Q
54 ;
55HLPD2 ; Help for End date.
56 W !!,"This report uses the date the bill was first printed to determine if the"
57 W !,"bill should be included in the accumulative total."
58 W !!,"Please enter the upper date range for the first printed date, which"
59 W !,"should be a past date on or after ",$$DAT1^IBOUTL(IBABEG),", or '^' to exit."
60 Q
61 ;
62HLPN ; Help for number of carriers to rank.
63 W !!,"This report will rank any number of insurance carriers (from 1 to 1000)"
64 W !,"for the total amount billed within a date range."
65 W !!,"Please enter a number between 1 and 1000, or '^' to exit."
66 Q
67HLPCO ; Help for sending report to Central Office.
68 W !!,"After the new fiscal year begins, this report should be generated for the"
69 W !,"previous fiscal year and transmitted to the MCCR Program Office. The data"
70 W !,"will be compiled nationally to determine which insurance carriers are the"
71 W !,"largest customers of VA. The compiled data will assist the Program Office"
72 W !,"in planning for future electronic billing systems."
73 W !!,"Even if you are planning to transmit a report to the Program Office, you"
74 W !,"should run this report once without transmitting to check the results."
75 W !,"You may then re-run the report and transmit it centrally."
76 Q
Note: See TracBrowser for help on using the repository browser.