Routine: ENFAUTL

Package	Total	Call Graph
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
VA FileMan	2	(,DD)^%DT ^DIR

Package	Total	Caller Graph
Engineering	31	ENARG2 ENEQ3 ENEQ4 ENEQMED ENEQTD ENFAACQ ENFABETR ENFACHG ENFACHG1 ENFACTL ENFACTR ENFACTS ENFACTT ENFACTU ENFADEL ENFAEIL ENFAR6 ENFAXFR ENFAXMT3 ENFAXMTM ENLIB3 ENTIDD ENX1IPS ENXIP57 ENXIP60 ENXIP71 ENXOIPS ENXOIPS1 ENXSIPS ^ENG(6914 ^ENG(6914.1
Equipment Turn-In Request	4	PRCNFAP PRCNTICM PRCNTIRQ PRCNTIWH

Entry Points

Name	Comments	DBIA/ICR reference
CHKFA(DA)	;X returned	ICR #1346 Status: Active Usage: Private ICR #6562 Status: Active Usage: Private
DEC(X)	;Add decimal points if necessary
DECDUN
CMRSTA	;Update STATION NUMBER in 6914 upon changes to 6914.1
RSLTS	;Summarize the outcome
DQ	;Print the FAP list
CMRXIT	; Exit CMRSTA
HD	;Report header
CC(STATION,CMR)	;Is putative STATION NUMBER consistent with CMR
CCDUN
DATE(TYPE)	;Get dates for FAP docs
DT
CMRCC(ENI)	; CMR (#6914.1) file COST CENTER computed field ; in ENI (ien of CMR)

External References

Name	Field # of Occurrence
^%DT	CMRSTA+3, DT
DD^%DT	CMRSTA+3
^%ZIS	RSLTS+10
HOME^%ZIS	RSLTS+14
^%ZTLOAD	RSLTS+14
^DIR	RSLTS+9, HD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Please bear with me as I attempt to update your Equipment File..." Line Location: CMRSTA+7
Function Call: WRITE	Prompt: !!,(EQ("COR")+EQ("UPDT")+EQ("FAP"))," Equipment Records were examined." Line Location: RSLTS+1
Function Call: WRITE	Prompt: !,EQ("COR")," were found to be correct as is." Line Location: RSLTS+2
Function Call: WRITE	Prompt: !,EQ("UPDT")," were updated." Line Location: RSLTS+3
Function Call: WRITE	Prompt: !,EQ("FAP")," have been sent to FAP under the old station number." Line Location: RSLTS+6
Function Call: WRITE	Prompt: !,"These ",EQ("FAP")," records can only be changed via FAP documents. You must",!,"do an FD, manually change the STATION NUMBER, and then do an FA." Line Location: RSLTS+7
Function Call: WRITE	Prompt: !,?10,I Line Location: DQ+5
Function Call: WRITE	Prompt: @IOF Line Location: HD+2
Function Call: WRITE	Prompt: "Equipment Not Updated at time of CMR STATION NUMBER change" Line Location: HD+4
Function Call: WRITE	Prompt: ?(IOM-10),"Page ",ENPG Line Location: HD+5
Function Call: WRITE	Prompt: !," because the Equipment was Reported to FAP." Line Location: HD+6
Function Call: WRITE	Prompt: !,"CMR: ",$P(^ENG(6914.1,CMR,0),U),?20,"New STATION NUMBER: ",STATION Line Location: HD+7
Function Call: WRITE	Prompt: !,"Date of change: ",DATE Line Location: HD+8
Function Call: WRITE	Prompt: !,ENL Line Location: HD+9
Function Call: WRITE	Prompt: !,$C(7),"Month is required." Line Location: DT+1
Routine Call	DIR Line Location: RSLTS+9 HD+1
Routine Call	%ZIS Line Location: RSLTS+10
Routine Call	%ZIS Line Location: RSLTS+14

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(6910 - [#6910]	CMRSTA+4
^ENG(6914 - [#6914]	CMRSTA+8, CMRSTA+9, CMRSTA+10, CMRSTA+13
^ENG(6914.1 - [#6914.1]	CMRSTA+5, HD+7, CMRCC+4
^ENG(6914.9 - [#6914.9]	CMRCC+5, CMRCC+6
^ENG(6915.2 - [#6915.2]	CHKFA+6, CHKFA+7, CMRSTA+12
^ENG(6915.5 - [#6915.5]	CHKFA+8, CHKFA+9

Label References

Name	Line Occurrences
$$CHKFA	CMRSTA+12
CCDUN	CC+1, CC+3
CMRXIT	RSLTS+4, RSLTS+15
DECDUN	DEC+4, DEC+5, DEC+6, DEC+7
DT	DT+1
HD	DQ+3, DQ+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	CMRSTA+3, DATE+2
>> %DT("A"	DATE+2*
>> %ZIS	RSLTS+10*
CMR	CMRSTA+2~, CMRSTA+5*, CMRSTA+8, HD+7, CC~, CC+2
DA	CHKFA~, CHKFA+6, CHKFA+8, CMRSTA+5
DATE	CMRSTA+2~, CMRSTA+3*, HD+8
DIR	RSLTS+9!, HD+1!
DIR("A"	RSLTS+8*
DIR("B"	RSLTS+8*
DIR(0	RSLTS+8, HD+1
>> DIRUT	RSLTS+9
ENCC	CMRCC+2~, CMRCC+3, CMRCC+6, CMRCC+7
END	DQ+1~, DQ+3, DQ+4, HD+1
>> ENFAP("DT"	DT, DT+3
ENI	CMRCC~, CMRCC+4
ENL	DQ+1~, DQ+3*, HD+9
ENPG	DQ+1~, DQ+3, HD+1, HD+2, HD+3, HD+5
ENX	CMRCC+2~, CMRCC+4*, CMRCC+5
ENX(0	CMRCC+5*, CMRCC+6
EQ	CMRSTA+2~
EQ(	DQ+6
EQ("COR"	CMRSTA+6, CMRSTA+11, RSLTS+1, RSLTS+2
EQ("FAP"	CMRSTA+6, CMRSTA+12, RSLTS+1, RSLTS+4, RSLTS+6, RSLTS+7, RSLTS+8, RSLTS+15, DQ+4
EQ("LIST"	RSLTS+4, RSLTS+5, RSLTS+10, RSLTS+14*
EQ("UPDT"	CMRSTA+6, CMRSTA+10, CMRSTA+13*, RSLTS+1, RSLTS+3
FADA	CHKFA+5~, CHKFA+10*, CHKFA+11
FADT	CHKFA+5~, CHKFA+7*, CHKFA+10, CHKFA+11
FDDT	CHKFA+5~, CHKFA+9*, CHKFA+10, CHKFA+11
I	CMRSTA+2~, CMRSTA+8, CMRSTA+9, CMRSTA+10, CMRSTA+12, CMRSTA+13, RSLTS+13, DQ+4*, DQ+5, DQ+6
IO	DQ+2
IO("Q"	RSLTS+11
IOF	HD+2
IOM	DQ+3, HD+5
IOSL	DQ+6
IOST	HD+1, HD+2
J	CHKFA+5~, CHKFA+6, CHKFA+8
K	CHKFA+5~, CHKFA+6*, CHKFA+7, CHKFA+11
L	CHKFA+5~, CHKFA+8*, CHKFA+9
>> POP	RSLTS+10
STATION	CMRSTA+2~, CMRSTA+5*, CMRSTA+10, CMRSTA+11, CMRSTA+13, HD+7, CC~, CC+1, CC+2
STATION("DEF"	CMRSTA+4*, CMRSTA+10
STATION("EX"	CMRSTA+9*, CMRSTA+10, CMRSTA+11
TYPE	DATE~, DATE+2
U	CHKFA+7, CHKFA+9, CHKFA+11, CMRSTA+4, CMRSTA+5, CMRSTA+9, CMRSTA+10, CMRSTA+13, HD+7, CMRCC+6
X	CHKFA+5~, CHKFA+11, CHKFA+12, DEC~, DEC+3, DEC+4, DEC+5, DEC+6, DEC+7, CMRSTA+2~ , CMRSTA+3, CC+1~, CC+2, CC+3, CC+4*, CCDUN
X1	DEC+2~, DEC+7, DEC+8, CC+1~, CC+2, CC+3, CC+4
X2	DEC+2~, DEC+7, DEC+8, CC+1~, CC+2, CC+3, CC+4
Y	DEC+2~, DEC+4, DEC+5, DEC+6, DEC+7, DEC+8, DECDUN, CMRSTA+3, RSLTS+9, HD+1 , DT, DT+1, DT+2, DT+3
>> ZTDESC	RSLTS+12*
>> ZTRTN	RSLTS+12*
>> ZTSAVE(	RSLTS+13*
ZTSK	RSLTS+14!

Customize PDF page

Package: Engineering

Routine: ENFAUTL

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 35

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: