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 | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^RCT(349.1

Package: Accounts Receivable

Global: ^RCT(349.1

Information

FileMan FileNo	FileMan Filename	Package
349.1	AR TRANSMISSION TYPE	Accounts Receivable

Description

This file stores the transmission types used in file 349 AR TRANSMISSION RECORDS.

Directly Accessed By Routines, Total: 15

Package	Total	Routines
Accounts Receivable	15	^RCT(349.1 DIVISION OF CARE LOCAL ADDRESSEE LOCAL MAILGROUP RCAMDTH RCCPC1 RCCPCML RCCPCPS RCCPCSV RCCPCSV1 RCRCDIV RCRCPOST RCRCUTL RCRCXMS RCY159PO

Accessed By FileMan Db Calls, Total: 3

Package	Total	Routines
Accounts Receivable	3	RCRCPOST RCRCXMS RCY159PO

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Accounts Receivable	1	AR TRANSMISSION SEGMENTS(#349.9)[.01]

Pointer To FileMan Files, Total: 4

Package	Total	FileMan Files
MailMan	2	DOMAIN(#4.2)[32, #349.161(.02)] MAIL GROUP(#3.8)[#349.12(.01)]
Kernel	1	NEW PERSON(#200)[#349.11(.01)]
Registration	1	MEDICAL CENTER DIVISION(#40.8)[#349.161(.01)]

Fields, Total: 16

Field #	Name	Loc	Type	Details
.01	CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>10!($L(X)<2)!'(X'?1P.E) X` LAST EDITED: `FEB 16, 1996` HELP-PROMPT: `Answer must be 2-10 characters in length.` DESCRIPTION: `This field will hold the unique codes for the transmission types.` TECHNICAL DESCR: CROSS-REFERENCE: `349.1^B` `1)= S ^RCT(349.1,"B",$E(X,1,30),DA)=""` `2)= K ^RCT(349.1,"B",$E(X,1,30),DA)`
.02	EXPANDED NAME	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `FEB 16, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This is the expanded name of the transmission type.`
.03	ACTIVE	0;3	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `FEB 16, 1996` DESCRIPTION: `This field will indicate if the transmission type is being used.`
.04	PURGE FREQUENCY	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>3650)!(X<30)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 16, 1996` HELP-PROMPT: `Type a Number between 30 and 3650, 0 Decimal Digits` DESCRIPTION: `This field indicates if and when a purge of the entries will take place.` TECHNICAL DESCR: `Number of days that transmission records are on-line before purging occurs.`
1	LOCAL ADDRESSEE	1;0	POINTER Multiple #349.11	349.11
2	LOCAL MAILGROUP	2;0	POINTER Multiple #349.12	349.12
31	REMOTE ADDRESSEE	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1)!'(X?.A) X` LAST EDITED: `APR 30, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the addressee name at the remote domain.`
32	REMOTE DOMAIN	3;2	POINTER TO DOMAIN FILE (#4.2)	DOMAIN(#4.2) LAST EDITED: `SEP 02, 1996` DESCRIPTION: `This is the remote domain where the transmission record is being sent.` CROSS-REFERENCE: `^^TRIGGER^349.1^33` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCT(349.1,D0,3)):^(3),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(349.1,32,1,1,1.1) X ^DD(349.1,32,1,1,1.4)` `1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(4.2,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(4.2,D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)` `1.4)= S DIH=$S($D(^RCT(349.1,DIV(0),3)):^(3),1:""),DIV=X S $P(^(3),U,3)=DIV,DIH=349.1,DIG=33 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.1,D0,3)):^(3),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(349.1,32,1,1,2.4)` `2.4)= S DIH=$S($D(^RCT(349.1,DIV(0),3)):^(3),1:""),DIV=X S $P(^(3),U,3)=DIV,DIH=349.1,DIG=33 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= REMOTE DOMAIN:.01` `DELETE VALUE)= @` `FIELD)= DOMAIN NAME`
33	DOMAIN NAME	3;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `SEP 02, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This is the name of the DOMAIN from file 4.2 DOMAIN.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the REMOTE DOMAIN field of the AR TRANSMISSION TYPE File`
34	RC MAIL ADDRESS	3;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `APR 07, 2004` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field will contain the Regional Counsel mail address for the primary site. It will be the default mail address.` TECHNICAL DESCR: EXECUTABLE HELP: `D MAILADD^RCRCXMS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
35	RC DEATH NOTIFICATION ADDRESS	3;5	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>40!($L(X)<2) X` LAST EDITED: `APR 28, 2004` HELP-PROMPT: `Answer must be 2-40 characters in length.` DESCRIPTION: `This field contains the Regional Counsel mail address for death notifications for the primary site. This will be the default for death notifications.` TECHNICAL DESCR: EXECUTABLE HELP: `D DEATHADD^RCRCXMS`
41	LAST MESSAGE ACK	4;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 28, 1996` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: `Number of last message type sent from CCPC.`
42	FINAL MESSAGE ACK	4;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 28, 1996` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: `Final message number of this type from CCPC.`
43	LAST MESSAGE NUMBER	4;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 28, 1996` HELP-PROMPT: `Type a Number between 1 and 99999999, 0 Decimal Digits` DESCRIPTION: `This is the last message number of this type for the transmission from CCPC.`
51	ACK MESSAGES	5;0	Multiple #349.151	349.151
61	DIVISION OF CARE	6;0	POINTER Multiple #349.161	349.161 LAST EDITED: `MAY 14, 2004` DESCRIPTION: `This field is a multiple that allows divisions to be entered if their Regional Counsel mail addresses and death notification addresses are different from the primary addresses.` TECHNICAL DESCR:

Found Entries, Total: 5

CODE: PS

CODE: IT

CODE: IS

CODE: PA

CODE: RC

External References

Name	Field # of Occurrence
^DICR	32(XREF 1n1.4), 32(XREF 1n2.4)
DEATHADD^RCRCXMS	35(HELP )
MAILADD^RCRCXMS	34(HELP )

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	32(XREF 1n1.4), 32(XREF 1n2.4)
^DD(349.1	32(XREF 1S), 32(XREF 1K)
^DIC(4.2 - [#4.2]	32(XREF 1n1.1)
^RCT(349.1 - [#349.1]	.01(XREF 1S), .01(XREF 1K), 32(XREF 1S), 32(XREF 1n1.4), 32(XREF 1K), 32(XREF 1n2.4)

Naked Globals

Name	Field # of Occurrence
^(0	32(XREF 1n1.1)
^(3	32(XREF 1S), 32(XREF 1n1.4), 32(XREF 1K), 32(XREF 1n2.4)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D0	32(XREF 1S), 32(XREF 1n1.1), 32(XREF 1K)
>> DA	.01(XREF 1S), .01(XREF 1K), 32(XREF 1S), 32(XREF 1K)
>> DIG	32(XREF 1n1.4), 32(XREF 1n2.4)
>> DIH	32(XREF 1n1.4), 32(XREF 1n2.4)
>> DIU	32(XREF 1S), 32(XREF 1K)
DIV	32(XREF 1S), 32(XREF 1n1.1), 32(XREF 1n1.4), 32(XREF 1K), 32(XREF 1n2.4)
DIV(0	32(XREF 1S), 32(XREF 1n1.4), 32(XREF 1K), 32(XREF 1n2.4)
>> I(0	32(XREF 1n1.1)
U	32(XREF 1S), 32(XREF 1n1.1), 32(XREF 1n1.4), 32(XREF 1K), 32(XREF 1n2.4)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .04+1!, 31+1!, 32(XREF 1S), 32(XREF 1n1.1), 32(XREF 1n1.4), 32(XREF 1K) , 32(XREF 1n2.4), 33+1!, 34+1!, 35+1!, 41+1!, 42+1!, 43+1!
Y	32(XREF 1S), 32(XREF 1K)
Y(1	32(XREF 1S), 32(XREF 1K)
Y(101	32(XREF 1n1.1)

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