Routine: ACHSAJ

Information

ACHSAJ ; IHS/ITSC/PMF - ADJUST A PAID DOCUMENT (1/2) ; [ 12/11/2003 1:09 PM ]

Source Information

Source file <ACHSAJ.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Contract Health Management Information System	9	($$DOC,$$LOCK)^ACHS (D1,END,ENDC,K)^ACHSAJ1 ^ACHSAV ^ACHSEOBG (FYCVT,OBLM,READ)^ACHSFU INIT^ACHSRP2 ^ACHSUD A0A^ACHSUSC (CKB,SBAENT)^ACHSUUP
VA Fileman	2	COMMA^%DTC ^DIR
IHS VA Utilities	1	$$DIR^XBDIR
Kernel	1	$$FMTE^XLFDT

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHSEOB3 ACHSPAYADJUST

Entry Points

Name	Comments	DBIA/ICR reference
C	;
C03	; EOBR Services billed.
OK	; Ask for confirmation.
B2Z	;
DIR(ACHS,ACHS1)	; ( <DIR(0)> , <DIR("B")> )
A4A	;EP - Automatic adjustment.
C1A	;
NEGADJ	;
SET(X,Y,Z)	; (File,Field,Internal) Return the external form of a set element. ; ACHS3.11
A3	; Select document, check for paid status.
C1	; Adjustment to 3rd party payment.
A4	;
B2	;
B3	;
C01	;
C02	;
C0	;
C04	; EOBR Control Number.
C05	; EOBR Check number.
C06	; EOBR Remittance number.
C07	; EOBR Oblication type.

External References

