Routine: ACHSA6

Information

ACHSA6 ; IHS/ITSC/TPF/PMF - ENTER DOCUMENTS (7/8)-(EST. COST, MED DATA) ;JUL 10, 2008

Source Information

Source file <ACHSA6.m>

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Contract Health Management Information System	6	($$ZEROTH,FMT)^ACHS END^ACHSA C1^ACHSA5 ^ACHSA7 READ^ACHSFU $$AVAIL^ACHSUUP
Lexicon Utility	3	^LEXA1 CONFIG^LEXSET ($$CSYS,$$IMPDATE)^LEXU
DRG Grouper	2	($$CODEN,$$ICDOP)^ICDEX $$CPT^ICPTCOD
VA Fileman	2	^DIC ^DIR
IHS VA Utilities	1	$$DIR^XBDIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSA5

Entry Points

Name	Comments	DBIA/ICR reference
RDXN	; Enter Referral Diagnosis (DX) Narrative.
NODE	;EP - To set 0th node of Referral medical data multiples. ; Called from ^ACHSA7. Here because of size of ACHSA7. ; ACHSDIEN must be defined.
KDIR	;
RDX	; Enter Referral ICD DX codes.;ACHS3.123 MODIFIED ENTIRE SECTION
RPX	; Enter Referral ICD PROCEDURE codes.
RALR	; Enter Referral Alcohol Related?.
RPHY	; Enter the Referral Physician.
A1	; Input estimated charges.
A3	; Enter Referral Medical Priority Code
A2	; Confirm amount obligated.
RPXN	; Enter Referral Procedure (PX) Narrative.
A4	; Enter additional referral data.
DISPMPC	;EP - From call to DIR, display medical priorities
RCOI	; Enter Referral Cause Of Injury.;ACHS3.123 MODIFIED ENTIRE SECTION TO USE LEXICON

External References

Name	Field # of Occurrence
$$ZEROTH^ACHS	NODE+3, NODE+4
FMT^ACHS	A1+2, A1+16, A2+3
END^ACHSA	A1+4, A2+5, A4+3
C1^ACHSA5	A1+5
^ACHSA7	A4+1, A4+4, RPXN+7
READ^ACHSFU	A1+3
$$AVAIL^ACHSUUP	A3+1
^DIC	RPHY+6
^DIR	A3+5, RALR+4, RDXN+3, RPX+7, RPXN+3
$$CODEN^ICDEX	RCOI+12, RDX+9
$$ICDOP^ICDEX	RPX+5
$$CPT^ICPTCOD	RPX+5
^LEXA1	RCOI+12, RDX+8
CONFIG^LEXSET	RCOI+10, RDX+7
$$CSYS^LEXU	RCOI+9
$$IMPDATE^LEXU	RCOI+7
$$DIR^XBDIR	A2+4, A4+2, DISPMPC+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Estimated Charges: " Line Location: A1+1
Function Call: WRITE	Prompt: "// " Line Location: A1+2
Function Call: WRITE	Prompt: " Enter The ",$S($D(ACHSBLKF):"Dollar Amount To Be Obligated",1:"Approximate Cost of Treatment") Line Location: A1+6
Function Call: WRITE	Prompt: *7," Must Have Amount" Line Location: A1+7
Function Call: WRITE	Prompt: *7," ??" Line Location: A1+10
Function Call: WRITE	Prompt: !!,*7,"The OBLIGATION LIMIT for this type of document is " Line Location: A1+16
Function Call: WRITE	Prompt: ".",!!,"Enter a lesser amount of money or exit the document.",!! Line Location: A1+16
Function Call: WRITE	Prompt: *7 Line Location: A1+17
Function Call: WRITE	Prompt: !!?4 Line Location: A2+1
Function Call: WRITE	Prompt: !!,"This amount exceeds your funds available." Line Location: A3+1
Function Call: WRITE	Prompt: ! Line Location: A3+2
Function Call: WRITE	Prompt: ! Line Location: RALR+1
Function Call: WRITE	Prompt: ! Line Location: RDX+6
Function Call: WRITE	Prompt: !! Line Location: KDIR+2
Function Call: WRITE	Prompt: !! Line Location: DISPMPC+1
Routine Call	DIC Line Location: RPHY+6
Routine Call	DIR Line Location: A3+5 RALR+4 RDXN+3 RPX+7 RPXN+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	A1+14, NODE+3, NODE+4
^DD(9002080.01	RPHY+2, DISPMPC+3
^DD(9002080.186	RPX+7
^DIC(16 - [#16]	RPHY+5

Label References

Name	Line Occurrences
A1	A1+6, A1+7, A1+10, A1+16, A2+6, A3+1, A3+6, A4+5, RPHY+8, RALR+5 , RDXN+4, RPX+9, RPXN+4
A3	A1+7, A1+15
KDIR	A3+6, A3+7, A4+6, RPHY+8, RPHY+9, RALR+5, RALR+6, RDXN+4, RDXN+5, RPX+9 , RPX+10, RPXN+4, RPXN+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	A1+9, RPX+8, DISPMPC+2, DISPMPC+3
>> ACHS	A1+14, A1+15, A1+16, RDX+6, RDX+8, RDX+9, RPX+5, RPX+7, RPX+8
>> ACHS200	RPHY+2*, RPHY+3, RPHY+4, RPHY+5
>> ACHSACFY	A3+1
>> ACHSBLKF	A1+6, A4+1
>> ACHSCFY	A3+1
>> ACHSDIEN	NODE+3, NODE+4
>> ACHSEDOS	RCOI+7, RCOI+10, RDX+7
>> ACHSESDO	A1+2, A1+7, A1+15, A2+7, A3+1
ACHSICD	RCOI+7, RCOI+8, RCOI+9, RCOI+10, RDX+7, RDX+11!
ACHSICD1	RCOI+7, RCOI+8, RCOI+10, RDX+7, RDX+11!
ACHSLEX	RCOI+9*, RCOI+12, RDX+9, RDX+11!
ACHSQ	RDX+11!
>> ACHSQUIT	A1+4
>> ACHSRALR	RALR+3, RALR+7*
>> ACHSRCOI	RCOI+12*
>> ACHSRDX	NODE+3
>> ACHSRDX(	RDX+9*
>> ACHSRDXN	RDXN+2, RDXN+6*
>> ACHSRMPC	A3+4, A3+8*
>> ACHSRPHY	RPHY+5, RPHY+11*
>> ACHSRPX	RPX+5, NODE+4
>> ACHSRPX(	RPX+5, RPX+7, RPX+8!
>> ACHSRPXN	RPXN+2, RPXN+6*
>> ACHSSLOC	A4+1
>> ACHSTYP	A1+14, A4+1
DIC	RPHY+3*, RPHY+7!, RCOI+13!, RDX+11!
DIC("A"	RPHY+3, RCOI+11, RDX+8*
DIC("B"	RPHY+5*
DIC("S"	RPHY+4*
DIC(0	RPHY+3*
DIR	KDIR+1!
DIR("??"	A3+3*
DIR("A"	RPX+7*
DIR("B"	A3+4, RALR+3, RDXN+2, RPX+7!, RPXN+2*
DIR(0	A3+3, RALR+2, RDXN+1, RPX+6, RPXN+1*
DIRUT	RPX+7, KDIR+1!
>> DTOUT	A2+5, A3+6, A4+3, RPHY+8, RALR+5, RDXN+4, RPX+9, RPXN+4
>> DUOUT	A1+5, A2+6, A3+6, A4+5, RPHY+8, RALR+5, RDXN+4, RPX+8, RPX+9, RPXN+4
DUZ(2	A1+14, NODE+3, NODE+4
ICDV	RCOI+13!, RDX+11!
LEXQ	RCOI+13!, RDX+10!, RDX+11!
LEXVDT	RCOI+13!, RDX+10!, RDX+11!
>> S	A1+17*, A2+2, A2+7
U	A1+14, A1+16, RPHY+5, RPX+5, RPX+7
X	A1+2, A1+16, A1+17, A2+2, RCOI+12!, RCOI+13!, RDX+8!, RDX+11!, RPX+8
>> X2	A1+2, A2+2
Y	A1+6, A1+7, A1+8, A1+9, A1+10, A1+11, A1+15, A1+16, A1+17, A2+4 , A2+6, A3+8, A4+2*, A4+4, RPHY+11, RCOI+12, RCOI+13!, RALR+7, RDX+6, RDX+8 , RDX+11!, RDXN+6, RPX+7, RPXN+6
Y(	RCOI+12, RDX+9

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSA6

Call Graph Total: 14

Caller Graph Total: 1