Routine: LRAPEDC

Package	Total	Call Graph
VA Fileman	5	^%DT EN^DDIOL $$GET1^DID ^DIE $$GET1^DIQ
Lab Service	3	^LRAP (D,V,XR,YN)^LRU ^LRUP

Package

Total

Call Graph

^%DT EN^DDIOL $$GET1^DID ^DIE $$GET1^DIQ

^LRAP (D,V,XR,YN)^LRU ^LRUP

Package	Total	Caller Graph
Lab Service	1	LRAPEDC

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !?14,"1. Enter/edit specimen comment(s)" Line Location: ASK+1
Function Call: WRITE	Prompt: !?14,"2. Enter/edit delayed report comment(s)" Line Location: ASK+2
Function Call: WRITE	Prompt: !!,"EDIT ",LRO(68)," ",LR("C")," comments for ",LRH(0)," " Line Location: ASK+8
Function Call: WRITE	Prompt: !!,"Enter ",LRO(68)," Accession #: " Line Location: G+1
Function Call: READ	Timeout: DTIME Variable: LRAN Line Location: G+2
Function Call: WRITE	Prompt: $C(7)," ENTER NUMBERS ONLY" Line Location: G+3
Function Call: WRITE	Prompt: $C(7)," Not in file" Line Location: EDIT+2
Function Call: WRITE	Prompt: !,LRP," ID: ",SSN," OK " Line Location: EDIT+5
Function Call: WRITE	Prompt: !,LRP," ID: ",HRCN," OK " Line Location: EDIT+6
Function Call: WRITE	Prompt: !,"Specimen date: ",Y Line Location: EDIT+23
Routine Call	DIE Line Location: EDIT+24

FileNo	Call Tags
^LR - [#63]	Classic Fileman Calls, GET1^DID

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	EDIT+1, EDIT+3!, EDIT+4, EDIT+8, EDIT+9, EDIT+11!, EDIT+20

Name	Field # of Occurrence
>> %	ASK+9, ASK+10, EDIT+7
%DT	ASK+11*, ASK+12!
%DT("A"	ASK+11*
%DT(0	ASK+11*
>> DA	EDIT+22*
>> DA(1	EDIT+22*
>> DIE	EDIT+22*
>> DR	ASK+7*
DTIME	ASK+3, G+2
>> HRCN	EDIT+6
>> LR("C"	ASK+7*, ASK+8
>> LRABV	EDIT+1, EDIT+3, EDIT+8, EDIT+11, EDIT+21
>> LRAD	ASK+14*, ASK+15
>> LRAN	G+2*, G+3, EDIT+1, EDIT+3, EDIT+8, EDIT+11
>> LRB	EDIT+23*
>> LRC	ASK+15*, EDIT+1, EDIT+3, EDIT+8, EDIT+11
>> LRD	EDIT+22*
>> LRDFN	EDIT+1*, EDIT+2, EDIT+3, EDIT+4, EDIT+8, EDIT+9, EDIT+11, EDIT+15, EDIT+20, EDIT+22
>> LRDICS	LRAPEDC+6*
LRFILE	LRAPEDC+5~, EDIT+14*, EDIT+15
LRFLD	LRAPEDC+5~, EDIT+12*, EDIT+13, EDIT+14
>> LRH(0	ASK+8, ASK+14*
>> LRI	EDIT+8*, EDIT+9, EDIT+11, EDIT+15, EDIT+20, EDIT+22
LRMSG	LRAPEDC+5~, EDIT+17!, EDIT+18*, EDIT+19
>> LRO(68	ASK+8, G+1
>> LRP	EDIT+6
LRREL	LRAPEDC+5~, EDIT+15*, EDIT+16
>> LRSS	EDIT+9, EDIT+12, EDIT+20
>> LRXREF	EDIT+1, EDIT+3, EDIT+8, EDIT+11
U	ASK+4, G+2
>> X	ASK+3, ASK+4, ASK+5, ASK+7, EDIT+4, EDIT+20*, EDIT+21, EDIT+22, EDIT+23
>> Y	LRAPEDC+6, ASK+10, ASK+13, ASK+14, EDIT+23

Information