Routine: ACRFUTL

Information

ACRFUTL ;IHS/OIRM/DSD/AEF - VARIOUS UTILITY SUBROUTINES [ 10/27/2004 4:17 PM ]

Source Information

Source file <ACRFUTL.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	3	^%ZIS $$OPEN^%ZISH ^%ZTLOAD
VA Fileman	2	(,NOW)^%DTC ^DIC
IHS VA Utilities	1	^XBKVAR

Caller Graph

Caller Graph Total: 78

Package	Total	Caller Graph
Commitment Register	75	ACR148 ACRCD1 ACRCD13 ACRF3542 ACRFACH ACRFAUD ACRFAUTO ACRFDHR ACRFDHR1 ACRFDHR5 ACRFDHRV ACRFEXP2 ACRFEXP3 ACRFEXP5 ACRFEXP6 ACRFEXPU ACRFFDH ACRFFDH2 ACRFFF2 ACRFFF3 ACRFFF4 ACRFFF5 ACRFIRS0 ACRFIRS1 ACRFIRS2 ACRFIRS6 ACRFIRS7 ACRFIRS9 ACRFIRSA ACRFIV11 ACRFIV12 ACRFIV13 ACRFIV43 ACRFNEWD ACRFODD ACRFODOC ACRFPAH ACRFPAPV ACRFPAY ACRFPAYL ACRFSPL3 ACRFSPL6 ACRFSSD1 ACRFSSU ACRFSYS ACRFT25H ACRFTRIG ACRFUFM2 ACRFUFMR ACRFUFMU ACRFUFMX ACRFUTL1 ACRFXPT ACRFZISH ACRPBPA ACRPEC ACRPOH ACRPPO ACRPPOA ACRPPOH ACRPQH ACRPRQT ACRPSH ACRPSS ACRPSTI ACRPTE ACRPTI ACRPTO ACRPTOH ACRPTOS ACRPTRG ACRPTV ACRPTVS ACRRR ACRRRH
NCR Financial System	3	AFSHARC0 AFSHEXU0 AFSLCK1

Entry Points

Name	Comments	DBIA/ICR reference
NOW()	;EP -- RETURNS CURRENT DATE/TIME
DEPT(X)	;EP -- RETURN INTERNAL DEPARTMENT ACCOUNT OF DOCUMENT ;ACR2.114.01 IM12272
ASKAP(ACRAP)
FY(X)	;EP -- CALCULATE FISCAL YEAR
TCMD(X,Y)
PAD(X,S,L,C)
AREA(X)	;EP -- RETURNS INTERNAL AREA SYSTEM FOR FMS SUPPLIES AND SERVICES FILE
DOC(X)	;EP -- CONVERT REQUISITION NUMBER
SLDATE(X)
JDATE()	;EP -- RETURNS TODAY'S JULIAN DATE
HFS(ZISH1,ZISH2,ZISH3,%FILE)	;EP ;
SYS(X)	;EP -- RETURNS FMS SYSTEM DEFAULTS ENTRY IEN FOR PURCHASING OFFICE
HOST()	;EP -- RETURNS HOST NAME ; ACR2.113.02 IM13574
EXPDN(X)	;EP -- RETURN EXPANDED DOCUMENT NUMBER - ACR2.114.01 IM12272
UPPER(X)	;EP -- CONVERT STRING TO UPPERCASE ;
QUE(ZTRTN,ZTSAVE,ZTDESC)
DOL(X)	;EP -- FORMAT DOLLAR AMOUNT ;
DOCYR(X)	;EP -- RETURN DOCUMENT YEAR - ACR2.114.01 IM12272
AP(X)	;EP; NEW SUB-ROUTINE ACR2.113.02
YEAR(X)	;EP -- RETURN 4 DIGIT YEAR OF DATE - ACR2.114.01 IM12272
REF(X)	;EP -- RETURN EXTERNAL DOCUMENT REFERENCE CODE ;ACR2.114.01 IM12272
JCMD(X,Y)
PSSN(X,DUZ,IOST,ACRSSNOK)

External References

