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: LRAPED

Package: Lab Service

Routine: LRAPED


Information

LRAPED ;DALOI/STAFF,PMK - ANATOMIC PATH EDIT LOG-IN ;17 Sep 2013 7:31 AM

Source Information

Source file <LRAPED.m>

Entry Points

Name Comments DBIA/ICR reference
G ;
EDIT ;
I ;Non-autopsy sections (SP,CY,EM)
DIE ;
SET ; Setup fields for SP, CY and EM subscripts to edit.
SET1 ; Setup autopsy fields to edit.
SET2(FILE,FIELD,PREFIX) ; Build field name with specified prefix.
; Call with FILE = file or subfile number
; FIELD = field number of WP field
; PREFIX = prefix for subject header
A ;Autopsy
AU ;
CK ;
CK1 ;
K ;
HELP ;
ASK
INACT
ASKQ
ASKOUT
END ;
UIDEX ;LR*5.2*428 Propagate location/type to file 68 & 69 associated fields
UIDEXQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"EDIT ",LRO(68)," (",LRABV,") Log-In/Clinical Hx for ",LRH(0)," "
  • Line Location: LRAPED+15
Function Call: WRITE
  • Prompt: !!,"Enter ",LRO(68)," Accession #: "
  • Line Location: G+1
Function Call: WRITE
  • Prompt: $C(7)," Not in file"
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !,LRP," ID: ",SSN," OK "
  • Line Location: EDIT+5
Function Call: WRITE
  • Prompt: $C(7),!,"Entry in x-ref but not in file ! X-ref deleted."
  • Line Location: I+4
Function Call: WRITE
  • Prompt: !,"Specimen date: ",Y
  • Line Location: I+8
Function Call: WRITE
  • Prompt: $C(7),!!,"Report released or completed. Cannot edit Log-in data."
  • Line Location: I+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DIE+2
Function Call: WRITE
  • Prompt: !!,"Edit Weights & Measurements "
  • Line Location: A+5
Function Call: WRITE
  • Prompt: !!,"Date Died: ",Y
  • Line Location: A+8
Function Call: WRITE
  • Prompt: $C(7),"? Must have date died entered in ",LR(63,.02)," File."
  • Line Location: A+10
Function Call: WRITE
  • Prompt: !
  • Line Location: AU+3
Function Call: WRITE
  • Prompt: $C(7),!!,"Please do not exit EDIT with an ""^""."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"Press RETURN key repeatedly to complete the edit.",!!
  • Line Location: HELP+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: " Must enter defined location"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: " Enter 2 - 30 alpha-numeric name"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: " You must select a standard location."
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: $C(7)," Location is inactive, Not allowed."
  • Line Location: INACT+1
Function Call: WRITE
  • Prompt: !," VALID LOCATION REQUIRED TO CONTINUE, EXITING SELECTED ACCESSION"
  • Line Location: ASKOUT+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LR - [#63] Classic Fileman Calls,  GET1^DIQ
^LRO(68 - [#68] Classic Fileman Calls
^LRO(69 - [#69] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call