Routine: ACMDALLR

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE ^DIK ^DIR
Case Management System	1	RGTPX^ACMGTPZ

Entry Points

Name	Comments	DBIA/ICR reference
FRESH2	;
DELREG
EN
DSPSAV	;DISPLAYS SAVED REGISTERS
SAVE1
DELLST
SUSR0
SUSR1	;
FRESH1	;
EXIT
SUSR
FRESH
SAVE	;ALLOWS USER TO SAVE EXISTING REGISTERS FROM DELETION
DELETE	;

External References

Name	Field # of Occurrence
RGTPX^ACMGTPZ	SAVE1
^DIC	SUSR
^DIE	SUSR1+2
^DIK	DELETE+4, DELETE+9, DELETE+13, DELETE+16, DELLST, FRESH2+2
^DIR	DELREG+6, DELREG+11, SAVE+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING",7,7,*7,!!,"The next procedure will allow you to COMPLETELY delete ALL Registers from" Line Location: DELREG+1
Function Call: WRITE	Prompt: !,"the Case Management System. The register, including all patients and all",!,"information on all patients will be deleted WITH NO POSSIBILITY of recovering" Line Location: DELREG+2
Function Call: WRITE	Prompt: !,"any of the data. Be absolutely certain this is what you want before proceding." Line Location: DELREG+3
Function Call: WRITE	Prompt: ! Line Location: DELREG+5
Function Call: WRITE	Prompt: ! Line Location: DELREG+10
Function Call: WRITE	Prompt: !!,"First I will remove unreferenced pointers..." Line Location: DELREG+13
Function Call: WRITE	Prompt: !,"...Finished...Starting Deletions..." Line Location: DELREG+14
Function Call: WRITE	Prompt: !!,"...Deleting all REGISTERS completed",! Line Location: DELREG+16
Function Call: WRITE	Prompt: !!,"...Saving Register: ",ACMRGNA,!! Line Location: DELETE+2
Function Call: WRITE	Prompt: !!,"...Deleting all PATIENT related data...for register: ",ACMRGNA Line Location: DELETE+3
Function Call: WRITE	Prompt: "." Line Location: DELETE+4
Function Call: WRITE	Prompt: !,"...Deleting all REGISTER related list entries...for register: ",ACMRGNA Line Location: DELETE+6
Function Call: WRITE	Prompt: "." Line Location: DELETE+9
Function Call: WRITE	Prompt: !,"...Deleting all PATIENTS from the register...",ACMRGNA Line Location: DELETE+11
Function Call: WRITE	Prompt: "." Line Location: DELETE+13
Function Call: WRITE	Prompt: !,"...Deleting the register...",ACMRGNA Line Location: DELETE+15
Function Call: WRITE	Prompt: !,"The ",ACMRGNA," and all related data have been deleted.",!! Line Location: DELETE+18
Function Call: WRITE	Prompt: "." Line Location: DELLST+0
Function Call: WRITE	Prompt: "." Line Location: FRESH2+2
Function Call: WRITE	Prompt: ! Line Location: SAVE+3
Function Call: WRITE	Prompt: !,"FINISHED..." Line Location: SAVE1+1
Function Call: WRITE	Prompt: !,"Saving ",ACMRGNA Line Location: SAVE1+2
Function Call: WRITE	Prompt: !!!,"Saved Registers include: " Line Location: DSPSAV+1
Function Call: WRITE	Prompt: !,"Register: ",X Line Location: DSPSAV+1
Function Call: WRITE	Prompt: !! Line Location: DSPSAV+2
Function Call: WRITE	Prompt: !,"User is now authorized for ALL registers...",!! Line Location: SUSR0+1
Routine Call	DIE Line Location: SUSR1+2
Routine Call	DIC Line Location: SUSR
Routine Call	DIR Line Location: DELREG+6 DELREG+11 SAVE+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^ACM(41 - [#9002241]	Classic Fileman Calls
^ACM(41.1 - [#9002241.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(	FRESH1+1, FRESH2+1
^ACM(41 - [#9002241]	DELETE+13
^ACM(41.1 - [#9002241.1]	DELREG+15, DELETE+1, SAVE1+2, SUSR0, SUSR1+1*
^TMP("ACM"	DELETE+2, SAVE+1!, SAVE1+2*, DSPSAV+1

Label References

Name	Line Occurrences
DELETE	DELREG+15
DELLST	DELETE+9
DELREG	EN
DSPSAV	SAVE1+1
FRESH	DELREG+13
FRESH1	FRESH
FRESH2	FRESH1+1
SAVE	DELREG+8
SAVE1	SAVE1+2
SUSR0	DELREG+7
SUSR1	SUSR0

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACMCTR	EXIT!, DELREG+15*, DELETE+1
ACMCTR2	EXIT!, DELLST*
ACMCTRL	EXIT!
ACMCTRLE	EXIT!
ACMCTRLP	EXIT!
ACMCTRLS	EXIT!
ACMCTRLX	EXIT!
ACMDELRG	EXIT!, SAVE1*
ACMGREF	EXIT!, DELETE+4, DELETE+7, DELETE+9, DELLST
ACMI	EXIT!, DELETE+4, DELETE+7, DELETE+9, DELLST, FRESH*, FRESH1+1, FRESH2+1, FRESH2+2
ACMQ	DELREG+8, SAVE+1!, SAVE+5*
ACMRG	EXIT!, DELETE+1*, DELETE+7, DELETE+9, DELETE+13, DELETE+16, SAVE1+1, SAVE1+2
ACMRGNA	EXIT!, DELETE+1, DELETE+2, DELETE+3, DELETE+4, DELETE+6, DELETE+11, DELETE+15, DELETE+18, SAVE1+2
ACMRGTP	EXIT!, SAVE1*
>> ACMX	SUSR0*, SUSR1+1, SUSR1+2
>> ACMY	SUSR0*, SUSR1+2
ACZ	EXIT!, FRESH1+1*, FRESH2+1, FRESH2+2
DA	DELETE+4, DELETE+5!, DELETE+8, DELETE+9, DELETE+10!, DELETE+12, DELETE+13, DELETE+14!, DELETE+16, DELETE+17! , DELLST, FRESH2+2, SUSR1+2*
DA(1	DELETE+7, DELETE+9, DELLST, SUSR1+2
DIC	DELETE+5!, DELETE+10!, DELETE+14!, DELETE+17!, SUSR*
DIC(0	SUSR, SUSR1+2
>> DIE	SUSR1+2*
DIK	DELETE+4, DELETE+5!, DELETE+9, DELETE+10!, DELETE+12, DELETE+14!, DELETE+16, DELETE+17!, DELLST, FRESH2+2
DIR	DELREG+6!, DELREG+11!, SAVE+4!
DIR("A"	DELREG+4, DELREG+9, SAVE+2*
DIR("B"	DELREG+4, DELREG+9, SAVE+2*
DIR(0	DELREG+4, DELREG+9, SAVE+2*
>> DR	SUSR1+2*
DUZ	DELREG+7
IOF	DELREG
U	DELETE+1, SAVE1+2
>> X	FRESH2+1, DSPSAV+1
>> Y	DELREG+7*, DELREG+12, SAVE+5, SUSR, SUSR0

Customize PDF page

Package: Case Management System

Routine: ACMDALLR

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: