Routine: ACRFPERD

Information

ACRFPERD ;IHS/OIRM/DSD/THL,AEF - MANAGE UPDATE OF PER DIEM & LODGING RATES; [ 11/01/2001 9:44 AM ]

Source Information

Source file <ACRFPERD.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Commitment Register	2	(DIE,FILE)^ACRFDIC (CLOSE,HOST)^ACRFZIS

Entry Points

Name	Comments	DBIA/ICR reference
F1	;
EN
TEMP	;TEMPORARILY FILE GSA CITIES/COUNTIES WHICH DON'T MATCH CURRENT ARMS
UPPER	;CONVERT ALL LOWER CASE TO UPPER CASE ALPHAS
READ	;READ INDIVIDUAL RECORDS FROM THE GSA FILE
ACRX	;CONVERT EACH LINE INTO '^' DELIMITED STRING
CITY	;CHECK COUNTY FOR ASSOCIATED CITIES
UPDATE	;RESET NEW PER DIEM AND LODGING RATES
EN1	;
SET	;SET FIELDS FROM GSA RECORD
EXIT
DATE	;EVALUATE GSA DATE AND CHANGE TO FM
IMPORT	;READ GSA FILE AND IMPORT NEW LODGING AND PER DIEM RATES
OPEN	;OPEN GSA FILE
FIND	;FIND MATCH TO EXISTING ARMS ENTRY

External References

Name	Field # of Occurrence
DIE^ACRFDIC	UPDATE+5, F1+18
FILE^ACRFDIC	TEMP+7, CITY+7
CLOSE^ACRFZIS	EXIT+1
HOST^ACRFZIS	OPEN+3

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: 0 Variable: ACRX Line Location: READ+1
Function Call: WRITE	Prompt: "." Line Location: UPDATE+5
Function Call: WRITE	Prompt: " ",ACRCNTZ," ",ACRPDDA(2),! Line Location: F1+17
Function Call: WRITE	Prompt: !,"2ND VENDOR ADDED" Line Location: TEMP+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACRPD - [#9002193.9]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACRPD - [#9002193.9]	F1+4, F1+7, CITY+2, CITY+6*
^ACRPD("B"	FIND+1, F1+4, F1+7
^DIC(5 - [#5]	SET+4, SET+6

Label References

Name	Line Occurrences
ACRX	SET+1
CITY	UPDATE+6
DATE	SET+18
EN1	EN
F1	FIND+2
FIND	SET+21
IMPORT	EN1+2
OPEN	IMPORT+1
SET	READ+1
TEMP	FIND+1, F1+10
UPDATE	FIND+3
UPPER	SET+3

Naked Globals

Name	Field # of Occurrence
^(0	F1+4, F1+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %FN	OPEN+1*
A	DATE+1~, DATE+7*, DATE+8, DATE+9
ACR	EXIT!
>> ACRBEGIN(	SET+17, UPDATE+4, DATE+2, DATE+3, DATE+4, DATE+10
>> ACRCITY	SET+19*, CITY+1
ACRCNTY	EXIT!, SET+20*, SET+21
ACRCNTZ	EXIT!, SET+21, FIND+1, F1+4, F1+5, F1+7, F1+9, F1+13*, F1+16, F1+17 , TEMP+2
ACREFFCT	EXIT!, EN1+1*, UPDATE+4
>> ACREND(	UPDATE+4, DATE+2, DATE+11
>> ACRI	SET+21*
>> ACRJ	UPDATE+1*, UPDATE+2, UPDATE+4, UPDATE+5
>> ACRLDG(	SET+15*, UPDATE+4, UPDATE+5
ACRMIE	EXIT!
ACRMIE(	SET+16*, UPDATE+4, UPDATE+5
>> ACROP	OPEN+2*
ACROUT	EXIT!, IMPORT+2
>> ACRPD	SET+7*, SET+8, SET+9, SET+10, SET+12
>> ACRPD(	SET+15, SET+16, SET+17
>> ACRPD(1	SET+9, SET+12
>> ACRPD(2	SET+10, SET+13, F1+8
ACRPDDA	UPDATE+2, F1+1!, F1+3, F1+4, F1+6, F1+7*, CITY+2, CITY+3, CITY+5, CITY+6
ACRPDDA(	UPDATE+1, UPDATE+2, F1+4, F1+7
ACRPDDA(2	F1+8, F1+12*, F1+17
ACRQUIT	EXIT!, IMPORT+2
>> ACRSTATE	SET+5*, SET+6
>> ACRSTDA	SET+6*, F1+4, F1+7, TEMP+5
>> ACRX	READ+1, SET+2, SET+4, SET+5, SET+7, SET+19, SET+20, UPPER+1, ACRX+3, ACRX+4*
>> DA	UPDATE+2, F1+14
>> DA(1	CITY+5*
>> DIC	TEMP+3, CITY+3
>> DIC("DR"	TEMP+5*
>> DIC(0	TEMP+4, CITY+4
>> DIE	UPDATE+3, F1+15
>> DR	UPDATE+4, F1+16
I	SET+14, SET+15, SET+16, SET+17, F1+2~, F1+3, F1+4, F1+6, F1+7, DATE+2 , DATE+3, DATE+4, DATE+10, DATE+11, CITY+1
IO	READ+1
J	ACRX+1~, ACRX+3*
>> POP	IMPORT+2
U	SET+2, SET+4, SET+5, SET+7, SET+9, SET+10, SET+15, SET+16, SET+17, SET+19 , SET+20, F1+4, F1+7, ACRX+3
W	DATE+1~, DATE+3, DATE+5, DATE+6, DATE+8*, DATE+10
X	SET+21, TEMP+2, ACRX+1~, ACRX+3, DATE+1~, DATE+4, DATE+5, DATE+6, DATE+9, DATE+11 , CITY+1*, CITY+2
Y	F1+11, F1+12, F1+14, DATE+1~, DATE+5*, DATE+10
Z	ACRX+1~, ACRX+2, ACRX+3, ACRX+4, DATE+1~, DATE+5*, DATE+11

Customize PDF page

Package: Commitment Register

Routine: ACRFPERD

Call Graph Total: 2