Routine: ACRFDHR4

Information

ACRFDHR4 ;IHS/OIRM/DSD/THL,AEF - DHR REPORTS; [ 11/01/2001 9:44 AM ]

Package	Total	Call Graph
Commitment Register	4	^ACRFDATE $$DASH^ACRFMENU PAUSE^ACRFWARN ^ACRFZIS

Name	Comments	DBIA/ICR reference
APRINT	;EP;TO PRINT ACCRUAL DHR SUMMARY
ZIS	;SELECT PRINTER
AHEAD	;PRINT REPORT HEADER
AP1	;PRINT EACH HDR SUMMARY
ACCRUAL	;EP;TO LIST ACCRUAL DHR'S
ATOT	;
A1
AEXIT

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"List ACCRUAL DHR's created between:" Line Location: A1+0
Function Call: WRITE	Prompt: !?37,"---------------" Line Location: ATOT+1
Function Call: WRITE	Prompt: !?37,$J($FN(ACRTOT,"P,",2),14) Line Location: ATOT+2
Function Call: WRITE	Prompt: !,$E(X,4,7),$E(X,2,3),?7,$P(ACRX,U,7),?18,$P(ACRX,U,3),$P(ACRX,U,4),$P(ACRX,U,5),?24,$P(ACRX,U,12),?32,$P(ACRX,U,13),?37,$J($FN($P(ACRX,U,14)/100,"P,",2),14) Line Location: AP1+5
Function Call: WRITE	Prompt: @IOF Line Location: AHEAD+1
Function Call: WRITE	Prompt: !?10,"ACCRUAL DHR SUMMARY" Line Location: AHEAD+2
Function Call: WRITE	Prompt: !?10,"FOR ACCRUALS FROM: " Line Location: AHEAD+3
Function Call: WRITE	Prompt: Y Line Location: AHEAD+6
Function Call: WRITE	Prompt: ?55,"PAGE: ",ACRDC Line Location: AHEAD+8
Function Call: WRITE	Prompt: !?10,"FOR ACCRUALS TO..: " Line Location: AHEAD+9
Function Call: WRITE	Prompt: Y Line Location: AHEAD+12
Function Call: WRITE	Prompt: !?10,"REPORT DATE......: " Line Location: AHEAD+13
Function Call: WRITE	Prompt: Y Line Location: AHEAD+16
Function Call: WRITE	Prompt: $$DASH^ACRFMENU Line Location: AHEAD+17
Function Call: WRITE	Prompt: !,"EFFECT",?7,"DOCUMENT",?18,"TRANS",?32,"OBJ" Line Location: AHEAD+18
Function Call: WRITE	Prompt: !,"DATE",?7,"NUMBER",?18,"CODE",?24,"CAN",?32,"CODE",?40,"AMOUNT" Line Location: AHEAD+19
Function Call: WRITE	Prompt: $$DASH^ACRFMENU Line Location: AHEAD+20

Name	Line Occurrences (* Changed, ! Killed)
^ACRDHR - [#9002189.1]	APRINT+8, AP1+2
^ACRDHR("D"	APRINT+6, APRINT+8
^DD("DD"	AHEAD+5, AHEAD+11, AHEAD+15
^TMP("ACRACCRU"	AEXIT+1!, APRINT+11*, APRINT+12, APRINT+18, APRINT+24, APRINT+26

Name	Field # of Occurrence
^(1	APRINT+8
^(10	APRINT+8

Name	Field # of Occurrence
>> ACRBEGIN	A1+2, APRINT+5, AHEAD+4
>> ACRDATE	APRINT+5, APRINT+6, APRINT+8
ACRDC	AEXIT!, AHEAD+7*, AHEAD+8
ACRDHRDA	APRINT+7, APRINT+8, APRINT+11, APRINT+16~, APRINT+25, APRINT+26, AP1+2
ACRDOC	APRINT+16~, APRINT+23, APRINT+24, APRINT+26
>> ACREND	A1+2, APRINT+6, AHEAD+10
ACROUT	ACCRUAL+2, AEXIT!
ACRQUIT	ACCRUAL+2, AEXIT!, APRINT+18, APRINT+24, APRINT+26, AP1+8
>> ACRRTN	A1+5*
ACRSSA	APRINT+10, APRINT+11, APRINT+16~, APRINT+17, APRINT+18*, APRINT+19, APRINT+21, APRINT+22, APRINT+24, APRINT+26
ACRSSAX	APRINT+16~, APRINT+17, APRINT+19, APRINT+22
ACRTOT	APRINT+16~, APRINT+17, APRINT+20, APRINT+27, ATOT+2, ATOT+3, AP1+6
ACRTTOT	APRINT+16~, APRINT+17, APRINT+27, AP1+7
ACRX	AP1+1~, AP1+2*, AP1+3, AP1+4, AP1+5, AP1+6, AP1+7
DT	AHEAD+14
IOF	AHEAD+1
IOSL	AP1+8
IOST	APRINT+1
U	APRINT+8, APRINT+9, APRINT+10, APRINT+11, AP1+4, AP1+5, AP1+6, AP1+7
X	APRINT+4~, APRINT+8, APRINT+9, APRINT+11, AP1+1~, AP1+4, AP1+5
Y	APRINT+4~, APRINT+8, APRINT+10, AHEAD+4, AHEAD+6, AHEAD+10, AHEAD+12, AHEAD+14, AHEAD+16
>> ZTDESC	A1+6*
>> ZTRTN	A1+5*