Routine: PRCEADJ2

Package	Total	Call Graph
IFCAP	8	^PRCFA921 (NEWCS,TT)^PRCFAC ^PRCFACXM (HILO,MSG)^PRCFQ BULC^PRCH58 (OLDTT,POADJ)^PRCH58OB POADJ^PRCS58OB EN1^PRCSUT3
VA FileMan	4	NOW^%DTC FILE^DICN ^DIE ^DIR

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Updating Obligation balances. Please hold...",!! Line Location: Y+1
Function Call: WRITE	Prompt: !,"ERROR IN CREATING 424 RECORD",$C(7),!! Line Location: Z+0
Function Call: WRITE	Prompt: @IOF,IOINLOW,"Adjustment Transaction # ",IOINHI,$P(TRNODE(0),"^"),IOINLOW," 1358 # ",IOINHI,$P(PO(0),"^") Line Location: SCREEN+2
Function Call: WRITE	Prompt: !!,IOINLOW,"Current amount obligated on 1358: ",IOINHI," $ ",$FN(CEILING,"P,",2) Line Location: SCREEN+3
Function Call: WRITE	Prompt: !!,IOINLOW," Total Authorizations: ",IOINHI," $ ",$J($FN(TAUTH,"P,",2),12) Line Location: SCREEN+4
Function Call: WRITE	Prompt: ?40,IOINLOW," Total Liquidations: ",IOINHI," $ ",$J($FN(LAUTH,",P",2),12) Line Location: SCREEN+5
Function Call: WRITE	Prompt: !,IOINLOW,"Authorization Balance: ",IOINHI," $ ",$J($FN(TBAL,"P,",2),12),?40,IOINLOW,"Liquidation Balance: ",IOINHI," $ ",$J($FN(LBAL,"P,",2),12),!! Line Location: SCREEN+6
Function Call: WRITE	Prompt: IOINLOW,"Amount of Adjustment: ",IOINHI,$J($P(TRNODE(4),"^",8),0,2),!!,IOINORM Line Location: SCREEN+7
Routine Call	DIE Line Location: Z+2
Routine Call	DIR Line Location: V+3

FileNo	Call Tags
^PRC(424 - [#424]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PRCF(423 - [#423]	K+1, K+4*

Name	Field # of Occurrence
^(1	K+1

Name	Field # of Occurrence
>> %	K, Z*, Z+1
AMT	V+2~, V+4*, V+6, V+7, V+8, X, X+1, X+2
AMT(	K+2*
AMT(7	K+3
AMT(9	K+3
CEILING	SCREEN+1~, SCREEN+2*, SCREEN+3, SCREEN+4, SCREEN+5
CS	V+2~, K+1, K+3, K+4
>> DA	K, Z+1*
>> DA(1358	Z+1*
>> DIC	Z*
>> DIC(0	Z*
DIE	V+2~, Z+1*
DIR	V+2~
DIR("?"	V+3*
DIR("A"	V+3*
DIR("B"	V+3*
DIR(0	V+3*
DIROUT	OUT!
DIRUT	OUT!
DLAYGO	V+2~, Z*
DR	V+2~, Z+1*
DTOUT	OUT!
DUOUT	OUT!
HASH	V+2~
>> I	K+2*
IOF	SCREEN+2
IOINHI	V+2~, SCREEN+1~, SCREEN+2, SCREEN+3, SCREEN+4, SCREEN+5, SCREEN+6, SCREEN+7
IOINLOW	V+2~, SCREEN+1~, SCREEN+2, SCREEN+3, SCREEN+4, SCREEN+5, SCREEN+6, SCREEN+7
IOINORM	V+2~, SCREEN+1~, SCREEN+7
LAUTH	V+2~, SCREEN+1~, SCREEN+5*
LBAL	V+2~, SCREEN+1~, SCREEN+5*, SCREEN+6
OLDTT	V+2~, V+5*, K+3
>> PO	X
>> PO(0	K, K+1, Z, SCREEN+2
>> PO(8	SCREEN+2, SCREEN+4, SCREEN+5
>> PODA	V+5, X, X+1, X+2
>> PRC	X+1
>> PRC("CP"	K+1*
>> PRCFA("CSDA"	K+1, K+4
>> PRCFA("CSHOLD"	Y!
>> PRCFA("REF"	K*
>> PRCFA("SYS"	K*
>> PRCFA("TT"	V+6!, V+7, V+8*
PRCFASYS	V+2~
PRCFDEL	Y!
TAUTH	V+2~, SCREEN+1~, SCREEN+4*
TBAL	V+2~, SCREEN+1~, SCREEN+4*, SCREEN+6
TI	V+2~, Z+1*
>> TRDA	X+1
>> TRNODE	X
>> TRNODE(0	K+1, SCREEN+2
>> TRNODE(3	K+2, K+3
>> TRNODE(4	V+4, SCREEN+7
U	V+4, Z, SCREEN+2, SCREEN+4, SCREEN+5
>> X	V+5, V+6, V+7, V+8, Y, Z, Z+2*
>> Y	V+3, Z, Z+1
>> Z	Z*