Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ACRFDFL1

ACRFDFL1.m

Go to the documentation of this file.
  1. ACRFDFL1 ;IHS/OIRM/DSD/THL,AEF - ACRFDFLT CON'T UTILITY ENTRY POINTS; [ 11/01/2001 9:44 AM ]
  1. ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
  1. ;;CONTINUATION ROUTINE FOR ACRFDFLT
  1. OBJCODE ;EP;TO ADD/EDIT OBJECT CLASS CODES
  1. N ACRDIR
  1. S ACRHEAD="EDIT OBJECT CLASS CODES"
  1. S ACRDIC="^AUTTOBJC"
  1. S ACRDIC("A")="OBJECT CLASS CODE...: "
  1. S ACRDR="[ACR OBJECT CODE]"
  1. S ACRDIR("A")="Edit Object Class Code"
  1. S ACRRTN="^ACRPOCC"
  1. D GEN^ACRFDFLT
  1. Q
  1. HOTEL ;EP;TO ADD/EDIT HOTEL INFORMATION
  1. N ACRDIR
  1. S ACRHEAD="EDIT HOTEL NAME/PHONE NUMBER"
  1. S ACRDIC="^ACRHOTEL"
  1. S ACRDIC("A")="HOTEL...............: "
  1. S ACRDR="[ACR HOTEL]"
  1. S ACRDIR("A")="Edit Hotel Name"
  1. S ACRRTN="^ACRPHOT"
  1. D GEN^ACRFDFLT
  1. Q
  1. CAR ;EP;TO ADD/EDIT RENTAL CAR INFORMATION
  1. N ACRDIR
  1. S ACRHEAD="EDIT RENTAL CAR COMPANY NAME/PHONE NUMBER"
  1. S ACRDIC="^ACRRCOMP"
  1. S ACRDIC("A")="RENTAL CAR COMPANY..: "
  1. S ACRDR="[ACR RENTAL CAR INFORMATION]"
  1. S ACRDIR("A")="Edit Rental Car Information"
  1. S ACRRTN="^ACRPCAR"
  1. D GEN^ACRFDFLT
  1. Q
  1. AIR ;EP;TO ADD/EDIT AIRLINE INFORMATION
  1. N ACRDIR
  1. S ACRHEAD="EDIT AIRLINE COMPANY NAME/PHONE NUMBER"
  1. S ACRDIC="^ACRACOMP"
  1. S ACRDIC("A")="AIRLINE COMPANY.....: "
  1. S ACRDR="[ACR AIRLINE COMPANY]"
  1. S ACRDIR("A")="Edit Airline Company Information"
  1. S ACRRTN="^ACRPAIR"
  1. D GEN^ACRFDFLT
  1. Q
  1. FEDSTRIP ;EP;TO ADD/EDIT FEDSTRIP INFORMATION
  1. N ACRDIR
  1. S ACRHEAD="EDIT FEDSTRIP ACTIVITY CODES"
  1. S ACRDIC="^ACRFSCD"
  1. S ACRDIC("A")="FEDSTRIP LOCATION...: "
  1. S ACRDR="[ACR FEDSTRIP LOCATION]"
  1. S ACRDIR("A")="Edit FEDSTRIP Location Information"
  1. S ACRRTN="^ACRPFSL"
  1. D GEN^ACRFDFLT
  1. Q
  1. BA ;EP;TO ENTER/UPDATE BUDGET ACTIVITY
  1. N ACRDIR
  1. S ACRHEAD="EDIT BUDGET ACTIVITY"
  1. S ACRDIC="^AUTTBA"
  1. S ACRDIC("A")="BUDGET ACTIVITY.....: "
  1. S ACRDR="[ACR BUDGET ACTIVITY]"
  1. S ACRDIR("A")="Edit Budget Activity"
  1. S ACRRTN="^ACRPBA"
  1. D GEN^ACRFDFLT
  1. Q
  1. SA ;EP;TO ENTER/UPDATE SUB-ACTIVITY
  1. N ACRDIR
  1. S ACRHEAD="EDIT SUB-ACTIVITY"
  1. S ACRDIC="^AUTTSA"
  1. S ACRDIC("A")="SUB-ACTIVITY........: "
  1. S ACRDR="[ACR SUB-ACTIVITY]"
  1. S ACRDIR("A")="Edit Sub-Activity"
  1. S ACRRTN="^ACRPSA"
  1. D GEN^ACRFDFLT
  1. Q
  1. SSA ;EP;TO ENTER/UPDATE SUB-SUB-ACTIVITY
  1. N ACRDIR
  1. S ACRHEAD="EDIT SUB-SUB-ACTIVITY"
  1. S ACRDIC="^AUTTSSA"
  1. S ACRDIC("A")="SUB-SUB-ACTIVITY....: "
  1. S ACRDR="[ACR SUB-SUB-ACTIVITY]"
  1. S ACRDIR("A")="Edit Sub-Sub-Activity"
  1. S ACRRTN="^ACRPSSA"
  1. D GEN^ACRFDFLT
  1. Q
  1. ALLW ;EP;TO ENTER/UPDATE ALLOWANCE
  1. N ACRDIR
  1. S ACRHEAD="EDIT ALLOWANCE NUMBER"
  1. S ACRDIC="^AUTTALLW"
  1. S ACRDIC("A")="ALLOWANCE NUMBER....: "
  1. S ACRDR="[ACR ALLOWANCE NUMBER]"
  1. S ACRDIR("A")="Edit Allowance"
  1. S ACRRTN="^ACRPALW"
  1. D GEN^ACRFDFLT
  1. Q
  1. ACPT ;EP;TO ENTER/UPDATE ACCOUNTING POINT
  1. N ACRDIR
  1. S ACRHEAD="EDIT ACCOUNTING POINT"
  1. S ACRDIC="^AUTTACPT"
  1. S ACRDIC("A")="ACCOUNTING POINT....: "
  1. S ACRDR=".01ACCOUNTING POINT....;1AREA OFFICE........."
  1. S ACRDIR("A")="Edit Accounting Point"
  1. S ACRRTN="^ACRPAPT"
  1. D GEN^ACRFDFLT
  1. Q
  1. LOC ;EP;TO ADD/EDIT LOCATION CODES
  1. N ACRDIR
  1. S ACRHEAD="EDIT LOCATION CODES"
  1. S ACRDIC="^AUTTLCOD"
  1. S ACRDIC("A")="LOCATION CODE.......: "
  1. S ACRDR="[ACR LOCATION CODE]"
  1. S ACRDIR("A")="Edit Location Code"
  1. S ACRRTN="^ACRPLCD"
  1. D GEN^ACRFDFLT
  1. Q
  1. FSC ;EP;TO EDIT FEDERAL SUPPLY CLASS CODES
  1. N ACRDIR
  1. S ACRHEAD="EDIT FEDERAL SUPPLY CLASS CODE"
  1. S ACRDIC="^ACRFSC"
  1. S ACRDIC("A")="FEDERAL SUPPLY CODE.: "
  1. S ACRDR="[ACR FEDERAL SUPPLY CLASSES]"
  1. S ACRDIR("A")="Edit Federal Supply Code"
  1. S ACRRTN="^ACRPFSC"
  1. D GEN^ACRFDFLT
  1. Q
  1. OBJC ;EP;ALLOW USER TO ADD OBJECT CODES TO SPECIFIC TRANSACTION TYPES
  1. W !!?4,"OBJECT CODE ",$P(^AUTTOBJC(ACRDA,0),U)," is used by the following ARMS TRANSACTION TYPES:"
  1. W !?4,"NO. TRANSACTION TYPE"
  1. W !?4,"--- ------------------------------"
  1. K ACRTX
  1. S (X,ACRJ)=0
  1. F S X=$O(^ACRTXTYP("C",ACRDA,X)) Q:'X D
  1. .S ACRJ=ACRJ+1
  1. .S ACRTX(ACRJ)=X
  1. .W !?4,ACRJ
  1. .W ?9,$P(^ACRTXTYP(X,0),U)
  1. Q
  1. TC ;EP;TO EDIT PO TERMS AND CONDITIONS
  1. W @IOF
  1. W !?20,"Review/Edit Puchase Order TERMS & CONDITIONS"
  1. W !!
  1. S DA=1
  1. S DIE="^ACRTC("
  1. S DR="[ACR TERMS AND CONDITIONS]"
  1. D DIE^ACRFDIC
  1. Q
  1. RESET ;EP;TO RESET CAN DEFAULTS FOR A DOCUMENT
  1. S DIC="^ACRDOC("
  1. S DIC(0)="AEMQZ"
  1. S DIC("A")="RESET CAN Defaults for Document NO.: "
  1. W !
  1. D DIC^ACRFDIC
  1. Q:+Y<1
  1. S ACRDOCDA=+Y
  1. W !!?10,$P(^ACRDOC(+Y,0),U),?$X+3,$P(^(0),U,2),?$X+3,$P(^(0),U,14)
  1. S DIR(0)="YO"
  1. S DIR("A",1)="Are you certain you want to RESET the"
  1. S DIR("A")="CAN Default values for this document"
  1. S DIR("B")="NO"
  1. W !
  1. D DIR^ACRFDIC
  1. Q:+Y'=1
  1. S DA=ACRDOCDA
  1. S DIE="^ACRDOC("
  1. S DR="113100////"_$P(^ACRDOC(DA,"REQ"),U,10)
  1. D DIE^ACRFDIC
  1. Q