source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCONS4.m@ 1801

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

initial load of FOIAVistA 6/30/08 version
File size: 6.3 KB
Line 
1IBCONS4 ;ALB/ARH - NSC W/INSURANCE OUTPUT (SETUP) ; 12-23-96
2 ;;Version 2.0 ; INTEGRATED BILLING ;**66**; 21-MAR-94
3 ;
4RPT N DIR,X,Y,DIRUT,DTOUT,DUOUT,IBX,IBY,IBI S (IBPRTRDS,IBPRTIEX,IBPRTICR,IBPRTIPC,IBPRTIGC)=0
5 S (IBSELUBL,IBSELBNA,IBSELBIL,IBSELRNB,IBSELCDV,IBSELTRM,IBSELRNG)=0
6 ;
7 W !!,?5,"Enter Report to print:"
8 W !,?10,"1 - Unbilled Episodes"
9 W !,?10,"2 - Billed Episodes but Not Authorized"
10 W !,?10,"3 - Billed Episodes (Authorized)",!
11 ;
12 S DIR(0)="LO^1:3:0"
13 S DIR("A")="Report",DIR("B")="1",DIR("??")="^D RHELP1^IBCONS4" D ^DIR K DIR I +Y'>0 S IBQUIT=1 G EXIT
14 ;
15 S IBY=Y F IBI=1:1 S Y=$P(IBY,",",IBI) Q:'Y D
16 . ;
17 . I Y=1 S IBSELUBL=1 ; unbilled episodes
18 . I Y=2 S IBSELBNA=1 ; billed but not authorized
19 . I Y=3 S IBSELBIL=1 ; billed episodes (authorized)
20 ;
21 W !!,?5,"Optional format requirements:"
22 W !,?10,"1 - Include Episodes with a Reason Not Billable"
23 W !,?10,"2 - Include Only Episodes with a Reason Not Billable"
24 W !,?10,"3 - Combine Divisions into one Report"
25 W !,?10,"4 - Sort by Terminal Digit"
26 W !,?10,"5 - Select Sort Range"
27 W !!,?5,"Optional print fields:"
28 W !,?10,"6 - Patient's Rated Disabilities"
29 W !,?10,"7 - Patient Insurance Dates"
30 W !,?10,"8 - Coverage and Riders"
31 W !,?10,"9 - Policy Comments"
32 W !,?10,"10 - Group Comments",!
33 ;
34 S DIR(0)="LO^1:10:0"
35 S DIR("A")="Optional requirements",DIR("??")="^D RHELP2^IBCONS4" D ^DIR I $D(DTOUT)!$D(DUOUT) S IBQUIT=1 G EXIT
36 ;
37 S IBY=Y F IBI=1:1 S Y=$P(IBY,",",IBI) Q:'Y D
38 . ;
39 . I Y=1 S IBSELRNB=1 ; include episodes with a RNB
40 . I Y=2 S IBSELRNB=2 ; include episodes with a RNB only
41 . I Y=3 S IBSELCDV=1 ; combine divisions
42 . I Y=4 S IBSELTRM=1 ; sort by terminal digit
43 . I Y=5 S IBSELRNG=1 ; select range of patients (PT name or TD)
44 . I Y=6 S IBPRTRDS=1 ; patient's rated disabilities
45 . I Y=7 S IBPRTIEX=1 ; patient insurance dates and group #
46 . I Y=8 S IBPRTICR=1 ; coverage limits and riders
47 . I Y=9 S IBPRTIPC=1 ; patient policy comments
48 . I Y=10 S IBPRTIGC=1 ; group plan comments
49 ;
50 I $G(IBSELRNG)=1 W ! D SRTRNG I '$D(IBSELSR1)!'$D(IBSELSR2) S IBQUIT=1 G EXIT
51 W ! D DATE I ($G(IBBEG)'?7N)!($G(IBEND)'?7N) S IBQUIT=1 G EXIT
52 D ASKDIV
53EXIT Q
54 ;
55SRTRNG ; get which data item to range on: Patient Name or Terminal Digit
56 N DIR,X,Y,DIRUT,DUOUT,DTOUT S IBSELRNG=0 K IBSELSR1,IBSELSR2
57 S DIR("A")="Select Range of Patients By",DIR(0)="SO^1:Patient Name;2:Terminal Digit;3:Insurance Company" D ^DIR
58 I +Y=1 S IBSELRNG=+Y D SRTRNGP
59 I +Y=2 S IBSELRNG=+Y D SRTRNGT
60 I +Y=3 S IBSELRNG=+Y D SRTRNGI
61 Q
62 ;
63SRTRNGP ; select patient name range for sort
64 N DIR,X,Y,DIRUT,DUOUT,DTOUT K IBSELSR1,IBSELSR2
65 S DIR(0)="FO"
66 S DIR("B")="FIRST",DIR("A")="START WITH PATIENT NAME" D ^DIR Q:$D(DIRUT) S:Y="FIRST" Y="" S IBSELSR1=$$ASCII^IBCONS2(Y)
67 ;
68 S DIR("B")="LAST",DIR("A")="GO TO PATIENT NAME" D ^DIR Q:$D(DIRUT) S:Y="LAST" Y="" S IBSELSR2=$$ASCII^IBCONS2(Y)
69 Q
70 ;
71SRTRNGT ; select terminal digit range for sort
72 N DIR,X,Y,DIRUT,DUOUT,DTOUT K IBSELSR1,IBSELSR2
73 S DIR(0)="FO^1:9^K:X'?1.9N X",DIR("?")="Enter up to 9 digits of the Terminal Digit to include in report"
74 ;
75 S DIR("B")="0000",DIR("A")="START WITH TERMINAL DIGIT" D ^DIR Q:$D(DIRUT) S IBSELSR1=$E((Y_"000000000"),1,9)
76 ;
77 S DIR("B")=9999,DIR("A")="GO TO TERMINAL DIGIT" D ^DIR Q:$D(DIRUT) S IBSELSR2=$E((Y_"999999999"),1,9)
78 Q
79 ;
80SRTRNGI ; select insurance company name range for sort
81 N DIR,X,Y,DIRUT,DUOUT,DTOUT K IBSELSR1,IBSELSR2
82 S DIR(0)="FO"
83 S DIR("B")="FIRST",DIR("A")="START WITH INSURANCE COMPANY NAME" D ^DIR Q:$D(DIRUT) S:Y="FIRST" Y="" S IBSELSR1=$$ASCII^IBCONS2(Y)
84 ;
85 S DIR("B")="LAST",DIR("A")="GO TO INSURANCE COMPANY NAME" D ^DIR Q:$D(DIRUT) S:Y="LAST" Y="" S IBSELSR2=$$ASCII^IBCONS2(Y)
86 Q
87 ;
88DATE ; Issue prompts for Begin and End dates
89 N %DT,Y,X K IBBEG,IBEND
90 S %DT="AEPX",%DT("A")="Start with DATE: " D ^%DT Q:Y<0 S IBBEG=+Y\1
91 S %DT="AEPX",%DT("A")="Go to DATE: ",%DT(0)=+Y D ^%DT Q:Y<0 S IBEND=+Y\1
92 Q
93 ;
94ASKDIV ; Issue prompt for Division (ALL: VAUTD=1, SELECT: VAUTD=0, VAUTD(DV)=DV NAME, ELSE: Y=-1)
95 D PSDR^IBODIV I Y<0 S IBQUIT=1
96 Q
97 ;
98RHELP1 ; help for report question
99 W !,"------------------------------------------------------------------------------"
100 W !,"Determines what types of episodes are included on the report.",!
101 W !,"Required: specify if report should include billed and/or unbilled episodes"
102 W !!,?3,"1 - Unbilled: no Third Party bill can be identified for episode"
103 W !,?3,"2 - Billed/Not Authorized: one or more Third Party bills exists for the",!,?30,"episode, but at least one of them has not yet been",!,?30,"authorized or passed to AR"
104 W !,?3,"3 - Billed/Authorized: one or more Third Party bills exists for the",!,?30,"episode and all of them have been Authorized"
105 W !!,"Choose one or more of the above to include on the report."
106 W !,"------------------------------------------------------------------------------"
107 Q
108 ;
109RHELP2 ; help for optional requirements question
110 W !,"------------------------------------------------------------------------------"
111 W !,"Determines which episodes are included on the report and how they are sorted."
112 W !!,"Optional: special requirements for printing the report,",!,?11,"these apply to both billed and unbilled episode reports."
113 W !!,?3,"1 - Include Episodes with a RNB: (default excludes episodes with a RNB)"
114 W !,?3,"2 - Include Only Episodes with a RNB: (default is No)"
115 W !,?3,"3 - Combine Divisions: (default is separate report for each Division)"
116 W !,?3,"4 - Sort by Terminal Digit: (default sort alphabetically by Patient Name)"
117 W !,?3,"5 - Select Range of Pat Names or Term Digits or Ins Company: (default is all)"
118 ;
119 W !!,"Terminal Digit Sort: the output will be sorted by the 8th and 9th digits and",!,"then the 6th and 7th digits of the patient's SSN"
120 W !,"{Reason Not Billable}: if episodes with RNB are included then inpatient",!,"episodes with all movements SC are included on the report"
121 ;
122 W !!,"All of the optional print fields apply to the patient and if chosen will",!,"print once for each patient on the report."
123 W !,"Indications of the Insurance Coverage and Riders, Policy Comments, and Group",!,"Comments are only printed if they exist for the policy/plan."
124 W !,"------------------------------------------------------------------------------"
125 Q
Note: See TracBrowser for help on using the repository browser.