Global: ^ACRDHR

FileMan FileNo	FileMan Filename	Package
9002189.1	FMS DOCUMENT HISTORY RECORD	Commitment Register

Package	Total	Routines
Commitment Register	12	ACRDHR ACRFBPA ACRFDEL ACRFDHR2 ACRFDHR4 ACRFDHR5 ACRFEA ACRFEA4 ACRFODOC ACRFPAY2 ACRFSSU ACRFUFMX

Package	Total	Routines
Commitment Register	3	ACRFDHR ACRFDHRE ACRFPAY2

Package	Total	FileMan Files
Commitment Register	2	FMS SUB-ALLOWANCE(#9002187)[.19] FMS DEPARTMENT ACCOUNT(#9002188)[.19]
3780 Telecommunications	1	1166 APPROVALS FOR PAYMENT(#9002325)[#9002325.02(.04)]

Package	Total	FileMan Files
Commitment Register	1	FMS DOCUMENT(#9002196)[.04]
Kernel	1	NEW PERSON(#200)[.03]
Utility Tables	1	COMMON ACCOUNTING NUMBER(#9999999.57)[105]

Fields, Total: 53

Field #	Name	Loc	Type	Details
.01	DOCUMENT	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3-20 characters in length.` DESCRIPTION: This field indicates the document for which this DHR was generated. CROSS-REFERENCE: `9002189.1^B` 1)= S ^ACRDHR("B",$E(X,1,30),DA)="" 2)= K ^ACRDHR("B",$E(X,1,30),DA)
.02	DATE GENERATED	0;2	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 and TIME (including the hour, minute and second) this entry was generated.` DESCRIPTION: This field captures the date and time to the second that this entry was created. This is entered automatically and should not be edited directly. CROSS-REFERENCE: `9002189.1^D` 1)= S ^ACRDHR("D",$E(X,1,30),DA)="" 2)= K ^ACRDHR("D",$E(X,1,30),DA)
.03	INDIVIDUAL WHO CREATED ENTRY	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: `Enter the name of the individual whose signature created this DHR.` DESCRIPTION: This field points to the NEW PERSON file and indicates the name of the individual whose signature authorized the document and created this DHR. 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.
.04	ARMS DOCUMENT	0;4	POINTER TO FMS DOCUMENT FILE (#9002196)	FMS DOCUMENT(#9002196) LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the FMS DOCUMENT for this DHR.` DESCRIPTION: This points to the FMS DOCUMENT file and indicates the ARMS document for this DHR. CROSS-REFERENCE: `9002189.1^E` 1)= S ^ACRDHR("E",$E(X,1,30),DA)="" 2)= K ^ACRDHR("E",$E(X,1,30),DA)
.05	SPLITOUT ID	0;5	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 05, 1999` HELP-PROMPT: `The date the DHR 'splitout' was run to export this record to CORE.`
.06	SPLITOUT ID	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `APR 05, 1999` HELP-PROMPT: `The ID of the 'splitout' batch containing this record. A must be 1-20 characters in length.`
1	RECORD TYPE	1;1	NUMBER	INPUT TRANSFORM: `S X=+X K:+X'=X!(X>2)!(X<2)!(X?.E1"."1N.N) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Type a Number between 2 and 2, 0 Decimal Digits` DESCRIPTION: This is the DHR RECORD TYPE which is always the digit '2'.
2	EFFECTIVE DATE	1;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 14, 2000` HELP-PROMPT: `Enter the effective date for the action.` DESCRIPTION: This is the date on which this transaction became effective for this document. CROSS-REFERENCE: `9002189.1^F` 1)= S ^ACRDHR("F",$E(X,1,30),DA)="" 2)= K ^ACRDHR("F",$E(X,1,30),DA)
3	TRANSACTION CODE	1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `AUG 14, 2000` HELP-PROMPT: `Answer must be 3 characters in length.` DESCRIPTION: Enter the Transaction Code applicable to the specific transaction.
4	REVERSE CODE	1;4	NUMBER	INPUT TRANSFORM: `S X=+X K:+X'=X!(X>2)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 14, 2000` HELP-PROMPT: `Enter either 1 or 2 as appropriate.` DESCRIPTION: `Enter '1' for most transactions. Enter '2' for transactions:` 1. where the Debit and Credit accounts as shown on the Transaction Codes are to be reversed, or 2. where a transaction is to be decreased or to be purged from the system, e.g., where a Purchase Order is being decreased or completely cancelled.
5	MODIFIER CODE	1;5	NUMBER	INPUT TRANSFORM: `S X=+X K:+X'=X!(X>9)!(X<3)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 14, 2000` HELP-PROMPT: `Type a Number between 3 and 9 as applicable to this transaction.` DESCRIPTION: `Enter the appropriate code as outlined below:` '3' (Initial) is to be entered only on the initial input of an obligation document. '4' (change) is to be entered on a normal follow on transaction such as an accrual or disbursement. '5' amends to be entered only when the original obligation is to be adjusted upward or downward. '7' for use when hard copy document is in Paid File. '8' (Central Payroll) is to be entered only when Central Payroll data is to be entered centrally. '9' (All Other) is to be entered for all other transactions, not cited above.
6	ORIGINAL OBLIG DOC REF CODE	1;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `AUG 14, 2000` HELP-PROMPT: `Answer must be 3 characters in length.` DESCRIPTION: Enter the document reference code assigned to the specific obligating document.
7	DOCUMENT NUMBER	1;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<10) X` LAST EDITED: `AUG 14, 2000` HELP-PROMPT: `Answer must be 10 characters in length.` DESCRIPTION: Enter the specific obligation number on the purchase order, travel order, contract, grant, etc. Note: Fields 6 and 7 are to be used for obligating documents and follow-on transactions to obligations only.
8	OTHER DOCUMENT REFERENCE CODE	1;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3 characters in length.` DESCRIPTION: Enter the document reference code to the specific document.
9	OTHER DOCUMENT NUMBER	1;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<10) X` LAST EDITED: `AUG 14, 2000` HELP-PROMPT: `Answer must be 10 characters in length.` DESCRIPTION: Enter the specific document number shown on the document.
10	GEOGRAPHIC CODE	1;10	NUMBER	INPUT TRANSFORM: `S X=+X K:+X'=X!(X>2)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 14, 2000` HELP-PROMPT: `Enter either 1 or 2.` DESCRIPTION: `Enter '1' if the geographic code is to be obtained from the CAN file. Certain object classes require the vendor/customer code in field 17. Enter geographic code '2' in these cases. If a '2' is used and vendor/ customer` code is blank, the record will be rejected.
11	FISCAL YEAR	1;11	NUMBER	INPUT TRANSFORM: `S X=+X K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 02, 1997` HELP-PROMPT: `Type a Number between 0 and 9, 0 Decimal Digits` DESCRIPTION: `Enter the fiscal year as shown on the document being processed. For 'M' accounts, use any digit other than those used for the three 'current' annual appropriations.` CROSS-REFERENCE: `9002189.1^FY` 1)= S ^ACRDHR("FY",$E(X,1,30),DA)="" 2)= K ^ACRDHR("FY",$E(X,1,30),DA) CROSS-REFERENCE: `9002189.1^FYLOC^MUMPS` 1)= D SFYLOC^ACRFDHR2(DA) 2)= D KFYLOC^ACRFDHR2(DA,X) CROSS-REFERENCE: `9002189.1^FYSSA^MUMPS` 1)= D SFYSSA^ACRFDHR2(DA) 2)= D KFYSSA^ACRFDHR2(DA,X) CROSS-REFERENCE: `9002189.1^FYCAN^MUMPS` 1)= D SFYCAN^ACRFDHR2(DA) 2)= D KFYCAN^ACRFDHR2(DA,X) CROSS-REFERENCE: `9002189.1^FYOCC^MUMPS` 1)= D SFYOCC^ACRFDHR2(DA) 2)= D KFYOCC^ACRFDHR2(DA,X) CROSS-REFERENCE: `9002189.1^FYVND^MUMPS` 1)= D SFYVND^ACRFDHR2(DA) 2)= D KFYVND^ACRFDHR2(DA,X) CROSS-REFERENCE: `9002189.1^FYLOCSSA^MUMPS` 1)= D SFYLOCS^ACRFDHR2(DA) 2)= D KFYLOCS^ACRFDHR2(DA,X) CROSS-REFERENCE: `9002189.1^FYSSALOC^MUMPS` 1)= D SFYSSAL^ACRFDHR2(DA) 2)= D KFYSSAL^ACRFDHR2(DA,X)
12	COMMON ACCOUNTING NUMBER	1;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<7)!'(X?1"J"6UN) X` LAST EDITED: `AUG 14, 2000` HELP-PROMPT: `Answer must be 7 characters in length.` DESCRIPTION: Enter the CAN as shown on the document being processed. CROSS-REFERENCE: `9002189.1^CAN` 1)= S ^ACRDHR("CAN",$E(X,1,30),DA)="" 2)= K ^ACRDHR("CAN",$E(X,1,30),DA) CROSS-REFERENCE: `9002189.1^AC^MUMPS` 1)= I X]"",$O(^AUTTCAN("B",X,0)) S $P(^ACRDHR(DA,10),U,5)=$O(^AUTTCAN("B",X,0)) 2)= Q 3)= DO NOT DELETE CROSS-REFERENCE: `9002189.1^FYCAN2^MUMPS` 1)= D SFYCAN^ACRFDHR2(DA) 2)= D KFYCAN2^ACRFDHR2(DA,X)
13	OBJECT CLASS CODE	1;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4) X` LAST EDITED: `AUG 14, 2000` HELP-PROMPT: `Answer must be 4 characters in length.` DESCRIPTION: Enter the object class shown on the document being processed. CROSS-REFERENCE: `9002189.1^OCC` 1)= S ^ACRDHR("OCC",$E(X,1,30),DA)="" 2)= K ^ACRDHR("OCC",$E(X,1,30),DA)
14	DOLLAR AMOUNT	1;14	NUMBER	INPUT TRANSFORM: `S X=+X K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 14, 2000` HELP-PROMPT: `Type a Number between 0 and 999999999999, 0 Decimal Digits` DESCRIPTION: Enter the dollar amount shown on the document being processed.
15	FED/NON-FED	1;15	NUMBER	INPUT TRANSFORM: `S X=+X K:+X'=X!(X>2)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 14, 2000` HELP-PROMPT: `Enter either 1 or 2 as appropriate.` DESCRIPTION: `Enter '1' when one of the parties is a non-federal organization. Enter '2' when both parties are federal government agencies.`
16	VENDOR CODE (PRIMARY)	1;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<15)!'(X?15"0") X` LAST EDITED: `AUG 14, 2000` HELP-PROMPT: `Answer must be 15 characters in length.` DESCRIPTION: Enter the proper HSMHA code if applicable. CROSS-REFERENCE: `9002189.1^FYVND2^MUMPS` 1)= D SFYVND^ACRFDHR2(DA) 2)= D KFYVND^ACRFDHR2(DA,X)
17	VENDOR CODE (SECONDARY)	1;17	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<15)!'(X?15"0") X` LAST EDITED: `AUG 14, 2000` HELP-PROMPT: `Answer must be 15 characters in length.` DESCRIPTION: Leave blank.
18	PAYMENT/COLLECTION DOCUMENT NO	1;18	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<6) X` LAST EDITED: `OCT 31, 2000` HELP-PROMPT: `Answer must be 6-10 characters in length.` DESCRIPTION: Enter the number shown on the document being processed.
19	PPBS CATEGORY	1;19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6)!'(X?6"0") X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 6 characters in length.` DESCRIPTION: Leave blank.
20	PPBS ACTIVITIES	1;20	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2"0") X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 2 characters in length.` DESCRIPTION: Leave blank.
21	CASE II	1;21	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1)!'(X?1"0") X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 1 character in length.` DESCRIPTION: Leave blank.
22	BALANCE OF PAYMENTS	1;22	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2"0") X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 2 characters in length.` DESCRIPTION: Leave blank.
23	GENERAL LEDGER DEBIT	1;23	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4) X` LAST EDITED: `AUG 14, 2000` HELP-PROMPT: `Answer must be 4 characters in length.` DESCRIPTION: `Enter the four digit general ledger account to be debited.`
24	GENERAL LEDGER	1;24	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4) X` LAST EDITED: `AUG 14, 2000` HELP-PROMPT: `Answer must be 4 characters in length.` DESCRIPTION: Enter the four digit general ledger account to be credited.
25	TYPE OF SERVICE	1;25	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<7)!'(X?7"0") X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 7 characters in length.` DESCRIPTION: Leave Blank.
26	BEGIN DATE	1;26	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4) X` LAST EDITED: `SEP 28, 1998` HELP-PROMPT: `Answer must be 4 characters in length. The month and year of the travel or grant begin date (MMYY).` DESCRIPTION: This is the travel or grant begin date for the DHR. It is in MMYY format and occupies positions 126-129 of the DHR record string. This field is a new requirement of the CORE system.
27	END DATE	1;27	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4) X` LAST EDITED: `SEP 28, 1998` HELP-PROMPT: `Answer must be 4 characters in length. The month and year of the travel or grant end date (MMYY).` DESCRIPTION: This is the travel or grant end date for the DHR. It is in MMYY format and occupies positions 130-133 of the DHR record string. This field is a new requirement of the CORE system.
28	2FY	1;28	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `AUG 14, 2000` HELP-PROMPT: `Answer must be 2 characters in length. It is the two digit fiscal year (YY) of the document.` DESCRIPTION: This is the 2 digit fiscal year (YY) of the document for the DHR. It is in YY format and occupies positions 134-135 of the DHR record string. This field is a new requirement of the CORE system.
29	BLANK	1;29	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `SEP 19, 1998` HELP-PROMPT: `This field should be blank.` DESCRIPTION: This field should remain blank. This field represents position 136 of the DHR record string. This field is a new requirement of the CORE system.
30	USER ID	1;30	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4) X` LAST EDITED: `SEP 19, 1998` HELP-PROMPT: `Answer must be 4 characters in length. This field should be blank.` DESCRIPTION: This field is for the USER ID. It should be blank. It represents positions 137-140 of the DHR record string. It will be filled in by DPSS. This field is a new requirement of the CORE system.
31	FILLER	1;31	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<20) X` LAST EDITED: `SEP 19, 1998` HELP-PROMPT: `Answer must be 20 characters in length. Leave blank.` DESCRIPTION: This field should remain blank. It represents the filler space in positions 141-160 of the DHR record string.
32	INVOICE NUMBER	1;32	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `AUG 10, 2000` HELP-PROMPT: `Answer must be 1-20 characters in length.`
99	DHR	99;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>140!($L(X)<140) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 140 characters in length.` DESCRIPTION: This field is the 140 character record which is sent to HAS. CROSS-REFERENCE: `9002189.1^C` 1)= S ^ACRDHR("C",$E(X,1,254),DA)="" 2)= K ^ACRDHR("C",$E(X,1,254),DA)
101	LOCATION CODE	10;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `OCT 02, 1997` HELP-PROMPT: `Answer must be 3 characters in length.` DESCRIPTION: This is the free text LOCATION CODE for this DHR entry to be used for reporting purposed. NOTES: `TRIGGERED by the CAN TABLE POINTER field of the FMS DOCUMENT HISTORY RECORD File` CROSS-REFERENCE: `9002189.1^LC` 1)= S ^ACRDHR("LC",$E(X,1,30),DA)="" 2)= K ^ACRDHR("LC",$E(X,1,30),DA) CROSS-REFERENCE: `9002189.1^FYLOC2^MUMPS` 1)= D SFYLOC^ACRFDHR2(DA) 2)= D KFYLOC2^ACRFDHR2(DA,X) CROSS-REFERENCE: `9002189.1^FYLOCSSA2^MUMPS` 1)= D SFYLOCS^ACRFDHR2(DA) 2)= D KFYLOCS2^ACRFDHR2(DA,X) CROSS-REFERENCE: `9002189.1^FYSSALOC3^MUMPS` 1)= D SFYSSAL^ACRFDHR2(DA) 2)= D KFYSSAL3^ACRFDHR2(DA,X)
102	SUB-SUB-ACTIVITY	10;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<8) X` LAST EDITED: `OCT 02, 1997` HELP-PROMPT: `Answer must be 8 characters in length.` DESCRIPTION: This is the free text SUB-SUB-ACTIVITY code used for report generation. NOTES: `TRIGGERED by the CAN TABLE POINTER field of the FMS DOCUMENT HISTORY RECORD File` CROSS-REFERENCE: `9002189.1^SSA` 1)= S ^ACRDHR("SSA",$E(X,1,30),DA)="" 2)= K ^ACRDHR("SSA",$E(X,1,30),DA) CROSS-REFERENCE: `9002189.1^FYSSA2^MUMPS` 1)= D SFYSSA^ACRFDHR2(DA) 2)= D KFYSSA2^ACRFDHR2(DA,X) CROSS-REFERENCE: `9002189.1^FYLOCSSA3^MUMPS` 1)= D SFYLOCS^ACRFDHR2(DA) 2)= D KFYLOCS3^ACRFDHR2(DA,X) CROSS-REFERENCE: `9002189.1^FYSSALOC2^MUMPS` 1)= D SFYSSAL^ACRFDHR2(DA) 2)= D KFYSSAL2^ACRFDHR2(DA,X)
103	APPROPRIATION	10;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<7) X` LAST EDITED: `FEB 12, 1997` HELP-PROMPT: `Answer must be 7-8 characters in length.` DESCRIPTION: This is the free text APPROPRIATION NO. used for report generation. NOTES: `TRIGGERED by the CAN TABLE POINTER field of the FMS DOCUMENT HISTORY RECORD File` CROSS-REFERENCE: `9002189.1^PROP` 1)= S ^ACRDHR("PROP",$E(X,1,30),DA)="" 2)= K ^ACRDHR("PROP",$E(X,1,30),DA)
104	COST CENTER	10;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `FEB 12, 1997` HELP-PROMPT: `Answer must be 2 characters in length.` DESCRIPTION: This is the free text COST CENTER used for report generation. NOTES: `TRIGGERED by the CAN TABLE POINTER field of the FMS DOCUMENT HISTORY RECORD File` CROSS-REFERENCE: `9002189.1^CC` 1)= S ^ACRDHR("CC",$E(X,1,30),DA)="" 2)= K ^ACRDHR("CC",$E(X,1,30),DA)
105	CAN TABLE POINTER	10;5	POINTER TO COMMON ACCOUNTING NUMBER FILE (#9999999.57)	COMMON ACCOUNTING NUMBER(#9999999.57) LAST EDITED: `OCT 04, 1997` HELP-PROMPT: `Enter the Common Accounting Number for this DHR.` DESCRIPTION: Enter the Common Accounting Number for this DHR. CROSS-REFERENCE: `^^TRIGGER^9002189.1^101` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDHR(D0,10)):^(10),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002189.1,105,1,1,1.1) X ^DD(9002189.1,105,1,1,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTCAN(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTCAN(D0,0)):^(0),1:"") S X=$S('$D(^AUTTLCOD(+$P(Y(101),U,6),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) 1.4)= S DIH=$S($D(^ACRDHR(DIV(0),10)):^(10),1:""),DIV=X S $P(^(10),U,1)=DIV,DIH=9002189.1,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDHR(D0,10)):^(10),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(9002189.1,105,1,1,2.4) 2.4)= S DIH=$S($D(^ACRDHR(DIV(0),10)):^(10),1:""),DIV=X S $P(^(10),U,1)=DIV,DIH=9002189.1,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= #105:#.06 DELETE VALUE)= @ FIELD)= #101 CROSS-REFERENCE: `^^TRIGGER^9002189.1^102` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDHR(D0,10)):^(10),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002189.1,105,1,2,1.1) X ^DD(9002189.1,105,1,2,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTCAN(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTCAN(D0,"DT")):^("DT"),1:"") S X=$P(Y(101),U,2) S D0=I(0,0) 1.4)= S DIH=$S($D(^ACRDHR(DIV(0),10)):^(10),1:""),DIV=X S $P(^(10),U,2)=DIV,DIH=9002189.1,DIG=102 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDHR(D0,10)):^(10),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(9002189.1,105,1,2,2.4) 2.4)= S DIH=$S($D(^ACRDHR(DIV(0),10)):^(10),1:""),DIV=X S $P(^(10),U,2)=DIV,DIH=9002189.1,DIG=102 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= #105:#2 DELETE VALUE)= @ FIELD)= #102 CROSS-REFERENCE: `^^TRIGGER^9002189.1^103` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDHR(D0,10)):^(10),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9002189.1,105,1,3,1.1) X ^DD(9002189.1,105,1,3,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTCAN(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTCAN(D0,0)):^(0),1:"") S X=$S('$D(^AUTTPRO(+$P(Y(101),U,3),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) 1.4)= S DIH=$S($D(^ACRDHR(DIV(0),10)):^(10),1:""),DIV=X S $P(^(10),U,3)=DIV,DIH=9002189.1,DIG=103 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDHR(D0,10)):^(10),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(9002189.1,105,1,3,2.4) 2.4)= S DIH=$S($D(^ACRDHR(DIV(0),10)):^(10),1:""),DIV=X S $P(^(10),U,3)=DIV,DIH=9002189.1,DIG=103 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= #105:#.03 DELETE VALUE)= @ FIELD)= #103 CROSS-REFERENCE: `^^TRIGGER^9002189.1^104` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDHR(D0,10)):^(10),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9002189.1,105,1,4,1.1) X ^DD(9002189.1,105,1,4,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTCAN(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTCAN(D0,"DT")):^("DT"),1:"") S X=$P(Y(101),U,3) S D0=I(0,0) 1.4)= S DIH=$S($D(^ACRDHR(DIV(0),10)):^(10),1:""),DIV=X S $P(^(10),U,4)=DIV,DIH=9002189.1,DIG=104 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDHR(D0,10)):^(10),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(9002189.1,105,1,4,2.4) 2.4)= S DIH=$S($D(^ACRDHR(DIV(0),10)):^(10),1:""),DIV=X S $P(^(10),U,4)=DIV,DIH=9002189.1,DIG=104 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= #105:#3 DELETE VALUE)= @ FIELD)= #104
201	CORE TRANSMISSION DATE	20;1	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 23, 1999` HELP-PROMPT: `The date the record was transmitted to CORE` CROSS-REFERENCE: `9002189.1^CORETRANS` 1)= S ^ACRDHR("CORETRANS",$E(X,1,30),DA)="" 2)= K ^ACRDHR("CORETRANS",$E(X,1,30),DA)
202	SOURCE	20;2	SET	'A' FOR ARMS; 'M' FOR MANUAL; LAST EDITED: `NOV 23, 1999` HELP-PROMPT: `The source of this record, i.e., ARMS generated or manually entered.`
203	BATCH TYPE/COLOR	20;3	SET	'1' FOR PCC BLUE; '2' FOR PCC RED; '3' FOR BCBS BLUE; '4' FOR BCBS RED; '5' FOR ARMS BLUE; '6' FOR ARMS RED; LAST EDITED: `NOV 23, 1999` HELP-PROMPT: `The batch type/color that this record belongs to.`
204	BATCH DATE	20;4	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 23, 1999` HELP-PROMPT: `The batch date that this record belongs to.`
205	BATCH ID	20;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `NOV 23, 1999` HELP-PROMPT: `The Batch ID that this record belongs to. Answer must be 1 character in length.`
206	SEQUENCE NUMBER	20;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 23, 1999` HELP-PROMPT: `The sequence number of this record. Type a Number between 1 and 99999, 0 Decimal Digits`
207	UNIX EXPORT FILE	20;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 24, 1999` HELP-PROMPT: `Answer must be 3-30 characters in length.`
208	ERR	ERR;0	WORD-PROCESSING #9002189.1208
211	RECEIVING REPORT PTR	21;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 15, 2002` HELP-PROMPT: `The Receiving Report IEN. Type a Number between 1 and 999999999, 0 Decimal Digits` DESCRIPTION: If this is a receiving report DHR, this is the receiving report IEN in the FMS Receiving Report file.

Customize PDF page

Package: Commitment Register

Global: ^ACRDHR

Information

Description

Directly Accessed By Routines, Total: 12

Accessed By FileMan Db Calls, Total: 3

Pointed To By FileMan Files, Total: 3

Pointer To FileMan Files, Total: 3

Fields, Total: 53