Routine: LRMIU4

Information

LRMIU4 ; IHS/DIR/FJE - READ MICRO ACCESSION 2/27/89 08:33 ;

Package	Total	Call Graph
VA Fileman	2	^%DT ^DIC
Lab Service	1	DATE^LRWU

Package	Total	Caller Graph
Lab Service	6	LRMIEDZ LRMIEDZ2 LRMIPSZ LRMIV LRMIV1 LRMIV2

Name	Line Occurrences
Function Call: READ	Prompt: "Select Microbiology Accession: " Formatting: ! Timeout: DTIME Variable: X Line Location: AA+1
Function Call: WRITE	Prompt: !,X Line Location: ACC+2
Function Call: WRITE	Prompt: !,$P(^LRO(68,LRAA,0),U) Line Location: ACC+4
Function Call: READ	Prompt: " Number part of Accession: " Formatting: ! Timeout: DTIME Variable: X3 Line Location: ACC+9
Function Call: WRITE	Prompt: !,"ACCESSION: ",$P(^LRO(68,LRAA,0),U,11)," ",$E(LRAD,2,3)," ",LRAN," DOES NOT EXIST!" Line Location: ACC+11
Function Call: WRITE	Prompt: !?5,"Enter just the number here, or you may:" Line Location: NQUES+0
Function Call: WRITE	Prompt: $C(7),!,"ENTER THE ACCESSION IN THIS FORMAT.",!?5," <ACCESSION AREA> <DATE> <NUMBER>" Line Location: QUES+0
Function Call: WRITE	Prompt: !?5," ie. MICRO 87 30173 or MICRO 30173" Line Location: QUES+1
Function Call: WRITE	Prompt: !?5," Must be a MICROBIOLOGY accession area." Line Location: QUES+2
Function Call: WRITE	Prompt: !?5," May enter just the Accession area, or area and number." Line Location: QUES+3
Function Call: WRITE	Prompt: !,"Doesn't exist." Line Location: LRANX+3
Function Call: WRITE	Prompt: !,"Incomplete data available." Line Location: LRANX+4
Routine Call	DIC Line Location: ACC+2

Name	Line Occurrences (* Changed, ! Killed)
^DISV(	ACC, LRANX+1
^LRO(68 - [#68]	ACC+2, ACC+3, ACC+4, ACC+11, LRANX+3, LRANX+4

Name	Field # of Occurrence
^("LRACC"	ACC
^("LRAN"	LRANX+1

Name	Field # of Occurrence
%DT	START+1!, AA, ACC+5, ACC+6*
%DT("A"	ACC+5*
%DT("B"	ACC+5*
DIC	START+1!, ACC+2*!
DIC("S"	ACC+2*
DIC(0	ACC+2*
DT	AA*, ACC+5, ACC+6
DTIME	AA+1, ACC+9
DTOUT	START!
DUOUT	START!, ACC+5
DUZ	ACC, LRANX+1
>> I	AA+1*
>> LRAA	START+1, ACC+1, ACC+2*, ACC+3, ACC+4, ACC+11, LRANX+3, LRANX+4
>> LRAD	START+1, ACC+1, ACC+5, ACC+6, ACC+7*, ACC+11, LRANX+3, LRANX+4
>> LRAN	START+1, ACC+1, ACC+10, ACC+11, LRANX+1, LRANX+2, LRANX+3, LRANX+4
>> LRANOK	LRANX+2, LRANX+3, LRANX+4*
LROK	START+1!, AA+1, ACC+5, ACC+9, ACC+12
U	START*, AA+1, ACC+3, ACC+4, ACC+9, ACC+11
>> X	AA, AA+1, ACC, ACC+1, ACC+2, ACC+6, ACC+9, LRANX+1
X1	START+1!, ACC+1*, ACC+2
X2	START+1!, ACC+1, ACC+2, ACC+5, ACC+6*
X3	START+1!, ACC+1, ACC+2, ACC+5, ACC+8, ACC+9*, ACC+10
>> Y	AA, ACC+2, ACC+5, ACC+6