Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Source | Call Graph | Entry Points | External References | Interaction Calls | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All

Print Page as PDF

Routine: LRAPDAC

Package: Lab Service

Routine: LRAPDAC

Information

LRAPDAC ; IHS/DIR/FJE - DELETE AP YEARLY ACCESSIONS 5/9/91 18:12 ;

Source Information

Source file <LRAPDAC.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA Fileman	2	^%DT ^DIC
Lab Service	1	(V,YN)^LRU

Entry Points

Name	Comments	DBIA/ICR reference
ASK
END
AREA

External References

Name	Field # of Occurrence
^%DT	LRAPDAC+5, ASK
^DIC	AREA
V^LRU	END
YN^LRU	ASK+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?20,"Delete anatomic pathology accession lists" Line Location: LRAPDAC+4
Function Call: WRITE	Prompt: ! Line Location: AREA+0
Function Call: WRITE	Prompt: $C(7)," Cannot be current or last year." Line Location: ASK+0
Function Call: WRITE	Prompt: !,"Done." Line Location: ASK+3
Routine Call	DIC Line Location: AREA

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LRO(68 - [#68]	ASK+2!

Label References

Name	Line Occurrences
AREA	AREA
ASK	AREA, ASK, ASK+1, ASK+3
END	AREA

Naked Globals

Name	Field # of Occurrence
^(0	ASK+2*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ASK+1*
>> %DT	LRAPDAC+5, ASK
>> %DT("A"	ASK*
DIC	AREA*!
DIC("A"	AREA*
DIC("S"	AREA*
DIC(0	AREA*
>> LR	ASK*, ASK+2
>> LRA	LRAPDAC+5*, ASK
>> LRAA	AREA*, ASK+2
>> X	LRAPDAC+5, ASK+2
>> X(1	ASK+2*
>> Y	LRAPDAC+5, AREA, ASK

Info | Source | Call Graph | Entry Points | External References | Interaction Calls | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All