Global: ^ACRDOC

The DOCUMENT NUMBER should identify this document and conform to applicable requirements for the structure and format depending on the type of document.  It is assigned by the computer and should not be changed.

1)= S ^ACRDOC("B",$E(X,1,30),DA)=""

2)= K ^ACRDOC("B",$E(X,1,30),DA)

TRIGGERED by the ORIGINAL REQUEST NUMBER field of the FMS DOCUMENT File

1)= S:'$D(^ACRDOC("B",$E(X,1,30),DA)) ^(DA)=1

2)= I $D(^ACRDOC("B",$E(X,1,30),DA)),^(DA) K ^(DA)

This should be the PURCHASE ORDER or CONTRACT NUMBER assigned to a request when it is processed by purchasing.  It is assigned by the computer and should not be changed.

1)= S ^ACRDOC("C",$E(X,1,30),DA)=""

2)= K ^ACRDOC("C",$E(X,1,30),DA)

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,"X")):^("X"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$$EXPDN^ACRFUTL(D0) S DIH=$G(^ACRDOC(DIV(0),"X")),DIV=X S $P(^("X"),U,1)=DIV,DIH=9002196,DIG=.011 D

^DICR

2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,"X")):^("X"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$$EXPDN^ACRFUTL(D0) S DIH=$G(^ACRDOC(DIV(0),"X")),DIV=X S $P(^("X"),U,1)=DIV,DIH=9002196,DIG=.011 D

^DICR

CREATE VALUE)= S X=$$EXPDN^ACRFUTL(D0)

DELETE VALUE)= S X=$$EXPDN^ACRFUTL(D0)

FIELD)= EXPANDED DOCUMENT NUMBER

The DOCUMENT DATE is set by the computer when a document is created.

1)= S ^ACRDOC("DT",$E(X,1,30),DA)=""

2)= K ^ACRDOC("DT",$E(X,1,30),DA)

This field is a pointer the the TRANSACTION TYPE file and indicates the type of request for this document.

1)= S ^ACRDOC("D",$E(X,1,30),DA)=""

2)= K ^ACRDOC("D",$E(X,1,30),DA)

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(9002196,.04,1,2,69.2) S X=X=116 S D0=I(0,0) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"PO")):^("PO"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9002196,.04,1,2,1.1) X ^DD(900219

6,.04,1,2,1.4)

1.1)= S X=DIV S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$P(Y(1),U,1)

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"PO")):^("PO"),1:""),DIV=X S $P(^("PO"),U,4)=DIV,DIH=9002196,DIG=103040 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

69.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=Y(0) S:'$D(^ACRTXTYP(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRTXTYP(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(101),U,2),0)):"",1:$P(^(0),U,1))

CREATE CONDITION)= REQUEST TYPE:REFERENCE CODE=116

CREATE VALUE)= DOCUMENT NO.

DELETE VALUE)= NO EFFECT

FIELD)= REQUISITION NO.

1)= X ^DD(9002196,.04,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9002196,.04,1,3,1.1) X ^DD(9002196,.04,1,3,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRTXTYP(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRTXTYP(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=""

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=9002196,DIG=.13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=""

CREATE VALUE)= REQUEST TYPE:INTERNAL(#.02)

DELETE VALUE)= NO EFFECT

FIELD)= #.13

1)= X ^DD(9002196,.04,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(9002196,.04,1,4,1.4)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^ACRTXTYP(+$P(Y(1),U,7),0)):"",1:$P(^(0),U,1))=""

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=9002196,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= ORIGINAL REQUEST TYPE=""

CREATE VALUE)= INTERNAL(REQUEST TYPE)

DELETE VALUE)= NO EFFECT

FIELD)= ORIGINAL REQUEST TYPE

request file.

1)= S ^ACRDOC("E",$E(X,1,30),DA)=""

2)= K ^ACRDOC("E",$E(X,1,30),DA)

This field is a pointer to the DEPARTMENT ACCOUNT file.  It connects the document to the DEPARTMENT ACCOUNT from which the funds were taken.

This is a pointer to the TRANSACTION TYPE file and keeps track of the original request type whenever the request type is changed.

This field identifies which PURCHASING OFFICE is assigned responsibility for processing the document.

TRIGGERED by the CAN NO. field of the FMS DOCUMENT File

1)= S ^ACRDOC("PO",$E(X,1,30),DA)=""

2)= K ^ACRDOC("PO",$E(X,1,30),DA)

X-ref of purchase orders by purchase office used to look-up po's by purchasing office and for assignment of po's to a purchasing agent.

1)= I X,+$G(^ACRDOC(DA,"REQ")) S ^ACRDOC("PO",X,"A",DA)=""

2)= K:X ^ACRDOC("PO",X,"A",DA)

This keeps track of the number of modifications which have been made to a document.

This stores the ESTIMATED VALUE of the financial transaction for which this document was created.

This field contains the DRAFT CHECK NUMBER which is assigned to a transaction when a DRAFT CHECK is authorized as the form of payment.

This field indicates whether or not a DRAFT PAYMENT has been authorized.

This field identifies the REFERENCE CODE applicable to the document.

1)= S ^ACRDOC("REF",$E(X,1,30),DA)=""

2)= K ^ACRDOC("REF",$E(X,1,30),DA)

user of what this request is for.

1)= S ^ACRDOC("G",$E(X,1,30),DA)=""

2)= K ^ACRDOC("G",$E(X,1,30),DA)

3)= DO NOT DELETE

1)= S ^ACRDOC("MOD",$E(X,1,30),DA)=""

2)= K ^ACRDOC("MOD",$E(X,1,30),DA)

3)= DO NOT DELETE

Cross references the modifications to a document.

information can be shared with internal and external data systems.

This field stores the ORIGINAL REQUEST NUMBER if the DOCUMENT NUMBER is ever changed.

1)= S ^ACRDOC("O",$E(X,1,30),DA)=""

2)= K ^ACRDOC("O",$E(X,1,30),DA)

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,"X")):^("X"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$$ORN17^ACRFTRIG(D0) S DIH=$G(^ACRDOC(DIV(0),"X")),DIV=X S $P(^("X"),U,1)=DIV,DIH=9002196,DIG=.011 D

^DICR

2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,"X")):^("X"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$$ORN17^ACRFTRIG(D0) S DIH=$G(^ACRDOC(DIV(0),"X")),DIV=X S $P(^("X"),U,1)=DIV,DIH=9002196,DIG=.011 D

^DICR

CREATE VALUE)= S X=$$ORN17^ACRFTRIG(D0)

DELETE VALUE)= S X=$$ORN17^ACRFTRIG(D0)

FIELD)= EXPAN

This field indicates whether or not this document is a BPA by allowing the purchasing agent to enter the total amount of money allocated for calls against the BPA.

1)= S:X>0 ^ACRDOC("T",DA,DA)=""

2)= K ^ACRDOC("T",DA,DA)

