Global: ^ACRRR

FileMan FileNo	FileMan Filename	Package
9002193.2	FMS RECEIVING REPORT	Commitment Register

Directly Accessed By Routines, Total: 16

Package	Total	Routines
Commitment Register	16	ACRFDC ACRFDI ACRFIV ACRFIV31 ACRFIV5 ACRFPAID ACRFPSS ACRFRR ACRFRR11 ACRFRR12 ACRFRR31 ACRFRR32 ACRFRRP1 ACRFRRP2 ACRFRRPT ACRFUFMI

Accessed By FileMan Db Calls, Total: 9

Package	Total	Routines
Commitment Register	9	ACRFIV ACRFIV31 ACRFIV5 ACRFPRC3 ACRFPSS ACRFRR ACRFRR11 ACRFRR31 ACRFRR32

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Commitment Register	1	ARMS/SAMS INTERFACE(#9002198.9)[3]

Pointer To FileMan Files, Total: 4

Package	Total	FileMan Files
Commitment Register	3	FMS REQUEST CONTROLLER(#9002190)[#9002193.2101(.01)] FMS DOCUMENT(#9002196)[.02, .03] FMS SUPPLIES AND SERVICES(#9002193)[.01]
Kernel	1	NEW PERSON(#200)[.05, .09, #9002193.2111(.02), #9002193.2121(.02)]

Fields, Total: 25

Field #	Name	Loc	Type	Details
.01	SERVICE OR SUPPLY	0;1	POINTER TO FMS SUPPLIES AND SERVICES FILE (#9002193)	**********************REQUIRED FIELD********************** FMS SUPPLIES AND SERVICES(#9002193) LAST EDITED: `APR 01, 1996` DESCRIPTION: This is a pointer to the FMS SUPPLY/SERVICE file entry to which this receiving actions relates. CROSS-REFERENCE: `9002193.2^B` 1)= S ^ACRRR("B",$E(X,1,30),DA)="" 2)= K ^ACRRR("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002193.2^AC0` 1)= I $D(^ACRRR(DA,0)) S ACR=^(0) I $P(ACR,U,2),$P(ACR,U,4) S ^ACRRR("AC",$P(ACR,U,2),$P(ACR,U,4),+^ACRSS(+ACR,0),DA)="" 2)= I $D(^ACRRR(DA,0)) S ACR=^(0) I $P(ACR,U,2),$P(ACR,U,4) K ^ACRRR("AC",$P(ACR,U,2),$P(ACR,U,4),+^ACRSS(+ACR,0),DA) 3)= DO NOT DELETE Used for look-up/edit of receiving reports.
.02	PURCHASE ORDER	0;2	POINTER TO FMS DOCUMENT FILE (#9002196)	FMS DOCUMENT(#9002196) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: This is a pointer to the PURCHASE ORDER through which this item was ordered. CROSS-REFERENCE: `9002193.2^AC` 1)= I $D(^ACRRR(DA,0)) S ACR=^(0) I $P(ACR,U,4) S ^ACRRR("AC",$E(X,1,30),$P(ACR,U,4),+^ACRSS(+ACR,0),DA)="" 2)= I $D(^ACRRR(DA,0)) S ACR=^(0) I $P(ACR,U,4) K ^ACRRR("AC",$E(X,1,30),$P(ACR,U,4),+^ACRSS(+ACR,0),DA) 3)= DO NOT DELETE Used for look-up/edit of receiving reports. CROSS-REFERENCE: `9002193.2^AD^MUMPS` 1)= I $D(^ACRRR(DA,0)),$P(^(0),U,4) S ^ACRRR("AD",X,$P(^(0),U,4),DA)="" 2)= I $D(^ACRR(DA,0)),$P(^(0),U,4) K ^ACRRR("AD",X,$P(^(0),U,4),DA) X-ref for the purchase order and receiving report number. CROSS-REFERENCE: `9002193.2^CTOO` 1)= S ^ACRRR("C",$E(X,1,30),DA)="" 2)= K ^ACRRR("C",$E(X,1,30),DA)
.03	REQUISITION	0;3	POINTER TO FMS DOCUMENT FILE (#9002196)	FMS DOCUMENT(#9002196) LAST EDITED: `APR 01, 1996` DESCRIPTION: This is a pointer to the REQUISITION through which this item was ordered. CROSS-REFERENCE: `9002193.2^C` 1)= S ^ACRRR("C",$E(X,1,30),DA)="" 2)= K ^ACRRR("C",$E(X,1,30),DA) 3)= DO NOT DELETE Used for look-up of all receiving reports for a purchase order.
.04	RECEIVING REPORT NUMBER	0;4	NUMBER	INPUT TRANSFORM: `S X=+X K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` DESCRIPTION: This is the RECEIVING REPORT NUMBER for this item. CROSS-REFERENCE: `9002193.2^AC2` 1)= S ACR=^ACRRR(DA,0) I +ACR,$P(ACR,U,2) S ^ACRRR("AC",$P(ACR,U,2),$E(X,1,30),+^ACRSS(+ACR,0),DA)="" 2)= S ACR=^ACRRR(DA,0) I +ACR,$P(ACR,U,2) K ^ACRRR("AC",$P(ACR,U,2),$E(X,1,30),+^ACRSS(+ACR,0),DA) 3)= DO NOT DELETE Used for look-up/edit of receiving reports. CROSS-REFERENCE: `9002193.2^AD2^MUMPS` 1)= I $D(^ACRRR(DA,0)),$P(^(0),U,2) S ^ACRRR("AD",$P(^(0),U,2),X,DA)="" 2)= I $D(^ACRRR(DA,0)),$P(^(0),U,2) K ^ACRRR("AD",$P(^(0),U,2),X,DA) X-ref for the purchase order and receiving report number.
.05	RECEIVING AGENT	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: DESCRIPTION: This is a pointer to the USER file and indicates the receiving agent who completed the receiving report for this item. TECHNICAL DESCR: `In an effort to standardize the name format in the New Person (200) file, there have been some significant changes made to the way the name is entered and displayed. Last names may no longer contain spaces or apostrophes.` While this was primarily done to help clarify patient data, it does have a great impact on ARMS for traveler payments and for the display/print of all documents. For this reason, effective ARMS V2.1 Patch 19, an output transform has been added to this field allowing the Name to display with punctuation.
.06	DATE OF REPORT	0;6	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the DATE OF THE RECEIVING REPORT.` DESCRIPTION: This is the date on which this receiving report was completed and not the date on which the items were received. This date is assigned internally by the system.
.07	DATE RECEIVING ACTION EXPORTED	0;7	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the DATE the RECEIVING ACTION was EXPORTED.` DESCRIPTION: This is set internally by the system and indicates the date on which the receiving action was exported to HAS.
.08	FINAL RECEIVING REPORT	0;8	SET	'1' FOR FINAL; '2' FOR PARTIAL; LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the appropriate code from the list.` DESCRIPTION: Enter '1' if this is the FINAL RECEIVING REPORT for this item or '2' if this is a PARTIAL RECEIVING REPORT for this item.
.09	INVOICE AUDITOR	0;9	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: DESCRIPTION: Enter the name of the INVOICE AUDITOR who is performing the audit of this item. TECHNICAL DESCR: `In an effort to standardize the name format in the New Person (200) file, there have been some significant changes made to the way the name is entered and displayed. Last names may no longer contain spaces or apostrophes.` While this was primarily done to help clarify patient data, it does have a great impact on ARMS for traveler payments and for the display/print of all documents. For this reason, effective ARMS V2.1 Patch 19, an output transform has been added to this field allowing the Name to display with punctuation.
.1	INVOICE AUDIT DATE	0;10	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the DATE the INVOICE was AUDITED.` DESCRIPTION: Enter the date on which the INVOICE AUDIT was done.
.11	FINAL INVOICE	0;11	SET	'1' FOR FINAL; '2' FOR PARTIAL; LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the appropriate code from the list.` DESCRIPTION: Enter '1' if this is the FINAL INVOICE for this item or '2' if this is a PARTIAL INVOICE for this item.
.12	INVOICE EXPORT DATE	0;12	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the DATE the INVOICE was EXPORTED.` DESCRIPTION: This is set internally by the system and indicates the date on which the INVOICE was exported to HAS.
.13	PROPERTY VOUCHER NO.	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>14!($L(X)<14)!'(X?3N1"-"2N1"-"2N1"-"4N) X` LAST EDITED: `OCT 01, 1996` HELP-PROMPT: `Answer must be 14 characters in length in the format XXX-XX-XX-XXXX` DESCRIPTION: `The PROPERTY VOUCHER NO. is assigned by the system and should not be edited directly. The first 3 characters are the LOCATION CODE, the next 2 the FISCAL YEAR, then the CALENDAR MONTH, followed by the 4 character VOUCHER` SERIAL NUMBER. CROSS-REFERENCE: `9002193.2^PVN` 1)= S ^ACRRR("PVN",$E(X,1,30),DA)="" 2)= K ^ACRRR("PVN",$E(X,1,30),DA)
.14	ACCRUAL POSTED	0;14	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the appropriate code from the list.` DESCRIPTION: Enter the appropriate code from the list to indicate if an accrual entry was posted into the Health Accounting System for this receiving report entry.
1	UNIT COST	DT;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999.9999)!(X<-9999999.9999)!(X?.E1"."5N.N) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Type a Number between -9999999.9999 and 99999999.9999, 4 Decimal Digits` DESCRIPTION: Enter the UNIT COST for this item. This is set internally and is based on the UNIT COST for this item from the FMS SUPPLY/SERVICES file. CROSS-REFERENCE: `^^TRIGGER^9002193.2^5` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRRR(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(9002193.2,1,1,1,1.4) 1.4)= S DIH=$S($D(^ACRRR(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,5)=DIV,DIH=9002193.2,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= UNIT COST DELETE VALUE)= NO EFFECT FIELD)= #5
2	QUANTITY RECEIVED	DT;2	NUMBER	INPUT TRANSFORM: `S X=+X K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X Q:'$D(X) I $D(ACRRCDX) D TOTCHK^ACRFRR31` LAST EDITED: `FEB 23, 1997` HELP-PROMPT: `Type a Number between 0 and 999999, 3 Decimal Digits` DESCRIPTION: Enter the QUANTITY RECEIVED for this item on this receiving action. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002193.2^D^MUMPS` 1)= Q 2)= Q
3	QUANTITY ACCEPTED	DT;3	NUMBER	INPUT TRANSFORM: `S X=+X K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X Q:'$D(X) K:X>$P(^ACRRR(DA,"DT"),U,2) X` LAST EDITED: `MAR 23, 1999` HELP-PROMPT: `Type a Number between 0 and 999999, 3 Decimal Digits` DESCRIPTION: Enter the QUANTITY ACCEPTED for this item on this receiving action. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
4	DATE RECEIVED	DT;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1!(Y>DT) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the DATE the item was RECEIVED. This cannot be a future date.` DESCRIPTION: Enter the DATE on which this item was received. This cannot be a future date.
5	INVOICE UNIT COST	DT;5	NUMBER	INPUT TRANSFORM: `S X=+X K:+X'=X!(X>99999999.9999)!(X<-9999999.9999)!(X?.E1"."5N.N) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Type a Number between -9999999.9999 and 99999999.9999, 4 Decimal Digits` DESCRIPTION: Enter the unit cost for this item as found on the Vendor's Invoice. NOTES: `TRIGGERED by the UNIT COST field of the FMS RECEIVING REPORT File`
6	INVOICE QUANTITY	DT;6	NUMBER	INPUT TRANSFORM: `S X=+X K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X Q:'$D(X) I $D(ACRIVDX) D TOTCHK^ACRFIV31` LAST EDITED: `FEB 23, 1997` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits` DESCRIPTION: Enter the QUANTITY as found on the Vendor's Invoice. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
7	INVOICE NUMBER	DT;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<3) X` LAST EDITED: `SEP 17, 1997` HELP-PROMPT: `Answer must be 3-15 characters in length.` DESCRIPTION: Enter the INVOICE NUMBER as found on the Vendor's Invoice. CROSS-REFERENCE: `9002193.2^INV` 1)= S ^ACRRR("INV",$E(X,1,30),DA)="" 2)= K ^ACRRR("INV",$E(X,1,30),DA)
1001	REQUESTOR SIGNATURE	10;0	POINTER Multiple #9002193.2101	9002193.2101 HELP-PROMPT: DESCRIPTION: This is a multiple field which points to the FMS REQUEST CONTROLLER file and indicates each REQUEST INITIATOR and whether or not each has signed to certify receipt of the good outlined on this receiving report.
1101	RECEIVING AGENT	11;0	DATE Multiple #9002193.2111	9002193.2111 HELP-PROMPT: DESCRIPTION: This is a multiple file which is set automatically by the system each time a RECEIVING AGENT adds or edits an item on a receiving report. The time of the edit and the person doing the editing are entered.
1201	INVOICE AUDITOR	12;0	DATE Multiple #9002193.2121	9002193.2121 HELP-PROMPT: DESCRIPTION: This is a multiple field which is set by the system each time an invoice is audited for a receiving action.
1301	RECEIVING REPORT REMARKS	13;0	WORD-PROCESSING #9002193.21301

Customize PDF page

Package: Commitment Register

Global: ^ACRRR

Information

Description

Directly Accessed By Routines, Total: 16

Accessed By FileMan Db Calls, Total: 9

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 4

Fields, Total: 25