source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCAREPT.m@ 1378

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

initial load of WorldVistAEHR

File size: 4.6 KB
Line 
1PRCAREPT ;SF-ISC/YJK-AR LIST,REPORT ;8/26/93 8:43 AM
2V ;;4.5;Accounts Receivable;**68,63,108**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;MAS,Agent Cashier, 3rd party,RC/DOJ reports.
5PRINT ;ask if the report will be queued.
6 K PRCAQUE S PRCA("MESS")="Do you wish to queue this report " D QUE^PRCAQUE Q:'$D(PRCAQUE) D DIP Q
7 ;
8DIP S L=0,FLDS=PRCATEMP,BY=PRCASORT,FR=PRCAFT,TO=PRCALAST,DHD=PRCAHDR
9 D EN1^DIP K L,FLDS,BY,FR,TO,DHD,DIC,DIS,IOP
10 ;
11KILLV K ZTSK,PRCAKDT1,PRCAQUE,DQTIME,PRCAKDT2,PRCACT,PRCARCOJ,PRCATEMP,PRCADT1,PRCADT2,PRCABN,PRCABILN,PRCAHDR,PRCAFT,PRCALAST,PRCATEMP,PRCASORT,PRCADMC,PRCANAME,DTOUT,DUOUT,DIR,DIRUT Q
12END D KILLV K PRCA,PRCAIOP Q
13 ;
14REPT ;====================== REPORT SUBROUTINES ==========================
15EN2 ;report for MAS reconciliation with AR for 3rd Party.
16 S PRCA("DATE")="DATE BILL PREPARED" D ASKDT^PRCAQUE G:(PRCADT1="")!(PRCADT2="") END
17 S PRCAFT=PRCADT1_",T,100",PRCALAST=PRCADT2_",T,199",PRCAHDR="MAS RECONCILIATION REPORT"
18 S DIC="^PRCA(430," S PRCATEMP="[PRCAR MAS REPORT]",PRCASORT="@DATE BILL PREPARED,@CATEGORY:INTERNAL(TYPE),@CURRENT STATUS:STATUS NUMBER" D PRINT,END Q
19 ;
20EN3 ;print 3rd party accounts receivable report.
21 S PRCAHDR="3RD PARTY ACTIVE REFERRAL REPORT"
22 S PRCASORT="DEBTOR;S2,PATIENT,RC/DOJ REFERRAL DATE,@CURRENT STATUS:STATUS NUMBER,@CATEGORY:INTERNAL(TYPE)"
23 S PRCAFT=",,,102,T",PRCALAST=",,,102,T"
24 S PRCATEMP="[PRCA 3RD REPORT]",DIC="^PRCA(430," D PRINT,END Q
25 ;
26EN4 ;Report AR referred to RC
27 S PRCA("DATE")="DATE REFERRED TO RC" D ASKDT^PRCAQUE G:(PRCADT1="")!(PRCADT2="") END
28 S PRCACT=0,PRCARCOJ="",PRCATEMP="[PRCAD DC DOJ]"
29 S PRCASORT="DEBTOR;S1,@RC/DOJ REFERRAL DATE,@RC/DOJ REFERRAL CODE"
30 S PRCAFT=","_PRCADT1_",RC",PRCALAST=","_PRCADT2_",RC"
31 S PRCAHDR="ACCOUNTS RECEIVABLE REFERRED TO RC"
32 K PRCAEN4 S DIC="^PRCA(430," D PRINT,END Q
33 ;
34EN5 ;Report AR referred to DOJ
35 S PRCA("DATE")="DATE REFERRED TO DOJ" D ASKDT^PRCAQUE G:(PRCADT1="")!(PRCADT2="") END
36 S PRCATEMP="[PRCAD DC DOJ]",PRCASORT="DEBTOR;S1,@RC/DOJ REFERRAL DATE,@RC/DOJ REFERRAL CODE"
37 S PRCAFT=","_PRCADT1_",DOJ",PRCALAST=","_PRCADT2_",DOJ"
38 S PRCAHDR="ACCOUNTS RECEIVABLE REFERRED TO DOJ",DIC="^PRCA(430," D PRINT,END Q
39 ;
40EN6 ;print other transaction for CALM code sheet in the AT section.
41 D TSK^PRCAPTR Q
42 ;
43EN8 ;RC debt collection report.
44 S PRCA("DATE")="DATE RC TRANSACTION CREATED" D ASKDT^PRCAQUE G:(PRCADT1="")!(PRCADT2="") END
45 S PRCATEMP="[PRCAS DC]",PRCASORT="+TRANSACTION TYPE;S2,@DATE ENTERED"
46 S PRCAHDR="REGIONAL COUNSEL DEBT COLLECTION REPORT FROM "_PRCAKDT1_" TO "_PRCAKDT2
47 S DIC="^PRCA(433,",PRCAFT=","_PRCADT1,PRCALAST=","_PRCADT2
48 S DIS(1)="I $P($G(^PRCA(433,D0,0)),U,7)=""RC"""
49 S DIS(2)="I $P($G(^PRCA(433,D0,0)),U,7)=""DC"""
50 S DIS(0)="I $P($G(^PRCA(433,D0,1)),U,2)'=45"
51 D PRINT,END Q
52 ;
53EN9 ;DOJ debt collection report.
54 S PRCA("DATE")="DATE DOJ TRANSACTION CREATED" D ASKDT^PRCAQUE G:(PRCADT1="")!(PRCADT2="") END
55 S PRCATEMP="[PRCAS DC]",PRCASORT="+TRANSACTION TYPE;S2,@RC DOJ CODE,@DATE ENTERED"
56 S PRCAHDR="DEPARTMENT OF JUSTICE DEBT COLLECTION REPORT FROM "_PRCAKDT1_" TO "_PRCAKDT2
57 S DIC="^PRCA(433,",PRCAFT=",DOJ,"_PRCADT1,PRCALAST=",DOJ,"_PRCADT2
58 S DIS(0)="I $P($G(^PRCA(433,D0,1)),U,2)'=45"
59 D PRINT,END Q
60 ;
61EN10 ;print contingent (Worker's Comp & Tort Feasors) 3rd party accounts receivable report.
62 S PRCA("DATE")="DATE REFERRED TO RC/DOJ" D ASKDT^PRCAQUE G:(PRCADT1="")!(PRCADT2="") END
63 S PRCAHDR="REFERRED TP TORT & WORKER'S COMP AR REPORT"
64 S PRCASORT="DEBTOR;S1,@REFERRAL DATE,@CURRENT STATUS:STATUS NUMBER,@CATEGORY:CATEGORY NUMBER"
65 S PRCAFT=","_PRCADT1_",102,22",PRCALAST=","_PRCADT2_",102,23"
66 S PRCATEMP="[PRCAR CONTINGENT REPORT]",DIC="^PRCA(430," D PRINT,END Q
67 ;
68EN11 ;print DMC referred debts
69 W !!,"This report should be run on or AFTER the first Wednesday of the month."
70 W !,"Make sure your facility has received the monthly offset information from"
71 W !,"the DMC to insure the accuracy of this report."
72 ;
73 W !!,?5,"Enter DMC Report to print:"
74 W !,?10,"1 - All Patients"
75 W !,?10,"2 - Single Patient",!
76 ;
77 S DIR(0)="LO^1:2:0"
78 S DIR("A")="Report",DIR("B")="1",DIR("?",1)="Enter '1' to print DMC information for ALL patients.",DIR("?")="Enter '2' to print DMC information about a single patient."
79 D ^DIR G:$D(DIRUT) END
80 S PRCADMC=+Y
81 ;
82 I PRCADMC=2 S DIC="^RCD(340,",DIC(0)="AEQZ" D ^DIC I Y<0 K PRCADMC,DIC G END
83 S PRCANAME=+Y
84 I $D(DTOUT)!$D(DUOUT) G END
85 S PRCAHDR="REFERRED DMC DEBTS"
86 ;S PRCASORT="@DATE SENT TO DMC,+@INTERNAL(DEBTOR);S2"
87 I PRCADMC=1 S PRCAFT=",",PRCALAST=",",PRCASORT="@DATE SENT TO DMC,+DEBTOR;S2"
88 I PRCADMC=2 S PRCAFT=","_PRCANAME,PRCALAST=","_PRCANAME,PRCASORT="@DATE SENT TO DMC,+@INTERNAL(DEBTOR)"
89 S PRCATEMP="[RCDMC REFERRED DEBTS]",DIC="^PRCA(430," D PRINT,END Q
90 ;
Note: See TracBrowser for help on using the repository browser.