Global: ^PRCF(421.2

FileMan FileNo	FileMan Filename	Package
421.2	CALM/LOG TRANSMISSION RECORD	IFCAP

Package	Total	Routines
IFCAP	18	ITEM SPECIFIC INFORMATION PRC5CON2 PRCFA RR INQUIRY LISTING PRCFAC5 PRCFACBT PRCFACP2 PRCFACPS PRCFACR PRCFACR0 PRCFACR1 PRCFACR2 PRCFACR5 PRCFAES1 PRCFAES2 PRCFAIS PRCFARRT PRCUCV1 ^PRCF(421.2

Package	Total	Routines
IFCAP	2	PRCFACPS PRCFARRT

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[.8, 5, 8]

Fields, Total: 20

Field #	Name	Loc	Type	Details
.01	BATCH/TRANSMISSION NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A((X)=45)&(X'?3N1"-"3U1"-"2N1"-"4.6N.1U)&(X'?3N1"-RR-"6UN1"-"1.5N)) X` LAST EDITED: `FEB 18, 1993` HELP-PROMPT: `Enter Batch Number,Transmission Number, or Station Mailman Message Number Format 503-CLM-88-1234C or 503-LOG-88-12345` DESCRIPTION: `This is the batch/transaction number. CALM/LOG Transmission Records are those records that have been transmitted to Austin. Information is stored by batch number and transaction number.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `421.2^B` `1)= S ^PRCF(421.2,"B",$E(X,1,30),DA)=""` `2)= K ^PRCF(421.2,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `421.2^C^MUMPS` `1)= S X1=$S($P(X,"-",4)]"":$P(X,"-",4),1:$P(X,"-",3)),^PRCF(421.2,"C",X1,DA)="" K X1` `2)= S X1=$S($P(X,"-",4)]"":$P(X,"-",4),1:$P(X,"-",3)) K ^PRCF(421.2,"C",X1,DA),X1` `This cross-reference is formed from the sequence number piece of the batch transmission number.` CROSS-REFERENCE: `421.2^E^MUMPS` `1)= S X1=$S($P(X,"-",4)]"":$P(X,"-",3,4),1:$P(X,"-",2,3)),^PRCF(421.2,"E",X1,DA)="" K X1` `2)= S X1=$S($P(X,"-",4)]"":$P(X,"-",3,4),1:$P(X,"-",2,3)) K ^PRCF(421.2,"E",X1,DA),X1` `This cross reference is formed from the fiscal year and sequence number pieces of the batch transmission number.`
.1	SYSTEM IDENTIFIER	0;14	SET	'CLM' FOR CALM; 'LOG' FOR LOG; 'FEE' FOR FEE; LAST EDITED: `JUL 09, 1987` DESCRIPTION: `This is the system identifier.`
.5	TYPE	0;3	SET	'B' FOR BATCH; 'T' FOR TRANSMISSION; 'R' FOR RECEIVING REPORT; LAST EDITED: `JUN 21, 1988` DESCRIPTION: `This is the type of transmission.`
.7	RELEASE VALIDATION DATE/TIME	0;10	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 26, 1993` DESCRIPTION: `This is the date and time the transmission was initially validated and released.`
.8	CREATED BY	0;11	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 21, 1992` DESCRIPTION: `This is the name of the person creating the transmission.`
1	TRANSMISSION NUMBER	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>11!($L(X)<11)!'(X?3N1"-"2N1"-"5N) X` HELP-PROMPT: `ANSWER MUST BE 11 CHARACTERS IN LENGTH` DESCRIPTION: `This is the transmission number.` CROSS-REFERENCE: `421.2^AC` `1)= S ^PRCF(421.2,"AC",$E(X,1,30),DA)=""` `2)= K ^PRCF(421.2,"AC",$E(X,1,30),DA)` `This cross reference is used to hold transmission numbers.`
4	D/T LAST GIVEN TO MAILMAN	0;4	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 15, 1993` DESCRIPTION: `This is the date and time the transaction was last given to MailMan.`
4.5	MESSAGE NUMBER	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 20, 1987` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 9999999` DESCRIPTION: `This is the number of the message.` CROSS-REFERENCE: `421.2^D` `1)= S ^PRCF(421.2,"D",$E(X,1,30),DA)=""` `2)= K ^PRCF(421.2,"D",$E(X,1,30),DA)` `This cross reference is used to hold the message number.`
4.6	MSC CONFIRMATION	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `APR 17, 1987` HELP-PROMPT: `ANSWER MUST BE 1-15 CHARACTERS IN LENGTH` DESCRIPTION: `This is the message switching center confirmation.`
5	RELEASE BY	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 18, 1992` DESCRIPTION: `This is the name of the person releasing the transmission.`
5.5	VALIDATION CODE	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` OUTPUT TRANSFORM: `S Y(0)=Y S Y="/ES/"_$$DECODE^PRCFAES1(D0)` LAST EDITED: `JAN 27, 1993` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `This is the validation code created for the transmission record at the time a valid electronic signature is entered authorizing the release of the batch.` `DELETE AUTHORITY: ^` `WRITE AUTHORITY: ^` `UNEDITABLE`
5.7	VALIDATION VERSION	.5;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `S Y="" Q` LAST EDITED: `JAN 25, 1993` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` DESCRIPTION: `This is the version number of the algorithms used to encode and decode the validation code which was created for the transmission record at the time it was initially released.`
5.9	ESIG CODE	.5;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `APR 10, 1993` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `Encoded value used by IFCAP security utilities when confirming the integrity of this record.`
6	BATCH NUMBER	1;0	Multiple #421.21	421.21 DESCRIPTION: `This is the number of the batch transmission.`
7	RERELEASE VALIDATION DATE/TIME	0;7	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 26, 1993` DESCRIPTION: `This is the date and time the batch transmission was validated for the last rerelease.`
8	RE-RELEASED BY	0;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 18, 1992` DESCRIPTION: `This is the name of the person releasing the batch transmission.`
8.7	RE-RELEASE VALIDATION VERSION	.5;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `S Y="" Q` LAST EDITED: `JAN 25, 1993` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` DESCRIPTION: `This is the version number of the algorithms used to encode and decode the validation code created for the record at the time that an electronic signature is entered authorizing retransmission.`
8.9	RE-RELEASE ESIG CODE	.5;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `APR 10, 1993` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `Encoded value used by IFCAP security utilities when confirming the integrity of this record.`
9	RE-RELEASE VALIDATION CODE	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` OUTPUT TRANSFORM: `S Y(0)=Y S Y="/ES/"_$$DECODE^PRCFAES2(D0)` LAST EDITED: `JAN 27, 1993` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `This is the electronic signature of the person releasing the batch transmission.` `DELETE AUTHORITY: ^` `WRITE AUTHORITY: ^` `UNEDITABLE`
10	TRANSMISSION KEY	0;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<17) X` LAST EDITED: `JUN 07, 1990` HELP-PROMPT: `Answer must be 1 to 17 characters in length.` DESCRIPTION: `This field is used to hold the transmission key. This cross-referenced key allows the system to find all code sheets assigned to a specific batch or transmission number.` CROSS-REFERENCE: `421.2^AD` `1)= S ^PRCF(421.2,"AD",$E(X,1,30),DA)=""` `2)= K ^PRCF(421.2,"AD",$E(X,1,30),DA)` `This cross reference is used to hold the transmission key.`

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.7+1, 4+1, 7+1*
>> D0	5.5OT+1, 9OT+1
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 1(XREF 1S), 1(XREF 1K), 4.5(XREF 1S), 4.5(XREF 1K) , 10(XREF 1S), 10(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .7+1!, 1+1!, 1(XREF 1S) , 1(XREF 1K), 4+1!, 4.5+1!, 4.5(XREF 1S), 4.5(XREF 1K), 4.6+1!, 5.5+1!, 5.7+1!, 5.9+1!, 7+1*! , 8.7+1!, 8.9+1!, 9+1!, 10+1!, 10(XREF 1S), 10(XREF 1K)
X1	.01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K)
>> Y	.7+1, 4+1, 5.5OT+1, 5.7OT+1, 7+1, 8.7OT+1, 9OT+1
>> Y(0	5.5OT+1, 5.7OT+1, 8.7OT+1, 9OT+1

Customize PDF page

Package: IFCAP

Global: ^PRCF(421.2

Information

Description

Directly Accessed By Routines, Total: 20

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 1

Fields, Total: 20

External References

Global Variables Directly Accessed

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	.7+1, 4+1, 7+1
$$DECODE^PRCFAES1	5.5OT+1
$$DECODE^PRCFAES2	9OT+1