Global: ^ACRCAN

FileMan FileNo	FileMan Filename	Package
9002186.5	ARMS CAN	Commitment Register

Package	Total	Routines
Commitment Register	18	ACRFCAN ACRFDCC ACRFDFLT ACRFDOCN ACRFDTP4 ACRFEA1 ACRFFF3 ACRFFF4 ACRFFF5 ACRFNEWD ACRFSYS ACRFUFMI ACRFUFMZ ACRFUTL ACRPCAN ACRPCAN1 ACRPCCS ACRPREQ

Package	Total	Routines
Commitment Register	3	ACRFDCC ACRFDFLT ACRFTR

Package	Total	FileMan Files
Commitment Register	7	ARMS USER(#9002185.3)[16] FMS DISTRIBUTION GROUP(#9002198)[#9002198.01(.04)] FMS DOCUMENT(#9002196)[113100] FMS DISTRIBUTION(#9002191)[.06] FMS DEPARTMENT ACCOUNT(#9002188)[90] FMS REQUEST(#9002189)[.04] FMS SUPPLIES AND SERVICES(#9002193)[.05]

Package	Total	FileMan Files
Utility Tables	10	COMMON ACCOUNTING NUMBER(#9999999.57)[.01] COST CENTER(#9999999.58)[.15] COMMUNITY(#9999999.05)[.12] COUNTY(#9999999.23)[.08] LOCATION CODE(#9999999.66)[.06] LOCATION(#9999999.06)[.17, 1210] FMS DEPARTMENT/PROGRAM(#9999999.62)[.13, 1090, 1100, 1110, 1120, 1130, 1150, 1160, 1200, 1460, 1470] APPROPRIATION NO.(#9999999.51)[.03] SUB-ACTIVITY(#9999999.55)[.19] SUB-SUB-ACTIVITY(#9999999.56)[.05, .21]
Commitment Register	2	FMS SUB-ALLOWANCE(#9002187)[.16] FMS PURCHASING OFFICE(#9002199.4)[1350]
Kernel	2	STATE(#5)[.07] NEW PERSON(#200)[1000, 1010, 1020, 1030, 1032, 1040, 1050, 1060, 1070, 1080, 1081, 1140, 1170, 1190, 1230, 1240, 1250, 1260, 1300, 1310, 1320, 1330, 1340, 1360, 1370, 1380, 1390, 1400, 1410, 1420, 1430, 1440, 1450]

Fields, Total: 70

Field #	Name	Loc	Type	Details
.01	CAN NO.	0;1	POINTER TO COMMON ACCOUNTING NUMBER FILE (#9999999.57)	**********************REQUIRED FIELD********************** COMMON ACCOUNTING NUMBER(#9999999.57) INPUT TRANSFORM: `S:$D(X) DINUM=X Q` LAST EDITED: `APR 01, 1996` DESCRIPTION: `Enter the CAN NO. for which you wish to set up default values. These default values will be used each time you create a request from a department account that uses this CAN NO. as its DEFAULT CAN NO. Depending on the` type of document, these values will be automatically entered into your document. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002186.5^B` 1)= S ^ACRCAN("B",$E(X,1,30),DA)="" 2)= K ^ACRCAN("B",$E(X,1,30),DA)
.02	CAN NO. CODE	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3 characters in length.` DESCRIPTION: Enter the 3 digit CAN NO. CODE. CROSS-REFERENCE: `9002186.5^C` 1)= S ^ACRCAN("C",$E(X,1,30),DA)="" 2)= K ^ACRCAN("C",$E(X,1,30),DA)
.03	APPROPRIATION NO.	4;1	POINTER TO APPROPRIATION NO. FILE (#9999999.51)	**********************REQUIRED FIELD********************** APPROPRIATION NO.(#9999999.51) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: This is triggered in by the system depending on the CAN NO. selected and should not be edited directly. CROSS-REFERENCE: `9002186.5^E` 1)= S ^ACRCAN("E",$E(X,1,30),DA)="" 2)= K ^ACRCAN("E",$E(X,1,30),DA)
.04	SHORT NAME	4;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<2) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `ANSWER MUST BE 2-12 CHARACTERS IN LENGTH` DESCRIPTION: Enter a SHORT NAME description which will help you identify this CAN NO.
.05	SUB-SUB ACTIVITY	0;6	POINTER TO SUB-SUB-ACTIVITY FILE (#9999999.56)	SUB-SUB-ACTIVITY(#9999999.56) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: This is set internally by the system and should not be edited directly.
.06	LOCATION CODE	0;7	POINTER TO LOCATION CODE FILE (#9999999.66)	LOCATION CODE(#9999999.66) LAST EDITED: `APR 01, 1996` DESCRIPTION: Enter the LOCATION CODE for this CAN NO.
.07	STATE	0;7	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: Enter the name or abbreviation of the STATE.
.08	COUNTY	0;8	POINTER TO COUNTY FILE (#9999999.23)	COUNTY(#9999999.23) LAST EDITED: `APR 01, 1996` HELP-PROMPT:
.09	FY	0;5	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1000)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 05, 1999` HELP-PROMPT: `Type a Number between 1000 and 9999, 0 Decimal Digits` DESCRIPTION: Enter the FISCAL YEAR if this CAN NO. is FY specific. CROSS-REFERENCE: `9002186.5^F` 1)= S ^ACRCAN("F",$E(X,1,30),DA)="" 2)= K ^ACRCAN("F",$E(X,1,30),DA)
.12	CITY	0;12	POINTER TO COMMUNITY FILE (#9999999.05)	COMMUNITY(#9999999.05) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: Enter the name of the CITY.
.13	PROGRAM/DEPARTMENT	0;13	POINTER TO FMS DEPARTMENT/PROGRAM FILE (#9999999.62)	**********************REQUIRED FIELD********************** FMS DEPARTMENT/PROGRAM(#9999999.62) LAST EDITED: `APR 01, 1996` DESCRIPTION: Enter the name of the PROGRAM or DEPARTMENT which will be using this CAN NO. CROSS-REFERENCE: `9002186.5^D` 1)= S ^ACRCAN("D",$E(X,1,30),DA)="" 2)= K ^ACRCAN("D",$E(X,1,30),DA)
.15	COST CENTER	0;15	POINTER TO COST CENTER FILE (#9999999.58)	COST CENTER(#9999999.58) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: This is set internally by the system and should not be edited directly.
.16	SUB ALLOWANCE	0;16	POINTER TO FMS SUB-ALLOWANCE FILE (#9002187)	FMS SUB-ALLOWANCE(#9002187) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: This is a pointer to the SUB-ALLOWANCE account for this CAN NO. This information is set internally by the system and should not be edited directly. CROSS-REFERENCE: `9002186.5^G` 1)= S ^ACRCAN("G",$E(X,1,30),DA)="" 2)= K ^ACRCAN("G",$E(X,1,30),DA)
.17	LOCATION	0;17	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: Enter the FACILITY from the list at which the department or program is located that will be using this CAN NO.
.18	FARS CODE	0;18	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 3 characters in length.` DESCRIPTION: Enter the 3 digit FARS CODE for this CAN NO.
.19	SUB-ACTIVITY	0;19	POINTER TO SUB-ACTIVITY FILE (#9999999.55)	**********************REQUIRED FIELD********************** SUB-ACTIVITY(#9999999.55) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: This information is triggered in by the system and should not be edited directly.
.21	SUB-SUB ACTIVITY	0;21	POINTER TO SUB-SUB-ACTIVITY FILE (#9999999.56)	**********************REQUIRED FIELD********************** SUB-SUB-ACTIVITY(#9999999.56) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: This information is triggered in by the system and should not be edited directly.
1000	FUNDS AVAILABLE SIGNATURE	DFLT;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,2))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: `Enter the name of the individual who must certify the availability of funds.` DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign for FUNDS AVAILABILITY for this CAN NO. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,2))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO CERTIFY THAT FUNDS ARE AVAILABLE.`
1010	PO AUTHORIZED BY	DFLT;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,1))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: `Enter the name of the official who can authorize this request.` DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign to AUTHORIZE PURCHASE ORDERS which use this CAN NO. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,1))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO AUTHORIZE A PROCUREMENT.`
1011	TITLE OF AUTHORIZING OFFICIAL	DFLT1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the title of the Authorizing Official. Answer must be 3-20 characters in length.` DESCRIPTION: Enter the TITLE OF THE AUTHORIZING OFFICIAL.
1020	RECEIVING OFFICIAL	DFLT;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,7))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: `Enter the name of the Receiving Officer.` DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign as the RECEIVING OFFICIAL when this CAN NO. is used. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,7))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO SIGN AS A RECEIVING OFFICIAL.`
1030	TRAVEL RECOMMENDED BY	DFLT;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,8))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: `Enter the name of the individual recommending the travel.` DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign to RECOMMEND TRAVEL. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,8))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO RECOMMEND TRAVEL.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1031	TITLE OF OFF RECOMMD TRAVEL	DFLT1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the title of the Officer Recommending Travel. Answer must be 3-20 characters in length.` DESCRIPTION: Enter the TITLE of the OFFICIAL who is RECOMMENDING THE TRAVEL.
1032	TRAVEL FUNDS AVAILABLE	DFLT1;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,23))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,23))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO SIGN FOR FUNDS AVAILABLE.`
1033	ORIGINAL TRAVEL ORDER	DFLT1;9	SET	'O' FOR ORIGINAL; 'A' FOR AMENDMENT; LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter a code from the list.` DESCRIPTION: Indicates that the travel order is an original document.
1040	INITIATING SUPERVISOR	DFLT;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,9))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: `Enter the name of the initiating supervisor for training.` DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign as the INITIATING SUPERVISOR. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,9))"` EXPLANATION: `Screened for authority to sign as initiating supervisor.`
1050	CONCURRING OFFICIAL-1	DFLT;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,10))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: `Enter the name of the first official to concur with the training request.` DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign as the FIRST CONCURRING OFFICIAL on training requests. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,10))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO SIGN 350 AS FIRST CONCURRING OFFICIAL.`
1060	CONCURRING OFFICIAL-2	DFLT;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,11))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: `Enter the name of the second official to concur with the training request.` DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign as the SECOND CONCURRING OFFICIAL on training requests. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,11))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO SIGN 350 AS SECOND CONCURRING OFFICIAL.`
1070	TRAINING APPROVED BY	DFLT;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,12))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: `Enter the name of the official who approves training.` DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign to APPROVE TRAINING. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,12))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO APPROVE 350.`
1080	REVIEWING EMP. DEV. SPEC.	DFLT;9	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,13))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: `Enter the name of the reviewing employee development specialist.` DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign as the EMPLOYEE DEVELOPMENT SPECIALIST for training requests. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,13))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO SIGN 350 AS REVIEWING SPECIALIST.`
1081	TRAINING FUNDS SIG	DFLT1;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,24))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,24))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO SIGN FOR FUNDS AVAILABLE.`
1090	ISSUING OFFICE	DFLT;10	POINTER TO FMS DEPARTMENT/PROGRAM FILE (#9999999.62)	FMS DEPARTMENT/PROGRAM(#9999999.62) LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the name of the office which with issue requests under this CAN.` DESCRIPTION: Enter the name of the department that should be used as the ISSUING OFFICE for requests using this CAN NO. NOTES: `TRIGGERED by the PURCHASING OFFICE field of the ARMS CAN File`
1100	SHIP TO	DFLT;11	POINTER TO FMS DEPARTMENT/PROGRAM FILE (#9999999.62)	FMS DEPARTMENT/PROGRAM(#9999999.62) LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the name of the location or department to which ordered items will be shipped.` DESCRIPTION: Enter the name of the department that should be used as the SHIP TO point for requests using this CAN NO. NOTES: `TRIGGERED by the PURCHASING OFFICE field of the ARMS CAN File`
1110	MAIL INVOICE TO	DFLT;12	POINTER TO FMS DEPARTMENT/PROGRAM FILE (#9999999.62)	FMS DEPARTMENT/PROGRAM(#9999999.62) LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the name of the department or location where the invoice should be mailed.` DESCRIPTION: Enter the name of the department to which the INVOICE from the vendor should be mailed. NOTES: `TRIGGERED by the PURCHASING OFFICE field of the ARMS CAN File`
1120	DELIVER TO	DFLT;13	POINTER TO FMS DEPARTMENT/PROGRAM FILE (#9999999.62)	FMS DEPARTMENT/PROGRAM(#9999999.62) LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the name of the department or location where items should be delivered.` DESCRIPTION: Enter the name of the department to which item should be DELIVERED for purchase orders using this CAN NO.
1130	REQUESTING OFFICE	DFLT;14	POINTER TO FMS DEPARTMENT/PROGRAM FILE (#9999999.62)	FMS DEPARTMENT/PROGRAM(#9999999.62) LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the name of the requesting office.` DESCRIPTION: Enter the name of the department which will be the REQUESTING OFFICE on all requests using this CAN NO.
1140	REQUESTED BY	DFLT;15	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,3))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: `Enter the name of the person making the request.` DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign as the person who REQUESTED the items on requisitions using this CAN NO 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,3))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO SIGN AS REQUESTING INDIVIDUAL.`
1150	PLACE OF INSPECTION/ACCEP	DFLT;16	POINTER TO FMS DEPARTMENT/PROGRAM FILE (#9999999.62)	FMS DEPARTMENT/PROGRAM(#9999999.62) LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the name of the department or location where items are accepted.` DESCRIPTION: Enter the name of the department where items from purchase orders using this CAN NO. will be INSPECTED AND ACCEPTED. NOTES: `TRIGGERED by the PURCHASING OFFICE field of the ARMS CAN File`
1160	TO	DFLT;17	POINTER TO FMS DEPARTMENT/PROGRAM FILE (#9999999.62)	FMS DEPARTMENT/PROGRAM(#9999999.62) LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the name of the department the request is addressed to.` DESCRIPTION: Enter the name of the department where all requisitions using this CAN NO. will be sent TO for processing.
1170	FOR REFERENCE CALL	DFLT;18	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 person to call to answer questions regarding this request.` DESCRIPTION: Enter the name of the person to CALL FOR REFERENCE regarding this requisition. 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.
1180	TELEPHONE	DFLT;19	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>12!($L(X)<12)!'(X?3N1"-"3N1"-"4N) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Answer must be 12 characters in length in the format XXX-XXX-XXXX.` DESCRIPTION: Enter the TELEPHONE number to call for information concerning this request.
1190	LOCAL PROPERTY MGT OFFICER	DFLT;20	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,6))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: `Enter the name of the property management officer.` DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign as the LOCAL PROPERTY MANAGEMENT OFFICER. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,6))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO SIGN FOR PROPERTY AND SUPPLY.`
1200	BUREAU/DIVISION/REGION	DFLT;21	POINTER TO FMS DEPARTMENT/PROGRAM FILE (#9999999.62)	FMS DEPARTMENT/PROGRAM(#9999999.62) LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the name of the BUREAU/DIVISION/REGION.` DESCRIPTION: Enter the name of the department for this BUREAU/DIVISION/REGION.
1210	PRESENT OFFICIAL STATION	DFLT;22	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the name of the present duty station.` DESCRIPTION: Enter the name of the FACILITY which is the PRESENT DUTY STATION of all individuals traveling using this CAN NO.
1220	MILEAGE RATE	DFLT;23	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1)!(X<0)!(X?.E1"."4N.N) X` LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Type a Number between 0 and 1, 3 Decimal Digits` DESCRIPTION: Enter the current official MILEAGE rate.
1230	REQUEST APPROVED BY	DFLT;24	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,5))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: `Enter the name of the individual who must approve the request.` DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign to APPROVE REQUESTS which use this CAN NO. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,5))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO APPROVE REQUESTS.`
1240	REQUEST RECOMMENDED BY	DFLT;25	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,4))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: `Enter the name of the Officer Recommending Approval of the request.` DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign to RECOMMEND APPROVAL of REQUESTS which use this CAN NO. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,4))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO SIGN AS RECOMMENDING REQUEST.`
1250	TRAVEL AUTHORIZED BY	DFLT1;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,21))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign to AUTHORIZE TRAVEL. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,21))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO SIGN AS AUTHORIZING OFFICIAL.`
1260	TRAINING AUTHORIZED BY	DFLT1;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,22))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign to AUTHORIZE TRAINING. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,22))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO SIGN AS AUTHORIZING OFFICIAL.`
1270	REQUEST FOR	DFLT1;5	SET	'P' FOR PURCHASE; 'S' FOR SERVICE; 'ST' FOR STOCK ISSUE; 'R' FOR RENTAL/LEASE; LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the appropriate code from the list.` DESCRIPTION: Enter a code from the list which will be the default REQUEST FOR response when this CAN NO. is used.
1280	PRIORITY OF REQUEST	DFLT1;6	SET	'E' FOR EMERGENCY; 'P' FOR PRIORITY; 'R' FOR ROUTINE; LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the appropriate code from the list.` DESCRIPTION: Enter a code from the list which will be used as the default PRIORITY OF REQUESTs which are initiated using this CAN NO.
1290	TYPE OF DELIVERY	DFLT;26	SET	'P' FOR PURCHASE; 'D' FOR DELIVERY; LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the appropriate code from the list.` DESCRIPTION: Enter a code from the list which will be used as the default TYPE OF DELIVERY whenever this CAN NO. is used.
1300	CONTRACT OFFICER	DFLT1;10	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,1))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign as the CONTRACT OFFICER. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,1))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO SIGN AS LOCAL CONTRACT OFFICER.`
1310	LOCAL INFO SYSTEMS COORD	DFLT1;11	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,17))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign as the LOCAL INFORMATION SYSTEMS COORDINATOR. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,17))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO SIGN AS LOCAL INFORMATION SYSTEMS COORDINATOR.`
1320	LOCAL PROPERTY MANAGEMENT	DFLT1;12	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,6))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign as the LOCAL PROPERTY MANAGEMENT officer. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,6))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO SIGN AS LOCAL PROPERTY MANAGEMENT.`
1330	LOCAL TELECOMMUNICATIONS	DFLT1;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,29))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign as the LOCAL TELECOMMUNICATION officer. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,29))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO SIGN AS LOCAL TELECOMMUNICATIONS.`
1340	LOCAL FMO	DFLT1;14	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,19))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign as the LOCAL FINANCIAL MANAGEMENT OFFICER. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,19))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO SIGN AS LOCAL FINANCIAL MGT OFFICER.`
1350	PURCHASING OFFICE	DFLT1;15	POINTER TO FMS PURCHASING OFFICE FILE (#9002199.4)	**********************REQUIRED FIELD********************** FMS PURCHASING OFFICE(#9002199.4) LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the name of the appropriate PURCHASING OFFICE from the list.` DESCRIPTION: Enter the name of the PURCHASING OFFICE to which requisitions which use this CAN NO. should be sent for processing. CROSS-REFERENCE: `^^TRIGGER^9002186.5^1090` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(9002186.5,1350,1,1,1.1) X ^DD(9002186.5,1350,1,1,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRPO(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRPO(D0,"DT")):^("DT"),1:""),Y(101)=X S X=$P(Y(102),U,1),X=X S X=X S D0=I(0,0) 1.4)= S DIH=$S($D(^ACRCAN(DIV(0),"DFLT")):^("DFLT"),1:""),DIV=X S $P(^("DFLT"),U,10)=DIV,DIH=9002186.5,DIG=1090 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= PURCHASING OFFICE:INTERNAL(#2) DELETE VALUE)= NO EFFECT FIELD)= ISSUING OFFICE CROSS-REFERENCE: `^^TRIGGER^9002186.5^1100` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9002186.5,1350,1,2,1.1) X ^DD(9002186.5,1350,1,2,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRPO(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRPO(D0,"DT")):^("DT"),1:""),Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=I(0,0) 1.4)= S DIH=$S($D(^ACRCAN(DIV(0),"DFLT")):^("DFLT"),1:""),DIV=X S $P(^("DFLT"),U,11)=DIV,DIH=9002186.5,DIG=1100 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= PURCHASING OFFICE:INTERNAL(#3) DELETE VALUE)= NO EFFECT FIELD)= SHIP TO CROSS-REFERENCE: `^^TRIGGER^9002186.5^1110` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(9002186.5,1350,1,3,1.1) X ^DD(9002186.5,1350,1,3,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRPO(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRPO(D0,"DT")):^("DT"),1:""),Y(101)=X S X=$P(Y(102),U,3),X=X S X=X S D0=I(0,0) 1.4)= S DIH=$S($D(^ACRCAN(DIV(0),"DFLT")):^("DFLT"),1:""),DIV=X S $P(^("DFLT"),U,12)=DIV,DIH=9002186.5,DIG=1110 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= PURCHASING OFFICE:INTERNAL(#4) DELETE VALUE)= NO EFFECT FIELD)= MAIL INVOICE TO CROSS-REFERENCE: `^^TRIGGER^9002186.5^1150` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(9002186.5,1350,1,4,1.1) X ^DD(9002186.5,1350,1,4,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRPO(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRPO(D0,"DT")):^("DT"),1:""),Y(101)=X S X=$P(Y(102),U,4),X=X S X=X S D0=I(0,0) 1.4)= S DIH=$S($D(^ACRCAN(DIV(0),"DFLT")):^("DFLT"),1:""),DIV=X S $P(^("DFLT"),U,16)=DIV,DIH=9002186.5,DIG=1150 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= PURCHASING OFFICE:INTERNAL(#5) DELETE VALUE)= NO EFFECT FIELD)= PLACE OF INSPECTION/ACCEP CROSS-REFERENCE: `^^TRIGGER^9002186.5^1410` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y X ^DD(9002186.5,1350,1,5,1.1) X ^DD(9002186.5,1350,1,5,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRPO(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRPO(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,12),X=X S X=X S D0=I(0,0) 1.4)= S DIH=$S($D(^ACRCAN(DIV(0),"DFLT1")):^("DFLT1"),1:""),DIV=X S $P(^("DFLT1"),U,21)=DIV,DIH=9002186.5,DIG=1410 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= PURCHASING OFFICE:INTERNAL(#.12) DELETE VALUE)= NO EFFECT FIELD)= #1410 CROSS-REFERENCE: `^^TRIGGER^9002186.5^1420` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:"") S X=$P(Y(1),U,22),X=X S DIU=X K Y X ^DD(9002186.5,1350,1,6,1.1) X ^DD(9002186.5,1350,1,6,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRPO(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRPO(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,13),X=X S X=X S D0=I(0,0) 1.4)= S DIH=$S($D(^ACRCAN(DIV(0),"DFLT1")):^("DFLT1"),1:""),DIV=X S $P(^("DFLT1"),U,22)=DIV,DIH=9002186.5,DIG=1420 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= PURCHASING OFFICE:INTERNAL(#.13) DELETE VALUE)= NO EFFECT FIELD)= #1420
1360	ADP SECURITY OFFICER	DFLT1;16	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,30))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign as the ADP SECURITY OFFICER. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,30))"` EXPLANATION: `ENTRY SCREENED FOR AUTHORITY TO SIGN AS ADP SECURITY OFFICER.`
1370	PROPERTY CLEARANCE	DFLT1;17	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,31))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign for PROPERTY CLEARANCE. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,31))"` EXPLANATION: `SCREENED FOR AUTHORITY TO SIGN FOR PROPERTY CLEARANCE.`
1380	LOCAL M&M COORDINATOR	DFLT1;18	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,33))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign as the LOCAL M&M COORDINATOR. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,33))"` EXPLANATION: `SCREENED FOR AUTHORITY TO SIGN AS LOCAL M&M COORDINATOR`
1390	AREA M&M COORDINATOR	DFLT1;19	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,34))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign as the AREA M&M COORDINATOR. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,34))"` EXPLANATION: `SCREENED FOR AUTHORITY TO SIGN AS AREA M&M COORDINATOR`
1400	SUPPLY OFFICER	DFLT1;20	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,35))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should sign as the SUPPLY OFFICER. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,35))"` EXPLANATION: `SCREENED FOR AUTHORITY TO SIGN AS SUPPLY OFFICER.`
1410	TRAVEL CERTIFICATION	DFLT1;21	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,38))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,38))"` EXPLANATION: `Entry screened for authority to sign to certify travel payment.` NOTES: `TRIGGERED by the PURCHASING OFFICE field of the ARMS CAN File`
1420	TRAVEL VOUCHER AUDITOR	DFLT1;22	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,39))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,39))"` EXPLANATION: `Screened for authority to sign as travel voucher auditor.` NOTES: `TRIGGERED by the PURCHASING OFFICE field of the ARMS CAN File`
1430	INVOICE AUDITOR	DFLT1;23	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,42))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: DESCRIPTION: Enter the first 2-3 characters of the last name of the individual who should AUDIT INVOICES. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,42))"` EXPLANATION: `Check for authority to sign as INVOICE AUDITOR.`
1440	TRAVEL ORDER AUDITOR	DFLT1;24	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,43))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: `Enter the name of the individual who will audit travel orders generated with the CAN.` DESCRIPTION: Enter the name of the individual who will audit travel orders generated using this CAN. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,43))"` EXPLANATION: `Screened for authority to sign as a travel order auditor.`
1450	TRAINING PROCUREMENT OFFICIAL	DFLT1;25	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,14))&$D(^ACRPA(""B"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` HELP-PROMPT: `Enter the name of the procurement official who signs the training requests.` DESCRIPTION: Enter the name of the procurement official who will sign the training requests. 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. SCREEN: `S DIC("S")="I $D(^ACRAPL(""AC"",+Y,14))&$D(^ACRPA(""B"",+Y))"` EXPLANATION: `Check to ensure the individual has authority to sign as a TRAINING PROCUREMENT OFFICIAL and is a registered PURCHASING AGENT.`
1460	MAIL TRAINING INVOICE TO	DFLT2;1	POINTER TO FMS DEPARTMENT/PROGRAM FILE (#9999999.62)	FMS DEPARTMENT/PROGRAM(#9999999.62) LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the department to which invoices from training vendors should be sent.` DESCRIPTION: Enter the name of the department to which invoices from training vendors should be sent.
1470	TRAINING OFFICE	DFLT2;2	POINTER TO FMS DEPARTMENT/PROGRAM FILE (#9999999.62)	FMS DEPARTMENT/PROGRAM(#9999999.62) LAST EDITED: `APR 01, 1996` HELP-PROMPT: `Enter the name of the training office to which questions regarding training should be addressed.` DESCRIPTION: Enter the name of the Training Office to which questions from vendors should be addressed.

Customize PDF page

Package: Commitment Register

Global: ^ACRCAN

Information

Description

Directly Accessed By Routines, Total: 19

Accessed By FileMan Db Calls, Total: 3

Pointed To By FileMan Files, Total: 7

Pointer To FileMan Files, Total: 14

Fields, Total: 70