STANDARD DATA DICTIONARY #443.9 -- IFCAP PENDING ARCHIVE FILE 6/27/25 PAGE 1
STORED IN ^PRC(443.9, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.1)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is a local Archive/Purge file that documents what records are pending archive. Prior to initiating an archive, this file
should be empty. This file is populated by the menu option Find Archivable IFCAP Records [PRCG ARCHIVE FIND].
CROSS
REFERENCED BY: PO NAME(AC), PO NUMBER(AD), PO NUMBER(B)
443.9,.01 PO NUMBER 0;1 POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)
INPUT TRANSFORM: I $D(X) S DINUM=X
LAST EDITED: OCT 08, 1993
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 443.9^B
1)= S ^PRC(443.9,"B",$E(X,1,30),DA)=""
2)= K ^PRC(443.9,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^443.9^.5
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(443.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S
DIU=X K Y X ^DD(443.9,.01,1,2,1.1) X ^DD(443.9,.01,1,2,1.4)
1.1)= S X=DIV S X=$S('$D(^PRC(442,+DIV,0)):"",1:$P(^(0),U,1))
1.4)= S DIH=$S($D(^PRC(443.9,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=443.9,DIG=.5 D ^DIC
R:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(443.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S
DIU=X K Y S X="" X ^DD(443.9,.01,1,2,2.4)
2.4)= S DIH=$S($D(^PRC(443.9,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=443.9,DIG=.5 D ^DIC
R:$N(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= PO NUMBER
DELETE VALUE)= @
FIELD)= PO NAME
CROSS-REFERENCE: 443.9^AD^MUMPS
1)= S ZX=$P(^PRC(442,DA,0),"^",2),ZX=$P($G(^PRCD(442.5,+ZX,0)),"^",2) S:ZX]"" $P(^PRC(443.9,DA,0),"
^",3)=ZX K ZX
2)= Q
This cross reference is a MUMPS trigger to place the Method of Processing abbreviation from file
442.5 into each record on this file. It will be used to increase the speed of the lookup when
purging records.
443.9,.5 PO NAME 0;4 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3) X
LAST EDITED: AUG 25, 1993
HELP-PROMPT: Answer must be 3-20 characters in length.
NOTES: TRIGGERED by the PO NUMBER field of the IFCAP PENDING ARCHIVE File
CROSS-REFERENCE: 443.9^AC
1)= S ^PRC(443.9,"AC",$E(X,1,30),DA)=""
2)= K ^PRC(443.9,"AC",$E(X,1,30),DA)
443.9,1 PURGE STATUS 0;2 SET
'1' FOR ARCHIVE ONLY;
'2' FOR PURGE ONLY;
'3' FOR ARCHIVE & PURGE;
LAST EDITED: SEP 23, 1993
443.9,2 MOP ABBREVIATION 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<2) X
LAST EDITED: OCT 08, 1993
HELP-PROMPT: Answer must be 2-4 characters in length.
FILES POINTED TO FIELDS
PROCUREMENT & ACCOUNTING TRANS
(#442) PO NUMBER (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):