Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^RC(341

Package: Accounts Receivable

Global: ^RC(341

Information

FileMan FileNo	FileMan Filename	Package
341	AR EVENT	Accounts Receivable

Description

This file contains events that occurred to a debtor's account. This file should NEVER be edited directly. Eventually all types of events will be stored in this file as the Accounts Receivable package moves to a transaction-based system. Per VHA Directive 10-93-142, this file definition should not be modified.

Directly Accessed By Routines, Total: 23

Package	Total	Routines
Accounts Receivable	23	PRCA399C PRCA399E PRCA399P PRCA399Z PRCAG PRCAGS PRCAGU PRCAHIS PRCAHIS1 PRCARPU RCAM RCAM COMMENT RCAMINS RCBDFST1 RCCPC1 RCCPCFN RCCPCSV1 RCEVDRV1 RCEVGEN RCEVUTL RCFN01 ^RC(341 RCRJRCO2

Accessed By FileMan Db Calls, Total: 12

Package	Total	Routines
Accounts Receivable	12	PRCA399E PRCA399F PRCACM PRCAGU PRCALT2 PRCARPU RCAM RCAMINS RCCPCSV1 RCEVDRV1 RCEVGEN RCJIBFN3

Pointer To FileMan Files, Total: 5

Package	Total	FileMan Files
Accounts Receivable	3	ACCOUNTS RECEIVABLE(#430)[5.01] AR EVENT TYPE(#341.1)[.02] AR DEBTOR(#340)[.05]
Kernel	2	INSTITUTION(#4)[.09] NEW PERSON(#200)[.08]

Fields, Total: 19

Field #	Name	Loc	Type	Details
.01	EVENT IDENTIFIER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X I $D(X),$D(^RC(341,"B",X)) W " DUPLICATE AR EVENT ENTRY '"_X_"'!" K X` LAST EDITED: `JUN 04, 1993` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This is a unique identifier of an event logged into the AR Event file. Usually the first 3 numbers will be the station number followed by a dash.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `341^B` `1)= S ^RC(341,"B",$E(X,1,30),DA)=""` `2)= K ^RC(341,"B",$E(X,1,30),DA)` `3)= Needed to look-up events by identifier` `This cross-reference will allow look-up to the event file by identifier.`
.02	TYPE OF EVENT	0;2	POINTER TO AR EVENT TYPE FILE (#341.1)	**********************REQUIRED FIELD********************** AR EVENT TYPE(#341.1) LAST EDITED: `MAY 31, 1993` DESCRIPTION: `The event type describes the type of event that occurred for a debtor by storing all events that occur for this debtor. This allows better reporting capabilities, financial integrity, and history recreation.` `In version 4.0 of AR, the only types of events that are tracked under this new system are notification type events (letters, UBs, and patient statements) and comments. Eventually, payments, refunds, etc. will be tracked` `in this new file but are currently being tracked in the Accounts Receivable transaction file.` CROSS-REFERENCE: `341^AD2^MUMPS` `1)= I $P($G(^RC(341,DA,0)),"^",5),$P(^(0),"^",7) S ^RC(341,"AD",$P(^(0),"^",5),X,9999999.999999-$P(^(0),"^",7),DA)=""` `2)= I $P($G(^RC(341,DA,0)),"^",5),$P(^(0),"^",7) K ^RC(341,"AD",$P(^(0),"^",5),X,9999999.999999-$P(^(0),"^",7),DA)` `3)= Needed to store events by debtor, event-type, and date/time closed.` `This cross-reference is used for account profiles and for printing patient statements, letters, and bills. It stores the debtor, event-type, and date/time event was closed in reverse order.`
.05	DEBTOR	0;5	POINTER TO AR DEBTOR FILE (#340)	**********************REQUIRED FIELD********************** AR DEBTOR(#340) LAST EDITED: `JUN 17, 1993` DESCRIPTION: `This debtor field is used to store what debtor this event belongs to. By storing events by debtor, this will allow a more efficient system when trying to re-create the activity for a debtor account.` CROSS-REFERENCE: `341^AC1^MUMPS` `1)= I $P(^RC(341,DA,0),"^",11)=0 S ^RC(341,"AC",X,0,DA)=""` `2)= I $P(^RC(341,DA,0),"^",11)=0 K ^RC(341,"AC",X,0,DA)` `3)= Needed to store events that are in OPEN status for debtors.` `This cross reference is used to store events that are in an open status. Since only one event at a time should be in an open status for a debtor, this cross reference makes sure that no two events are in an open status` `for a debtor.` CROSS-REFERENCE: `341^AD1^MUMPS` `1)= I $P($G(^RC(341,DA,0)),"^",2),$P(^(0),"^",7) S ^RC(341,"AD",X,$P(^(0),"^",2),9999999.999999-$P(^(0),"^",7),DA)=""` `2)= I $P($G(^RC(341,DA,0)),"^",2),$P(^(0),"^",7) K ^RC(341,"AD",X,$P(^(0),"^",2),9999999.999999-$P(^(0),"^",7),DA)` `3)= Needed to store events by debtor, event-type, and date/time closed.` `This-cross reference is used for account profiles and for printing patient statements, letters, and bills. It stores the debtor, event-type, and date/time event was closed in reverse order.`
.06	DATE/TIME OF EVENT	0;6	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 09, 1993` DESCRIPTION: `The Date/Time of event represents the date the event occurred. For example, if a user is logging a comment against a debtor account for the previous day, then this field would be dated for that day and not the day it is` `being entered. This allows the user to back-date events that occurred in the past.`
.07	DATE/TIME CLOSED	0;7	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 31, 1993` DESCRIPTION: `The date/time an event is closed is the time the AR package 'recognizes' the event as being closed and complete. An event has two status, OPEN and CLOSED. While a transaction is in a status of 'OPEN' the AR package does` `not recognize the transaction.` CROSS-REFERENCE: `341^AD3^MUMPS` `1)= I $P($G(^RC(341,DA,0)),"^",5),$P(^(0),"^",2) S ^RC(341,"AD",$P(^(0),"^",5),$P(^(0),"^",2),9999999.999999-X,DA)=""` `2)= I $P($G(^RC(341,DA,0)),"^",5),$P(^(0),"^",2) K ^RC(341,"AD",$P(^(0),"^",5),$P(^(0),"^",2),9999999.999999-X,DA)` `3)= Needed to store events by debtor, event-type, and date/time closed.` `This cross-reference is used for account profiles and for printing patient statements, letters, and bills. It stores the debtor, event-type, and date/time event was closed in reverse order.` CROSS-REFERENCE: `341^C` `1)= S ^RC(341,"C",$E(X,1,30),DA)=""` `2)= K ^RC(341,"C",$E(X,1,30),DA)` `3)= Needed to look-up and search events by Date/Time Closed` `This cross reference sorts events by the date/time they are closed and allows a chronological ordering of events.`
.08	CREATED BY	0;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 09, 1993` DESCRIPTION: `This is the person that caused the event to be created.`
.09	SITE	0;9	POINTER TO INSTITUTION FILE (#4)	**********************REQUIRED FIELD********************** INSTITUTION(#4) LAST EDITED: `FEB 19, 1993` DESCRIPTION: `The site field represents the site that the event belongs to. This field would be used when multiple divisional sites are supported and will allow events to be 'traced' to a particular site.`
.11	STATUS	0;11	SET	**********************REQUIRED FIELD********************** '0' FOR OPEN; '1' FOR CLOSED; LAST EDITED: `JAN 30, 1993` DESCRIPTION: `The status of an event is either OPEN or CLOSED. When an event for a debtor is in an 'OPEN' status, this means that activity is occurring and has not completed. After the activity is completed, the event would be changed` `to a status of CLOSED.` CROSS-REFERENCE: `341^AC2^MUMPS` `1)= I X=0,$P(^RC(341,DA,0),"^",5) S ^RC(341,"AC",$P(^RC(341,DA,0),"^",5),X,DA)=""` `2)= I X=0,$P(^RC(341,DA,0),"^",5) K ^RC(341,"AC",$P(^RC(341,DA,0),"^",5),X,DA)` `3)= Needed to store events that are in OPEN status for debtors.` `This cross reference is used to store events that are in an open status. Since only one event at a time should be in an open status for a debtor, this cross reference makes sure that no two events are in an open status` `for a debtor.`
1.01	PRINCIPAL AMOUNT	1;1	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-999999.99) X` OUTPUT TRANSFORM: `S Y=$J(Y,0,2)` LAST EDITED: `JUL 07, 1993` HELP-PROMPT: `Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits` DESCRIPTION: `This field contains the principal amount of the event if applicable. Some events, such as comment type events, do not have a dollar amount associated with the event.`
1.02	INTEREST AMOUNT	1;2	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-999999.99) X` OUTPUT TRANSFORM: `S Y=$J(Y,0,2)` LAST EDITED: `JUL 07, 1993` HELP-PROMPT: `Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits` DESCRIPTION: `This field contains the interest amount of the event if applicable. Some events, such as comment type events, do not have a dollar amount associated with the event.`
1.03	ADMINISTRATIVE	1;3	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-999999.99) X` OUTPUT TRANSFORM: `S Y=$J(Y,0,2)` LAST EDITED: `JUL 07, 1993` HELP-PROMPT: `Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits` DESCRIPTION: `This field contains the administrative amount of the event if applicable. Some events, such as comment type events, do not have a dollar amount associated with the event.`
1.04	COURT AMOUNT	1;4	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-999999.99) X` OUTPUT TRANSFORM: `S Y=$J(Y,0,2)` LAST EDITED: `JUL 07, 1993` HELP-PROMPT: `Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits` DESCRIPTION: `This field contains the court cost amount of the event if applicable. Some events, such as comment type events, do not have a dollar amount associated with the event.`
1.05	MARSHAL AMOUNT	1;5	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-999999.99) X` OUTPUT TRANSFORM: `S Y=$J(Y,0,2)` LAST EDITED: `JUL 07, 1993` HELP-PROMPT: `Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits` DESCRIPTION: `This field contains the marshal cost amount of the event if applicable. Some events, such as comment type events, do not have a dollar amount associated with the event.`
2.01	COMMENT	2;0	WORD-PROCESSING #341.01	DESCRIPTION: `This field gives the user the ability to give expanded comments for an event or the reason the event occurred or to better describe the event.` `For example, if a patient called on the phone, an event could be logged to describe the call and what was discussed with the patient.` LAST EDITED: `NOV 18, 1992` DESCRIPTION: `This field gives the user the ability to give expanded comments for an event or the reason the event occurred or to better describe the event.` `For example, if a patient called on the phone, an event could be logged to describe the call and what was discussed with the patient.`
4.01	BRIEF COMMENT	4;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAR 13, 1993` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `A brief comment may exist for certain types of events that can be entered by the user. A brief comment would consist of a short summary to better describe the reason for the event.`
4.02	FOLLOW-UP DATE	4;2	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X D:$D(X) FOL^RCAM` LAST EDITED: `OCT 28, 1993` DESCRIPTION: `Comment type transactions that are entered by the user can have an optional follow-up date. The follow-up date will allow the AR package to remind the user, via a nightly report, to take some action based on the event.` `For example, if a patient calls and needs information that is not readily available, a user can enter as a comment with a follow-up date as a 'reminder' to return the information to the patient.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `341^AE` `1)= S ^RC(341,"AE",$E(X,1,30),DA)=""` `2)= K ^RC(341,"AE",$E(X,1,30),DA)` `3)= Needed to sort events by Follow-up dates` `This cross reference is used to sort and print events by their follow-up dates.`
5.01	BILL NUMBER	5;1	POINTER TO ACCOUNTS RECEIVABLE FILE (#430)	ACCOUNTS RECEIVABLE(#430) LAST EDITED: `MAY 31, 1993` DESCRIPTION: `If the event type is related to a bill in the Accounts Receivable file, then the bill number will be stored in this field. For now, the only events that will contain a bill are notification type events.`
5.02	NOTIFICATION NUMBER	5;2	SET	'1' FOR FIRST; '2' FOR SECOND; '3' FOR THIRD; '4' FOR LAST; LAST EDITED: `MAY 31, 1993` DESCRIPTION: `This field is used when a notification is sent to a debtor. A notification is either a patient statement, UB bill to insurance company, or follow-up letter to Vendors, Institutions, and persons.` `This field will represent the number of times a notification was sent. If the notification being sent is over three, then this field will be set to four.`
6.01	CCPC STATEMENT DATE	6;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 07, 1997` DESCRIPTION: `This is the date of the STATEMENT on the sttement from CCPC in Austin.`

External References

Name	Field # of Occurrence
^%DT	.06+1, .07+1, 4.02+1, 6.01+1
Y^DIQ	ID.02+1, ID.05+1
FOL^RCAM	4.02+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(340	ID.05+1
^DD(341.1	ID.02+1
^RC(341 - [#341]	.01+1, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .05(XREF 2S), .05(XREF 2K), .05(XREF 3S), .05(XREF 3K), .07(XREF 2S) , .07(XREF 2K), .07(XREF 3S), .07(XREF 3K), .11(XREF 1S), .11(XREF 1K), 4.02(XREF 1S), 4.02(XREF 1K)
^RC(341.1 - [#341.1]	ID.02+1
^RCD(340 - [#340]	ID.05+1

Naked Globals

Name	Field # of Occurrence
^(0	ID.02+1, ID.05+1, .02(XREF 1S), .02(XREF 1K), .05(XREF 3S), .05(XREF 3K), .07(XREF 2S), .07(XREF 2K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.06+1, .07+1, 4.02+1, 6.01+1
%I	ID.02+1!, ID.05+1!
>> C	ID.02+1, ID.05+1
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .05(XREF 2S), .05(XREF 2K), .05(XREF 3S), .05(XREF 3K), .07(XREF 2S), .07(XREF 2K) , .07(XREF 3S), .07(XREF 3K), .11(XREF 1S), .11(XREF 1K), 4.02(XREF 1S), 4.02(XREF 1K)
>> DIC	ID.02+1, ID.05+1
U	ID.02+1, ID.05+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .05(XREF 2S), .05(XREF 2K), .05(XREF 3S), .05(XREF 3K), .06+1! , .07+1!, .07(XREF 2S), .07(XREF 2K), .07(XREF 3S), .07(XREF 3K), .11(XREF 1S), .11(XREF 1K), 1.01+1!, 1.02+1!, 1.03+1! , 1.04+1!, 1.05+1!, 4.01+1!, 4.02+1!, 4.02(XREF 1S), 4.02(XREF 1K), 6.01+1*!
>> Y	ID.02+1, ID.05+1, .06+1, .07+1, 1.01OT+1, 1.02OT+1, 1.03OT+1, 1.04OT+1, 1.05OT+1*, 4.02+1 , 6.01+1
>> Y(0	1.01OT+1, 1.02OT+1, 1.03OT+1, 1.04OT+1, 1.05OT+1*

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All