This field points to the BPA against which this call is being made.  Select the Blanket Purchase Order against which this call is to be made.

1)= S ^ACRDOC("BPA",$E(X,1,30),DA)=""

2)= K ^ACRDOC("BPA",$E(X,1,30),DA)

3)= DO NOT DELETE

This number shows the number of the last call against a BPA.  It is entered automatically whenever a new call is made against a BPA.

This field points to the PURCHASING AGENT file.  It indicates which PURCHASING AGENT is responsible for processing this request.

TRIGGERED by the CAN NO. field of the FMS DOCUMENT File

1)= S ^ACRDOC("PA",$E(X,1,30),DA)=""

2)= K ^ACRDOC("PA",$E(X,1,30),DA)

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,"PA")):^("PA"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002196,.2,1,2,1.1) X ^DD(9002196,.2,1,2,1.4)

1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"PA")):^("PA"),1:""),DIV=X S $P(^("PA"),U,2)=DIV,DIH=9002196,DIG=.3 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(^ACRDOC(D0,"PA")):^("PA"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(9002196,.2,1,2,2.4)

2.4)= S DIH=$S($D(^ACRDOC(DIV(0),"PA")):^("PA"),1:""),DIV=X S $P(^("PA"),U,2)=DIV,DIH=9002196,DIG=.3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

CREATE VALUE)= NOW

DELETE VALUE)= @

FIELD)= #.3

1)= S:X ^ACRDOC("PA",X,"A",DA)=""

2)= K:X ^ACRDOC("PA",X,"A",DA)

Enter the code which describes the PAYMENT STATUS for this document.

This is the DATE PAYMENT is DUE on this transaction.

Enter the appropriate code to indicate whether the BPA is OPEN, in which case additional calls can be placed against it, or CLOSED.

Enter the appropriate code to indicate whether or not this is a contract.

Enter the name of the credit card holder who is using his or her credit card for this purchase.

Enter the Julian Date for the FEDSTRIP.  Include the single digit for the calendar year followed by the 3 digit Julian date.

1)= S ^ACRDOC("FS","FS"_$E(X,1,30),DA)=""

2)= K ^ACRDOC("FS","FS"_$E(X,1,30),DA)

3)= DO NOT DELETE

This is a cross reference of the Julian Date field.

Enter the FEDSTRIP DOCUMENT number.

1)= S ^ACRDOC("FS",$E(X,1,30),DA)=""

2)= K ^ACRDOC("FS",$E(X,1,30),DA)

Enter the appropriate code to indicate whether receipts will be required by the voucher auditor in order to complete the audit.

entered.

This field indicates the purchasing supervisor who is responsible for assigning a request to a purchasing agent.

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)= S ^ACRDOC("PS",$E(X,1,30),DA)=""

2)= K ^ACRDOC("PS",$E(X,1,30),DA)

3)= DO NOT DELETE

This is a multiple field which allows the purchasing agent to specify those individuals who are authorized to create a call against a BPA.  Enter the name(s) of individuals authorized to make calls against this BPA.

This field indicates the maximum amount allowed for any single call against a BPA.  Enter the dollar amount which sets the dollar limit for a call against this BPA.

Enter the date the items are required.

code 'E' is used for FEDSTRIP PRIORITY '03'

code 'P' is used for FEDSTRIP PRIORITY '08'

code 'R' is used for FEDSTRIP PRIORITY '15'

This is the first line you can use to explain why this request must be processed in less than 30 days.

This is the second line you can use to explain why this request must be processed in less than 30 days.

This is the third line you can use to explain why this request must be processed in less than 30 days.

This is the fourth line you can use to explain why this request must be processed in less than 30 days.

This is the fifth line you can use to explain why this request must be processed in less than 30 days.

Enter the appropriate code to indicate if you require the request initiator to provide a description of the change they made in response to your return of this document.

Enter the appropriate code from the list to indicate if you have completed the requested description of any changes required by the request approver.

This is entered internally by the system and should not be edited directly.

review are recorded here regardless of whether any data was actually changed.

This field indicates the person who must sign this document to certify that funds are available for the procurement.

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.

TRIGGERED by the TRAVEL FUNDS AVAILABLE field of the FMS DOCUMENT File

TRIGGERED by the TRAINING FUNDS AVAILABLE field of the FMS DOCUMENT File

TRIGGERED by the TRAINING FUNDS AVAILABLE SIG field of the FMS DOCUMENT File

This field indicates the individual who must sign the document to certify that funds are available when the document is a travel order.

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)= X ^DD(9002196,11,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"FA")):^("FA"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(9002196,11,1,1,1.4)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=130

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"FA")):^("FA"),1:""),DIV=X S $P(^("FA"),U,1)=DIV,DIH=9002196,DIG=10 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=130

CREATE VALUE)= INTERNAL(#11)

DELETE VALUE)= NO EFFECT

FIELD)= #10

This field indicates the individual who must sign to certify that funds are available when the request is for training.

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)= X ^DD(9002196,12,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"FA")):^("FA"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(9002196,12,1,1,1.4)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=350

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"FA")):^("FA"),1:""),DIV=X S $P(^("FA"),U,1)=DIV,DIH=9002196,DIG=10 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=350

CREATE VALUE)= INTERNAL(#12)

DELETE VALUE)= NO EFFECT

FIELD)= #10

This field allows the user to indicate that external hard copy documents are required for the processing of this request and should be 'attached' and included in any review of the document.

This field allows the user to describe any attachments to a request so that approving officials will know if they need to see the attachments prior to approving the document.

Enter the appropriate FEDSTRIP ROUTING IDENTIFIER from the list.

Enter the appropriate FEDSTRIP DOCUMENT IDENTIFIER from the list.

Enter the Facility which will be used as the FEDSTRIP REQUISITIONER for this request.

Enter the  Facility which will be used as the FEDSTRIP SUPPLEMENTARY ADDRESS for this request.

Enter the appropriate FEDSTRIP SIGNAL CODE to indicate whether the FEDSTRIP SUPPLEMENTARY ADDRESS is a Billing or Ship To address.

Enter the ADVICE CODE as found in the FEDSTRIP manual.

This field indicates the individual who is responsible for authorizing the purchase order.  Enter the name of the appropriate procurement official.

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.

TRIGGERED by the TRAVEL AUTHORIZED BY field of the FMS DOCUMENT File

TRIGGERED by the TRAINING AUTHORIZED BY field of the FMS DOCUMENT File

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(9002196,20,1,1,69.2) S X=X=103,Y=X,X=Y(2),X=X!Y I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"PO")):^("PO"),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(9002196,

20,1,1,1.4)

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"PO")):^("PO"),1:""),DIV=X S $P(^("PO"),U,17)=DIV,DIH=9002196,DIG=103220 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

69.2)= S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=116,Y(2)=X S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))

CREATE CONDITION)= REFERENCE CODE=116!(REFERENCE CODE=103)

CREATE VALUE)= INTERNAL(#20)

DELETE VALUE)= NO EFFECT

FIELD)= #103220

This indicates the date and time the BPA caller claims they received authorization to exceed the call limit.

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.

Enter the date the BPA should be closed.

Enter the name of the person placing the call agains the BPA.

Enter the appropriate code to indicate if this is a GSA SUPPLY CENTER ORDER.

Enter the TICKET NUMBER assigned by the GSA Customer Supply Center for this order.

1)= S ^ACRDOC("P","SC"_$E(X,1,30),DA)=""

2)= K ^ACRDOC("P","SC"_$E(X,1,30),DA)

Enter the AGENCY ACCESS CODE which identifies your agency to the GSA CUSTOMER SUPPLY CENTER.

Enter the TREASURY SCHEDULE NUMBER for this payment.

Enter the secondary document number.

Enter the reference code for the secondary document.

This is a word processing field which allows the request initiator or others who are processing this document to include any special remarks or instructions pertinent to this request.

This multiple field contains a list of all PO's to which items from this request were transferred.

This is a word processing field where special 'boiler plate' statements pertinent to this document can be entered.

This multiple field tracks the names of individuals who can access the BPA to provide administrative support.

This is a multiple field which allows the purchasing agent to create a list of all bidders to whom they wish to send a REQUEST FOR QUOTATION.

This is a multiple field which allows the system to store a list of all PROPERTY VOUCHER NUMBERS which have been assigned to RECEIVING REPORTS which resulted from the PURCHASE ORDER.

This is a multiple field which allows the travel authorizing agent to list all cities to which travel is authorized under the travel order.

This field is used to store the last date information on this document was sent to PHS/FMS.

This field allows the system to record a status flag which records the status of the transmission of this document to PHS/FMS.

Enter the original department account.

This is a multiple field which is set internally by the system to record the date and name of the purchasing agent each time a document is assigned to a purchasing agent.

This information allows the purchasing agent to indicate the current status of this procurement.

Enter the name of the city from which travel is authorized to begin.

This allows the traveler to indicate the second city he/she will travel to.

Enter the reason the PO was cancelled.

This multiple field records each invoice for each receiving report for this document.

Enter the appropriate code.

Enter the appropriate code.

Enter the appropriate code.

Enter the appropriate code

Enter the appropriate code.

Enter the appropriate code.

Enter the appropriate code.

Enter the appropriate code.

Enter the appropriate code

Enter the appropriate code.

Enter the appropriate code.

Enter the appropriate code.

Enter the appropriate code.

Enter the personnel action requested.

Enter the PERSONNEL ACTION REQUEST NUMBER.

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.

Enter the proposed date on which this personnel action should become effective.

Enter the name of the individual who requested this personnel action.

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.

Enter the title of the individual who requested the personnel action.

Enter the date and time the personnel action was requested.

Enter the name of the person who authorized the personnel action.

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.

Enter the title of the official who is authorizing this personnel action.

Enter the date the action was authorized.

Enter the name of the employee for whom this personnel action is intended.

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.

This is a multiple field which lists the nature of the personnel actions requested.

Enter the rating for this Contract.

Enter the contract number.

Enter the effective date of the contract

Enter the requisition number.

Enter the name of the Department administering this award.

Enter the date on which the contract begins.

Enter the date on which the contract ends.

Enter the SIC for this order.

Enter the appropriate size for this business.

Enter the date the solicitation was/will be issued.

Enter the solicitation number.

Enter the appropriate code.

Enter the number of copies required.

Enter the description of the location where the offer should be deposited.

Enter the date and time by which the offer must be submitted.

Enter the percent of discount for payment within 10 days.

Enter the discount percent if payment made within 20 days.

Enter the percent of discount if payment made within 30 days.

Enter the DATE OF this ORDER.  This is used as the official date on which this order was initiated.

1)= S ^ACRDOC("S",$E(X,1,30),DA)=""

2)= K ^ACRDOC("S",$E(X,1,30),DA)

Enter the CONTRACT NO. if applicable.

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S X=X>0 I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(9002

196,103020,1,1,1.4)

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9002196,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= INTERNAL(CONTRACT TYPE)>0

CREATE VALUE)= CONTRACT NO.

DELETE VALUE)= NO EFFECT

FIELD)= #.02

Enter the ORDER NO. for this order.  This field is set internally by the system and should not be edited directly.

Enter the REQUISITION NO. for this request.  This is set automatically by the system and should not be edited directly.

Enter the name of the department which will act as the ISSUING OFFICE for this request.

Enter the STREET ADDRESS of the ISSUING OFFICE.

Enter additional street address information for this ISSUING OFFICE.

Enter the CITY in which the ISSUING OFFICE is located.

Enter the STATE in which the ISSUING OFFICE is located.

Enter the ZIP CODE for the ISSUING OFFICE.

Enter the name of the department where the items ordered should be SHIPPED TO.

1)= I $D(DA),DA,$D(^ACRDOC(DA,"PO")),$P(^("PO"),U,12) S ^ACRDOC("DI",$E(X,1,30),$P(^("PO"),U,12),DA)=""

2)= I $D(DA),DA,$D(^ACRDOC(DA,"PO")),$P(^("PO"),U,12) K ^ACRDOC("DI",$E(X,1,30),$P(^("PO"),U,12),DA)

3)= DO NOT DELETE

1)= I $E($G(^ACROBL(+$G(DA),"APV")))="A",$P($G(^("APV")),U,6)'=1 S ^ACRDOC("RL",$E(X,1,30),DA)=""

2)= K ^ACRDOC("RL",$E(X,1,30),DA)

3)= DO NOT DELETE

This sets the 'RL' x-ref depending on whether receiving action is needed for the document.

Enter the STREET ADDRESS of the SHIP TO department.

Enter additional street address information for the SHIP TO department.

Enter the CITY where the SHIP TO department is located.

Enter the STATE where the SHIP TO department is located.

Enter the ZIP CODE of the SHIP TO department.

Enter the first 2-3 letters of the CONTRACTOR/VENDOR's name,then press then select the correct vendor from the list.

1)= S ^ACRDOC("I",$E(X,1,30),DA)=""

2)= K ^ACRDOC("I",$E(X,1,30),DA)

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,5)):^(5),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9002196,103070,1,2,1.1) X ^DD(9002196,103070,1,2,1.4)

1.1)= S X=DIV S X=$S('$D(^AUTTVNDR(+DIV,0)):"",1:$P(^(0),U,1))

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),5)):^(5),1:""),DIV=X S $P(^(5),U,3)=DIV,DIH=9002196,DIG=103999 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE VALUE)= CONTRACTOR

DELETE VALUE)= NO EFFECT

FIELD)= #103999

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,5)):^(5),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(9002196,103070,1,3,1.4)

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),5)):^(5),1:""),DIV=X S $P(^(5),U,5)=DIV,DIH=9002196,DIG=103950 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE VALUE)= INTERNAL(#103070)

DELETE VALUE)= NO EFFECT

