Routine: ACHSA3

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Contract Health Management Information System	8	($$FC,RTRN)^ACHS (A3,END)^ACHSA (B5,B5A)^ACHSA1 ^ACHSA4 ($$PRMT,DIRD,READ)^ACHSFU ^ACHSUCN ^ACHSUD1 (A1,A2)^ACHSURT
IHS VA Utilities	2	$$DIR^XBDIR ($$C,$$EXTSET)^XBFUNC
VA Fileman	2	(C,D)^%DTC ^DIR
Kernel	1	($$FMTE,$$FMTH,$$HTFM)^XLFDT

Package

Total

Call Graph

Contract Health Management Information System

($$FC,RTRN)^ACHS (A3,END)^ACHSA (B5,B5A)^ACHSA1 ^ACHSA4 ($$PRMT,DIRD,READ)^ACHSFU ^ACHSUCN ^ACHSUD1 (A1,A2)^ACHSURT

IHS VA Utilities

$$DIR^XBDIR ($$C,$$EXTSET)^XBFUNC

VA Fileman

(C,D)^%DTC ^DIR

Kernel

($$FMTE,$$FMTH,$$HTFM)^XLFDT

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSA1

Package

Total

Caller Graph

Contract Health Management Information System

ACHSA1

Entry Points

Name	Comments	DBIA/ICR reference
MSG(MSG)	;
B6A	;
B10	;
R10	;
A1	;
A2	;
C2	;
C1	; Enter period of authorization (From/To dates).
R1	; Display rate/AGR quotes for vendors.
A1A	;
B5B	;
CARE	;
C1A	;
B20	; Enter description of service.
B4	;
B5	; Enter contract number of vendor
B6	;
B7	;
CONCHK	; Check if contract in effect during From-To dates.
DUPCK	;
D3	;
D1	;

External References

Name	Field # of Occurrence
C^%DTC	A1A+2
D^%DTC	A2+8
$$FC^ACHS	MSG+2
RTRN^ACHS	MSG+4
A3^ACHSA	B20+9, C2+4
END^ACHSA	B5B+2, B7+3, B20+8, A1+4, A2+2
B5^ACHSA1	B5B+5, B20+9
B5A^ACHSA1	B7+6
^ACHSA4	D1+3
$$PRMT^ACHSFU	B20+5
DIRD^ACHSFU	B20+7
READ^ACHSFU	B5B+1, B7+2
^ACHSUCN	B4+3, B6+4
^ACHSUD1	C2+2
A1^ACHSURT	B4+11
A2^ACHSURT	R1+5
^DIR	B20+7
$$DIR^XBDIR	B10+5, B10+7, A1+3, A2+1
$$C^XBFUNC	MSG+1, MSG+2, MSG+3
$$EXTSET^XBFUNC	B10+9, CARE+3, CARE+12
$$FMTE^XLFDT	A1+3, A2+1, CONCHK+8, CARE+4, CARE+13
$$FMTH^XLFDT	A2+1
$$HTFM^XLFDT	A1+3, A2+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Contract Number: " Line Location: B5+1
Function Call: WRITE	Prompt: $P($G(^AUTTVNDR(ACHSPROV,"CN",ACHSCONP,0)),U),"// " Line Location: B5+2
Function Call: WRITE	Prompt: " Deleted" Line Location: B5B+8
Function Call: WRITE	Prompt: *7," ??" Line Location: B5B+15
Function Call: WRITE	Prompt: !!," No Contracts Currently in Force For This Vendor" Line Location: B6A+1
Function Call: WRITE	Prompt: !!,"Which One: " Line Location: B7+1
Function Call: WRITE	Prompt: " Select 1 Thru ",(C+1) Line Location: B7+8
Function Call: WRITE	Prompt: *7," ????" Line Location: B7+10
Function Call: WRITE	Prompt: !!,"Contract Number: Open Market// " Line Location: B7+11
Function Call: WRITE	Prompt: *7," ??" Line Location: B7+19
Function Call: WRITE	Prompt: !,$$PRMT^ACHSFU(22,ACHSDES,30) Line Location: B20+5
Function Call: WRITE	Prompt: !!,"Period Of Authorization" Line Location: C1+5
Function Call: WRITE	Prompt: !," Ending Period Of Authorization Must Be After Estimated Date Of Service ",! Line Location: A2+5
Function Call: WRITE	Prompt: *7,!," The Authorization May Not Exceed 120 Days" Line Location: A2+9
Function Call: WRITE	Prompt: !!,*7,"Sorry - this document was issued for another patient.",!,"Please Re-enter document number." Line Location: C2+6
Function Call: WRITE	Prompt: !!,*7,"Sorry - Hospital order number must reference a 43 document.",!,"Please Re-enter document number." Line Location: C2+7
Function Call: WRITE	Prompt: *7,!!,"CONTRACT NOT IN EFFECT ",$$FMTE^XLFDT(ACHSFDT),$S(ACHSTDT:" TO "_$$FMTE^XLFDT(ACHSTDT),1:""),".",! Line Location: CONCHK+8
Function Call: WRITE	Prompt: 7,7,*7,!!,$$C^XBFUNC("Hold on now pardner! Whoa Nellie!") Line Location: MSG+1
Function Call: WRITE	Prompt: !!,$$C^XBFUNC("Document "_$P($G(^ACHSF(ACHSPATF,"D",D,0)),U,14)_"-"_$$FC^ACHS(ACHSPATF)_"-"_$P($G(^ACHSF(ACHSPATF,"D",D,0)),U)_" has a "_MSG_" date real close to yours.") Line Location: MSG+2
Function Call: WRITE	Prompt: !,$$C^XBFUNC("( Continue....if you're sure this isn't a duplicate P.O. )") Line Location: MSG+3
Function Call: WRITE	Prompt: !!,"Medicare Provider Status Set to: ",ACHSMCR,!,"Last Updated:",$$FMTE^XLFDT($G(ACHSLDT)),! Line Location: CARE+4
Function Call: WRITE	Prompt: !,?20,"Services at Medicare Like Rates",! Line Location: CARE+6
Function Call: WRITE	Prompt: "#",?5,"Provider No",?23,"Effect Date",?37,"End Date",?51,"Description",! Line Location: CARE+7
Function Call: WRITE	Prompt: ?5,"-----------",?23,"----------",?37,"--------",?51,"-----------" Line Location: CARE+8
Function Call: WRITE	Prompt: !,$J(CT,2),?5,ACHSMPN,?23,$$FMTE^XLFDT($G(ACHSBDT)),?37,$$FMTE^XLFDT($G(ACHSEDT)),?51,$G(ACHSDS),! Line Location: CARE+13
Routine Call	DIR Line Location: B20+7

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	A2+6, C2+6, C2+7, DUPCK+5, DUPCK+7, DUPCK+10, DUPCK+22, MSG+2
^AUTTVNDR - [#9999999.11]	B5+2, B5B+13, R10+4, R10+7, B10+3, CONCHK+3, CONCHK+4, CARE+2, CARE+9, CARE+10

Label References

Name	Line Occurrences
A1	A2+3, A2+9
B10	R1+1, R10+1, A1+5
B20	B10+1, B10+3, B10+4, B10+6
B4	D1+1, D3+1
B5	B5B+14, B7+9, B7+23, D3+1
B5B	B5+2, B7+11
B6	B5+3, B5B+5
B6A	B4+14
B7	B7+8, B7+10
C1	A2+5
C1A	C1+4
C2	C2+6, C2+7
CARE	B4+13
CONCHK	D1+1
D1	C1A+1, C2+5
DUPCK	B20+1
MSG	DUPCK+13, DUPCK+17, DUPCK+22
R1	B4+16, B5B+5, B5B+8, B6A+1
R10	R1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACHSACO	B4+1, B4+14, B6+1, B6A+1, B7+12*
>> ACHSAGRP	R10+1, R10+4, R10+7
>> ACHSBDT	CARE+11*, CARE+13
>> ACHSCONP	B4+7, B5+2, B5B+8, B5B+14, B7+11, B7+22, R10+7, B10+8*, D1+1, D3+1 , CONCHK+3, CONCHK+4
>> ACHSCTNA	B4+16, R1+2
>> ACHSDES	B10+9, B20+4, B20+5, B20+10
>> ACHSDRG	R10+4*
>> ACHSDS	B10+6, B10+8, B10+9, CARE+11, CARE+12, CARE+13
>> ACHSEDOS	C1+1, A2+5, DUPCK+13, DUPCK+17, DUPCK+22
>> ACHSEDT	CARE+11*, CARE+13
>> ACHSFDT	B5B+13, C1+1, A1+3, A1+6, A1A+1, A1A+4, A2+1, A2+7, CONCHK+5, CONCHK+6 , CONCHK+8
>> ACHSFYDT	A2+6
>> ACHSHON	C2+5, C2+6, C2+7
>> ACHSLDT	CARE+2*, CARE+4
>> ACHSMCR	CARE+2, CARE+3, CARE+4, CARE+5
>> ACHSMP	CARE+5, CARE+9, CARE+10
>> ACHSMPN	B10+3, B10+5, B10+6, B10+8, CARE+11, CARE+13
>> ACHSMPN(	B10+8, CARE+10*, CARE+11
>> ACHSMPP	B10+6, B10+8
>> ACHSPATF	DUPCK+1, DUPCK+5, DUPCK+7, DUPCK+10, DUPCK+22, MSG+2
>> ACHSPFYE	A2+6*
>> ACHSPROV	B4+8, B5+2, B5B+13, R10+4, R10+7, B10+3, CONCHK+3, CONCHK+4, DUPCK+1, DUPCK+7 , CARE+2, CARE+9, CARE+10
>> ACHSQUIT	B5B+2, B7+3
>> ACHSRT(	B7+22
>> ACHSRT(0	R1+1
>> ACHSTDT	A1A+3, A1A+4, A2+1, A2+4*, A2+5, A2+7, CONCHK+6, CONCHK+8
>> ACHSTYP	R10+4, R10+7, B10+1, B10+4, B20+9, C1+4, A1A+1, C1A+1, CONCHK+1, CARE+3
>> C	B4+7, B4+16, B5+3, B5B+7, B5B+13, B5B+14, B6A+1, B7+8, B7+10, B7+11 , R1+2
>> CT	B10+7, CARE+5, CARE+11, CARE+13, CARE+14
D	DUPCK+2~, DUPCK+3, DUPCK+5, DUPCK+7, DUPCK+10, DUPCK+22, MSG+2
DA	B20+6!
>> DFN	C2+6, DUPCK+1, DUPCK+5
DIR	B20+2!, B20+11!
DIR("B"	B20+4*
DIR(0	B20+3*
>> DTOUT	B20+8, A1+4, A2+2
DUOUT	B5B+5, B7+6, B20+9, A1+5, A2+3, C2+4, D1+1, CONCHK+2!, CONCHK+7*
DUZ(2	A2+6, C2+6, C2+7
E	C2+8!
>> F	B7+12*
>> I	B5B+13, CARE+9, CARE+10, CARE+11
>> L	B4+7, B5B+13*, B5B+14
MSG	MSG~, MSG+2
>> N	B5B+12, B5B+13
ORD	C2+8!
>> P	B4+8*
R	DUPCK+2~, DUPCK+10*, DUPCK+11, DUPCK+13, DUPCK+17
T	DUPCK+2~, DUPCK+18, DUPCK+22
U	B4+7, B5+2, B5B+13, B7+22, R10+4, R10+7, B10+3, B10+8, A2+6, C2+7 , CONCHK+5, CONCHK+6, DUPCK+7, DUPCK+13, DUPCK+17, DUPCK+22, MSG+2, CARE+2, CARE+11
>> X	B20+7, A1A+3, A2+9, CONCHK+4*, CONCHK+5, CONCHK+6
>> X1	A1A+1, A2+7
>> X2	A1A+1, A2+7
>> Y	B5B+5, B5B+8, B5B+11, B5B+13, B7+8, B7+9, B7+10, B7+11, B7+12, B7+22 , B10+5, B10+6, B10+7, B10+8, B20+10, A1+3, A1+6, A1A+3, A2+1*, A2+4

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSA3

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: