STANDARD DATA DICTIONARY #440.6 -- PURCHASE CARD ORDER RECONCILE FILE 6/27/25 PAGE 1
STORED IN ^PRCH(440.6, *** 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 used to store ORACLE records for reconciliation.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY:
"H1": W " ",$E($P(^(0),U,9),4,5)_"-"_$E($P(^(0),U,9),6,7)_"-"_$E($P(^(0),U,9),2,3)
"H2": W " $",$J($P(^(0),U,14),0,2)
"H3": W:$D(^(6)) " ",$P(^(6),U,1)
POINTED TO BY: AUDIT REPAIR field (#30) of the PROSTHETICS 1358 File (#664)
CROSS
REFERENCED BY: ORACLE DOCUMENT ID(B), VENDOR PURCHASE ORDER(C), STATEMENT DATE(D), PURCHASE ORDER(PO), STATUS(ST),
CARD HOLDER(ST1)
440.6,.01 ORACLE DOCUMENT ID 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: DEC 20, 1999
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION:
This is document number send by the ORACLE system.
CROSS-REFERENCE: 440.6^B
1)= S ^PRCH(440.6,"B",$E(X,1,30),DA)=""
2)= K ^PRCH(440.6,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^440.6^47
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^PRCH(440.6,D0,1)):^(1),1:"") S X=$P(Y(1),U
,7)="" I X S X=DIV S Y(1)=$S($D(^PRCH(440.6,D0,1)):^(1),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^D
D(440.6,.01,1,2,1.1) X ^DD(440.6,.01,1,2,1.4)
1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
1.4)= S DIH=$S($D(^PRCH(440.6,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,7)=DIV,DIH=440.6,DIG=47 D ^DI
CR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= CHARGE RECEIVING DATE=""
CREATE VALUE)= NOW
DELETE VALUE)= NO EFFECT
FIELD)= CHARGE RECEIVING DATE
This trigger will be used to populate the field CHARGE RECEIVING DATE with the date/time of arrival
of ORACLE charges into this file.
440.6,1 BATCH NUMBER 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1) X
LAST EDITED: MAY 28, 1996
HELP-PROMPT: Answer must be 1-6 characters in length.
DESCRIPTION:
This is a batch number.
440.6,2 LINE NUMBER 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1) X
LAST EDITED: MAY 28, 1996
HELP-PROMPT: Answer must be 1-3 characters in length.
DESCRIPTION:
This is a line number.
440.6,3 CREDIT CARD NUMBER 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>16!($L(X)<16)!'(X?16N) X
LAST EDITED: MAY 28, 1996
HELP-PROMPT: Answer must be 16 characters in length.
DESCRIPTION:
This is a credit card number.
440.6,4 BANK'S VENDOR ID 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>11!($L(X)<1) X
LAST EDITED: NOV 05, 2008
HELP-PROMPT: Answer must be 1-11 characters in length.
DESCRIPTION:
This is a vendor id of Rocky Mountain Bank.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
440.6,5 STATEMENT DATE 0;6 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 24, 1997
DESCRIPTION:
This is a statement date.
CROSS-REFERENCE: 440.6^D
1)= S ^PRCH(440.6,"D",$E(X,1,30),DA)=""
2)= K ^PRCH(440.6,"D",$E(X,1,30),DA)
This is an index by the statement date.
440.6,6 TRANSACTION DATE 0;7 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 28, 1996
DESCRIPTION:
This is the transaction date.
440.6,7 STATION NUMBER 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
LAST EDITED: MAY 28, 1996
HELP-PROMPT: Answer must be 1-5 characters in length.
DESCRIPTION:
This is the station #.
440.6,8 PURCHASE DATE 0;9 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 14, 1996
DESCRIPTION:
This is the purchase date.
440.6,9 TXN REFERENCE # 0;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>23!($L(X)<1) X
LAST EDITED: MAY 28, 1996
HELP-PROMPT: Answer must be 1-23 characters in length.
DESCRIPTION:
This is the transaction reference number.
440.6,10 BBFY 0;11 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 28, 1996
DESCRIPTION:
This is the beginning budget fiscal year date.
440.6,11 EBFY 0;12 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 28, 1996
DESCRIPTION:
This is the ending budget fiscal year.
440.6,12 ACCOUNTING PERIOD 0;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<9000)!(X?.E1"."1N.N) X
LAST EDITED: MAY 28, 1996
HELP-PROMPT: Type a Number between 9000 and 9999, 0 Decimal Digits
DESCRIPTION:
This is the accounting period.
440.6,13 AMOUNT 0;14 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-99999999) X
LAST EDITED: MAY 28, 1996
HELP-PROMPT: Type a Dollar Amount between -99999999 and 999999999, 2 Decimal Digits
DESCRIPTION:
This is the transaction amount.
440.6,14 FISCAL YEAR 0;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1900)!(X?.E1"."1N.N) X
LAST EDITED: MAY 29, 1996
HELP-PROMPT: Type a Number between 1900 and 9999, 0 Decimal Digits
DESCRIPTION:
This is a fiscal year.
440.6,15 STATUS 0;16 SET
'R' FOR RECONCILED;
'N' FOR NONE;
'D' FOR DISPUTED;
LAST EDITED: AUG 22, 1997
DESCRIPTION:
This is the status of a entry.
CROSS-REFERENCE: 440.6^ST^MUMPS
1)= S ^PRCH(440.6,"ST",X_$P(^PRCH(440.6,DA,0),U,17)_"~",DA)=""
2)= K ^PRCH(440.6,"ST",X_$P(^PRCH(440.6,DA,0),U,17)_"~",DA)
This is an index for status field.
440.6,16 CARD HOLDER 0;17 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: OCT 09, 1997
DESCRIPTION:
This is a card holder.
CROSS-REFERENCE: 440.6^ST1^MUMPS
1)= I $P(^PRCH(440.6,DA,0),U,16)]"" S ^PRCH(440.6,"ST",$P(^PRCH(440.6,DA,0),U,16)_X_"~",DA)="" K:X
^PRCH(440.6,"ST",$P(^PRCH(440.6,DA,0),U,16)_"~",DA)
2)= I $P(^PRCH(440.6,DA,0),U,16)]"" K ^PRCH(440.6,"ST",$P(^PRCH(440.6,DA,0),U,16)_X_"~",DA) S ^PRCH
(440.6,"ST",$P(^PRCH(440.6,DA,0),U,16)_"~",DA)=""
This is an index of status and card holder pointer.
440.6,17 ET CODE SHEET RI 0;18 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: JUL 16, 1996
HELP-PROMPT: Answer must be 1-15 characters in length.
DESCRIPTION:
This an is ET-code sheet ri of file 2100.1 in free text format.
440.6,18 COMMITTED AMOUNT 0;19 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999)!(X<-99999999) X
LAST EDITED: JUL 16, 1996
HELP-PROMPT: Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits
DESCRIPTION:
This is a committed amount copied from 410 if the final payment is reconciled.
440.6,19 OLD PO STATUS CODE 0;20 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<1) X
LAST EDITED: JUL 17, 1996
HELP-PROMPT: Answer must be 1-5 characters in length.
DESCRIPTION:
This is the old status code of p.o.
440.6,20 VENDOR PURCHASE ORDER 0;21 FREE TEXT
INPUT TRANSFORM: K:$L(X)>16!($L(X)<1) X
LAST EDITED: APR 21, 1997
HELP-PROMPT: Answer must be 1-16 characters in length.
DESCRIPTION:
This is the purchase order id provided by the vendor.
CROSS-REFERENCE: 440.6^C
1)= S ^PRCH(440.6,"C",$E(X,1,30),DA)=""
2)= K ^PRCH(440.6,"C",$E(X,1,30),DA)
This is an index by the vendor purchase order.
440.6,21 FUND CODE 5;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1) X
LAST EDITED: MAY 29, 1996
HELP-PROMPT: Answer must be 1-6 characters in length.
DESCRIPTION:
This is a fund code.
440.6,22 ACC CODE 5;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1) X
LAST EDITED: MAY 29, 1996
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION:
This is a acc code.
440.6,23 COST CENTER 5;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>7!($L(X)<1) X
LAST EDITED: MAY 29, 1996
HELP-PROMPT: Answer must be 1-7 characters in length.
DESCRIPTION:
This is a cost center.
440.6,24 BOC 5;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1) X
LAST EDITED: MAY 29, 1996
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION:
This is a BOC.
440.6,25 APPROVING OFFICE 5;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1) X
LAST EDITED: MAY 29, 1996
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION:
This is a approving office code.
440.6,26 APPROVAL DATE 5;6 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 02, 1997
DESCRIPTION: This field is used to store the date when the approving official signed off on the PO corresponding
to the reconciled Oracle transaction.
440.6,27 APPROVING OFFICIAL 5;7 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 11, 1997
DESCRIPTION:
This field is used to store the approving official.
440.6,31 MERCHANT NAME 6;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
LAST EDITED: MAY 29, 1996
HELP-PROMPT: Answer must be 1-25 characters in length.
DESCRIPTION:
This is a merchant name.
440.6,32 MERCHANT ADDRESS 1 6;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>23!($L(X)<1) X
LAST EDITED: MAY 29, 1996
HELP-PROMPT: Answer must be 1-23 characters in length.
DESCRIPTION:
This is mechant address 1.
440.6,33 MERCHANT ADDRESS 2 6;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>23!($L(X)<1) X
LAST EDITED: MAY 29, 1996
HELP-PROMPT: Answer must be 1-23 characters in length.
DESCRIPTION:
This is the merchant address 2.
440.6,34 MERCHANT CITY 6;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>13!($L(X)<1) X
LAST EDITED: MAY 29, 1996
HELP-PROMPT: Answer must be 1-13 characters in length.
DESCRIPTION:
This is the merchant city.
440.6,35 MERCHANT STATE 6;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1) X
LAST EDITED: MAY 29, 1996
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION:
This is the merchant state.
440.6,36 MERCHANT ZIP 6;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>12!($L(X)<1) X
LAST EDITED: MAY 29, 1996
HELP-PROMPT: Answer must be 1-12 characters in length.
DESCRIPTION:
This is the merchant zip.
440.6,41 PURCHASE ORDER 1;1 POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)
LAST EDITED: JUN 10, 1996
DESCRIPTION:
This is a purchase order field.
CROSS-REFERENCE: 440.6^PO
1)= S ^PRCH(440.6,"PO",$E(X,1,30),DA)=""
2)= K ^PRCH(440.6,"PO",$E(X,1,30),DA)
This is an index by purchase order internal order.
440.6,42 RECEIVING REQUIRED 1;2 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: JUN 07, 1996
DESCRIPTION:
This is a RECEIVING REQUIRED data field.
440.6,43 COMPLETE ORDER RECEIVED 1;3 SET (Required)
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: JUL 18, 1996
DESCRIPTION:
This is the MERCHANT RECEIVED data.
440.6,44 FINAL CHARGE 1;4 SET (Required)
'Y' FOR YES;
'N' FOR NO;
INPUT TRANSFORM: I X="Y" D START^PRCIREC
LAST EDITED: MAY 02, 2007
DESCRIPTION:
This is the FINAL CHARGE data field.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
440.6,45 RECONCILE USER 1;5 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 07, 1996
DESCRIPTION:
This is the reconcile user data.
440.6,46 RECONCILE DATE 1;6 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 14, 1996
DESCRIPTION:
This is a reconcile date.
440.6,47 CHARGE RECEIVING DATE 1;7 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 14, 1999
HELP-PROMPT: THIS FIELD IS TRIGGERED BY THE .01 FIELD
DESCRIPTION: This field is filled in whenever the field .01 is populated and will hold the arrival date/time of
the ORACLE charge data in the file. Users should not try to edit this field directly.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the ORACLE DOCUMENT ID field of the PURCHASE CARD ORDER RECONCILE File
FILES POINTED TO FIELDS
NEW PERSON (#200) CARD HOLDER (#16)
APPROVING OFFICIAL (#27)
RECONCILE USER (#45)
PROCUREMENT & ACCOUNTING TRANS
(#442) PURCHASE ORDER (#41)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
PRCH AO AUDIT DEC 10, 1997@15:39 USER #0 IFCAP APPROVING OFFICIAL CHARGE AUDIT
PRCH BOC PRINT APR 01, 1999@09:38 USER #0 PURCHASE CARD/SUPPLY FUND DOC ID RECONCILIATION
This is the companion print template for sort PRCH BOC SORT.
PRCH DEL. REC1 SEP 11, 1997@14:29 USER #0 DELINQUENT RECONCILIATIONS EXCEPTION LISTING
PRCH DEL. RECPRT JUL 29, 1999@09:03 USER #0 DELINQUENT RECONCILIATIONS EXCEPTION LISTING
PRCH FINAL CHARGE JUN 10, 1997@15:02 USER #0 FINAL CHARGE RECONCILED ORDERS - BUYER
PRCH P/C ORACLE JUL 14, 1998@13:38 USER #0 UNRECONCILED AUSTIN PAYMENT TRANSACTIONS
PRCH PC AUDIT APR 09, 2001@11:18 USER #0 AUSTIN AUDIT INFORMATION
PRCH RECONCILE PRINT MAR 24, 1997@09:28 USER #0 PURCHASE CARD ORDER RECONCILE LIST
SORT TEMPLATE(S):
PRCH AO AUDIT REPORT DEC 05, 1997@14:32 USER #0
SORT BY: +#STATEMENT DATE;C1// (User is asked range)
WITHIN STATEMENT DATE, SORT BY: INTERNAL(CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL)=VAR("DUZ")!(INTERNAL(CREDIT CARD NUMBER IN 440.5:ALTERNATE APPROVING OFFICIAL)=VAR("DUZ"));L1// (INTERNAL(CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL)=VAR(""DUZ"")!(INTERNAL(CREDIT CARD NUMBER IN 440.5:ALTERNATE APPROVING OFFICIAL)=VAR(""DUZ"")))
WITHIN INTERNAL(CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL)=VAR("DUZ")!(INTERNAL(CREDIT CARD NUMBER IN 440.5:ALTERNATE APPROVING OFFICIAL)=VAR("DUZ")), SORT BY: +CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL;"APPROVING OFFICIAL: ";C1// (CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL not null)
WITHIN CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL, SORT BY: +CARD HOLDER;C1// (CARD HOLDER not null)
WITHIN CARD HOLDER, SORT BY: @+CREDIT CARD NUMBER// (CREDIT CARD NUMBER not null)
This is a sort template for the approving official audit report.
PRCH BOC SORT JAN 05, 1999@19:17 USER #0
SORT BY: CARD HOLDER// (User is asked range)
WITHIN CARD HOLDER, SORT BY: BOC;S1// (BOC from 2696 to 2699)
WITHIN BOC, SORT BY: @STATUS="RECONCILED"!("APPROVED");L1// (STATUS=""RECONCILED""!(""APPROVED""))
WITHIN STATUS="RECONCILED"!("APPROVED"), SORT BY: TRANSACTION DATE// (User is asked range)
This sort template is used for a report of reconciled or approved purchase
card transactions using the BOC range 2696 to 2699.
PRCH CO AO AUDIT DEC 04, 2000@09:48 USER #0
SORT BY: +#STATEMENT DATE;C1// (User is asked range)
WITHIN STATEMENT DATE, SORT BY: +CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL;"APPROVING OFFICIAL: ";C1// (CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL from A to Z)
WITHIN CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL, SORT BY: +CARD HOLDER;C1// (CARD HOLDER from A to Z)
WITHIN CARD HOLDER, SORT BY: @+CREDIT CARD NUMBER// (CREDIT CARD NUMBER not null)
WITHIN CREDIT CARD NUMBER, SORT BY: STATION NUMBER;C1// (User is asked range)
This is the sort template for the coordinator official approval official
audit report.
PRCH DEL. REC JUN 12, 1997@14:52 USER #0
SORT BY: CARD HOLDER// (User is asked range)
WITHIN CARD HOLDER, SORT BY: @TRANSACTION DATE// (User is asked range)
WITHIN TRANSACTION DATE, SORT BY: @XUWORKDAY(#46,#6)>5;L1// (XUWORKDAY(#46,#6)>5)
PRCH DEL. RECSORT AUG 03, 1999@16:57 USER #0
SORT BY: @CARD HOLDER// (User is asked range)
WITHIN CARD HOLDER, SORT BY: @TRANSACTION DATE// (User is asked range)
WITHIN TRANSACTION DATE, SORT BY: @XUWORKDAY(#46,#47+1)>5;L1// (XUWORKDAY(#46,#47+1)>5)
WITHIN XUWORKDAY(#46,#47+1)>5, SORT BY: @STATION NUMBER// (User is asked range)
PRCH FINAL CHARGE1 JUN 10, 1997@14:56 USER #0
SORT BY: @FINAL CHARGE// (FINAL CHARGE equals Y (YES))
WITHIN FINAL CHARGE, SORT BY: RECONCILE DATE// (User is asked range)
PRCH P/C ORACLE SORT OCT 01, 1996@10:22 USER #0
SORT BY: RECONCILE DATE// (RECONCILE DATE not null)
WITHIN RECONCILE DATE, SORT BY: CARD HOLDER// (CARD HOLDER not null)
WITHIN CARD HOLDER, SORT BY: PURCHASE ORDER// (PURCHASE ORDER not null)
Sort by card holder and purchase order..
PRCH P/C ORACLE UNREC SORT DEC 18, 2000@09:48 USER #0
SORT BY: #+CARD HOLDER// (User is asked range)
WITHIN CARD HOLDER, SORT BY: STATION NUMBER// (User is asked range)
Sort for the option 'PRCH P/C ORACLE', used by the Purchase Card
Coordinator.
PRCH PC AUDIT SORT APR 06, 2001@14:50 USER #0
SORT BY: @CARD HOLDER// (CARD HOLDER from A to Z)
WITHIN CARD HOLDER, SORT BY: #STATION NUMBER// (User is asked range)
WITHIN STATION NUMBER, SORT BY: @ORACLE DOCUMENT ID// (User is asked range)
Sort for the option 'PRCH PC AUDIT'.
FORM(S)/BLOCK(S):