FIELD)= PAYEE

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,5)):^(5),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002196,103070,1,4,1.1) X ^DD(9002196,103070,1,4,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTVNDR(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P(Y(101),U,13) S D0=I(0,0)

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),5)):^(5),1:""),DIV=X S $P(^(5),U,7)=DIV,DIH=9002196,DIG=103997 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE VALUE)= CONTRACTOR:#1102.01

DELETE VALUE)= NO EFFECT

FIELD)= #103997

Enter the code which correctly identifies the TYPE OF ORDER for this request.

Enter a descriptive statement of any reference made in conjunction with this order.

Enter the name of the REQUESTING OFFICE which is initiating this order.

Enter the code which correctly identifies the BUSINESS CLASSIFICATION of the CONTRACTOR/VENDOR on this request.

Enter the FOB shipping point for this order.

Enter the name of the department which will act as the PLACE OF INSPECTION/ ACCEPTANCE of the goods or services ordered via this request.

Enter the GBL NO. associated with this order.

Enter the date by which items/services should be delivered.

1)= I $D(DA),DA,$D(^ACRDOC(DA,"POST")),+^("POST") S ^ACRDOC("DI",+^("POST"),$E(X,1,30),DA)=""

2)= I $D(DA),DA,$D(^ACRDOC(DA,"POST")),+^("POST") K ^ACRDOC("DI",+^("POST"),$E(X,1,30),DA)

3)= DO NOT DELETE

Describe the DISCOUNT TERMS applicable to this order.

Describe the SHIPPING POINT applicable to this order.

Enter the GROSS SHIPPING WEIGHT of item ordered if known.

Enter the INVOICE NO. which is received from the CONTRACTOR/VENDOR.

1)= S ^ACRDOC("L",$E(X,1,30),DA)=""

2)= K ^ACRDOC("L",$E(X,1,30),DA)

Cross reference to allow lookup of a document by the Vendor's INVOICE NO.

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)]"" I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"POST")):^("POST"),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(9002196,103200,1,2,1.4)

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"POST")):^("POST"),1:""),DIV=X S $P(^("POST"),U,8)=DIV,DIH=9002196,DIG=103811 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= INVOICE NO.]""

CREATE VALUE)= INVOICE NO.

DELETE VALUE)= NO EFFECT

FIELD)= ACH ADDENDUM

any applicable discounts.

Enter the date of the INVOICE which is found on the invoice.

Describe what mode the items should be SHIPPED VIA.

Enter the name of the department to which the INVOICE should be mailed.

TRIGGERED by the CAN NO. field of the FMS DOCUMENT File

Enter the STREET ADDRESS for the department to which the INVOICE should be mailed.

Enter additional STREET ADDRESS information for the department to which the INVOICE should be mailed.

Enter the CITY in which the department is located to which the INVOICE should be mailed.

Enter the STATE in which the department is located where the INVOICE should be mailed.

Enter the ZIP CODE of the department to which the INVOICE should be mailed.

This is set internally by the system and should not be edited directly.  This field contains a pointer to the individual who should sign to authorize the purchase order.

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.

Enter the Customer's account number.

Enter what the payment is for.

Enter the ACH ADDENDUM for this payment.

Enter the QUANTITY DISCOUNT PERCENTAGE which is applicable to this order for calculation of quantity discounts.

Enter the dollar threshold, if any, which the order must meet or exceed for the quantity discount to apply.

Enter the total quantity discount amount.

Enter the PROPERTY VOUCHER NO.

Enter the code which indicates the Federal Statute or Authority which covers this procurement.

This field contains a pointer to the VENDOR file and indicates the individual or company to which the payment should be made.

1)= S ^ACRDOC("I",$E(X,1,30),DA)=""

2)= K ^ACRDOC("I",$E(X,1,30),DA)

Enter the date the po should be completed by the purchasing agent.

Enter the name of the second vendor to be used for cost comparison.

Enter the name of the third vendor to be used for cost comparison.

Enter the name of the individual who will review this action for SADBUS compliance.

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.

Enter the vendor's ENTITY IDENTIFICATION NUMBER (TAX ID NUMBER.)

Enter the name of the individual who has the authority to audit the invoice for this Purchase Order.  This entry is set internally by the system and should not be edited directly.

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.

cross reference.

1)= S ^ACRDOC("J",$E(X,1,30),DA)=""

2)= K ^ACRDOC("J",$E(X,1,30),DA)

Enter the name of the department this request should be addressed to for processing.

Enter the code which identifies what this is a REQUEST FOR.

Enter the name of the department that is the REQUESTING ORGANIZATION for this request.

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,"PO")):^("PO"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(9002196,113030,1,1,1.4)

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"PO")):^("PO"),1:""),DIV=X S $P(^("PO"),U,7)=DIV,DIH=9002196,DIG=103100 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE VALUE)= #113030

DELETE VALUE)= NO EFFECT

FIELD)= #103100

Enter the LOCATION CODE for the CUSTODIAL AREA for this request.

Enter the DATE on which this request is being made.

Enter the summary OBJECT CLASS CODE for this request.

Enter the first 2-3 characters of the name of the person who should be contacted for questions regarding this request.

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.

Enter the complete phone number of the person who should be called for questions regarding this request.

This is a pointer to the APPROPRIATION NO. file.  This information is set internally by the system and should not be edited directly.

default values set in the ARMS CAN file for the CAN NO. entered here.  The CAN NO. entry is controlled by the system and should not be edited directly.

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,"FA")):^("FA"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002196,113100,1,1,1.1) X ^DD(9002196,113100,1,1,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),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(^ACRDOC(DIV(0),"FA")):^("FA"),1:""),DIV=X S $P(^("FA"),U,1)=DIV,DIH=9002196,DIG=10 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE VALUE)= CAN NO.:INTERNAL(#1000)

DELETE VALUE)= NO EFFECT

FIELD)= FUNDS AVAILABLE

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,"AU")):^("AU"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002196,113100,1,2,1.1) X ^DD(9002196,113100,1,2,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),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(^ACRDOC(DIV(0),"AU")):^("AU"),1:""),DIV=X S $P(^("AU"),U,1)=DIV,DIH=9002196,DIG=20 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE VALUE)= CAN NO.:INTERNAL(#1010)

DELETE VALUE)= NO EFFECT

FIELD)= REQUEST AUTHORIZED BY

1)= X ^DD(9002196,113100,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"POIO")):^("POIO"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002196,113100,1,3,1.1) X ^DD(9002196,113100,1,3,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,10),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=116

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"POIO")):^("POIO"),1:""),DIV=X S $P(^("POIO"),U,1)=DIV,DIH=9002196,DIG=103051 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=116

CREATE VALUE)= CAN NO.:INTERNAL(#1090)

DELETE VALUE)= NO EFFECT

FIELD)= ISSUING OFFICE

1)= X ^DD(9002196,113100,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"POST")):^("POST"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002196,113100,1,4,1.1) X ^DD(9002196,113100,1,4,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,11),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=116

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"POST")):^("POST"),1:""),DIV=X S $P(^("POST"),U,1)=DIV,DIH=9002196,DIG=103061 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=116

CREATE VALUE)= CAN NO.:INTERNAL(#1100)

DELETE VALUE)= NO EFFECT

FIELD)= SHIP TO

1)= X ^DD(9002196,113100,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"REQ")):^("REQ"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9002196,113100,1,5,1.1) X ^DD(9002196,113100,1,5,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,14),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=116

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"REQ")):^("REQ"),1:""),DIV=X S $P(^("REQ"),U,3)=DIV,DIH=9002196,DIG=113030 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=116

CREATE VALUE)= CAN NO.:INTERNAL(#1130)

DELETE VALUE)= NO EFFECT

FIELD)= REQUESTING OR

1)= X ^DD(9002196,113100,1,6,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"PO")):^("PO"),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9002196,113100,1,6,1.1) X ^DD(9002196,113100,1,6,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,16),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=116

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"PO")):^("PO"),1:""),DIV=X S $P(^("PO"),U,11)=DIV,DIH=9002196,DIG=103130 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=116

CREATE VALUE)= CAN NO.:INTERNAL(#1150)

DELETE VALUE)= NO EFFECT

FIELD)= PLACE OF IN

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,"POMI")):^("POMI"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002196,113100,1,7,1.1) X ^DD(9002196,113100,1,7,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,12),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=116

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"POMI")):^("POMI"),1:""),DIV=X S $P(^("POMI"),U,1)=DIV,DIH=9002196,DIG=103211 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=116

CREATE VALUE)= CAN NO.:INTERNAL(#1110)

DELETE VALUE)= NO EFFECT

FIELD)= #103211

1)= X ^DD(9002196,113100,1,8,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"REQ")):^("REQ"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002196,113100,1,8,1.1) X ^DD(9002196,113100,1,8,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,17),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=116

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"REQ")):^("REQ"),1:""),DIV=X S $P(^("REQ"),U,1)=DIV,DIH=9002196,DIG=113010 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=116

CREATE VALUE)= CAN NO.:INTERNAL(#1160)

DELETE VALUE)= NO EFFECT

FIELD)= TO

1)= X ^DD(9002196,113100,1,9,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"REQ")):^("REQ"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002196,113100,1,9,1.1) X ^DD(9002196,113100,1,9,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,18),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=116

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"REQ")):^("REQ"),1:""),DIV=X S $P(^("REQ"),U,7)=DIV,DIH=9002196,DIG=113070 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=116

CREATE VALUE)= CAN NO.:INTERNAL(#1170)

DELETE VALUE)= NO EFFECT

FIELD)= FOR REFERENCE CALL

1)= X ^DD(9002196,113100,1,10,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"REQ")):^("REQ"),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9002196,113100,1,10,1.1) X ^DD(9002196,113100,1,10,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,19),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=116

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"REQ")):^("REQ"),1:""),DIV=X S $P(^("REQ"),U,8)=DIV,DIH=9002196,DIG=113080 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=116

CREATE VALUE)= CAN NO.:INTERNAL(#1180)

DELETE VALUE)= NO EFFECT

FIELD)= EXTENSION

1)= X ^DD(9002196,113100,1,11,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"REQ1")):^("REQ1"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002196,113100,1,11,1.1) X ^DD(9002196,113100,1,11,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,13),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=116

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"REQ1")):^("REQ1"),1:""),DIV=X S $P(^("REQ1"),U,1)=DIV,DIH=9002196,DIG=113121 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=116

CREATE VALUE)= CAN NO.:INTERNAL(#1120)

DELETE VALUE)= NO EFFECT

FIELD)= DELIVER TO

1)= X ^DD(9002196,113100,1,12,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"REQ")):^("REQ"),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(9002196,113100,1,12,1.1) X ^DD(9002196,113100,1,12,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,15),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=116

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"REQ")):^("REQ"),1:""),DIV=X S $P(^("REQ"),U,12)=DIV,DIH=9002196,DIG=113160 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=116

CREATE VALUE)= CAN NO.:INTERNAL(#1140)

DELETE VALUE)= NO EFFECT

FIELD)= REQUESTED BY

1)= X ^DD(9002196,113100,1,13,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"REQ")):^("REQ"),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9002196,113100,1,13,1.1) X ^DD(9002196,113100,1,13,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,25),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=116

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"REQ")):^("REQ"),1:""),DIV=X S $P(^("REQ"),U,13)=DIV,DIH=9002196,DIG=113170 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=116

CREATE VALUE)= CAN NO.:INTERNAL(#1240)

DELETE VALUE)= NO EFFECT

FIELD)= REQUEST RECOMMENDED BY

1)= X ^DD(9002196,113100,1,14,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"REQ")):^("REQ"),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y X ^DD(9002196,113100,1,14,1.1) X ^DD(9002196,113100,1,14,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,24),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=116

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"REQ")):^("REQ"),1:""),DIV=X S $P(^("REQ"),U,14)=DIV,DIH=9002196,DIG=113180 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=116

CREATE VALUE)= CAN NO.:INTERNAL(#1230)

DELETE VALUE)= NO EFFECT

FIELD)= REQUEST APPROVED BY

1)= X ^DD(9002196,113100,1,15,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"REQ")):^("REQ"),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y X ^DD(9002196,113100,1,15,1.1) X ^DD(9002196,113100,1,15,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,20),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=116

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"REQ")):^("REQ"),1:""),DIV=X S $P(^("REQ"),U,15)=DIV,DIH=9002196,DIG=113190 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=116

CREATE VALUE)= CAN NO.:INTERNAL(#1190)

DELETE VALUE)= NO EFFECT

FIELD)= PROPER

1)= X ^DD(9002196,113100,1,16,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"REQ1")):^("REQ1"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002196,113100,1,16,1.1) X ^DD(9002196,113100,1,16,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,3),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=116

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"REQ1")):^("REQ1"),1:""),DIV=X S $P(^("REQ1"),U,6)=DIV,DIH=9002196,DIG=113200 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=116

CREATE VALUE)= CAN NO.:INTERNAL(#1020)

DELETE VALUE)= NO EFFECT

FIELD)= RECEIVING OFFICIAL

1)= X ^DD(9002196,113100,1,17,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"TO")):^("TO"),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(9002196,113100,1,17,1.1) X ^DD(9002196,113100,1,17,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,21),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=130

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"TO")):^("TO"),1:""),DIV=X S $P(^("TO"),U,12)=DIV,DIH=9002196,DIG=130060 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=130

CREATE VALUE)= CAN NO.:INTERNAL(#1200)

DELETE VALUE)= NO EFFECT

FIELD)= BUREAU

1)= X ^DD(9002196,113100,1,18,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"TO")):^("TO"),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y X ^DD(9002196,113100,1,18,1.1) X ^DD(9002196,113100,1,18,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:""),Y(101)=X S X=$P(Y(102),U,21),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=130!($P(^(0),U,1)=148)

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"TO")):^("TO"),1:""),DIV=X S $P(^("TO"),U,21)=DIV,DIH=9002196,DIG=130156 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=130!(REFERENCE CODE=148)

CREATE VALUE)= CAN NO.:INTERNAL(#1410)

DELETE VALUE)= NO EFFECT

FIELD)= #130156

1)= X ^DD(9002196,113100,1,19,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"TO")):^("TO"),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(9002196,113100,1,19,1.1) X ^DD(9002196,113100,1,19,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,4),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=130

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"TO")):^("TO"),1:""),DIV=X S $P(^("TO"),U,16)=DIV,DIH=9002196,DIG=130151 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=130

CREATE VALUE)= CAN NO.:INTERNAL(#1030)

DELETE VALUE)= NO EFFECT

FIELD)= TRAVEL RECOMMENDED BY

1)= X ^DD(9002196,113100,1,20,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"PA")):^("PA"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002196,113100,1,20,1.1) X ^DD(9002196,113100,1,20,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:""),Y(101)=X S X=$P(Y(102),U,25),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=148

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"PA")):^("PA"),1:""),DIV=X S $P(^("PA"),U,1)=DIV,DIH=9002196,DIG=.2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=148

CREATE VALUE)= CAN NO.:INTERNAL(#1450)

DELETE VALUE)= NO EFFECT

FIELD)= #.2

1)= X ^DD(9002196,113100,1,21,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"TOAU")):^("TOAU"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002196,113100,1,21,1.1) X ^DD(9002196,113100,1,21,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:""),Y(101)=X S X=$P(Y(102),U,3),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=130

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"TOAU")):^("TOAU"),1:""),DIV=X S $P(^("TOAU"),U,2)=DIV,DIH=9002196,DIG=130154 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=130

CREATE VALUE)= CAN NO.:INTERNAL(#1250)

DELETE VALUE)= NO EFFECT

FIELD)= TRAVEL AUTHORIZED BY

1)= X ^DD(9002196,113100,1,22,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"POMI")):^("POMI"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002196,113100,1,22,1.1) X ^DD(9002196,113100,1,22,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT2")):^("DFLT2"),1:""),Y(101)=X S X=$P(Y(102),U,1),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=148

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"POMI")):^("POMI"),1:""),DIV=X S $P(^("POMI"),U,1)=DIV,DIH=9002196,DIG=103211 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=148

CREATE VALUE)= #113100:INTERNAL(#1460)

DELETE VALUE)= NO EFFECT

FIELD)= MAIL INVOICE TO

1)= X ^DD(9002196,113100,1,23,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"TRNG")):^("TRNG"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9002196,113100,1,23,1.1) X ^DD(9002196,113100,1,23,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(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.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=148

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"TRNG")):^("TRNG"),1:""),DIV=X S $P(^("TRNG"),U,3)=DIV,DIH=9002196,DIG=148040 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=148

CREATE VALUE)= CAN NO.:INTERNAL(#.13)

DELETE VALUE)= NO EFFECT

FIELD)= ORGANIZATION

1)= X ^DD(9002196,113100,1,24,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"TRNG")):^("TRNG"),1:"") S X=$P(Y(1),U,26),X=X S DIU=X K Y X ^DD(9002196,113100,1,24,1.1) X ^DD(9002196,113100,1,24,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,5),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=148

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"TRNG")):^("TRNG"),1:""),DIV=X S $P(^("TRNG"),U,26)=DIV,DIH=9002196,DIG=148260 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=148

CREATE VALUE)= CAN NO.:INTERNAL(#1040)

DELETE VALUE)= NO EFFECT

FIELD)= INITIATING SUPERVISOR

1)= X ^DD(9002196,113100,1,25,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"TRNG4")):^("TRNG4"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002196,113100,1,25,1.1) X ^DD(9002196,113100,1,25,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,6),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=148

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"TRNG4")):^("TRNG4"),1:""),DIV=X S $P(^("TRNG4"),U,1)=DIV,DIH=9002196,DIG=148270 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=148

CREATE VALUE)= CAN NO.:INTERNAL(#1050)

DELETE VALUE)= NO EFFECT

FIELD)= CONCURRING OFFICIAL-1

1)= X ^DD(9002196,113100,1,26,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"TRNG4")):^("TRNG4"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002196,113100,1,26,1.1) X ^DD(9002196,113100,1,26,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,7),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=148

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"TRNG4")):^("TRNG4"),1:""),DIV=X S $P(^("TRNG4"),U,2)=DIV,DIH=9002196,DIG=148280 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=148

CREATE VALUE)= CAN NO.:INTERNAL(#1060)

DELETE VALUE)= NO EFFECT

FIELD)= CONCURRING OFFICIAL-2

1)= X ^DD(9002196,113100,1,27,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"TRNG4")):^("TRNG4"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9002196,113100,1,27,1.1) X ^DD(9002196,113100,1,27,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,8),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=148

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"TRNG4")):^("TRNG4"),1:""),DIV=X S $P(^("TRNG4"),U,3)=DIV,DIH=9002196,DIG=148290 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=148

CREATE VALUE)= CAN NO.:INTERNAL(#1070)

DELETE VALUE)= NO EFFECT

FIELD)= TRAINING APPROVED BY

1)= X ^DD(9002196,113100,1,28,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"TRNG4")):^("TRNG4"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9002196,113100,1,28,1.1) X ^DD(9002196,113100,1,28,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,9),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=148

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"TRNG4")):^("TRNG4"),1:""),DIV=X S $P(^("TRNG4"),U,4)=DIV,DIH=9002196,DIG=148300 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=148

CREATE VALUE)= CAN NO.:INTERNAL(#1080)

DELETE VALUE)= NO EFFECT

FIELD)= REVIEWING

1)= X ^DD(9002196,113100,1,29,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"TRNG4")):^("TRNG4"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002196,113100,1,29,1.1) X ^DD(9002196,113100,1,29,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:""),Y(101)=X S X=$P(Y(102),U,4),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=148

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"TRNG4")):^("TRNG4"),1:""),DIV=X S $P(^("TRNG4"),U,5)=DIV,DIH=9002196,DIG=148310 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=148

CREATE VALUE)= CAN NO.:INTERNAL(#1260)

DELETE VALUE)= NO EFFECT

FIELD)= TRAINING AUTHORIZED BY

1)= X ^DD(9002196,113100,1,30,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"REQ")):^("REQ"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9002196,113100,1,30,1.1) X ^DD(9002196,113100,1,30,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,7),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=116

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"REQ")):^("REQ"),1:""),DIV=X S $P(^("REQ"),U,4)=DIV,DIH=9002196,DIG=113040 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=116

