Routine: ACHSNEW

Package	Total	Call Graph
Contract Health Management Information System	5	$$ZEROTH^ACHS (READ,SB1)^ACHSFU DCR3^ACHSODQ (C0SUB,FY,GLOBERR,INIT)^ACHSUF ^ACHSVAR
VA Fileman	2	WAIT^DICD ^DIE
IHS VA Utilities	1	$$DIR^XBDIR
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

$$ZEROTH^ACHS (READ,SB1)^ACHSFU DCR3^ACHSODQ (C0SUB,FY,GLOBERR,INIT)^ACHSUF ^ACHSVAR

WAIT^DICD ^DIE

$$DIR^XBDIR

$$FMTE^XLFDT

Package	Total	Caller Graph
Contract Health Management Information System	3	ACHSNEWFY ACHSODP ACHSUF

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
BD	;
AUTO	;EP - For automatic setup of new FY.
CANNOT	;
AUTO2	;
AUTO1	;EP
K	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Which fiscal year? (" Line Location: BD+1
Function Call: WRITE	Prompt: ACHS("YR")-2," to ",ACHS("YR")+1,") " Line Location: BD+3
Function Call: WRITE	Prompt: !!,"Enter a four-digit fiscal year - see listed examples." Line Location: BD+6
Function Call: WRITE	Prompt: *7,!!,"This fiscal year is already on file and cannot be reset.",!! Line Location: BD+8
Function Call: WRITE	Prompt: *7,!!,"P.O.s still exist for FY ",ACHS("YR")-10," that will interfere with ",ACHS("YR")," P.O. entry.",!,"Use the ^ACHSYFYD programmer utility to delete P.O.'s for FY ",ACHS("YR")-10,"." Line Location: BD+10
Function Call: WRITE	Prompt: !!,"Registers Already Closed....",!! Line Location: AUTO+1
Function Call: WRITE	Prompt: !!,"Initializing New Registers. Please Wait...",! Line Location: AUTO1+3
Function Call: WRITE	Prompt: !!,"FINISHED....",!! Line Location: AUTO2+14
Function Call: WRITE	Prompt: *7,!!,"Cannot Add New Fiscal Year Until After ",$$FMTE^XLFDT(ACHSFYDT),".",! Line Location: CANNOT+1
Routine Call	DIE Line Location: AUTO2+10 AUTO2+11 AUTO2+12

FileNo	Call Tags
^ACHS(9 - [#9002069]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(9 - [#9002069]	ACHSNEW+10, BD+8, AUTO+1, AUTO2+1!, AUTO2+2, AUTO2+3, AUTO2+4, AUTO2+5, AUTO2+6, AUTO2+7* , AUTO2+8, AUTO2+9, AUTO2+13
^ACHSF - [#9002080]	BD+9

Name	Field # of Occurrence
^(1	AUTO2+9, AUTO2+13

Name	Field # of Occurrence
ACHS	K+2!
ACHS("ACWKX"	ACHSNEW+9*, ACHSNEW+10
ACHS("DCR"	AUTO+3*
ACHS("FYX"	ACHSNEW+8*, ACHSNEW+9, ACHSNEW+10
ACHS("SETNEW"	ACHSNEW+3*
ACHS("YR"	BD+2, BD+3, BD+6, BD+7, BD+8, BD+9, BD+10, AUTO+1, AUTO+3, AUTO2+1 , AUTO2+3, AUTO2+6, AUTO2+8, AUTO2+9, AUTO2+10, AUTO2+11, AUTO2+12, AUTO2+13
>> ACHSACY	AUTO+3*
>> ACHSASK	AUTO+3*
ACHSAUTO	AUTO2+10, AUTO2+11, AUTO2+12, K+2!
>> ACHSERR	ACHSNEW+7, AUTO1+1
>> ACHSFYDT	CANNOT+1
>> ACHSFYWK(	ACHSNEW+8, ACHSNEW+9, AUTO+1
>> ACHSNUM	AUTO+3*
>> ACHSXQT	ACHSNEW+5
DA	AUTO2+10, AUTO2+11, AUTO2+12*, K+1!
DIC	K+1!
DIE	AUTO2+10, AUTO2+12, K+1!
DR	AUTO2+10, AUTO2+11!, AUTO2+12*, K+1!
DR(2	AUTO2+10, AUTO2+11
DT	BD+2
>> DTOUT	BD+5
>> DUOUT	BD+5
DUZ(2	ACHSNEW+8, ACHSNEW+9, ACHSNEW+10, BD+8, BD+9, AUTO+1, AUTO2+1, AUTO2+2, AUTO2+3, AUTO2+4 , AUTO2+5, AUTO2+6, AUTO2+7, AUTO2+8, AUTO2+9, AUTO2+10, AUTO2+11, AUTO2+12, AUTO2+13
IO(0	AUTO1+2
U	AUTO+1, AUTO2+6, AUTO2+7
>> X	AUTO2+5*, AUTO2+7
>> Y	BD+5, BD+6, BD+7

Information