Name	Field # of Occurrence
^%DTC	JDATE+6
NOW^%DTC	NOW+4
^%ZIS	QUE+5
$$OPEN^%ZISH	HFS+14
^%ZTLOAD	QUE+10
^DIC	ASKAP+8
^XBKVAR	JDATE+3, NOW+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Task #",$G(ZTSK)," queued" Line Location: QUE+11
Routine Call	DIC Line Location: ASKAP+8
Routine Call	%ZIS Line Location: QUE+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTTACPT - [#9999999.69]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UPPERCASE"	UPPER+2
^ACRCAN - [#9002186.5]	AREA+13, AREA+14, AREA+15
^ACRCLC - [#9002192.02]	EXPDN+33
^ACRDOC - [#9002196]	EXPDN+23, EXPDN+27, EXPDN+30, DOCYR+20, DOCYR+21, DEPT+10, REF+10
^ACRDOC("B"	EXPDN+38
^ACRLOCB - [#9002188]	DOCYR+19
^ACRPO - [#9002199.4]	SYS+7, SYS+8
^ACRSS - [#9002193]	AREA+12, AREA+13, AREA+14, AREA+15
^ACRSYS("B"	AREA+16
^ACRSYS(1	EXPDN+21, EXPDN+32
^AUTTACPT - [#9999999.69]	AREA+15, AP+4
^AUTTDOCR - [#9999999.63]	REF+11
^AUTTLCOD - [#9999999.66]	AREA+14, AREA+15
^AUTTSITE(1	HOST+3
^DD("DD"	NOW+6
^VA(200 - [#200]	PSSN+22
^XUSEC("ACRFZ SSN"	PSSN+21

Label References

Name	Line Occurrences
$$DEPT	DOCYR+19
$$DOCYR	EXPDN+35, EXPDN+36
$$FY	DOCYR+22
$$PAD	JDATE+8
$$REF	EXPDN+25
@(	QUE+12

Naked Globals

Name	Field # of Occurrence
^(1	PSSN+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NOW+2~, NOW+7
%FILE	HFS~, HFS+16*
%H	NOW+2~
%I	NOW+2~
%ZIS	QUE+3~, QUE+4*
ACRAP	ASKAP~, ASKAP+5, ASKAP+10
ACRSSNOK	PSSN~, PSSN+21
C	PAD~, PAD+14
DIC	ASKAP+4~, ASKAP+6*
DIC(0	ASKAP+7*
DT	JDATE+4, JDATE+5, NOW+5
>> DTOUT	ASKAP+9
>> DUOUT	ASKAP+9
DUZ	PSSN~, PSSN+21
IO	QUE+3~, HFS+16
IO("Q"	QUE+7, QUE+8!
IOM	QUE+9
ION	QUE+9
IOSL	QUE+9
IOST	QUE+9, PSSN~, PSSN+20
L	PAD~, PAD+8, PAD+11, PAD+13
MON	FY+4~, FY+5*, FY+8
POP	QUE+3~, QUE+6
S	PAD~, PAD+10, PAD+12
U	AREA+12, AREA+13, AREA+14, AREA+15, SYS+7, SYS+8, HOST+3, PSSN+22, AP+4, EXPDN+22 , EXPDN+24, EXPDN+26, EXPDN+27, EXPDN+30, EXPDN+32, EXPDN+33, DOCYR+19, DOCYR+20, DOCYR+21, DEPT+10 , REF+10, REF+11
X	PAD~, PAD+8, PAD+9, PAD+11, PAD+13, PAD+14, PAD+15, PAD+16, AREA~, AREA+12* , AREA+13, AREA+14, AREA+15, AREA+16, AREA+17, AREA+18, SYS~, SYS+6, SYS+7, SYS+8 , TCMD~, TCMD+6, JCMD~, JCMD+6, JDATE+2~, JDATE+7, JDATE+8, JDATE+9, NOW+2~, SLDATE~ , SLDATE+7, SLDATE+8, SLDATE+9, DOL~, DOL+4, DOL+5, DOL+6, DOL+7, DOL+8, FY~ , FY+5, FY+6, FY+7, FY+8, FY+9, UPPER~, HFS+12~, DOC~, DOC+7, DOC+8 , DOC+9, PSSN~, PSSN+22, ASKAP+4~, AP~, AP+4, EXPDN~, EXPDN+22, EXPDN+23, EXPDN+25 , EXPDN+27, EXPDN+30, EXPDN+31*, EXPDN+35, EXPDN+36, DOCYR~, DOCYR+18, DOCYR+19, DOCYR+20, DOCYR+21 , YEAR~, YEAR+10, YEAR+11, YEAR+12, DEPT~, DEPT+10, REF~, REF+10
X1	JDATE+2~, JDATE+4*
X2	JDATE+2~, JDATE+5*
Y	SYS+4~, SYS+5, SYS+6, SYS+7, SYS+8, SYS+9, TCMD~, TCMD+6, JCMD~, JCMD+6 , NOW+5, NOW+7, SLDATE+5~, SLDATE+6, SLDATE+9, SLDATE+10, UPPER+3, HFS+12~, HFS+14, HFS+15 , HOST+1~, HOST+2, HOST+3, HOST+4, HOST+5, PSSN+18~, PSSN+19, PSSN+22, PSSN+23, PSSN+24 , ASKAP+4~, ASKAP+9, ASKAP+10, AP+3~, EXPDN+19~, EXPDN+20, EXPDN+24, EXPDN+26, EXPDN+28, EXPDN+29 , EXPDN+35, EXPDN+36, EXPDN+39, EXPDN+40, DOCYR+16~, DOCYR+17, DOCYR+19, DOCYR+23, DOCYR+24, YEAR+8~ , YEAR+9, YEAR+12, YEAR+13, DEPT+8~, DEPT+9, DEPT+10, DEPT+11, REF+8~, REF+9, REF+10 , REF+11*, REF+12
Z	EXPDN+19~, EXPDN+21, EXPDN+22, EXPDN+23, EXPDN+24, EXPDN+26, EXPDN+27, EXPDN+28, EXPDN+30, EXPDN+31 , EXPDN+32, EXPDN+33, EXPDN+34, EXPDN+36, EXPDN+37, EXPDN+38, EXPDN+39, DOCYR+16~, DOCYR+20, DOCYR+21* , DOCYR+22*, DOCYR+23
ZISH1	HFS~, HFS+14
ZISH2	HFS~, HFS+14
ZISH3	HFS~, HFS+14
ZTDESC	QUE~
ZTIO	QUE+3~, QUE+9*
ZTRTN	QUE~, QUE+12
ZTSAVE	QUE~
ZTSK	QUE+3~, QUE+11

Customize PDF page

Package: Commitment Register

Routine: ACRFUTL

Call Graph Total: 6

Caller Graph Total: 78