Routine: LRMIU4

Information

LRMIU4 ;SLC/RWF,BA - READ MICRO ACCESSION ; 2/27/89 08:33 ;

Source file <LRMIU4.m>

Name	Line Occurrences
Function Call: READ	Formatting: ! Prompt: "Select Microbiology Accession: " Variable: X Timeout: DTIME 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	Formatting: ! Prompt: " Number part of Accession: " Variable: X3 Timeout: DTIME 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