Global: ^PRCH(440.6

FileMan FileNo	FileMan Filename	Package
440.6	PURCHASE CARD ORDER RECONCILE	IFCAP

Package	Total	Routines
IFCAP	37	ITEM SPECIFIC INFORMATION PRCB1F PRCB1F1 PRCB1G PRCB1G1 PRCB1GE PRCB1GE1 PRCCL406 PRCG237P PRCGARP1 PRCH AO AUDIT REPORT PRCH BOC SORT PRCH CO AO AUDIT PRCH DEL. REC PRCH DEL. RECSORT PRCH FINAL PRCH P/C ORACLE PRCH0A PRCH1A PRCH1A1 PRCH1A2 PRCH1A3 PRCH1B1 PRCH1C PRCH1D PRCH1E PRCH7A PRCH8A PRCHDAR PRCHFCY PRCHINQ PRCHRP1 PRCHRP5 PRCINAR PRCIREC PRCSFMS ^PRCH(440.6
Prosthetics	2	RMPR4C2 RMPR4E23
Kernel	1	^DIC(19

Package	Total	Routines
IFCAP	7	PRCB1GE1 PRCCL406 PRCG237P PRCGARP1 PRCH1A PRCH2A PRCINAR
Prosthetics	2	RMPR4C2 RMPR4E23

Package	Total	FileMan Files
Prosthetics	1	PROSTHETICS 1358(#664)[30]

Package	Total	FileMan Files
IFCAP	1	PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[41]
Kernel	1	NEW PERSON(#200)[16, 27, 45]

Fields, Total: 41

Field #	Name	Loc	Type	Details
.01	ORACLE DOCUMENT ID	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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 ^DD(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 ^DICR:$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.`
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.`
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.`
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.`
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`
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.`
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.`
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 #.`
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.`
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.`
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.`
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.`
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.`
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.`
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.`
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.`
16	CARD HOLDER	0;17	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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.`
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.`
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.`
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.`
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.`
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.`
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.`
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.`
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.`
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.`
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.`
27	APPROVING OFFICIAL	5;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 11, 1997` DESCRIPTION: `This field is used to store the approving official.`
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.`
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.`
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.`
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.`
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.`
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.`
41	PURCHASE ORDER	1;1	POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)	PROCUREMENT & ACCOUNTING TRANSACTIONS(#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.`
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.`
43	COMPLETE ORDER RECEIVED	1;3	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUL 18, 1996` DESCRIPTION: `This is the MERCHANT RECEIVED data.`
44	FINAL CHARGE	1;4	SET	**********************REQUIRED FIELD********************** '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`
45	RECONCILE USER	1;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 07, 1996` DESCRIPTION: `This is the reconcile user data.`
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.`
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`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #3691	M DATA EXTRACTOR
ICR #6830	ADVANCED PROSTHETICS ACQUISITION TOOL	ORACLE DOCUMENT ID (.01). Access: Read w/Fileman BATCH NUMBER (1). Access: Read w/Fileman LINE NUMBER (2). Access: Read w/Fileman CREDIT CARD NUMBER (3). Access: Both R/W w/Fileman BANK'S VENDOR ID (4). Access: Read w/Fileman STATEMENT DATE (5). Access: Read w/Fileman TRANSACTION DATE (6). Access: Read w/Fileman STATION NUMBER (7). Access: Read w/Fileman PURCHASE DATE (8). Access: Read w/Fileman TXN REFERENCE # (9). Access: Read w/Fileman BBFY (10). Access: Read w/Fileman EBFY (11). Access: Read w/Fileman ACCOUNTING PERIOD (12). Access: Read w/Fileman AMOUNT (13). Access: Read w/Fileman FISCAL YEAR (14). Access: Read w/Fileman STATUS (15). Access: Both R/W w/Fileman CARD HOLDER (16). Access: Read w/Fileman ET CODE SHEET (17). Access: Both R/W w/Fileman COMMITTED AMOUNT (18). Access: Both R/W w/Fileman OLD PO STATUS CODE (19). Access: Both R/W w/Fileman VENDOR PURCHASE ORDER (20). Access: Read w/Fileman PURCHASE ORDER (41). Access: Both R/W w/Fileman RECEIVING REQUIRED (42). Access: Both R/W w/Fileman COMPLETE ORDER RECEIVED (43). Access: Both R/W w/Fileman FINAL CHARGE (44). Access: Both R/W w/Fileman RECONCILE USER (45). Access: Both R/W w/Fileman RECONCILE DATE (46). Access: Both R/W w/Fileman CHARGE RECEIVING DATE (47). Access: Read w/Fileman FUND CODE (21). Access: Read w/Fileman ACC CODE (22). Access: Read w/Fileman COST CENTER (23). Access: Read w/Fileman BOC (24). Access: Read w/Fileman APPROVING OFFICE (25). Access: Read w/Fileman APPROVAL DATE (26). Access: Both R/W w/Fileman APPROVING OFFICIAL (27). Access: Both R/W w/Fileman MERCHANT NAME (31). Access: Read w/Fileman MERCHANT ADDRESS 1 (32). Access: Read w/Fileman MERCHANT ADDRESS 2 (33). Access: Read w/Fileman MERCHANT CITY (34). Access: Read w/Fileman MERCHANT STATE (35). Access: Read w/Fileman MERCHANT ZIP (36). Access: Read w/Fileman	"ST" cross reference Used for look up by combinationof status and card holderFile 440.6 'C' cross reference Used to look up byVENDORPURCHASE ORDERFile 440.6 'PO' cross reference Used to look up byreconciledPURCHASE ORDER

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.01(XREF 2n1.4)
^DD(440.6	.01(XREF 2S)
^PRCH(440.6 - [#440.6]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), 5(XREF 1S), 5(XREF 1K), 15(XREF 1S), 15(XREF 1K), 16(XREF 1S), 16(XREF 1K) , 20(XREF 1S), 20(XREF 1K), 41(XREF 50S), 41(XREF 50K)

Name	Field # of Occurrence
^(0	IDH1+1, IDH2+1
^(1	.01(XREF 2S), .01(XREF 2n1.4)
^(6	IDH3+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	.01(XREF 2n1.1)
>> %DT	5+1, 6+1, 8+1, 10+1, 11+1, 26+1, 46+1, 47+1
%H	.01(XREF 2n1.1)
%I	.01(XREF 2n1.1)
>> D0	.01(XREF 2S)
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), 5(XREF 1S), 5(XREF 1K), 15(XREF 1S), 15(XREF 1K), 16(XREF 1S), 16(XREF 1K), 20(XREF 1S) , 20(XREF 1K), 41(XREF 50S), 41(XREF 50K)
>> DIG	.01(XREF 2n1.4)
>> DIH	.01(XREF 2n1.4)
>> DIU	.01(XREF 2S)
DIV	.01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4)
DIV(0	.01(XREF 2S), .01(XREF 2n1.4)
U	IDH1+1, IDH2+1, IDH3+1, .01(XREF 2S), .01(XREF 2n1.4), 15(XREF 1S), 15(XREF 1K), 16(XREF 1S), 16(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), 1+1!, 2+1!, 3+1!, 4+1! , 5+1!, 5(XREF 1S), 5(XREF 1K), 6+1!, 7+1!, 8+1!, 9+1!, 10+1!, 11+1!, 12+1! , 13+1!, 14+1!, 15(XREF 1S), 15(XREF 1K), 16(XREF 1S), 16(XREF 1K), 17+1!, 18+1!, 19+1!, 20+1! , 20(XREF 1S), 20(XREF 1K), 21+1!, 22+1!, 23+1!, 24+1!, 25+1!, 26+1!, 31+1!, 32+1! , 33+1!, 34+1!, 35+1!, 36+1!, 41(XREF 50S), 41(XREF 50K), 46+1!, 47+1!
Y	.01(XREF 2S), 5+1, 6+1, 8+1, 10+1, 11+1, 26+1, 46+1, 47+1
Y(0	.01(XREF 2S)
Y(1	.01(XREF 2S)

Customize PDF page

Package: IFCAP

Global: ^PRCH(440.6

Information

Description

Directly Accessed By Routines, Total: 63

Accessed By FileMan Db Calls, Total: 9

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 2

Fields, Total: 41

ICR, Total: 2

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	5+1, 6+1, 8+1, 10+1, 11+1, 26+1, 46+1, 47+1
NOW^%DTC	.01(XREF 2n1.1)
^DICR	.01(XREF 2n1.4)