Routine: LRAPDAC

Information

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

Source file <LRAPDAC.m>

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

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

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

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