Global: ^PRC(443.75

FileMan FileNo	FileMan Filename	Package
443.75	EDI SENDER	IFCAP

Package	Total	Routines
IFCAP	1	PRCODJM

Package	Total	FileMan Files
IFCAP	3	PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[7] EDI ERROR CODES(#443.76)[15] REQUEST FOR QUOTATION(#444)[8]
Kernel	1	NEW PERSON(#200)[5.5]

Fields, Total: 29

Field #	Name	Loc	Type	Details
.01	SEQUENTIAL ENTRY NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 16, 1996` HELP-PROMPT: `Enter the next number after the highest number enteredin any other record. Use each number only once.` DESCRIPTION: `This field contains a sequential number. This number is not linked to the file's IEN.` TECHNICAL DESCR: `This field has a number that is one more than the last record entered. This number has no connection with the internal entry number.` `All entries within one record will pertain to an ACT, POA or a PRJ transaction sent from the EDI package in Austin.` CROSS-REFERENCE: `443.75^B` `1)= S ^PRC(443.75,"B",$E(X,1,30),DA)=""` `2)= K ^PRC(443.75,"B",$E(X,1,30),DA)`
1	PO/RFQ NUMBER	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `JAN 03, 1997` HELP-PROMPT: `Enter the PO/RFQ number.` DESCRIPTION: `Enter the reference number for the Purchase Order, Requesition, Request for Quotation or Text supplement to a RFQ.` CROSS-REFERENCE: `443.75^AC^MUMPS` `1)= D S1^PRCOEDIS` `2)= D K1^PRCOEDIS` `This cross reference is used to locate the entry in file 443.75 that` `matches the entry coming from Austin in the ACT or PRJ transactions` `with the RFQ transaction sent from IFCAP.` `This cross-reference will be changed if fields 1, 3, 5 or 6.5 are` `changed.` `This cross-reference will be set only if fields 3, 5 and 6.5 are set.` `This cross-reference will be killed if fields 3, 5 or 6.5 are deleted.` `This cross-reference will look like:` `^PRC(443.75,"AC",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,` `RFQ,DA)=""` CROSS-REFERENCE: `443.75^AF^MUMPS` `1)= D S4^PRCOEDIS` `2)= D K4^PRCOEDIS` `This cross reference is used to locate the entry in file 443.75 that` `matches the entry coming from Austin in the TXT transaction.` `This cross-reference will be changed if fields 1, 2, 3 or 5 are changed.` `This cross-reference will be set only if fields 2, 3 and 5 are set.` `This cross-reference will be killed if fields 2, 3 or 5 are deleted.` `This cross-reference will look like:` `^PRC(443.75,"AF",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,` `TXT MESSAGE NUMBER,DA)=""` CROSS-REFERENCE: `443.75^AO^MUMPS` `1)= D S9^PRCOEDIS` `2)= D K9^PRCOEDIS` `This cross reference is used to locate the entry in file 443.75 that` `matches the entry coming from Austin in the ACT or PRJ transactions` `with the PHA transaction sent from IFCAP.` `This cross-reference will be changed if fields 1, 3 or 5 are changed.` `This cross-reference will be set only if fields 3 and 5 are set.` `This cross-reference will be killed if fields 3 or 5 are deleted.` `This cross-reference will look like:` `^PRC(443.75,"AO",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,` `DA)=""` CROSS-REFERENCE: `443.75^AR` `1)= S ^PRC(443.75,"AR",$E(X,1,30),DA)=""` `2)= K ^PRC(443.75,"AR",$E(X,1,30),DA)` `This cross-reference is used to locate an entry in this file when all that you have is the PO/Reference number.`
2	TXT MESSAGE NUMBER	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 03, 1997` HELP-PROMPT: `Enter the TXT record number.` DESCRIPTION: `This TXT number is a sequential number entered for each text record sent out about a RFQ document.` CROSS-REFERENCE: `443.75^AG^MUMPS` `1)= D S5^PRCOEDIS` `2)= D K5^PRCOEDIS` `This cross reference is used to locate the entry in file 443.75 that` `matches the entry coming from Austin in the TXT transaction.` `This cross-reference will be changed if fields 1, 2, 3 or 5 are changed.` `This cross-reference will be set only if fields 1, 3 and 5 are set.` `This cross-reference will be killed if fields 1, 3 or 5 are deleted.` `This cross-reference will look like:` `^PRC(443.75,"AF",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,` `TXT MESSAGE NUMBER,DA)=""`
3	TYPE OF TRANSACTION	0;4	SET	'PHA' FOR PHA; 'RFQ' FOR RFQ; 'TXT' FOR TXT; LAST EDITED: `JAN 22, 1997` DESCRIPTION: `Enter the type of transaction created.` CROSS-REFERENCE: `443.75^AD^MUMPS` `1)= D S2^PRCOEDIS` `2)= D K2^PRCOEDIS` `This cross reference is used to locate the entry in file 443.75 that` `matches the entry coming from Austin in the ACT or PRJ transactions` `with the RFQ transaction sent from IFCAP.` `This cross-reference will be changed if fields 1, 3, 5 or 6.5 are changed.` `This cross-reference will be set only if fields 1, 5 and 6.5 are set.` `This cross-reference will be killed if fields 1, 5 or 6.5 are deleted.` `This cross-reference will look like:` `^PRC(443.75,"AC",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,` `RFQ,DA)=""` CROSS-REFERENCE: `443.75^AH^MUMPS` `1)= D S6^PRCOEDIS` `2)= D K6^PRCOEDIS` `This cross reference is used to locate the entry in file 443.75 that` `matches the entry coming from Austin in the TXT transaction.` `This cross-reference will be changed if fields 1, 2, 3 or 5 are changed.` `This cross-reference will be set only if fields 1, 2 and 5 are set.` `This cross-reference will be killed if fields 1, 2 or 5 are deleted.` `This cross-reference will look like:` `^PRC(443.75,"AF",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,` `TXT MESSAGE NUMBER,DA)=""` CROSS-REFERENCE: `^^TRIGGER^443.75^25` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(443.75,3,1,3,69.2) S X=X="" I X S X=DIV S Y(1)=$S($D(^PRC(443.75,D0,1)):^(1),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(443.75,3,1,3,1.4)` `1.4)= S DIH=$S($D(^PRC(443.75,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,17)=DIV,DIH=443.75,DIG=25 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `69.2)= S Y(2)=$C(59)_$S($D(^DD(443.75,25,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^PRC(443.75,D0,1)):^(1),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,17)_":",2),$C(59),1)` `CREATE CONDITION)= PROGRESS LEVEL=""` `CREATE VALUE)= S X=1` `DELETE VALUE)= NO EFFECT` `FIELD)= PROGRESS LEVEL` `This cross-reference sets the PROGRESS LEVEL when a transaction is sent to Austin.` CROSS-REFERENCE: `443.75^AP^MUMPS` `1)= D S10^PRCOEDIS` `2)= D K10^PRCOEDIS` `This cross reference is used to locate the entry in file 443.75 that` `matches the entry coming from Austin in the ACT or PRJ transactions` `with the PHA transaction sent from IFCAP.` `This cross-reference will be changed if fields 1, 3 or 5 are changed.` `This cross-reference will be set only if fields 1 and 5 are set.` `This cross-reference will be killed if fields 1 or 5 are deleted.` `This cross-reference will look like:` `^PRC(443.75,"AO",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,` `DA)=""` CROSS-REFERENCE: `443.75^AJX3^MUMPS` `1)= D S1^PRCOEDI1` `2)= D K1^PRCOEDI1` `This x-ref will set or kill the 'AJ' x-ref along with the 'AJ' x-ref in` `field 6, and the 'AJX25' x-ref in field 25.` `This cross-reference will look like:` `^PRC(443.75,"AJ",PROGRESS LEVEL,TYPE OF TRANSACTION,DATE/TIME CREATED,` `DA)=""` `where PROGRESS LEVEL will equal 1` CROSS-REFERENCE: `443.75^AJ1X3^MUMPS` `1)= D S2^PRCOEDI1` `2)= D K2^PRCOEDI1` `This x-ref will set or kill 'AJ1' x-ref along with 'AJ1' x-ref in field` `6, 'AJ1X55' x-ref in field 5.5 and 'AJ1X25' x-ref in field 25.` `This cross-reference will look like:` `^PRC(443.75,"AJ1",PROGRESS LEVEL,SENDER,TYPE OF TRANSACTION,DATE/TIME` `CREATED,DA)=""` `Where PROGRESS LEVEL will equal 1`
4	MAIL MESSAGE NUMBER	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 13, 1996` HELP-PROMPT: `Enter the MailMan message number of the transaction created for this PO/RFQ number.` DESCRIPTION: `This field has the MailMan message number that the PHA, or RFQ or TXT transaction is using as an envelope to go to Austin.`
5	VENDOR ID NUMBER	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<5) X` LAST EDITED: `JAN 03, 1997` HELP-PROMPT: `Enter the Vendor Identification Number for the vendor listed in this PO/RFQ number.` DESCRIPTION: `The VENDOR ID NUMBER is the identifer for the vendor or vendors listed in the outgoing PHA, or RFQ or TXT transaction. Each vendor will be listed under a different record within this file for all vendors entered within a` `RFQ.` CROSS-REFERENCE: `443.75^AE^MUMPS` `1)= D S3^PRCOEDIS` `2)= D K3^PRCOEDIS` `This cross reference is used to locate the entry in file 443.75 that` `matches the entry coming from Austin in the ACT or PRJ transactions` `with the RFQ transaction sent from IFCAP.` `This cross-reference will be changed if fields 1, 3, 5 or 6.5 are changed.` `This cross-reference will be set only if fields 1, 3 and 6.5 are set.` `This cross-reference will be killed if fields 1, 3 or 6.5 are deleted.` `This cross-reference will look like:` `^PRC(443.75,"AC",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,` `RFQ,DA)=""` CROSS-REFERENCE: `443.75^AI^MUMPS` `1)= D S7^PRCOEDIS` `2)= D K7^PRCOEDIS` `This cross reference is used to locate the entry in file 443.75 that` `matches the entry coming from Austin in the TXT transaction.` `This cross-reference will be changed if fields 1, 2, 3 or 5 are changed.` `This cross-reference will be set only if fields 1, 2 and 3 are set.` `This cross-reference will be killed if fields 1, 2 or 3 are deleted.` `This cross-reference will look like:` `^PRC(443.75,"AF",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,` `TXT MESSAGE NUMBER,DA)=""` CROSS-REFERENCE: `443.75^AQ^MUMPS` `1)= D S11^PRCOEDIS` `2)= D K11^PRCOEDIS` `This cross reference is used to locate the entry in file 443.75 that` `matches the entry coming from Austin in the ACT or PRJ transactions` `with the PHA transaction sent from IFCAP.` `This cross-reference will be changed if fields 1, 3 or 5 are changed.` `This cross-reference will be set only if fields 1 and 3 are set.` `This cross-reference will be killed if fields 1 or 3 are deleted.` `This cross-reference will look like:` `^PRC(443.75,"AO",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,` `DA)=""`
5.5	SENDER	0;11	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 22, 1997` HELP-PROMPT: `Enter the person who entered this transaction.` TECHNICAL DESCR: `This piece of data will be used to screen entries in this file (443.75) to only display one person's entries. When the user enters the option (EDI/RFQ REPORTS) a choice will be given. If the user is not a SUPPLY MANAGER` `the person must choose one of the SENDERs with entries in this file. To select another SENDER one must leave this option then return. The SUPPLY MANAGER can choose one of the SENDERs or all the SENDERs in this file --` `one name or all names, nothing in between.` CROSS-REFERENCE: `443.75^C^` `1)= Q:$O(^PRC(443.75,"C",X,0))>0 S ^PRC(443.75,"C",X,DA)=""` `2)= K ^PRC(443.75,"C",X,DA)` `This x-ref is used to find out if a person is already in this file.` CROSS-REFERENCE: `443.75^AJ1X55^MUMPS` `1)= D S3^PRCOEDI1` `2)= D K3^PRCOEDI1` `This will set or kill the 'AJ1' x-ref along with 'AJ1' x-ref in field 6,` `'AJ1X3'in field 3 and 'AJ1X25' in field 25.` `This cross-reference will look like:` `^PRC(443.75,"AJ1",PROGRESS LEVEL,SENDER,TYPE OF TRANSACTION,DATE/TIME` `CREATED,DA)=""` `Where PROGRESS LEVEL will equal 1` CROSS-REFERENCE: `443.75^AL1X55^MUMPS` `1)= D S4^PRCOEDI1` `2)= D K4^PRCOEDI1` `This x-ref will set or kill the 'AL1' x-ref along with 'AL1' x-ref in` `field 10, 'AL1X9' x-ref in field 9 and 'AL1X25' x-ref in field 25.` `This cross-reference will look like:` `^PRC(443.75,"AL1",PROGRESS LEVEL,SENDER,INCOMMING TYPE OF TRANSACTION,` `DATE/TIME PROCESSED,DA)=""` `Where PROGRESS LEVEL will equal 2` `This cross-reference will remove the "AJ1" cross-reference for record` `DA when PROGRESS LEVEL is equal to 1 in "AJ1".` CROSS-REFERENCE: `443.75^AM1X55^MUMPS` `1)= D S5^PRCOEDI1` `2)= D K5^PRCOEDI1` `This x-ref will set or kill the 'AM1' x-ref along with 'AM1X23' x-ref` `in field 23, 'AM1X24' x-ref in field 24 and 'AM1X25' x-ref in field 25.` `This cross-reference will look like:` `^PRC(443.75,"AM1",PROGRESS LEVEL,SENDER,POA TRANSACTION,DATE/TIME` `SENT,DA)=""` `Where PROGRESS LEVEL will equal 2` `This cross-reference will remove the "AL1" cross-reference for record` `DA when PROGRESS LEVEL is equal to 2 in "AL1".`
6	DATE/TIME CREATED	0;7	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 21, 1997` HELP-PROMPT: `Enter the date and time the transaction was created or mailed.` DESCRIPTION: `This field will contain the date and time that the MailMan message was created. This will be within 15 minuts of when the transaction was created.` CROSS-REFERENCE: `443.75^AJ^MUMPS` `1)= S Z0=$P($G(^PRC(443.75,DA,0)),U,4),Z1=$P($G(^PRC(443.75,DA,1)),U,17) S:Z1=1&(Z0]"") ^PRC(443.75,"AJ",Z1,Z0,$E(X,1,30),DA)="" K Z0,Z1` `2)= S Z0=$P($G(^PRC(443.75,DA,0)),U,4),Z1=$P($G(^PRC(443.75,DA,1)),U,17) K:Z1=1&(Z0]"") ^PRC(443.75,"AJ",Z1,Z0,$E(X,1,30),DA) K Z0,Z1` `This cross-reference lists all records that have no response from Austin` `in date/time order.` `This cross-reference will look like:` `^PRC(443.75,"AJ",PROGRESS LEVEL,TYPE OF TRANSACTION,DATE/TIME CREATED,` `DA)=""` `Where PROGRESS LEVEL will equal 1` CROSS-REFERENCE: `443.75^AJ1^MUMPS` `1)= D S3^PRCOEDI2` `2)= D K3^PRCOEDI2` `This cross reference lists all records that have no response from Austin.` `in date/time order. All records are also sorted by SENDER.` `This cross-reference will look like:` `^PRC(443.75,"AJ1",PROGRESS LEVEL,SENDER,TYPE OF TRANSACTION,DATE/` `TIME CREATED,DA)=""` `Where PROGRESS LEVEL will equal 1` CROSS-REFERENCE: `443.75^D` `1)= S ^PRC(443.75,"D",$E(X,1,30),DA)=""` `2)= K ^PRC(443.75,"D",$E(X,1,30),DA)` `Use this x-ref to find out what entries to delete after a number of days. Use the DAYS TO RETAIN field in file 411 to set the number of days. If no DAYS TO RETAIN value was entered 60 days will be used as the default.`
6.5	RFQ	0;10	SET	'00' FOR NEW RFQ; '01' FOR CANCELLED RFQ; LAST EDITED: `JAN 03, 1997` DESCRIPTION: `The code '00' means that an initial RFQ transaction is being sent. '01' means that this RFQ transaction is cancelling the request.` TECHNICAL DESCR: `This field is entered only for 'RFQ' transactions. If the 'RFQ' is a new transaction the code '00' is entered. If the 'RFQ' is to tell the vendors that this 'RFQ' is cancelled the code '01' is entered.` CROSS-REFERENCE: `443.75^AN^MUMPS` `1)= D S8^PRCOEDIS` `2)= D K8^PRCOEDIS` `This cross reference is used to locate the entry in file 443.75 that` `matches the entry coming from Austin in the ACT or PRJ transactions` `with the RFQ transaction sent from IFCAP.` `This cross-reference will be changed if fields 1, 3, 5 or 6.5 are changed.` `This cross-reference will be set only if fields 1, 3 and 5 are set.` `This cross-reference will be killed if fields 1, 3 or 5 are deleted.` `This cross-reference will look like:` `^PRC(443.75,"AC",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,` `RFQ,DA)=""`
7	PO POINTER	0;8	POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)	PROCUREMENT & ACCOUNTING TRANSACTIONS(#442) LAST EDITED: `JUN 11, 1996` HELP-PROMPT: `Enter the IEN of the record in file 442 that this record belongs to.` DESCRIPTION: `Enter here the internal entry number for the record in file 442 that the PO/RFQ NUMBER field identifies. This pointer will only represent records that create PHA transactions.`
8	RFQ/TXT POINTER	0;9	POINTER TO REQUEST FOR QUOTATION FILE (#444)	REQUEST FOR QUOTATION(#444) LAST EDITED: `JUN 11, 1996` HELP-PROMPT: `Enter the IEN for the record in file 444 that this entry represents.` DESCRIPTION: `This field points to the record in file 444 that the PO/RFQ NUMBER field lists.`
9	INCOMMING TYPE OF TRANSACTION	1;1	SET	'ACT' FOR ACT; 'PRJ' FOR PRJ; LAST EDITED: `JAN 22, 1997` DESCRIPTION: `'ACT' means the transaction is reporting on 'PHA', 'RFQ' or 'TXT' which were accepted in Austin following transmission from the site. 'PRJ' means the transaction is reporting on transactions rejected in Austin.` TECHNICAL DESCR: `The data in this field comes from incomming transactions sent from Austin.` `All transactions listed come from the EDI system in Austin.` CROSS-REFERENCE: `^^TRIGGER^443.75^25` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(443.75,D0,1)):^(1),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=2 X ^DD(443.75,9,1,1,1.4)` `1.4)= S DIH=$S($D(^PRC(443.75,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,17)=DIV,DIH=443.75,DIG=25 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE VALUE)= S X=2` `DELETE VALUE)= NO EFFECT` `FIELD)= PROGRESS LEVEL` `This cross-reference updates the PROGRESS LEVEL when an accepted or rejected transaction arrives from Austin.` CROSS-REFERENCE: `443.75^ALX9^MUMPS` `1)= D S10^PRCOEDI1` `2)= D K10^PRCOEDI1` `This x-ref will set or kill the 'AL' x-ref along with 'AL' x-ref in field` `10 and 'ALX25' x-ref in field 25.` `This cross-reference will look like:` `^PRC(443.75,"AL",PROGRESS LEVEL,INCOMMING TYPE OF TRANSACTION,DATE/` `TIME PROCESSED,DA)=""` `Where PROGRESS LEVEL will equal 2` `This cross-reference will remove the "AJ" cross-reference for record` `DA during the SET of "ALX9, when PROGRESS LEVEL is equal to 1 in the` `"AJ" cross-reference.` `This cross-reference will restore the "AJ" cross-reference for record` `DA during the KILL of "ALX9", setting PROGRESS LEVEL to 1 in the "AJ"` `cross-reference.` CROSS-REFERENCE: `443.75^AL1X9^MUMPS` `1)= D S4^PRCOEDI2` `2)= D K4^PRCOEDI2` `This x-ref will set or kill the 'AL1' x-ref along with 'AL1X55' x-ref in` `field 5.5, 'AL1X10' x-ref in field 10 and 'AL1X25' x-ref in field 25.` `This cross-reference will look like:` `^PRC(443.75,"AL1",PROGRESS LEVEL,SENDER,INCOMMING TYPE OF TRANSACTION,` `DATE/TIME PROCESSED,DA)=""` `Where PROGRESS LEVEL will equal 2` `This cross-reference will remove the "AJ1" cross-reference for record` `DA during the SET of "AL1X9", when PROGRESS LEVEL is equal to 1 in the` `"AJ1" cross-reference.` `This cross-reference will restore the "AJ1" cross-reference for record` `DA during the KILL of "AL1X9", setting PROGRESS LEVEL to 1 in the "AJ1"` `cross-reference.`
10	DATE/TIME PROCESSED	1;2	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 03, 1997` HELP-PROMPT: `Enter the date and time that the transaction was processed in Austin.` TECHNICAL DESCR: `This is the date and time that Austin evaluated the PHA, or RFQ or TXT transactions sent to them.` `If the transaction was accepted this data is returned in the ACT transaction.` `Any problems with any of the three transactions will be reported back in the PRJ transaction.` CROSS-REFERENCE: `443.75^AL^MUMPS` `1)= D S12^PRCOEDIS` `2)= D K12^PRCOEDIS` `This cross-reference lists all records that habe been accepted or` `rejected by Austin in date/time order.` `This cross-reference will look like:` `^PRC(443.75,"AL",PROGRESS LEVEL,INCOMMING TYPE OF TRANSACTION,` `DATE/TIME PROCESSED,DA)=""` `Where PROGRESS LEVEL will equal 2` `This cross-reference will remove the "AJ" cross-reference for record` `DA during the SET of "AL", when PROGRESS LEVEL is equal to 1 in the` `"AJ" cross-reference.` `This cross-reference will restore the "AJ" cross-reference for record` `DA during the KILL of "AL", setting PROGRESS LEVEL to 1 in the "AJ"` `cross-reference.` CROSS-REFERENCE: `443.75^AL1^MUMPS` `1)= D S1^PRCOEDI2` `2)= D K1^PRCOEDI2` `This cross reference list all records that have been accepted or rejected` `by Austin. All records are sorted by SENDER.` `This cross-reference will look like:` `^PRC(443.75,"AL1",PROGRESS LEVEL,SENDER,INCOMMING TYPE OF TRANSACTION,` `DATE/TIME PROCESSED,DA)=""` `Where PROGRESS LEVEL will equal 2` `This cross-reference will remove the "AJ1" cross-reference for record` `DA during the SET of "AL1", when PROGRESS LEVEL is equal to 1 in the` `"AJ1" cross-reference.` `This cross-reference will restore the "AJ1" cross-reference for record` `DA during the KILL of "AL1", setting PROGRESS LEVEL to 1 in the "AJ1"` `cross-reference.`
11	INCORRECT SEGMENT	1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<2) X` LAST EDITED: `JUN 11, 1996` HELP-PROMPT: `Enter the INCORRECT SEGMENT field in the RJ segment of the PRJ transaction.` DESCRIPTION: `The data for this field comes from the INCORRECT SEGMENT field in the RJ segment within the PRJ transaction. This transaction reports problems within the PHA, RFQ or TXT transactions sent to Austin.`
12	INCORRECT FIELD NAME	1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JUN 11, 1996` HELP-PROMPT: `Enter the name of the field in the outgoing transaction with the error.` DESCRIPTION: `Enter the name of the field within a segment in the PHA, RFQ or TXT transaction that Austin considers to be in error.`
13	FIELD CONTAINES	1;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>72!($L(X)<1) X` LAST EDITED: `JUN 11, 1996` HELP-PROMPT: `This is the data from the field Austin considers in error.` DESCRIPTION: `This is the data that Austin received in the INCORRECT FIELD NAME entry.`
14	ITEM LINE NUMBER	1;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 11, 1996` HELP-PROMPT: `Enter the LINE ITEM NUMBER with the error.` DESCRIPTION: `This is the LINE ITEM NUMBER from the IT segment of the PHA or RFQ transaction with the error.`
15	REJECT REASON CODE	1;7	POINTER TO EDI ERROR CODES FILE (#443.76)	EDI ERROR CODES(#443.76) LAST EDITED: `JUN 11, 1996` HELP-PROMPT: `Enter the REJECT REASON from the PRJ transaction.` DESCRIPTION: `Enter the REJECT REASON value from the RJ segment within the PRJ transaction. This is the explination about the error within the PHA, RFQ or TXT transaction sent to Austin.`
16	DESCRIPTION LINE NUMBER	1;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 11, 1996` HELP-PROMPT: `Enter the DESCRIPTION LINE NUMBER of the DE segment with the error.` DESCRIPTION: `Enter the line number of the DE segment with the problem reported from Austin.`
17	DE SEQUENCE NUMBER	1;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 11, 1996` HELP-PROMPT: `Enter the DE SEQUENCE NUMBER that has the error.` DESCRIPTION: `Enter the number from the DE SEQUENCE NUMBER in the RJ segment within the PRJ transaction from Austin.`
18	CO SEQUENCE NUMBER	1;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 11, 1996` HELP-PROMPT: `Enter the CO SEQUENCE NUMBER for the comment line with the error.` DESCRIPTION: `Enter the CO SEQUENCE NO. field from the RJ segment within the PRJ transaction comming from Austin.`
19	TRANSACTION ERROR	1;11	SET	'E' FOR ERROR IN TRANSACTION; 'R' FOR REPAIRED TRANSACTION; LAST EDITED: `JUN 12, 1996` DESCRIPTION: `This field is set if there is a problem with the incomming transaction. Once the problem with the record is corrected this field should be changed to REPAIRED TRANSACTION.` TECHNICAL DESCR: `This field will be set to E if a mailman message is sent out because there is some problem with the outgoing transaction that the incomming transaction is reporting.`
20	ERROR REASON	1;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JUN 12, 1996` HELP-PROMPT: `Enter the reason code reference.` TECHNICAL DESCR: `This field will have the reference number belonging to the reason appearing on the mailman message informing the users about a problem with this incomming transaction.` `If this field contains 'A(NUMBER)', the (NUMBER) is the position in the list of ERROR messages in PRCOACT.` `If this field contains '^' separated '*'s extract the error text from PRCOESE1. Use the TEXT entry in PRCOESE1 to fetch the error text.`
21	TOTAL NUMBER	1;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 14, 1996` HELP-PROMPT: `Enter the Total Number of TR or RJ segments for ACT or PRJ transactions. Enter the Line Count value in the HE segment for POA transactions.` TECHNICAL DESCR: `The data for this field comes from the TOTAL OF PHA/RFQ/TXT ACCEPTED/REJECTED field in the AT segment within the ACT or PRJ transactions.` `The data for this field comes from the LINE COUNT field in the HE segment within the POA transaction.`
22	SEQUENCE NUMBER	1;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 14, 1996` HELP-PROMPT: `Enter the SEQUENCE NUMBER of this PO/RFQ.` TECHNICAL DESCR: `The data for this field comes from the SEQUENCE NUMBER field of the TR or RJ segment in the ACT or PRJ transactions.` `The POA transaction has no sequential number field to use. The data for this field will be a count of al IT segments within a POA transaction.`
23	POA TRANSACTION	1;15	SET	'POA' FOR POA; LAST EDITED: `JAN 22, 1997` DESCRIPTION: `Indicates entry is associated with a Purchase Order Acknowledgement (POA) transaction from the vendor.` TECHNICAL DESCR: `The POA type comes from the POA transaction from the vendor through Austin.` CROSS-REFERENCE: `^^TRIGGER^443.75^25` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(443.75,D0,1)):^(1),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=3 X ^DD(443.75,23,1,1,1.4)` `1.4)= S DIH=$S($D(^PRC(443.75,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,17)=DIV,DIH=443.75,DIG=25 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE VALUE)= S X=3` `DELETE VALUE)= NO EFFECT` `FIELD)= PROGRESS LEVEL` `This cross-reference updates the PROGRESS LEVEL when a vendor acknowledges an EDI order.` CROSS-REFERENCE: `443.75^AMX23^MUMPS` `1)= D S5^PRCOEDI2` `2)= D K5^PRCOEDI2` `This x-ref will set or kill the 'AM' x-ref along with 'AM' x-ref in field` `24 and 'AMX25' x-ref in field 25.` `This cross-reference will look like:` `^PRC(443.75,"AM",PROGRESS LEVEL,POA TRANSACTION,DATE/TIME SENT,DA)=""` `Where PROGRESS LEVEL will equal 3` `This cross-reference will remove the "AL" cross-reference for record` `DA during the SET of "AMX23", when PROGRESS LEVEL is equal to 2 in the` `"AL" cross-reference.` `This cross-reference will restore the "AL" cross-reference for record` `DA during the KILL of "AMX23", setting PROGRESS LEVEL to 2 in the "AL"` `cross-reference.` CROSS-REFERENCE: `443.75^AM1X23^MUMPS` `1)= D S6^PRCOEDI2` `2)= D K6^PRCOEDI2` `This x-ref will set or kill the 'AM1' x-ref along with 'AM1X55' x-ref in` `field 5.5, 'AM1' x-ref in field 24 and 'AM1X25' x-ref in field 25.` `This cross-reference will look like:` `^PRC(443.75,"AM1",PROGRESS LEVEL,SENDER,POA TRANSACTION,DATE/TIME` `SENT,DA)=""` `Where PROGRESS LEVEL will equal 3` `This cross-reference will remove the "AL1" cross-reference for record` `DA during the SET of "AM1X23", when PROGRESS LEVEL is equal to 2 in the` `"AL1" cross-reference.` `This cross-reference will restore the "AL1" cross-reference for record` `DA during the KILL of "AM1X23", setting PROGRESS LEVEL to 2 in the "AL1"` `cross-reference.`
24	DATE/TIME SENT	1;16	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 03, 1997` TECHNICAL DESCR: `This is the date and time that the POA transaction was created in Austin. This date and time will be after the vendor sent the PHA acknowledgement to Austin.` CROSS-REFERENCE: `443.75^AM^MUMPS` `1)= D S13^PRCOEDIS` `2)= D K13^PRCOEDIS` `This cross-reference lists all orders that have been acknowledged by the` `vendor in date/time sequence.` `This cross-reference will look like:` `^PRC(443.75,"AM",PROGRESS LEVEL,POA TRANSACTION,DATE/TIME SENT,DA)=""` `Where PROGRESS LEVEL will equal 3` `This cross-reference will remove the "AL" cross-reference for record` `DA during the SET of "AM", when PROGRESS LEVEL is equal to 2 in the` `"AL" cross-reference.` `This cross-reference will restore the "AL" cross-reference for record` `DA during the KILL of "AM", setting PROGRESS LEVEL to 2 in the "AL"` `cross-reference.` CROSS-REFERENCE: `443.75^AM1^MUMPS` `1)= D S2^PRCOEDI2` `2)= D K2^PRCOEDI2` `This cross reference lists all orders that have been acknowledged by the` `vendor in date time sequence. All entries are sorted by SENDER.` `This cross-reference will look like:` `^PRC(443.75,"AM1",PROGRESS LEVEL,SENDER,POA TRANSACTION,DATE/TIME` `SENT,DA)=""` `Where PROGRESS LEVEL will equal 3` `This cross-reference will remove the "AL1" cross-reference for record` `DA during the SET of "AM1", when PROGRESS LEVEL is equal to 2 in the` `"AL1" cross-reference.` `This cross-reference will restore the "AL1" cross-reference for record` `DA during the KILL of "AM1", setting PROGRESS LEVEL to 2 in the "AL1"` `cross-reference.`
25	PROGRESS LEVEL	1;17	SET	'1' FOR SENT FROM IFCAP; '2' FOR RECEIVED FROM IFCAP (ACCEPTED OR REJECTED); '3' FOR STATUS FROM VENDOR; LAST EDITED: `JAN 22, 1997` TECHNICAL DESCR: `This field will keep track of the progress of the transaction from IFCAP through Austin and on to the vendor.` `Level 1 means that the transaction has been sent from the local site.` `Level 2 states that the transaction from level 1 has been received in Austin and accepted or rejected.` `Level 3 informs that the accepted transaction from level 2 has gone to the vendor and the vendor is sending back the order status.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the POA TRANSACTION field of the EDI SENDER File` `TRIGGERED by the TYPE OF TRANSACTION field of the EDI SENDER File` `TRIGGERED by the INCOMMING TYPE OF TRANSACTION field of the EDI SENDER File` CROSS-REFERENCE: `443.75^AK` `1)= S ^PRC(443.75,"AK",$E(X,1,30),DA)=""` `2)= K ^PRC(443.75,"AK",$E(X,1,30),DA)` `This cross-reference keeps track of the progress of the transaction from creation by IFCAP to acceptance or rejection by Austin through acknowledgement by the vendor.` CROSS-REFERENCE: `443.75^AJ1X25^MUMPS` `1)= D S7^PRCOEDI1` `2)= D K7^PRCOEDI1` `This x-ref will set or kill the 'AJ1' x-ref along with 'AJ1X3' x-ref in` `field 3, 'AJ1X55' x-ref in field 5.5 and 'AJ1' x-ref in field 6.` `This cross-reference will look like:` `^PRC(443.75,"AJ1",PROGRESS LEVEL,SENDER,TYPE OF TRANSACTION, DATE/TIME` `CREATED,DA)=""` `Where PROGRESS LEVEL will equal 1` CROSS-REFERENCE: `443.75^ALX25^MUMPS` `1)= D S8^PRCOEDI1` `2)= D K8^PRCOEDI1` `This x-ref will set or kill the 'AL' x-ref along with 'ALX9' x-ref in` `field 9 and 'AL' x-ref in field 10.` `This cross-reference will look like:` `^PRC(443.75,"AL",PROGRESS LEVEL,INCOMMING TYPE OF TRANSACTION,` `DATE/TIME PROCESSED,DA)=""` `Where PROGRESS LEVEL will equal 2` `This cross-reference will remove the "AJ" cross-reference for record` `DA during the SET of "ALX25", when PROGRESS LEVEL is equal to 1 in the` `"AJ" cross-reference.` `This cross-reference will restore the "AJ" cross-reference for record` `DA during the KILL of "ALX25", setting PROGRESS LEVEL to 1 in the "AJ"` `cross-reference.` CROSS-REFERENCE: `443.75^AL1X25^MUMPS` `1)= D S9^PRCOEDI1` `2)= D K9^PRCOEDI1` `This x-ref will set or kill the 'AL1' x-ref along with 'AL1X55' x-ref in` `field 5.5, 'AL1X9' x-ref in field 9 and 'AL1' x-ref in field 10.` `This cross-reference will look like:` `^PRC(443.75,"AL1",PROGRESS LEVEL,SENDER,INCOMMING TYPE OF TRANSACTION,` `DATE/TIME PROCESSED,DA)=""` `Where PROGRESS LEVEL will equal 2` `This cross-reference will remove the "AJ1" cross-reference for record` `DA during the SET of "AL1X25", when PROGRESS LEVEL is equal to 1 in` `the "AJ1" cross-reference.` `This cross-reference will restore the "AJ1" cross-reference for record` `DA during the KILL of "AL1X25", setting PROGRESS LEVEL to 1 in the` `"AJ1" cross-reference.` CROSS-REFERENCE: `443.75^AMX25^MUMPS` `1)= D S7^PRCOEDI2` `2)= D K7^PRCOEDI2` `This x-ref will set or kill the 'AM' x-ref along with 'AMX23' x-ref in` `field 23 and 'AM' x-ref in field 24.` `This cross-reference will look like:` `^PRC(443.75,"AM",PROGRESS LEVEL,POA TRANSACTION,DATE/TIME SENT,DA)=""` `Where PROGRESS LEVEL will equal 3` `This cross-reference will remove the "AL" cross-reference for record` `DA during the SET of "AMX25", when PROGRESS LEVEL is equal to 2 in` `the "AL" cross-reference.` `This cross-reference will restore the "AL" cross-reference for record` `DA during the KILL of "AMX25", setting PROGRESS LEVEL to 2 in the "AL"` `cross-reference.` CROSS-REFERENCE: `443.75^AJX25^MUMPS` `1)= D S6^PRCOEDI1` `2)= D K6^PRCOEDI1` `This x-ref will set or kill the 'AJ' x-ref along with 'AJX3' x-ref in` `field 3 and 'AJX25' in field 25.` `This cross-reference will look like:` `^PRC(443.75,"AJ",PROGRESS LEVEL,TYPE OF TRANSACTION,DATE/TIME CREATED,` `DA)=""` `Where PROGRESS LEVEL will equal 1` CROSS-REFERENCE: `443.75^AM1X25^MUMPS` `1)= D S8^PRCOEDI2` `2)= D K8^PRCOEDI2` `This x-ref will set or kill the 'AM1' x-ref along with 'AM1X55' x-ref in` `field 5.5, 'AM1X23' x-ref in field 23 and 'AM1' x-ref in field 24.` `This cross-reference will look like:` `^PRC(443.75,"AM1",PROGRESS LEVEL,SENDER,POA TRANSACTION,DATE/TIME` `SENT,DA)=""` `Where PROGRESS LEVEL will equal 3` `This cross-reference will remove the "AL1" cross-reference for record` `DA during the SET of "AM1X25", when PROGRESS LEVEL is equal to 2 in` `the "AL1" cross-reference.` `This cross-reference will restore the "AL1" cross-reference for record` `DA during the KILL of "AM1X25", setting PROGRESS LEVEL to 2 in the "AL1"` `cross-reference.`
26	POA ERROR	ERR;0	Multiple #443.7526	443.7526

Customize PDF page

Package: IFCAP

Global: ^PRC(443.75

Information

Description

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 4

Fields, Total: 29