Routine: LRCHIVK

Information

LRCHIVK ;SLC/RWF - REMOVE OLD LAB DATA ; 12/14/87 15:46 ;

Source file <LRCHIVK.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,"START OF PURGE PASS" Line Location: EN+1
Function Call: WRITE	Prompt: "." Line Location: DFN+0
Function Call: WRITE	Prompt: !,"Data not found." Line Location: LAB+1
Function Call: WRITE	Prompt: !,"^LAR and ^LR don't match, Data not purged.",!," LRDFN = ",LRDFN_" Sub Script = "_LRSS_" LRIDT = "_LRIDT Line Location: LAB+3
Function Call: WRITE	Prompt: !?4,"^LR("_LRDFN_","_LRSS_","_LRIDT_",0) = ",^LR(LRDFN,LRSS,LRIDT,0) Line Location: LAB+4
Function Call: WRITE	Prompt: !,"^LAR(""Z"","_LRDFN_","_LRSS_","_LRIDT_",0) = ",^LAR("Z",LRDFN,LRSS,LRIDT,0) Line Location: LAB+5
Function Call: WRITE	Prompt: !!,"PURGE PASS DONE " Line Location: END+0