Routine: ACRFCA1

Package	Total	Call Graph
Commitment Register	2	($$DASH,$$DASH1)^ACRFMENU PAUSE^ACRFWARN

Entry Points

External References

Name	Field # of Occurrence
$$DASH^ACRFMENU	40, 81
$$DASH1^ACRFMENU	41
PAUSE^ACRFWARN	EN1+38

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?(80-$L(X))\2,X Line Location: EN1+2
Function Call: WRITE	Prompt: !,"COMPACT NO." Line Location: EN1+4
Function Call: WRITE	Prompt: ?18,"\| DATE ISSUED" Line Location: EN1+5
Function Call: WRITE	Prompt: ?35,"\| AWARDEE: ",$G(ACR(81)) Line Location: EN1+6
Function Call: WRITE	Prompt: !,$G(ACR(2)) Line Location: EN1+7
Function Call: WRITE	Prompt: ?18,"\| " Line Location: EN1+8
Function Call: WRITE	Prompt: $G(ACR(1)) Line Location: EN1+9
Function Call: WRITE	Prompt: ?35,"\|",?44,$G(ACR(82)) Line Location: EN1+10
Function Call: WRITE	Prompt: !?18,"\|",?35,"\|",?44,$G(ACR(84)) Line Location: EN1+11
Function Call: WRITE	Prompt: !,"28. Budget Detail by Approp" Line Location: EN1+13
Function Call: WRITE	Prompt: ?28,"\| SERIVCES" Line Location: EN1+14
Function Call: WRITE	Prompt: ?41,"\| FACILITIES" Line Location: EN1+15
Function Call: WRITE	Prompt: ?54,"\| CONTRACT HLTH" Line Location: EN1+16
Function Call: WRITE	Prompt: ?67,"\| ISD" Line Location: EN1+17
Function Call: WRITE	Prompt: !,"Appropriation No." Line Location: EN1+19
Function Call: WRITE	Prompt: ?28,$G(ACRAPP(1)) Line Location: EN1+20
Function Call: WRITE	Prompt: ?41,$G(ACRAPP(2)) Line Location: EN1+21
Function Call: WRITE	Prompt: ?54,$G(ACRAPP(3)) Line Location: EN1+22
Function Call: WRITE	Prompt: ?67,$G(ACRAPP(4)) Line Location: EN1+23
Function Call: WRITE	Prompt: !,"A. Fin Asst By Approp",?28,$J($FN($G(ACR("28A1")),"P,",0),12),?41,$J($FN($G(ACR("28A2")),"P,",0),12),?54,$J($FN($G(ACR("28A3")),"P,",0),12),?67,$J($FN($G(ACR("28A4")),"P,",0),12) Line Location: EN1+25
Function Call: WRITE	Prompt: !,"B. Dir Asst By Approp",?28,$J($FN($G(ACR("28B1")),"P,",0),12),?41,$J($FN($G(ACR("28B2")),"P,",0),12),?54,$J($FN($G(ACR("28B3")),"P,",0),12),?67,$J($FN($G(ACR("28B4")),"P,",0),12) Line Location: EN1+26
Function Call: WRITE	Prompt: !,"C. Fed Funds Approved",?28,$J($FN($G(ACR("28C1")),"P,",0),12),?41,$J($FN($G(ACR("28C2")),"P,",0),12),?54,$J($FN($G(ACR("28C3")),"P,",0),12),?67,$J($FN($G(ACR("28C4")),"P,",0),12) Line Location: EN1+27
Function Call: WRITE	Prompt: !,"D. Current Years Funds" Line Location: EN1+28
Function Call: WRITE	Prompt: !," 1) Financial Asst",?28,$J($FN($G(ACR("28D11")),"P,",0),12),?41,$J($FN($G(ACR("28D12")),"P,",0),12),?54,$J($FN($G(ACR("28D13")),"P,",0),12),?67,$J($FN($G(ACR("28D14")),"P,",0),12) Line Location: EN1+29
Function Call: WRITE	Prompt: !," 2) Direct Asst",?28,$J($FN($G(ACR("28D21")),"P,",0),12),?41,$J($FN($G(ACR("28D22")),"P,",0),12),?54,$J($FN($G(ACR("28D23")),"P,",0),12),?67,$J($FN($G(ACR("28D24")),"P,",0),12) Line Location: EN1+30
Function Call: WRITE	Prompt: !," 3) Amt THIS ACTION",?28,$J($FN($G(ACR("28D31")),"P,",0),12),?41,$J($FN($G(ACR("28D32")),"P,",0),12),?54,$J($FN($G(ACR("28D33")),"P,",0),12),?67,$J($FN($G(ACR("28D34")),"P,",0),12) Line Location: EN1+31
Function Call: WRITE	Prompt: !,"E. Cumulative Awards" Line Location: EN1+32
Function Call: WRITE	Prompt: !," 1) Financial Asst",?28,$J($FN($G(ACR("28E11")),"P,",0),12),?41,$J($FN($G(ACR("28E12")),"P,",0),12),?54,$J($FN($G(ACR("28E13")),"P,",0),12),?67,$J($FN($G(ACR("28E14")),"P,",0),12) Line Location: EN1+33
Function Call: WRITE	Prompt: !," 2) Direct Asst",?28,$J($FN($G(ACR("28E21")),"P,",0),12),?41,$J($FN($G(ACR("28E22")),"P,",0),12),?54,$J($FN($G(ACR("28E23")),"P,",0),12),?67,$J($FN($G(ACR("28E24")),"P,",0),12) Line Location: EN1+34
Function Call: WRITE	Prompt: !," 3) Amt THIS ACTION",?28,$J($FN($G(ACR("28E31")),"P,",0),12),?41,$J($FN($G(ACR("28E32")),"P,",0),12),?54,$J($FN($G(ACR("28E33")),"P,",0),12),?67,$J($FN($G(ACR("28E34")),"P,",0),12) Line Location: EN1+35
Function Call: WRITE	Prompt: !,"F. Unawarded Balance",?28,$J($FN($G(ACR("28F1")),"P,",0),12),?41,$J($FN($G(ACR("28F2")),"P,",0),12),?54,$J($FN($G(ACR("28F3")),"P,",0),12),?67,$J($FN($G(ACR("28F4")),"P,",0),12) Line Location: EN1+36
Function Call: WRITE	Prompt: !,"G. Carry Forward",?28,$J($FN($G(ACR("28G1")),"P,",0),12),?41,$J($FN($G(ACR("28G2")),"P,",0),12),?54,$J($FN($G(ACR("28G3")),"P,",0),12),?67,$J($FN($G(ACR("28G4")),"P,",0),12) Line Location: EN1+37
Function Call: WRITE	Prompt: !,"29. Budget Detail by Approp" Line Location: EN1+40
Function Call: WRITE	Prompt: ?28,"\| SERIVCES" Line Location: EN1+41
Function Call: WRITE	Prompt: ?41,"\| FACILITIES" Line Location: EN1+42
Function Call: WRITE	Prompt: ?54,"\| CONTRACT HLTH" Line Location: EN1+43
Function Call: WRITE	Prompt: ?67,"\| ISD" Line Location: EN1+44
Function Call: WRITE	Prompt: !,"Appropriation No." Line Location: EN1+46
Function Call: WRITE	Prompt: ?28,$G(ACRAPP(5)) Line Location: EN1+47
Function Call: WRITE	Prompt: ?41,$G(ACRAPP(6)) Line Location: EN1+48
Function Call: WRITE	Prompt: ?54,$G(ACRAPP(7)) Line Location: EN1+49
Function Call: WRITE	Prompt: ?67,$G(ACRAPP(8)) Line Location: EN1+50
Function Call: WRITE	Prompt: !,"A. Fin Asst By Approp",?28,$J($FN($G(ACR("29A1")),"P,",0),12),?41,$J($FN($G(ACR("29A2")),"P,",0),12),?54,$J($FN($G(ACR("29A3")),"P,",0),12),?67,$J($FN($G(ACR("29A4")),"P,",0),12) Line Location: EN1+52
Function Call: WRITE	Prompt: !,"B. Dir Asst By Approp",?28,$J($FN($G(ACR("29B1")),"P,",0),12),?41,$J($FN($G(ACR("29B2")),"P,",0),12),?54,$J($FN($G(ACR("29B3")),"P,",0),12),?67,$J($FN($G(ACR("29B4")),"P,",0),12) Line Location: EN1+53
Function Call: WRITE	Prompt: !,"C. Fed Funds Approved",?28,$J($FN($G(ACR("29C1")),"P,",0),12),?41,$J($FN($G(ACR("29C2")),"P,",0),12),?54,$J($FN($G(ACR("29C3")),"P,",0),12),?67,$J($FN($G(ACR("29C4")),"P,",0),12) Line Location: EN1+54
Function Call: WRITE	Prompt: !,"D. Current Years Funds" Line Location: EN1+55
Function Call: WRITE	Prompt: !," 1)) Financial Asst",?28,$J($FN($G(ACR("29D11")),"P,",0),12),?41,$J($FN($G(ACR("29D12")),"P,",0),12),?54,$J($FN($G(ACR("29D13")),"P,",0),12),?67,$J($FN($G(ACR("29D14")),"P,",0),12) Line Location: EN1+56
Function Call: WRITE	Prompt: !," 2)) Direct Asst",?28,$J($FN($G(ACR("29D21")),"P,",0),12),?41,$J($FN($G(ACR("29D22")),"P,",0),12),?54,$J($FN($G(ACR("29D23")),"P,",0),12),?67,$J($FN($G(ACR("29D24")),"P,",0),12) Line Location: EN1+57
Function Call: WRITE	Prompt: !," 3)) Amt THIS ACTION",?28,$J($FN($G(ACR("29D31")),"P,",0),12),?41,$J($FN($G(ACR("29D32")),"P,",0),12),?54,$J($FN($G(ACR("29D33")),"P,",0),12),?67,$J($FN($G(ACR("29D34")),"P,",0),12) Line Location: EN1+58
Function Call: WRITE	Prompt: !,"E. Cumulative Awards" Line Location: EN1+59
Function Call: WRITE	Prompt: !," 1) Financial Asst",?28,$J($FN($G(ACR("29E11")),"P,",0),12),?41,$J($FN($G(ACR("29E12")),"P,",0),12),?54,$J($FN($G(ACR("29E13")),"P,",0),12),?67,$J($FN($G(ACR("29E14")),"P,",0),12) Line Location: EN1+60
Function Call: WRITE	Prompt: !," 2) Direct Asst",?28,$J($FN($G(ACR("29E21")),"P,",0),12),?41,$J($FN($G(ACR("29E22")),"P,",0),12),?54,$J($FN($G(ACR("29E23")),"P,",0),12),?67,$J($FN($G(ACR("29E24")),"P,",0),12) Line Location: EN1+61
Function Call: WRITE	Prompt: !," 3) Amt THIS ACTION",?28,$J($FN($G(ACR("29E31")),"P,",0),12),?41,$J($FN($G(ACR("29E32")),"P,",0),12),?54,$J($FN($G(ACR("29E33")),"P,",0),12),?67,$J($FN($G(ACR("29E34")),"P,",0),12) Line Location: EN1+62
Function Call: WRITE	Prompt: !,"F. Unawarded Balance",?28,$J($FN($G(ACR("29F1")),"P,",0),12),?41,$J($FN($G(ACR("29F2")),"P,",0),12),?54,$J($FN($G(ACR("29F3")),"P,",0),12),?67,$J($FN($G(ACR("29F4")),"P,",0),12) Line Location: EN1+63
Function Call: WRITE	Prompt: !,"G. Carry Forward",?28,$J($FN($G(ACR("29G1")),"P,",0),12),?41,$J($FN($G(ACR("29G2")),"P,",0),12),?54,$J($FN($G(ACR("29G3")),"P,",0),12),?67,$J($FN($G(ACR("29G4")),"P,",0),12) Line Location: EN1+64
Function Call: WRITE	Prompt: ?40,"\|" Line Location: 1+0
Function Call: WRITE	Prompt: $$DASH^ACRFMENU(40) Line Location: 40+0
Function Call: WRITE	Prompt: $$DASH1^ACRFMENU(39) Line Location: 41+0
Function Call: WRITE	Prompt: $$DASH^ACRFMENU Line Location: 81+0

Label References

Name	Line Occurrences
81	EN1+3, EN1+12, EN1+18, EN1+24, EN1+39, EN1+45, EN1+51
EN1	EN

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACR	EXIT!
ACR("28A1"	EN1+25
ACR("28A2"	EN1+25
ACR("28A3"	EN1+25
ACR("28A4"	EN1+25
ACR("28B1"	EN1+26
ACR("28B2"	EN1+26
ACR("28B3"	EN1+26
ACR("28B4"	EN1+26
ACR("28C1"	EN1+27
ACR("28C2"	EN1+27
ACR("28C3"	EN1+27
ACR("28C4"	EN1+27
ACR("28D11"	EN1+29
ACR("28D12"	EN1+29
ACR("28D13"	EN1+29
ACR("28D14"	EN1+29
ACR("28D21"	EN1+30
ACR("28D22"	EN1+30
ACR("28D23"	EN1+30
ACR("28D24"	EN1+30
ACR("28D31"	EN1+31
ACR("28D32"	EN1+31
ACR("28D33"	EN1+31
ACR("28D34"	EN1+31
ACR("28E11"	EN1+33
ACR("28E12"	EN1+33
ACR("28E13"	EN1+33
ACR("28E14"	EN1+33
ACR("28E21"	EN1+34
ACR("28E22"	EN1+34
ACR("28E23"	EN1+34
ACR("28E24"	EN1+34
ACR("28E31"	EN1+35
ACR("28E32"	EN1+35
ACR("28E33"	EN1+35
ACR("28E34"	EN1+35
ACR("28F1"	EN1+36
ACR("28F2"	EN1+36
ACR("28F3"	EN1+36
ACR("28F4"	EN1+36
ACR("28G1"	EN1+37
ACR("28G2"	EN1+37
ACR("28G3"	EN1+37
ACR("28G4"	EN1+37
ACR("29A1"	EN1+52
ACR("29A2"	EN1+52
ACR("29A3"	EN1+52
ACR("29A4"	EN1+52
ACR("29B1"	EN1+53
ACR("29B2"	EN1+53
ACR("29B3"	EN1+53
ACR("29B4"	EN1+53
ACR("29C1"	EN1+54
ACR("29C2"	EN1+54
ACR("29C3"	EN1+54
ACR("29C4"	EN1+54
ACR("29D11"	EN1+56
ACR("29D12"	EN1+56
ACR("29D13"	EN1+56
ACR("29D14"	EN1+56
ACR("29D21"	EN1+57
ACR("29D22"	EN1+57
ACR("29D23"	EN1+57
ACR("29D24"	EN1+57
ACR("29D31"	EN1+58
ACR("29D32"	EN1+58
ACR("29D33"	EN1+58
ACR("29D34"	EN1+58
ACR("29E11"	EN1+60
ACR("29E12"	EN1+60
ACR("29E13"	EN1+60
ACR("29E14"	EN1+60
ACR("29E21"	EN1+61
ACR("29E22"	EN1+61
ACR("29E23"	EN1+61
ACR("29E24"	EN1+61
ACR("29E31"	EN1+62
ACR("29E32"	EN1+62
ACR("29E33"	EN1+62
ACR("29E34"	EN1+62
ACR("29F1"	EN1+63
ACR("29F2"	EN1+63
ACR("29F3"	EN1+63
ACR("29F4"	EN1+63
ACR("29G1"	EN1+64
ACR("29G2"	EN1+64
ACR("29G3"	EN1+64
ACR("29G4"	EN1+64
ACR(1	EN1+9
ACR(2	EN1+7
ACR(81	EN1+6
ACR(82	EN1+10
ACR(84	EN1+11
ACRAPP	EXIT!
ACRAPP(1	EN1+20
ACRAPP(2	EN1+21
ACRAPP(3	EN1+22
ACRAPP(4	EN1+23
ACRAPP(5	EN1+47
ACRAPP(6	EN1+48
ACRAPP(7	EN1+49
ACRAPP(8	EN1+50
X	EN1~, EN1+1*, EN1+2

Customize PDF page

Package: Commitment Register

Routine: ACRFCA1

Information

Source Information

Call Graph

Call Graph Total: 2

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
EN
40
41
1
EN1
EXIT
REMARKS	;PRINT REMARKS
81
TC	;PRINT TERMS AND CONDITIONS