CREATE VALUE)= CAN NO.:INTERNAL(#.06)

DELETE VALUE)= NO EFFECT

FIELD)= CUSTODIAL AREA

1)= X ^DD(9002196,113100,1,31,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"TO")):^("TO"),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y X ^DD(9002196,113100,1,31,1.1) X ^DD(9002196,113100,1,31,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:""),Y(101)=X S X=$P(Y(102),U,22),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=130

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"TO")):^("TO"),1:""),DIV=X S $P(^("TO"),U,24)=DIV,DIH=9002196,DIG=130159 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=130

CREATE VALUE)= CAN NO.:INTERNAL(#1420)

DELETE VALUE)= NO EFFECT

FIELD)= #130159

1)= X ^DD(9002196,113100,1,32,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"TRNG")):^("TRNG"),1:"") S X=$P(Y(1),U,25),X=X S DIU=X K Y X ^DD(9002196,113100,1,32,1.1) X ^DD(9002196,113100,1,32,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(102)=$S($D(^AUTTCAN(D0,"DFLT1")):^("DFLT1"),1:""),Y(101)=X S X=$P(Y(102),U,7),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=148

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"TRNG")):^("TRNG"),1:""),DIV=X S $P(^("TRNG"),U,25)=DIV,DIH=9002196,DIG=148250 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=148

CREATE VALUE)= CAN NO.:INTERNAL(#1081)

DELETE VALUE)= NO EFFECT

FIELD)= TRAINING FUNDS

1)= X ^DD(9002196,113100,1,33,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"TO")):^("TO"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002196,113100,1,33,1.1) X ^DD(9002196,113100,1,33,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:""),Y(101)=X S X=$P(Y(102),U,9),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=130

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"TO")):^("TO"),1:""),DIV=X S $P(^("TO"),U,1)=DIV,DIH=9002196,DIG=130010 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=130

CREATE VALUE)= CAN NO.:INTERNAL(#1033)

DELETE VALUE)= NO EFFECT

FIELD)= #130010

1)= X ^DD(9002196,113100,1,34,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"TRNG")):^("TRNG"),1:"") S X=$P(Y(1),U,25),X=X S DIU=X K Y X ^DD(9002196,113100,1,34,1.1) X ^DD(9002196,113100,1,34,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:""),Y(101)=X S X=$P(Y(102),U,7),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=148

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"TRNG")):^("TRNG"),1:""),DIV=X S $P(^("TRNG"),U,25)=DIV,DIH=9002196,DIG=148250 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=148

CREATE VALUE)= CAN NO.:INTERNAL(#1081)

DELETE VALUE)= NO EFFECT

FIELD)= TRAINING FUNDS AVAILABLE SIG

1)= X ^DD(9002196,113100,1,35,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"PO")):^("PO"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002196,113100,1,35,1.1) X ^DD(9002196,113100,1,35,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT")):^("DFLT"),1:""),Y(101)=X S X=$P(Y(102),U,26),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=116

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"PO")):^("PO"),1:""),DIV=X S $P(^("PO"),U,6)=DIV,DIH=9002196,DIG=103080 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=116

CREATE VALUE)= CAN NO.:INTERNAL(#1290)

DELETE VALUE)= NO EFFECT

FIELD)= TYPE OF DELIVERY

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,"REQ1")):^("REQ1"),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(9002196,113100,1,36,1.1) X ^DD(9002196,113100,1,36,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:""),Y(101)=X S X=$P(Y(102),U,11),X=X S X=X S D0=I(0,0)

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"REQ1")):^("REQ1"),1:""),DIV=X S $P(^("REQ1"),U,10)=DIV,DIH=9002196,DIG=113230 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(^ACRDOC(D0,"REQ1")):^("REQ1"),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(9002196,113100,1,36,2.1) X ^DD(9002196,113100,1,36,2.4)

2.1)= S X=DIV X ^DD(9002196,113100,1,36,59.2) S Y(101)=X S X=$P(Y(102),U,11),X=X S X=X S D0=I(0,0)

2.4)= S DIH=$S($D(^ACRDOC(DIV(0),"REQ1")):^("REQ1"),1:""),DIV=X S $P(^("REQ1"),U,10)=DIV,DIH=9002196,DIG=113230 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRDOC(D0,"REQ")):^("REQ"),1:""),D0=$P(Y(1),U,10) S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:"")

CREATE VALUE)= CAN NO.:INTERNAL(#1310)

DELETE VALUE)= CAN NO.:INTERNAL(#1310)

FIELD)= #113230

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,"REQ2")):^("REQ2"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9002196,113100,1,37,1.1) X ^DD(9002196,113100,1,37,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),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(^ACRDOC(DIV(0),"REQ2")):^("REQ2"),1:""),DIV=X S $P(^("REQ2"),U,4)=DIV,DIH=9002196,DIG=113330 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(^ACRDOC(D0,"REQ2")):^("REQ2"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(9002196,113100,1,37,2.4)

2.4)= S DIH=$S($D(^ACRDOC(DIV(0),"REQ2")):^("REQ2"),1:""),DIV=X S $P(^("REQ2"),U,4)=DIV,DIH=9002196,DIG=113330 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

CREATE VALUE)= CAN NO.:INTERNAL(#1330)

DELETE VALUE)= @

FIELD)= #113330

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,"REQ1")):^("REQ1"),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y X ^DD(9002196,113100,1,38,1.1) X ^DD(9002196,113100,1,38,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:""),Y(101)=X S X=$P(Y(102),U,14),X=X S X=X S D0=I(0,0)

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"REQ1")):^("REQ1"),1:""),DIV=X S $P(^("REQ1"),U,14)=DIV,DIH=9002196,DIG=113270 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE VALUE)= #113100:INTERNAL(#1340)

DELETE VALUE)= NO EFFECT

FIELD)= #113270

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9002196,113100,1,39,1.1) X ^DD(9002196,113100,1,39,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:""),Y(101)=X S X=$P(Y(102),U,15),X=X S X=X S D0=I(0,0)

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=9002196,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE VALUE)= CAN NO.:INTERNAL(#1350)

DELETE VALUE)= NO EFFECT

FIELD)= #.08

1)= X ^DD(9002196,113100,1,40,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"REQ2")):^("REQ2"),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9002196,113100,1,40,1.1) X ^DD(9002196,113100,1,40,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:""),Y(101)=X S X=$P(Y(102),U,20),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=116

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"REQ2")):^("REQ2"),1:""),DIV=X S $P(^("REQ2"),U,11)=DIV,DIH=9002196,DIG=113400 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=116

CREATE VALUE)= #113100:INTERNAL(#1400)

DELETE VALUE)= NO EFFECT

FIELD)= #113400

