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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^LR - [#63] | Classic Fileman Calls |
63.08 | WP^DIE |