Routine: ACHSRMVD

Package	Total	Call Graph
Contract Health Management Information System	2	RTRN^ACHS Q3^ACHSUD
VA Fileman	2	^DIK ^DIR

Package

Total

Call Graph

Contract Health Management Information System

RTRN^ACHS Q3^ACHSUD

^DIK ^DIR

Name	Comments	DBIA/ICR reference
FY	;Enter FY to remove documents from
DSPL	;Display document information
EXT	;
DEL	;Delete the records
ST	;
PROC	; Beg process to display and delete documents
LOOP	;

Name	Field # of Occurrence
RTRN^ACHS	PROC+10
Q3^ACHSUD	DSPL+6
^DIK	DEL+2
^DIR	FY+2, PROC+12

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: ST+1
Function Call: WRITE	Prompt: ?5,"This routine removes documents that have been added",! Line Location: ST+2
Function Call: WRITE	Prompt: ?5,"after the site manager has removed the entire fiscal",! Line Location: ST+3
Function Call: WRITE	Prompt: ?5,"year documents. You will need to enter the 4 digit",! Line Location: ST+4
Function Call: WRITE	Prompt: ?5,"fiscal year. The duplicate documents will then be",! Line Location: ST+5
Function Call: WRITE	Prompt: ?5,"displayed. You will need to confirm deletion of the",! Line Location: ST+6
Function Call: WRITE	Prompt: ?5,"documents.",!! Line Location: ST+7
Function Call: WRITE	Prompt: ?5,"NOTE: FY ON DISPLAYED DOCUMENTS SHOULD DISPLAY 10 YRS PRIOR TO FY ENTERED,",! Line Location: ST+8
Function Call: WRITE	Prompt: ?5,"EXAMPLE: IF 2008 ENTERED THEN THE FY: 1998 SHOULD DISPLAY FOR DOCUMENTS." Line Location: ST+9
Function Call: WRITE	Prompt: ! Line Location: ST+10
Function Call: WRITE	Prompt: !,"This FY is not valid for this facility" Line Location: PROC+3
Function Call: WRITE	Prompt: !,"Documents to be Removed:" Line Location: PROC+7
Function Call: WRITE	Prompt: !,"There are no documents to be removed...." Line Location: PROC+10
Function Call: WRITE	Prompt: !,"Deleting Documents: " Line Location: PROC+13
Function Call: WRITE	Prompt: !,"Removed ",LISTCNT-1," Documents" Line Location: LOOP+5
Function Call: WRITE	Prompt: !,LISTCNT,". Document: " Line Location: DSPL+5
Function Call: WRITE	Prompt: !?13," FY: ",$P(DOCDATA,U,27)," Date Entered: ",Y Line Location: DSPL+8
Function Call: WRITE	Prompt: " DELETED" Line Location: DEL+3
Routine Call	DIR Line Location: FY+2 PROC+12

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(9 - [#9002069]	PROC+3, PROC+4
^ACHSF - [#9002080]	LOOP+1, LOOP+3, DSPL+2, DSPL+4!
^DD("DD"	DSPL+7

Name	Line Occurrences
DSPL	LOOP+4
EXT	FY+3, PROC+10, PROC+14
FY	FY+4, PROC+3
LOOP	PROC+9, PROC+13

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACHSCFY	FY+1
ACHSCTN	PROC+8, PROC+13, LOOP+5, DSPL+9, EXT+1!
ACHSDIEN	LOOP+2, LOOP+3, DSPL+2, DSPL+4, DSPL+6, DEL+1, EXT+1!
ACHSDOC	PROC+2, PROC+4, PROC+9, LOOP+1, LOOP+3, LOOP+6, DSPL+3, DSPL+4, EXT+1!
ACHSEFY	FY+5*, PROC+3, PROC+4, LOOP+1, EXT+1!
ACHSTMP	PROC+2, PROC+4, LOOP+6, EXT+1!
>> DA	DEL+1*
>> DA(1	DEL+1*
DIK	DEL+1*, DEL+2!
DIR	FY+2!, PROC+12!
DIR("A"	FY+1, PROC+11
DIR("B"	PROC+11*
DIR(0	FY+1, PROC+11
>> DIRUT	FY+3
DOCDATA	DSPL+7, DSPL+8, EXT+1!
DUZ(2	PROC+3, PROC+4, LOOP+1, LOOP+3, DSPL+2, DSPL+4, DEL+1
IOF	ST+1
LISTCNT	PROC+8, PROC+10, PROC+13, LOOP+5, DSPL+5, EXT+1!
U	PROC+4, DSPL+7, DSPL+8
>> Y	FY+4, FY+5, PROC+13, DSPL+6, DSPL+7, DSPL+8

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSRMVD

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: