Routine: LRMIV3

Information

LRMIV3 ; IHS/DIR/FJE - MICROBIOLOGY VERIFY AUTO INST ROUTINE CONT. 9/9/88 1:03 PM ;

Source file <LRMIV3.m>

Package	Total	Call Graph
VA Fileman	2	^%DT YN^DICN
Lab Service	1	DD^LRX

Package	Total	Caller Graph
Lab Service	1	LRMIV2

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P(^LAB(60,LRTS,0),U)," completed: " Line Location: COMP+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: COMP+1
Function Call: WRITE	Prompt: !," Sure you want to delete" Line Location: DEL+0
Function Call: WRITE	Prompt: !,"This will set the test back to 'incomplete' status." Line Location: DEL+0
Function Call: WRITE	Prompt: !,$C(7),"Date must not be in the future.",! Line Location: STORE+0
Function Call: WRITE	Prompt: !,$P(^LAB(60,+LRTS(J),0),U) Line Location: POST+1
Function Call: WRITE	Prompt: !," Have the same edit template.",!," Are all complete" Line Location: POST+3

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	COMP, POST+1
^LRO(68 - [#68]	COMP, DEL+1!, STORE+1, POST+3, POST+4*

Name	Field # of Occurrence
^(0	POST+4*

Name	Field # of Occurrence
>> %	DEL, DEL+1, POST+3, POST+4
%DT	TIME+1, TIME+3!, COMP+3
DT	STORE
DTIME	COMP+1
DUZ	STORE+1, POST+4
>> I	TIME+1, DEL, POST, POST+1, POST+3*
>> J	POST+1, POST+4
>> K	POST+1*, POST+2
>> LRAA	COMP, DEL+1, STORE+1, POST+3, POST+4
>> LRAD	COMP, DEL+1, STORE+1, POST+3, POST+4
>> LRAN	COMP, DEL+1, STORE+1, POST+3, POST+4
>> LREND	TIME+1, COMP+1
>> LRFIFO	TIME+1
>> LRI	POST*, POST+1, POST+4
>> LRSAME	TIME+2
>> LRTS	COMP, DEL+1, STORE+1, POST, POST+3
>> LRTS(	POST, POST+1, POST+4
>> LRTX(	POST+1, POST+4
U	TIME+1, TIME+2, COMP, COMP+1, COMP+2, DEL+1, STORE+1, POST+1, POST+3, POST+4
>> X	TIME+1, TIME+2, COMP+1, COMP+2, COMP+3
>> Y	TIME+1, COMP, COMP+1, DEL+1, STORE, STORE+1, POST+3, POST+4