Routine: ACRFHM

Information

ACRFHM ;IHS/DSD/THL,AEF - QUERY ARMS/DHR FOR AMOUNTS SPENT; [ 10/27/2004 4:18 PM ]

Source file <ACRFHM.m>

Package	Total	Call Graph
Commitment Register	4	(DIC,DIR)^ACRFDIC OC^ACRFSOF $$ARMSDIR^ACRFSYS (,HOST)^ACRFZIS
Kernel	1	^%ZISC

Name	Comments	DBIA/ICR reference
ALL	;
LOCSSA	;REPORT BY LOCATION OR SUB-SUB-ACTIVITY
ZIS	;SELECT PRINTER
SSALOC	;WITHIN LOCATION OR SUB-SUB-ACTIVITY SHOULD REPORT BE SORTED BY THE
FY	;DETERMINE FISCAL YEAR
S1
OBJCODE	;REPORT FOR ALL OR SELECTED OBJECT CODES
BACK	; SWITCH CONTROL VARIABLES BACK TO THEIR ORIGINAL VALUES
SPECIFIC	;SELECT THE ENTITIES FOR THE REPORT
EN1	;
EN
EXIT
LOCATION	;SELECT SPECIFIC LOCATIONS
L1
PRINT	;EP;TO PRINT THE ARMS-DHR INQUIRY REPORT
IMPORT	;EP;TO IMPORT HAS DATA
SSA	;SELECT SPECIFIC SUB-SUB-ACTIVITIES

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: FY+4
Function Call: WRITE	Prompt: ! Line Location: LOCSSA+5
Function Call: WRITE	Prompt: !!,"Do you want the report" Line Location: OBJCODE+1
Function Call: WRITE	Prompt: ! Line Location: SSALOC+6
Function Call: WRITE	Prompt: ! Line Location: ALL+5
Function Call: WRITE	Prompt: ! Line Location: L1+4
Function Call: WRITE	Prompt: ! Line Location: S1+4

FileNo	Call Tags
^AUTTSSA - [#9999999.56]	Classic Fileman Calls
^AUTTLCOD - [#9999999.66]	Classic Fileman Calls

Name	Field # of Occurrence
>> %FN	IMPORT+1*
ACR	EXIT!
ACR1	EXIT!, LOCSSA+8, SSALOC+3, SSALOC+11, SSALOC+13, BACK+1*, ALL+1, ALL+3, SPECIFIC+1
ACR1X	SSALOC+10~, SSALOC+11*, SSALOC+14, BACK+1
ACR2	EXIT!, LOCSSA+9, SSALOC+4, SSALOC+12, SSALOC+14, BACK+2*
ACR2X	SSALOC+10~, SSALOC+12*, SSALOC+13, BACK+2
ACRALL	EXIT!, LOCSSA+11, SSALOC+9, SSALOC+16, ALL+8, ALL+9*
ACROBJ	EXIT!
ACROBJDA	EXIT!
ACROCC	EXIT!
ACROCG	EXIT!
>> ACROP	IMPORT+2*
ACROUT	EXIT!, EN1+2, EN1+4, EN1+6, EN1+8, SSALOC+8, ALL+7, LOCATION+1, SSA+1
ACRQUIT	EXIT!, EN1+2, EN1+4, EN1+6, EN1+8, FY+6, LOCSSA+7, SSALOC+8, ALL+7, LOCATION+1 , LOCATION+2!, L1+6, SSA+1, SSA+2!, S1+6, IMPORT+4
>> ACRRTN	ZIS+1*
ACRX	EXIT!
>> DIC	L1, S1
>> DIC("A"	L1+2, L1+3, S1+2, S1+3
>> DIC(0	L1+1, S1+1
>> DIR("A"	FY+2, LOCSSA+2, LOCSSA+3, SSALOC+3, SSALOC+4, ALL+2, ALL+3*
>> DIR("B"	FY+3, LOCSSA+4, SSALOC+5, ALL+4
>> DIR(0	FY+1, LOCSSA+1, SSALOC+2, ALL+1
DT	FY+3
>> Y	FY+6, LOCSSA+7, LOCSSA+8, LOCSSA+9, SSALOC+9, ALL+8, L1+6, L1+7, S1+6, S1+7
>> ZTDESC	ZIS+2*
>> ZTRTN	ZIS+1*