Routine: LRAPLG1

Information

LRAPLG1 ;DALOI/CKA,JMC,PMK - LOG-IN CONT. ;02/17/17 13:42

Source file <LRAPLG1.m>

Name	Comments	DBIA/ICR reference
START	; Start logging in the specimens.
EN	;
AU	; Autopsy Specific
LR7OFA0	;
TST	; Get the ordered test and store in temp array
LDSI	; LDSI tasks
LDSI1
UPD68	; Update #68 with required test data
UPD63	; Update ORUT Node in #63
X	; from LRAUAW
OS	; User choosing accession number
OSDIR	; Called from DIR call in OS above
ORDTST	; Prompt for ordered test(s); translate to NLT code for storage in ORUT ; Add NLT code to temp array LRXX (This code currently assumes one ordered test per accession)
GETSTCS	;Get spec top and coll samp
CRE868	; Create accession number in file 68
CRE863	; Create entry in file #63
SPMOVE	; Copy surgery information into lab package ; - store surgery package reference to retrieve surgeon/attending. ; - LRFLAG used to determine if data copied from Surgery packge and moved to Lab and generate notice. ; if no data before and data after call to SROSPLG then add disclaimer.
LRMSG(LRRNAME,LRFMERR)	; ; Filing error notification ; Inputs ; LRRNAME: Routine name (TAG~RTN) ; LRFMERR:<byref> FileMan error local array
OUT	; ; Exit point
END	; from LRAUAW, LRAPLG2 ; Lock Accession file
FIX	; Entry point to delete an orphan AP entry in file #63

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Assign ",LRO(68)," (",LRABV,") accession #: ",LRAN Line Location: EN+8
Function Call: WRITE	Prompt: $C(7),!!,"All Prompts not answered - <ENTRY DELETED>" Line Location: LR7OFA0+27
Function Call: WRITE	Prompt: $C(7),!!,"No ordered test selected - <ENTRY DELETED>" Line Location: TST+7
Function Call: WRITE	Prompt: !!,?5,"This accession has already been logged in." Line Location: OS+13
Function Call: WRITE	Prompt: !,?5,"""Log-in menu, anat path"" should NOT be used to edit an accession." Line Location: OS+14
Function Call: WRITE	Prompt: !,?5,"Use ""Edit/modify data, anat path"" instead." Line Location: OS+15
Function Call: WRITE	Prompt: !,"This program only supports SP, CY and EM subscripts",! Line Location: FIX+9
Function Call: WRITE	Prompt: !,"Report has been released!",! Line Location: FIX+14
Function Call: WRITE	Prompt: !,"Report has associated images in IMAGING package!" Line Location: FIX+16
Function Call: WRITE	Prompt: !,"Disposition these images before deleting this entry!",! Line Location: FIX+17
Function Call: WRITE	Prompt: !!,"Entry deleted",! Line Location: FIX+56

FileNo	Call Tags
^LR - [#63]	Classic Fileman Calls
63.08	WP^DIE