1)= X ^DD(9002196,113100,1,41,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"POIO")):^("POIO"),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9002196,113100,1,41,1.1) X ^DD(9002196,113100,1,41,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:""),Y(101)=X S X=$P(Y(102),U,23),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=116

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"POIO")):^("POIO"),1:""),DIV=X S $P(^("POIO"),U,8)=DIV,DIH=9002196,DIG=103998 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=116

CREATE VALUE)= CAN NO.:INTERNAL(#1430)

DELETE VALUE)= NO EFFECT

FIELD)= #103998

Triggers the name of the INVOICE AUDITOR from the CAN DEFAULTS into the document.

1)= X ^DD(9002196,113100,1,42,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"REQ2")):^("REQ2"),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9002196,113100,1,42,1.1) X ^DD(9002196,113100,1,42,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:""),Y(101)=X S X=$P(Y(102),U,20),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(9002196,113100,1,42,69.2) S X=$S('$D(^VA(200,+$P(Y(101),U,20),0)):"",1:$P(^(0),U,1))]"" S D0=I(0,0)

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"REQ2")):^("REQ2"),1:""),DIV=X S $P(^("REQ2"),U,11)=DIV,DIH=9002196,DIG=113400 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

69.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=Y(0) S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:"")

CREATE CONDITION)= #113100:#1400]""

CREATE VALUE)= #113100:INTERNAL(#1400)

DELETE VALUE)= NO EFFECT

FIELD)= #113400

1)= X ^DD(9002196,113100,1,43,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"REQ2")):^("REQ2"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9002196,113100,1,43,1.1) X ^DD(9002196,113100,1,43,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:""),Y(101)=X S X=$P(Y(102),U,17),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(9002196,113100,1,43,69.2) S X=$S('$D(^VA(200,+$P(Y(101),U,17),0)):"",1:$P(^(0),U,1))]"" S D0=I(0,0)

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"REQ2")):^("REQ2"),1:""),DIV=X S $P(^("REQ2"),U,7)=DIV,DIH=9002196,DIG=113360 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

69.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=Y(0) S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:"")

CREATE CONDITION)= #113100:#1370]""

CREATE VALUE)= #113100:INTERNAL(#1370)

DELETE VALUE)= NO EFFECT

FIELD)= #113360

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,"FA")):^("FA"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002196,113100,1,44,1.1) X ^DD(9002196,113100,1,44,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:""),Y(101)=X S X=$P(Y(102),U,8),X=X S X=X S D0=I(0,0)

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"FA")):^("FA"),1:""),DIV=X S $P(^("FA"),U,2)=DIV,DIH=9002196,DIG=11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE VALUE)= #113100:INTERNAL(#1032)

DELETE VALUE)= NO EFFECT

FIELD)= #11

1)= X ^DD(9002196,113100,1,45,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"TO")):^("TO"),1:"") S X=$P(Y(1),U,27),X=X S DIU=X K Y X ^DD(9002196,113100,1,45,1.1) X ^DD(9002196,113100,1,45,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:""),Y(101)=X S X=$P(Y(102),U,24),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=130

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"TO")):^("TO"),1:""),DIV=X S $P(^("TO"),U,27)=DIV,DIH=9002196,DIG=130171 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=130

CREATE VALUE)= #113100:INTERNAL(#1440)

DELETE VALUE)= NO EFFECT

FIELD)= #130171

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,"TRNG4")):^("TRNG4"),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y X ^DD(9002196,113100,1,46,1.1) X ^DD(9002196,113100,1,46,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT2")):^("DFLT2"),1:""),Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=148

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"TRNG4")):^("TRNG4"),1:""),DIV=X S $P(^("TRNG4"),U,15)=DIV,DIH=9002196,DIG=148360 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=148

CREATE VALUE)= CAN NO.:INTERNAL(#1470)

DELETE VALUE)= NO EFFECT

FIELD)= #148360

1)= X ^DD(9002196,113100,1,47,1.3) I X S X=DIV S Y(1)=$S($D(^ACRDOC(D0,"PA")):^("PA"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002196,113100,1,47,1.1) X ^DD(9002196,113100,1,47,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRCAN(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRCAN(D0,"DFLT1")):^("DFLT1"),1:""),Y(101)=X S X=$P(Y(102),U,25),X=X S X=X S D0=I(0,0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRDOC(D0,0)):^(0),1:"") S X=$S('$D(^AUTTDOCR(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=148

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"PA")):^("PA"),1:""),DIV=X S $P(^("PA"),U,1)=DIV,DIH=9002196,DIG=.2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= REFERENCE CODE=148

CREATE VALUE)= CAN NO.:INTERNAL(#1450)

DELETE VALUE)= NO EFFECT

FIELD)= #.2

Enter the DATE on or before which you request to receive the goods or services ordered on this request.

1)= I X S X1=X,X2=$P(^ACRDOC(DA,"REQ"),U,5) D ^%DTC S $P(^ACRDOC(DA,"DT"),U,4)=$S(X>29:"R",X>15:"P",1:"E")

2)= Q

Sets the priority of the request according to the amount of time between the initiation of the request and the date the items are required.

Enter the name of the department the goods or services should be DELIVERED TO.

Enter the STREET ADDRESS of the DELIVER TO department.

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,"POST")):^("POST"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(9002196,113122,1,1,1.4)

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"POST")):^("POST"),1:""),DIV=X S $P(^("POST"),U,2)=DIV,DIH=9002196,DIG=103062 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE VALUE)= #113122

DELETE VALUE)= NO EFFECT

FIELD)= #103062

Enter additional STREET ADDRESS information for the DELIVER TO department.

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,"POST")):^("POST"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(9002196,113123,1,1,1.4)

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"POST")):^("POST"),1:""),DIV=X S $P(^("POST"),U,3)=DIV,DIH=9002196,DIG=103063 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE VALUE)= #113123

DELETE VALUE)= NO EFFECT

FIELD)= #103063

Enter the CITY where the DELIVER TO department is located.

Enter the STATE in which the DELIVER TO department is located.

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,"POST")):^("POST"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(9002196,113125,1,1,1.4)

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"POST")):^("POST"),1:""),DIV=X S $P(^("POST"),U,5)=DIV,DIH=9002196,DIG=103065 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE VALUE)= INTERNAL(#113125)

DELETE VALUE)= NO EFFECT

FIELD)= #103065

Enter the ZIP CODE for the DELIVER TO department.

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRDOC(D0,"POST")):^("POST"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(9002196,113126,1,1,1.4)

1.4)= S DIH=$S($D(^ACRDOC(DIV(0),"POST")):^("POST"),1:""),DIV=X S $P(^("POST"),U,6)=DIV,DIH=9002196,DIG=103066 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE VALUE)= #113126

DELETE VALUE)= NO EFFECT

FIELD)= #103066

Enter the name of the individual who is making this request.  This is set internally by the system based on the setup defaults but can be edited if the name should be changed.

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.

TRIGGERED by the TRAVEL REQUESTED BY field of the FMS DOCUMENT File