Routine: ACHSUUP

Information

ACHSUUP ; IHS/ITSC/PMF - UPDATE OBLIGATION BALANCE/DCR ACCOUNTS/QUEUE DOCUMENTS ; [ 02/23/2005 11:39 AM ]

Source file <ACHSUUP.m>

Package	Total	Call Graph
Contract Health Management Information System	2	($$DIE,$$DOC,$$LOCK,$$PARM,RTRN,VIDEO)^ACHS FIX^ACHSBRF
IHS VA Utilities	1	$$DIR^XBDIR
Kernel	1	$$REPEAT^XLFSTR

Package	Total	Caller Graph
Contract Health Management Information System	10	ACHSA ACHSA6 ACHSA7 ACHSAC ACHSAJ ACHSAJ1 ACHSAS ACHSBOP ACHSODP2 ACHSPA

Name	Comments	DBIA/ICR reference
SBAENT	;EP - Update Current Advice of Allowance and Total Obligated FYTD.
SBQ	;EP - Place document in print list.
HELP	;EP - From DIR.
AVAIL(A,Y,C)	;EP - Check if money "A" available for transaction in year "Y", "C" is current FY. 1=Yes, 0=No.
CKB	;EP - CK for "OUT-OF-BALANCE" condition. ; ; The sum of fields DCR-(1 thru 7) BALANCE of the current ; register must equal the TOTAL OBLIGATED FYTD field in ; the Fiscal Year in use.
SBB	;
SBAEND	;
SBA	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"LOCK OF '^ACHS(9,",DUZ(2),") FAILED AT SBA^ACHSUUP." Line Location: SBA+1
Function Call: WRITE	Prompt: *7,!,"Funds are not available for this transaction",!,"Transanction Cancelled" Line Location: SBA+16
Function Call: WRITE	Prompt: !,"UNLOCK OF '^ACHS(9,",DUZ(2),") FAILED AT SBAEND^ACHSUUP." Line Location: SBAEND+1
Function Call: WRITE	Prompt: *7,!!!!,ACHS,!!,ACHS,!!!?22,$G(IORVON),"THE REGISTERS ARE OUT OF BALANCE",$G(IORVOFF),!!?26,$G(IORVON),"CONTACT YOUR SITE MANAGER",$G(IORVOFF),!!!,ACHS,!!,ACHS,! Line Location: CKB+18
Function Call: WRITE	Prompt: !?5,$P($T(HELP+%),";",3) Line Location: HELP+1

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(9 - [#9002069]	SBA+4, SBB+9, SBB+11, SBB+12, AVAIL+5, CKB+10, CKB+12
^ACHSESIG - [#9002080.1]	SBQ+7
^ACHSF - [#9002080]	SBQ+3, SBQ+9, SBQ+10
^ACHSF("EQ"	SBQ+16, SBQ+17
^ACHSF("PQ"	SBQ+4*
^DD(9002080	SBA+19
^XUSEC("ACHSZMGR"	CKB+20

Name	Field # of Occurrence
>> %	HELP+1*
A	AVAIL~, AVAIL+3, AVAIL+8
>> ACHS	CKB+17*, CKB+18
>> ACHS("BALC"	CKB+7, CKB+10, CKB+12!
>> ACHS("CHK"	SBB+1
>> ACHSACFY	SBA+4, SBA+10, SBA+19, SBB+9, SBB+11, SBB+12, CKB+10, CKB+12, CKB+20
>> ACHSACWK	SBB+9, SBB+12, CKB+10, CKB+20
>> ACHSCFY	SBA+10, SBA+19
ACHSCNC	ACHSUUP+7, SBA+20, CKB+6!, CKB+14
>> ACHSDCR	SBB+10
>> ACHSDIEN	SBQ+4, SBQ+9, SBQ+10, SBQ+16, SBQ+17
>> ACHSESDO	SBA+11, SBA+15, SBB+6, SBB+10, SBB+15
>> ACHSISAO	SBA+7, AVAIL+1, CKB+15
>> ACHSPROV	SBQ+3
>> ACHSTIEN	SBQ+4, SBQ+12, SBQ+16, SBQ+17
>> ACHSTRAN	SBQ+14, SBQ+15
ACHSTTYP	SBQ+11, SBQ+12, SBQ+14, SBQ+15, SBQ+16, SBQ+17, SBQ+21!
>> ACHSTYP	SBQ+4, SBQ+16, SBQ+17
>> ACHSUFLG	SBB+15
C	AVAIL~, AVAIL+2
DT	SBQ+7
DUZ	CKB+20
DUZ(2	SBA+1, SBA+4, SBB+9, SBB+11, SBB+12, SBAEND+1, SBQ+3, SBQ+4, SBQ+7, SBQ+9 , SBQ+10, SBQ+16, SBQ+17, AVAIL+5, CKB+10, CKB+12
>> I	CKB+9*, CKB+10
>> IORVOFF	CKB+18
>> IORVON	CKB+18
M	AVAIL+4~, AVAIL+6*, AVAIL+8
N	AVAIL+4~, AVAIL+7*, AVAIL+8
>> T	SBQ+15
U	SBA+5, SBA+6, SBA+19, SBB+6, SBB+10, SBQ+7, SBQ+9, SBQ+10, SBQ+14, SBQ+15 , AVAIL+6, AVAIL+7, CKB+10, CKB+12
>> X	SBA+4, SBA+5, SBA+6, SBB+6, SBB+11, AVAIL+5*, AVAIL+6, AVAIL+7
>> X1	SBA+5*, SBA+15
>> X2	SBA+6*, SBA+15
Y	SBB+9, SBB+10, SBB+12, AVAIL~, AVAIL+2, AVAIL+5

Name	Field # of Occurrence
$T(HELP+%	HELP+1
$T(HELP+%+1	HELP+1