Routine: ACHSA4

Package	Total	Call Graph
Contract Health Management Information System	4	$$PARM^ACHS (A3,END)^ACHSA ^ACHSA5 READ^ACHSFU
IHS VA Utilities	1	$$DIR^XBDIR
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIC

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHSA3 ACHSA5

Entry Points

Name	Comments	DBIA/ICR reference
HDR	;
ACHK1	;
ACHK2	;
CANDSP1	;
AEND	;
ALL1A	;
A1	;EP
ALL1B	;
A3	;
A2	;
A4	;
A8	;
GTH	;
A3B	;
A3A	;
ALL3	;
ALL2	;
ALL1	;
ACHK	;EP.
ALLCAN	;
ACHKA	;
ACHKB	;
CANDSP	;

External References

Name	Field # of Occurrence
$$PARM^ACHS	A2+2
A3^ACHSA	A1+5, A1+8
END^ACHSA	A1+4, AEND+3
^ACHSA5	ACHK2+1
READ^ACHSFU	A1+3
^DIC	GTH+3
$$DIR^XBDIR	CANDSP+5, AEND+2, CANDSP1+9
$$FMTE^XLFDT	A1+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!,"CHS COST CENTER TABLE INCOMPLETE.",! Line Location: ACHSA4+21
Function Call: WRITE	Prompt: !!,"Enter last 4 digits of the CAN Number: " Line Location: A1+1
Function Call: WRITE	Prompt: $P($G(^ACHS(2,ACHSCAN,0)),U),"// " Line Location: A1+2
Function Call: WRITE	Prompt: *7," Must Have CAN Number" Line Location: A1+7
Function Call: WRITE	Prompt: *7," ??" Line Location: A1+9
Function Call: WRITE	Prompt: " ",Y Line Location: A1+14
Function Call: WRITE	Prompt: *7," ??",!! Line Location: A1+19
Function Call: WRITE	Prompt: !?20,"CAN ",Y," EXPIRED ",$$FMTE^XLFDT($P($G(^ACHS(2,N,0)),U,4)),".",!?21," PLEASE SELECT ANOTHER CAN!" Line Location: A1+20
Function Call: WRITE	Prompt: !! Line Location: A1+20
Function Call: WRITE	Prompt: !,$J(ACHS,5),?10,ACHSCNFY,?15,ACHSCANZ Line Location: CANDSP+3
Function Call: WRITE	Prompt: ?30,$P($G(^ACHS(1,$P($G(^ACHS(2,ACHSRR,0)),U,2),0)),U,2) Line Location: CANDSP+4
Function Call: WRITE	Prompt: 7,!!,"There are no CHS COMMON ACCOUNTING NUMBERs for this facility.",!!,"Please contact your Site Manager.",!,7 Line Location: AEND+1
Function Call: WRITE	Prompt: *7,!?5,"'O' CANs are not authorized." Line Location: ACHK+2
Function Call: WRITE	Prompt: *7,!?5,"CAN '",$P($G(^ACHS(2,ACHSCAN,0)),U),"' is invalid for FY '",ACHSACFY,"'." Line Location: ACHK+7
Function Call: WRITE	Prompt: *7,!?5,"Date Of Service ",$S(%=1:"BEFORE",1:"AFTER")," 2-year CAN's authority." Line Location: ACHK+10
Function Call: WRITE	Prompt: *7," CAN # NOT FOR THIS FACILITY" Line Location: ACHK+14
Function Call: WRITE	Prompt: !!,*7," CAN # NOT VALID FOR DOCUMENT TYPE" Line Location: ACHK+17
Function Call: WRITE	Prompt: *7,!," CAN # CANNOT BE USED FOR THIS FISCAL YEAR." Line Location: ACHKA+4
Function Call: WRITE	Prompt: *7,!," CAN # HAS EXPIRED AND CANNOT BE USED" Line Location: ACHKB+2
Function Call: WRITE	Prompt: !!,*7," NOT VALID CAN NUMBER FOR HSA-43" Line Location: ACHK1+6
Function Call: WRITE	Prompt: !,$J(ACHS,5),?10,ACHSCNFY,?15,ACHSCANZ Line Location: CANDSP1+3
Function Call: WRITE	Prompt: ?30,$P($G(^ACHS(1,$P($G(^ACHS(2,ACHSRR1,0)),U,2),0)),U,2) Line Location: CANDSP1+6
Function Call: WRITE	Prompt: ?30,$P($G(^ACHS(1,$P($G(^ACHS(2,ACHSRR1,0)),U,2),0)),U,2) Line Location: CANDSP1+7
Function Call: WRITE	Prompt: !!,"ITEM #",?10,"FY",?15,"CAN NUMBER",?30,"DESCRIPTION OF THE CAN NUMBER",!,"------",?10,"--",?15,"----------",?30,"-----------------------------" Line Location: HDR+1
Routine Call	DIC Line Location: GTH+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACHS(2 - [#9002062]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHS("TEST VERSION"	ACHSA4+6, ACHSA4+7
^ACHS(1 - [#9002061]	ACHSA4+11, ACHSA4+12, ACHSA4+13, ACHSA4+14, ACHSA4+16, ACHSA4+19, CANDSP+4, ACHK1+4, CANDSP1+7
^ACHS(2 - [#9002062]	A1+2, A1+17, A1+18, A1+20, A2+4, A3A+1, A3A+4, A3B+1, A3B+3, A3B+4 , A3B+6, CANDSP+4, ACHK+1, ACHK+14, ACHK+15, ACHKA+1, ACHKA+3, ACHKB+1, ALL1+1, ALL1+3 , ALL1+4, ALL1+5, ALL1+6, ALL1+7, ALL1A+1, ALL1A+3, ALL1B+2, CANDSP1+7, CANDSP1+10
^ACHS(3 - [#9002063]	ACHK1+3
^ACHSF - [#9002080]	ACHSA4+15
^AUTTAREA - [#9999999.21]	A1+12
^AUTTLOC - [#9999999.06]	A1+12
^XUSEC("ACHSZMGR"	A2+2

Label References

Name	Line Occurrences
@(	ACHSA4+7
A1	ACHSA4+18, ACHSA4+19, A1+7, A1+9, A1+21, AEND+1, AEND+3, AEND+5, ACHK+2, ACHK+14 , ACHK+18, ACHKA+5, ACHKB+3, ACHK1+7
A2	A1+6
A3	A3+9, A3+10, A3A+2
A3A	A3A+4, A3B+2
A3B	A3B+3, A3B+9, A4+1, A8+1, CANDSP+6
A4	A3B+7
A8	A4+1
ACHK	A1+7, A1+18
ACHK1	ACHKB+1
ACHK2	ACHK1+1, ACHK1+4, ACHK1+5
ACHKA	ACHK+16
ACHKB	ACHKA+1, ACHKA+3
AEND	A3+8, CANDSP+5, ALL1+2, CANDSP1+9
ALL1	ALL1+4, ALL1+5, ALL1A+2, ALL1B+5, ALL2+1, ALL3+1, CANDSP1+10
ALL1A	ALL1A+2, ALL1A+4, ALL1A+10, CANDSP1+11
ALL1B	ALL1+7
ALL2	ALL1B+3
ALL3	ALL2+1
ALLCAN	A2+2
CANDSP	A3B+5, A3B+8, A4+1
CANDSP1	ALL1B+1, ALL1B+4, ALL2+1
HDR	CANDSP+2, CANDSP1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ACHK+1, ACHK+2, ACHKA+2, ACHKA+3*
>> ACHS	A2+7, CANDSP+1, CANDSP+2, CANDSP+3, CANDSP+5, AEND+1, AEND+2, ALLCAN+2, CANDSP1+1, CANDSP1+2 , CANDSP1+3, CANDSP1+9
>> ACHS(	CANDSP+1, AEND+4, CANDSP1+1
>> ACHS("FY"	A2+4!*, A3+7, A3+11
>> ACHS533	ACHSA4+16*, A3B+8, ACHK1+3, ACHK1+5, ALL1B+4
>> ACHS568	ACHSA4+12*, ACHSA4+18, A4+1, A8+1, ACHK+16, ALL2+1, ALL3+1
>> ACHS573	ACHSA4+11*, ACHSA4+18, A3B+8, ACHK1+3, ACHK1+5, ALL1B+4
>> ACHS574	ACHSA4+13*, ACHSA4+18
>> ACHS575	ACHSA4+14*, A3B+8, ACHK1+5, ALL1B+4
>> ACHSACFY	ACHKA+3
>> ACHSAQ	A3B+6, A3B+8, A4+1, A8+1, ACHK+15, ACHK+16, ACHK1+3, ACHK1+4, ACHK1+5, ALL1B+2* , ALL1B+4, ALL2+1, ALL3+1
>> ACHSCAN	A1+2, A1+7, A1+18, AEND+4, ACHK+1, ACHK+14, ACHK+15, ACHKA+1, ACHKA+3, ACHKB+1
>> ACHSCANZ	A3B+4, CANDSP+3, ALL1+6, CANDSP1+3
>> ACHSCC	A1+2, A1+18, ACHK+15*
>> ACHSCFY	A3+9, A3+10, ACHKA+3, ALL1A+10
>> ACHSCNFY	A3B+4, CANDSP+3, ACHK+13, ALL1+6, ALL1A+3, ALL1A+4, ALL1A+9, ALL1A+10, ALL1A+11, CANDSP1+3
>> ACHSF638	ACHSA4+15*, ACHSA4+19, ACHSA4+22, A3B+5, ACHK+16, ACHK1+4, ALL1B+1
>> ACHSQUIT	A1+4
>> ACHSR1	ALLCAN+2, ALL1+1, ALL1+2, ALL1+3
>> ACHSRR	A3+13, A3A+1, A3A+2, A3A+4, A3B+1, A3B+3, A3B+4, A3B+6, CANDSP+1, CANDSP+4
>> ACHSRR1	ALL1+3*, ALL1+4, ALL1+5, ALL1+6, ALL1+7, ALL1A+1, ALL1A+3, ALL1B+2, CANDSP1+1, CANDSP1+7 , CANDSP1+10
>> ACHSRRR	A3A+5, A3B+1, A3B+2, A3B+3, CANDSP+1
>> ACHSRRR1	ALL1+8, ALL1A+1, ALL1A+2, ALL1A+3
>> ACHSSCC	ACHK1+2, ACHK1+3
>> ACHSTV	ACHSA4+6, ACHSA4+7
>> ACHSTYP	A3B+7, A4+1, ACHK+16, ACHK1+1, ALL1B+3, ALL2+1
>> DIC	GTH+1*
>> DIC(0	GTH+2*
>> DIRUT	AEND+3
DT	A1+18, A1+20, A3A+4, ACHKB+1, ALL1+5
>> DTOUT	A1+8
>> DUOUT	A1+5, AEND+3
DUZ	A2+2
DUZ(2	ACHSA4+15, A1+12, A2+4, A3A+1, A3A+4, A3B+1, ACHK+14, ACHK1+3, ALL1+4
>> N	A1+17*, A1+18, A1+20
>> OLDR	A2+7, A3+7
>> R	A2+4, A2+7, A3+7, A3+8, A3+9, A3+10, A3+11, A3A+1, A3B+1, A3B+4 , CANDSP+5, ALL1+2, CANDSP1+9*
U	ACHSA4+7, ACHSA4+15, A1+2, A1+12, A1+18, A1+20, A3A+4, A3B+4, A3B+6, CANDSP+4 , AEND+4, ACHK+1, ACHK+14, ACHK+15, ACHKB+1, ALL1+4, ALL1+5, ALL1+6, ALL1A+3, ALL1B+2 , CANDSP1+7
>> Y	A1+6, A1+7, A1+9, A1+12, A1+14, A1+17, A1+20, AEND+2, AEND+4

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSA4

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: