Routine: ACRFIRS1

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Commitment Register	4	(RECORDC,RECORDF,RECORDT)^ACRFIRS0 (RECORDA,RECORDB)^ACRFIRS2 $$ARMSDIR^ACRFSYS ($$JDATE,$$UPPER,QUE)^ACRFUTL
Kernel	3	HOME^%ZIS ^%ZISC (CLOSE,OPEN)^%ZISH
VA Fileman	2	^DIC ^DIR
IHS VA Utilities	1	^XBKVAR

Package

Total

Call Graph

Commitment Register

(RECORDC,RECORDF,RECORDT)^ACRFIRS0 (RECORDA,RECORDB)^ACRFIRS2 $$ARMSDIR^ACRFSYS ($$JDATE,$$UPPER,QUE)^ACRFUTL

Kernel

HOME^%ZIS ^%ZISC (CLOSE,OPEN)^%ZISH

VA Fileman

^DIC ^DIR

IHS VA Utilities

^XBKVAR

Package	Total	Caller Graph
Commitment Register	1	ACRFIRS2

Package

Total

Caller Graph

Commitment Register

ACRFIRS2

Entry Points

External References

Name	Field # of Occurrence
HOME^%ZIS	EN+5, PRINT+4
^%ZISC	EN+26
CLOSE^%ZISH	UNIX+22
OPEN^%ZISH	HFS+5
RECORDC^ACRFIRS0	GET+26
RECORDF^ACRFIRS0	GET+28
RECORDT^ACRFIRS0	GET+30
RECORDA^ACRFIRS2	GET+21
RECORDB^ACRFIRS2	LOOP+79
$$ARMSDIR^ACRFSYS	UNIX+6
$$JDATE^ACRFUTL	HFS+4
$$UPPER^ACRFUTL	LOOP+37, LOOP+50, LOOP+58, LOOP+66
QUE^ACRFUTL	PRINT+9
^DIC	AREA+10
^DIR	STA+11, YEAR+11, ADDRESS+11
^XBKVAR	EN+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Working..." Line Location: GET+19
Function Call: WRITE	Prompt: *7," NO SUCH STATE",! Line Location: STA+16
Function Call: WRITE	Prompt: $G(^TMP("ACRZ",$J,"RECORD","T",I)) Line Location: UNIX+12
Function Call: WRITE	Prompt: $G(^TMP("ACRZ",$J,"RECORD","A",ACRAREA,I)) Line Location: UNIX+15
Function Call: WRITE	Prompt: $G(^TMP("ACRZ",$J,"RECORD","B",ACRAREA,ACRVEND0,J)) Line Location: UNIX+18
Function Call: WRITE	Prompt: $G(^TMP("ACRZ",$J,"RECORD","C",ACRAREA,I)) Line Location: UNIX+19
Function Call: WRITE	Prompt: $G(^TMP("ACRZ",$J,"RECORD","F",I)) Line Location: UNIX+20
Function Call: WRITE	Prompt: !!,"Records have been put into file "_ACRDIR_ACRFILE Line Location: UNIX+21
Function Call: WRITE	Prompt: !,"UNABLE TO OPEN FILE "_ACRFILE Line Location: HFS+8
Routine Call	%ZIS Line Location: EN+5 PRINT+4
Routine Call	DIC Line Location: AREA+10
Routine Call	DIR Line Location: STA+11 YEAR+11 ADDRESS+11

FileNo	Call Tags
^ACR1099P - [#9002198.3]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACR1099V - [#9002198.2]	LOOP+39, LOOP+43
^ACR1099V("C"	LOOP+36
^AUTTVNDR - [#9999999.11]	LOOP+37, LOOP+38, LOOP+47, LOOP+50, LOOP+58, LOOP+66
^DIC(5 - [#5]	LOOP+55, LOOP+63, LOOP+71, STA+15
^TMP("ACRZ"	EN+25!, GET+17!, LOOP+80, LOOP+81, UNIX+4, UNIX+12, UNIX+14, UNIX+15, UNIX+17, UNIX+18 , UNIX+19, UNIX+20

Name	Line Occurrences
ADDRESS	EN+16
AREA	EN+7
GET	EN+19
HFS	UNIX+9
LOOP	GET+24
PRINT	EN+23
STA	STA+16
STATE	EN+10
UNIX	EN+21
YEAR	EN+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DEV	UNIX+3~, UNIX+9, UNIX+11, UNIX+23!, HFS~, HFS+9*
ACRADD	LOOP+29~, LOOP+51, LOOP+59, LOOP+67*, LOOP+73, LOOP+79
ACRAMT	LOOP+29~, LOOP+43, LOOP+44, LOOP+45, LOOP+46, LOOP+78, LOOP+79, LOOP+80
ACRAMTCD	LOOP+29~, LOOP+40*, LOOP+42, LOOP+79
ACRAREA	EN+2~, EN+7, EN+8, EN+19, GET~, GET+21, GET+26, GET+30, AREA~, AREA+7* , AREA+13, UNIX+3~, UNIX+13, UNIX+14*, UNIX+15, UNIX+17, UNIX+18, UNIX+19
ACRCITY	LOOP+29~, LOOP+52, LOOP+60, LOOP+68*, LOOP+74, LOOP+79
ACRCNTA	GET+15~, GET+21, GET+28
ACRCNTB	GET+15~, GET+24, GET+26, GET+30, LOOP~, LOOP+35*, LOOP+79
ACRCNTR	GET+15~, GET+23*, GET+24, GET+26, GET+28, LOOP~, LOOP+79
ACRDIR	UNIX+3~, UNIX+6, UNIX+7, UNIX+8, UNIX+9, UNIX+21, HFS~, HFS+5
ACRFILE	UNIX+3~, UNIX+9, UNIX+21, HFS~, HFS+4*, HFS+5, HFS+8
>> ACRFOR	LOOP+41*, LOOP+79
ACRFSTN	EN+2~, EN+10, EN+19, EN+21, GET~, GET+24, LOOP~, LOOP+77, STATE~, STA+3* , STA+13, STA+14, STA+16!, HFS+4
ACRJ	PRINT+3~, PRINT+5*
ACRNAME	LOOP+29~, LOOP+37*, LOOP+79, LOOP+80
ACRPMYR	EN+2~, EN+13, EN+14, EN+19, EN+23, GET~, GET+21, GET+24, GET+30, LOOP~ , LOOP+36, LOOP+43, LOOP+79, PRINT~, YEAR~, YEAR+7, YEAR+13
ACRSADR	EN+2~, EN+16, EN+17, EN+19, GET~, GET+24, LOOP~, LOOP+49, LOOP+57, LOOP+65 , ADDRESS~, ADDRESS+7, ADDRESS+13
ACRSTA	EN+2~, EN+10, EN+11, EN+23, PRINT~, STATE~, STA+3, STA+13, STA+15, STA+16!
ACRSTAB	LOOP+29~, LOOP+55, LOOP+63, LOOP+71*, LOOP+75, LOOP+79
ACRSTAN	EN+2~, EN+10, EN+19, GET~, GET+24, LOOP~, LOOP+77, STATE~, STA+3, STA+15 , STA+16!
ACRSTN	UNIX~, UNIX+9, HFS~
ACRSTNO	LOOP+29~, LOOP+53, LOOP+54, LOOP+55, LOOP+61, LOOP+62, LOOP+63, LOOP+69, LOOP+70, LOOP+71 , LOOP+77
ACRTIN	LOOP+29~, LOOP+47*, LOOP+48, LOOP+79, LOOP+80
ACRTOT	GET+15~, GET+24, GET+26, LOOP~, LOOP+31!, LOOP+79
ACRTOT(	LOOP+33*
ACRTOTAL	LOOP+29~, LOOP+35, LOOP+78, LOOP+81
>> ACRV0	LOOP+39*, LOOP+40, LOOP+41
ACRVEND0	LOOP+29~, LOOP+35, LOOP+36, LOOP+37, LOOP+38, LOOP+39, LOOP+43, LOOP+47, LOOP+50, LOOP+58 , LOOP+66, LOOP+79, LOOP+80, UNIX+3~, UNIX+16, UNIX+17, UNIX+18
ACRZIP	LOOP+29~, LOOP+56, LOOP+64, LOOP+72*, LOOP+76, LOOP+79
ACRZOUT	UNIX+3~, UNIX+9, UNIX+10, HFS~, HFS+7*
DATA	LOOP+29~, LOOP+50, LOOP+51, LOOP+52, LOOP+53, LOOP+56, LOOP+58, LOOP+59, LOOP+60, LOOP+61 , LOOP+64, LOOP+66*, LOOP+67, LOOP+68, LOOP+69, LOOP+72
DIC	AREA+6~, AREA+8*, AREA+11!
DIC(0	AREA+9*
DIR	STA+2~, YEAR+6~, ADDRESS+6~
DIR("A"	STA+5, STA+6, STA+7, STA+8, STA+9, STA+10, YEAR+9, ADDRESS+9
DIR("B"	YEAR+10, ADDRESS+10
DIR(0	STA+4, YEAR+8, ADDRESS+8*
>> DIROUT	ADDRESS+12
>> DIRUT	STA+12, YEAR+12
DT	YEAR+10, HFS+4
>> DTOUT	AREA+12, STA+12, YEAR+12, ADDRESS+12
>> DUOUT	AREA+12, STA+12, YEAR+12, ADDRESS+12
I	LOOP+29~, LOOP+33, UNIX+3~, UNIX+12, UNIX+15, UNIX+19, UNIX+20*
IO	HFS+9
J	UNIX+3~, UNIX+18*
POP	HFS+3~, HFS+6
U	LOOP+37, LOOP+40, LOOP+41, LOOP+43, LOOP+47, LOOP+51, LOOP+52, LOOP+53, LOOP+55, LOOP+56 , LOOP+59, LOOP+60, LOOP+61, LOOP+63, LOOP+64, LOOP+67, LOOP+68, LOOP+69, LOOP+71, LOOP+72 , LOOP+80
X	AREA+6~, STA+2~, YEAR+6~, ADDRESS+6~, HFS+3~, NCTL~, NCTL+4, NCTL+5, NCTL+6
Y	AREA+6~, AREA+12, AREA+13, STA+2~, STA+12, STA+13, YEAR+6~, YEAR+12, YEAR+13, ADDRESS+6~ , ADDRESS+12, ADDRESS+13, HFS+3~
ZTSAVE	PRINT+3~, PRINT+9
ZTSAVE("ACRJ"	PRINT+6*
ZTSAVE("ACRPMYR"	PRINT+7*
ZTSAVE("ACRSTA"	PRINT+8*

Name	Comments	DBIA/ICR reference
EN	;EP -- MAIN ENTRY POINT
STA	;----- PROMPT LOOP
STATE(ACRSTA,ACRFSTN,ACRSTAN)
GET(ACRAREA,ACRPMYR,ACRSADR,ACRFSTN,ACRSTAN)
YEAR(ACRPMYR)
HFS(ACRDIR,ACRSTN,ACRZOUT,ACRFILE,%DEV)
UNIX(ACRSTN)
PRINT(ACRPMYR,ACRSTA)
ADDRESS(ACRSADR)
LOOP(ACRPMYR,ACRSADR,ACRFSTN,ACRSTAN,ACRTOT,ACRCNTB,ACRCNTR)
AREA(ACRAREA)
NCTL(X)	;EP -- NAME CONTROL - RETURNS FIRST 4 SIGNIFICANT CHARACTERS

Customize PDF page

Package: Commitment Register

Routine: ACRFIRS1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: