Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRAPLG1

Package: Lab Service

Routine: LRAPLG1


Information

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

Source Information

Source file <LRAPLG1.m>

Entry Points

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

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LR - [#63] Classic Fileman Calls
63.08 WP^DIE
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call