Name	Field # of Occurrence
COMMA^%DTC	C+13
$$DOC^ACHS	A4A+1, C01+5, C02+10
$$LOCK^ACHS	A4+3
D1^ACHSAJ1	OK+1, OK+2
END^ACHSAJ1	A4A+27
ENDC^ACHSAJ1	ACHSAJ+9, A3+3, A4+1, B2Z+4, B2Z+9, C0+4, C01+9, C02+2, C03+2, C04+2 , C05+2, C06+2, C07+2, C1+5
K^ACHSAJ1	A4+3, A4A+25, A4A+35, B2+2, B3+4, C+29, NEGADJ+7
^ACHSAV	A3+10
^ACHSEOBG	A4A+25, A4A+35, A4A+53, B2+2, B3+4, C+29, NEGADJ+6
FYCVT^ACHSFU	A4A+2
OBLM^ACHSFU	B3+1
READ^ACHSFU	B2Z+3
INIT^ACHSRP2	A3+9
^ACHSUD	A3+1
A0A^ACHSUSC	A3+12
CKB^ACHSUUP	A4A+22
SBAENT^ACHSUUP	C+18
^DIR	C1+4, DIR+5
$$DIR^XBDIR	C0+2, C01+7, C02+4, OK+2
$$FMTE^XLFDT	C02+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7," The Register Has Been CLOSED -- An adjustment cannot be done at this time!",! Line Location: ACHSAJ+8
Function Call: WRITE	Prompt: !!,*7,?10,"NOT A PAID DOCUMENT -- ONLY PAID DOCUMENTS CAN BE ADJUSTED" Line Location: A3+5
Function Call: WRITE	Prompt: !,"LOCK FAILED AT A4+2^ACHSAJ" Line Location: A4+3
Function Call: WRITE	Prompt: !!,"Amount Of pay Adjustment: " Line Location: B2Z+1
Function Call: WRITE	Prompt: !," Enter Payment Adjustment Amount (e.g. + or - 150.00)." Line Location: B2Z+6
Function Call: WRITE	Prompt: *7," NO AMOUNT ENTERED",!! Line Location: B2Z+8
Function Call: WRITE	Prompt: *7," NO AMOUNT ENTERED",!! Line Location: B2Z+9
Function Call: WRITE	Prompt: *7," ??" Line Location: B2Z+21
Function Call: WRITE	Prompt: !! Line Location: C01+1
Function Call: WRITE	Prompt: !!,7,7,"A Transaction Has Been Processed For This Document On This Date.",!!?15,$$FMTE^XLFDT(ACHSPDAT),!! Line Location: C02+3
Function Call: WRITE	Prompt: ! Line Location: DIR+1
Routine Call	DIR Line Location: C1+4 DIR+5

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(9 - [#9002069]	ACHSAJ+7
^ACHSF - [#9002080]	A3+5, A4A+8, A4A+12, A4A+18, A4A+32, A4A+43, A4A+45, A4A+47, A4A+49, A4A+51 , A4A+53, C+27, C+28, C01+5*, C02+2
^DD(	SET+1

Name	Line Occurrences
$$SET	C03+1, C07+1
A3	A3+5
A4	B2Z+21
B2	B2Z+6, B3+2, C+29, C0+3, C03+3, OK+3
B3	B2+1
C0	C+21, C+30, C01+8
C02	C01+5
C03	C04+3
C04	C05+3
C05	C06+3
C06	C07+3
C07	C1+6
C1	C0+1, C02+10
C1A	C1+1
DIR	C03+1, C04+1, C05+1, C06+1, C07+1

Name	Field # of Occurrence
^("ZA"	C+27

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SET+1*, SET+2
ACHS	DIR~, DIR+3
ACHS("CHK"	C+16*
ACHS1	DIR~, DIR+4
>> ACHS3AJ	C1A+1*
>> ACHS3PA	A4A+38, A4A+51, C1+4, C1A+1
>> ACHS3RDP	C1+1
>> ACHS3RDS	A3+6*
>> ACHS3TAJ	C1+4, C1+7, C1A+1
>> ACHSACFY	A4A+3*
>> ACHSACWK	A4A+3*
>> ACHSADAM	B2Z+11, B2Z+14, B2Z+15, B2Z+16, B2Z+20, B2Z+21, C+1, C+2, C+9, C+12
>> ACHSADJ	A3+11*
>> ACHSAMT	C+15*
>> ACHSAPA	A4A+32, A4A+33, A4A+38, A4A+39, A4A+45*
>> ACHSCFY	ACHSAJ+7
>> ACHSCHK	C05+1, C05+4*
>> ACHSCNC	A4A+23, A4A+27
>> ACHSCTL	C04+1, C04+4*
>> ACHSDIEN	A3+3, A3+5, A4+1, A4A+8, A4A+12, A4A+18, A4A+32, A4A+43, A4A+45, A4A+47 , A4A+49, A4A+51, A4A+53, C+27, C+28, C02+2
>> ACHSDOC0	A4A+8*
>> ACHSEDAT	A4A+25, A4A+35, A4A+53, B2+2, B3+4, C+29, NEGADJ+4*
>> ACHSEOBD	C0+5*
>> ACHSERRA	A4A+25, A4A+35, B2+2, B3+4, C+29, NEGADJ+5
>> ACHSERRE	A4A+24, A4A+34, A4A+53, B2+2, B3+4, C+29, NEGADJ+3
>> ACHSESDO	C+15*
>> ACHSFYWK(	ACHSAJ+7, A4A+3
>> ACHSIPA	A3+6*, B2+1, B2+2
>> ACHSISAO	A4A+23, A4A+53, B2+1, B2+2, B3+4, C+9, C+14, C+29, NEGADJ+1, NEGADJ+2 , C0+1, C02+2, C1+1, OK+1
>> ACHSJERR	C01+2, C02+2, C02+5
>> ACHSNADJ	A4A+29, A4A+49
>> ACHSOB	C07+1, C07+4*
>> ACHSPDAT	A4A+53, C0+5*, C02+2, C02+3
>> ACHSPIND	C02+7*
>> ACHSPSQN	C01+5, C01+10
>> ACHSREM	C06+1, C06+4*
ACHSSIG	A3+7!
>> ACHSSIGN	B2+1, B2Z+2, B2Z+16*, C+12
>> ACHSSV	C03+1, C03+4*
>> ACHSSVDT	A4A+18*
>> ACHSTADJ	A4A+29, A4A+47
>> ACHSTIEN	A3+6, A4A+18
>> ACHSTP	C+27, C+28, C+29
ACHSUFLG	C+16*, C+20!
>> ACHSX	A4A+1*
>> ACHSY	A4A+3
DIR	C1+4!, DIR+2!, DIR+6!
DIR("A"	C1+4*
DIR("B"	C1+4, DIR+4
DIR(0	C1+4, DIR+3
DIRUT	DIR+2!
DT	ACHSAJ+7
DTOUT	B2Z+4, B3+2, C0+4, C01+9, C02+5, C03+2, C04+2, C05+2, C06+2, C07+2 , C1+5, DIR+2!
DUOUT	B2Z+4, B3+2, C0+3, C01+8, C02+5, C03+3, C04+3, C05+3, C06+3, C07+3 , C1+6, DIR+2!
DUZ(2	ACHSAJ+7, A3+5, A4A+3, A4A+8, A4A+12, A4A+18, A4A+32, A4A+43, A4A+45, A4A+47 , A4A+49, A4A+51, A4A+53, C+27, C+28, C01+5, C02+2
>> F	B2Z+20*
>> I	B2Z+20*
>> S	A4A+35, C+12*, C+15, C+21, C+29, NEGADJ+4
U	ACHSAJ+7, A4A+18, A4A+38, A4A+39, A4A+45, A4A+47, A4A+49, A4A+51, C+27, C+28 , SET+1
X	A4A+11, A4A+12, A4A+18, C+12, C+14, SET~, SET+1, SET+2
>> X2	C+12*
>> X3	C+12*
Y	B2+1, B2Z+6, B2Z+9, B2Z+11, C+2, C+9, C0+2, C0+5, C01+7, C01+10 , C02+4, C02+5, C03+4, C04+4, C05+4, C06+4, C07+4, C1+1, C1+7, C1A+1 , SET~, SET+1, SET+2, SET+3
Z	SET~, SET+2

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSAJ

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: