Global: ^RCT(349

FileMan FileNo	FileMan Filename	Package
349	AR TRANSMISSION RECORDS	Accounts Receivable

Package	Total	Routines
Accounts Receivable	6	RCCPC1 RCCPCBJ RCCPCML RCCPCPS RCCPCT ^RCT(349

Package	Total	Routines
Accounts Receivable	1	RCCPCML

Package	Total	FileMan Files
Accounts Receivable	1	AR CCPC STATEMENTS(#349.2)[.11]

Package	Total	FileMan Files
MailMan	2	DOMAIN(#4.2)[22] MAIL GROUP(#3.8)[23]

Fields, Total: 20

Field #	Name	Loc	Type	Details
.01	TRANSMISSION RECORD ID	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `APR 17, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This name of the transmission record is assigned to this field.` TECHNICAL DESCR: `It should reflect the transmission type.` CROSS-REFERENCE: `349^B` `1)= S ^RCT(349,"B",$E(X,1,30),DA)=""` `2)= K ^RCT(349,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `^^TRIGGER^349^.02` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCT(349,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIV,Y(1)=X S X=".",X=$P(Y(1),X) X ^DD(349,.01,1,2,1.4)` `1.4)= S DIH=$S($D(^RCT(349,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=349,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCT(349,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" S DIH=$S($D(^RCT(349,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=349,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1` `,0))>0` `CREATE VALUE)= $P(TRANSMISSION RECORD ID,".")` `DELETE VALUE)= @` `FIELD)= TRANSMISSION TYP` `This is the type of transmission record.`
.02	TRANSMISSION TYPE	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>10!($L(X)<2) X` LAST EDITED: `JAN 09, 1997` HELP-PROMPT: `Answer must be 2-10 characters in length.` DESCRIPTION: `This field indicates the transmission type of the record.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the TRANSMISSION RECORD ID field of the AR TRANSMISSION RECORDS File`
.03	MESSAGE SEQUENCE	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 17, 1996` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: `This field should be set internally during the creation of the transmission.` CROSS-REFERENCE: `349^AT2^MUMPS` `1)= I $P($G(^RCT(349,+DA,0)),"^",2) S ^RCT(349,"AT",$P($G(^RCT(349,+DA,0)),"^",2),X,DA)=""` `2)= I $P($G(^RCT(349,+DA,0)),"^",2) K ^RCT(349,"AT",$P($G(^RCT(349,+DA,0)),"^",2),X,DA)` `This cross-reference is built on TRANSMISSION TYPE and DATE CREATED.`
.04	MESSAGE TOTAL	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 17, 1996` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: `This is the Mailman message number that contained the transmission record.`
.05	SITE	0;5	NUMBER	INPUT TRANSFORM: `S X=$$SITE^RCMSITE()` LAST EDITED: `APR 17, 1996` HELP-PROMPT: `Station Number` DESCRIPTION: `This is the site's station number.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.06	FACILITY PHONE NUMBER	0;6	FREE TEXT	LAST EDITED: `APR 17, 1996` HELP-PROMPT: `Answer must be 3-20 characters in length.` DESCRIPTION: `This is site's phone number.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.07	TOTAL RECORDS IN MESSAGE	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 29, 1996` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits` DESCRIPTION: `This field indicates the total number of associated records if any.`
.08	MESSAGE AMOUNT	0;8	NUMBER	INPUT TRANSFORM: `S X=+X S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X S X=$TR($J(X,9,2)," ","")` LAST EDITED: `JAN 14, 1997` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits` DESCRIPTION: `This field contains a dollar amount associated with the record.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.09	STATEMENT DATE	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `JAN 09, 1997` HELP-PROMPT: `Answer must be 1-8 characters in length.` DESCRIPTION: `This is the site's statement day.`
.1	PROCESS DATE	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `JAN 09, 1997` HELP-PROMPT: `Answer must be 1-8 characters in length.` DESCRIPTION: `This is the date of the last activity on the statements.`
.11	DATE CREATED	0;11	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 17, 1996` DESCRIPTION: `This is the date the record was created.`
.12	MAILMAN MESSAGE	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!` LAST EDITED: `DEC 05, 1996` HELP-PROMPT: `Type a Number between 1 and 9999999999, 0 Decimal Digits` DESCRIPTION: `This is the message number for this segment.`
11	SITE STREET ADDRESS1	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `FEB 21, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This is the first line of site address.`
12	SITE STREET ADDRESS2	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `FEB 21, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This is the second line of site street address.`
13	SITE CITY	1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `FEB 21, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This is the city name of the site address.`
14	SITE STATE	1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<2) X` LAST EDITED: `FEB 21, 1996` HELP-PROMPT: `Answer must be 2-3 characters in length.` DESCRIPTION: `This is the city name of the site address.`
15	SITE ZIP CODE	1;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<5) X` LAST EDITED: `FEB 21, 1996` HELP-PROMPT: `Answer must be 5-10 characters in length.` DESCRIPTION: `This is the zip code of the site address.`
21	REMOTE RECEPIENT	2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `APR 17, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This is the addressee for a remote domain.`
22	REMOTE DOMAIN	2;2	POINTER TO DOMAIN FILE (#4.2)	DOMAIN(#4.2) LAST EDITED: `APR 17, 1996` DESCRIPTION: `This is the domain where the transmission should be routed.`
23	LOCAL MAILGROUP	2;3	POINTER TO MAIL GROUP FILE (#3.8)	MAIL GROUP(#3.8) LAST EDITED: `APR 17, 1996` DESCRIPTION: `This is the mailgroup that will also receive transmissions from this file.`

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.01(XREF 2n1.4), .01(XREF 2K)
^DD(349	.01(XREF 2S)
^RCT(349 - [#349]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .03(XREF 1S), .03(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.11+1*
>> D0	.01(XREF 2S), .01(XREF 2K)
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .03(XREF 1S), .03(XREF 1K)
>> DIG	.01(XREF 2n1.4), .01(XREF 2K)
>> DIH	.01(XREF 2n1.4), .01(XREF 2K)
>> DIU	.01(XREF 2S), .01(XREF 2K)
DIV	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K)
DIV(0	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K)
U	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .02+1!, .03+1!, .03(XREF 1S), .03(XREF 1K) , .04+1!, .05+1, .07+1!, .08+1!, .09+1!, .1+1!, .11+1!, .12+1!, .12OT+1, 11+1! , 12+1!, 13+1!, 14+1!, 15+1!, 21+1!
Y	.01(XREF 2S), .01(XREF 2K), .11+1, .12OT+1*
Y(0	.12OT+1*
Y(1	.01(XREF 2S), .01(XREF 2K)

Customize PDF page

Package: Accounts Receivable

Global: ^RCT(349

Information

Description

Directly Accessed By Routines, Total: 6

Accessed By FileMan Db Calls, Total: 1

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 2

Fields, Total: 20

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	.11+1
^DICR	.01(XREF 2n1.4), .01(XREF 2K)
$$SITE^RCMSITE	.05+1