Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Lab Service 6 (,GETDEF)^LRAP  (C,C1)^LRAPSWK  D^LRAUAW  (CK,D,FRE,V,XR,YN)^LRU  K^LRUDEL  ^LRUP  
VA FileMan 6 ^%DT  EN^DDIOL  ^DIC  $$GET1^DID  ^DIE  $$GET1^DIQ  
Imaging 1 EDIT^MAGT7MA  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAPED  

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

External References

Name Field # of Occurrence
^%DT LRAPED+19
EN^DDIOL A+4
^DIC ASK+3
$$GET1^DID SET2+6
^DIE DIE+13, DIE+19, AU+3, UIDEX+8, UIDEX+13
$$GET1^DIQ A+1, A+2
^LRAP LRAPED+12
GETDEF^LRAP I+1
C^LRAPSWK I+11
C1^LRAPSWK DIE+22
D^LRAUAW SET1+5
CK^LRU DIE+2
D^LRU LRAPED+21, I+8, A+7
FRE^LRU DIE+23
V^LRU END+1
XR^LRU LRAPED+13
YN^LRU LRAPED+16, EDIT+6, A+5
K^LRUDEL K+1
^LRUP EDIT+5
EDIT^MAGT7MA G+7

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
Routine Call
  • DIC
  • Line Location:
    • ASK+3
Routine Call
  • DIE
  • Line Location:
    • DIE+13
    • DIE+19
    • AU+3
    • UIDEX+8
    • UIDEX+13

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LR - [#63] EDIT+2, EDIT+4!, EDIT+5, I+2, I+3, I+5!, I+6, I+9, DIE+4, DIE+9
DIE+22, A+6, A+12, CK+1, UIDEX+3
^LRO(68 - [#68] CK1+1, CK1+2, CK1+5*, CK1+7!, CK1+8*, CK1+9, K+1, K+2, K+3!, K+4!
K+5, K+7*, K+8, UIDEX+4, UIDEX+5, UIDEX+6, UIDEX+10
^LRO(69 - [#69] UIDEX+11
^LRO(69.2 - [#69.2] K+10, K+11, K+12, K+13, K+14, K+16*, K+17
^SC - [#44] INACT

Label References

Name Line Occurrences
@( LRAPED+14, EDIT+7
ASK DIE+10, ASKASK+1, ASK+3, ASK+5, INACT+1
ASKOUT ASKASK+4
ASKQ ASKOUT
AU AU+4
CK DIE+21
CK1 AU+5
DIE DIE+20
EDIT G+5
END LRAPED+14, LRAPED+16, LRAPED+17, G+2
G G+3, G+9
HELP DIE+20, AU+4
K CK+1
SET DIE+19
SET1 A+7
UIDEX DIE+15
UIDEXQ UIDEX+3, UIDEX+4, UIDEX+5, UIDEX+6

Naked Globals

Name Field # of Occurrence
^( K+10!
^("I" INACT
^(0 I+9, CK1+1
^(3 CK1+2*, CK1+9*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LRAPED+16*, LRAPED+17, EDIT+6*, SET1+4, A+5*, ASKQ!
%DT LRAPED+18*, LRAPED+19!
%DT("A" LRAPED+18*
%DT(0 LRAPED+18*
>> A K+9*, K+10, K+11, K+12, K+13, K+14, K+16, K+17
DA I+7*, DIE+12*, DIE+18*, SET1+2*, A+6*, UIDEX+7*, UIDEX+8!, UIDEX+12*, UIDEXQ!
DA(1 I+7*, DIE+12*, DIE+18*, UIDEX+12*
DIC ASK+2!, ASK+3*!, ASKQ!
DIC("S" ASK+2*
DIC(0 ASK+3*
DIE I+7*, DIE+12*, DIE+18*, SET1+2*, A+6*, UIDEX+7*, UIDEX+8!, UIDEX+12*, UIDEXQ!
>> DIROUT ASK+4
DIRUT END+1!
DR DIE+13*!, SET+7*, SET+8*, SET+9*, SET1+2*, SET1+3*, SET1+4*, UIDEX+7*, UIDEX+8!, UIDEX+12*
, UIDEXQ!
DR(2 SET+12*, SET+13*, SET+16*, SET+17*, SET+20*, SET+21*
DT INACT+1
DTIME G+1, ASK
DTOUT ASK+4, END+1!
DUOUT ASK+4, END+1!
>> DUZ(2 K+4
END G+5!, DIE+10, ASKOUT*
FIELD SET2~, SET2+6
FILE SET2~, SET2+6
LABEL SET2+5~, SET2+6*, SET2+7*, SET2+9
LR("CK" DIE+3!
>> LR(63 SET1+6, A+10
>> LRAA CK1+1, CK1+2, CK1+5, CK1+7, CK1+8, CK1+9, K+1, K+2, K+3, K+4
K+5, K+7, K+8, K+10, K+11, K+12, K+13, K+14, K+16, K+17
>> LRABV LRAPED+15, EDIT+2, EDIT+4, I+2, I+5
LRACC EDIT+1~, DIE+4*, DIE+6, A+12*, AU+2
>> LRAD LRAPED+21*, LRAPED+22, CK1+1, CK1+2, CK1+5, CK1+7, CK1+8, CK1+9, K+1, K+3
K+4, K+5, K+7
>> LRAN G+1*, G+2, G+3, EDIT+2, EDIT+4, I+2, I+5, CK1+1, CK1+2, CK1+5
CK1+7, CK1+8, CK1+9, K+1, K+3, K+4, K+6, K+10
>> LRB I+7*, SET1+6*, A+9, CK1+2, CK1+9
>> LRC LRAPED+22*, EDIT+2, EDIT+4, I+2, I+5
>> LRCAPA LRAPED+14, I+11, DIE+22
LRCOMP LRAPED+11~, A+2*, A+3
>> LRD CK1+6*, CK1+7
>> LRDFN EDIT+2*, EDIT+3, EDIT+4, EDIT+5, I+2, I+3, I+5, I+6, I+7, I+9
DIE+4, DIE+9, DIE+12, DIE+18, DIE+22, SET1+2, A+1, A+2, A+6, A+12
CK+1, UIDEX+3
LRDIWESUB EDIT+1~, DIE+6*, AU+2*
>> LRE SET+6*, ASK+6*
>> LRF SET+6*
LRFILE EDIT+1~
>> LRH(0 LRAPED+15, LRAPED+21*
>> LRI I+2*, I+3, I+5, I+6, I+7, I+9, DIE+4, DIE+9, DIE+12, DIE+18
DIE+22, SET1+6*, CK+1, CK1+2, UIDEX+3
LRIA INACT!*, INACT+1, ASKQ!
>> LRJ SET+6*, SET1+2*
LRLLOC DIE+9*, CK1+3, ASKASK+3, ASK+6*, ASK+7*, UIDEXQ!
LRLOCTYP ASK+6*, UIDEXQ!
>> LRMD CK1+3
LRMSG LRAPED+11~
>> LRO(68 LRAPED+15, G+1
LROLLOC ASK+3*, ASK+6*, UIDEXQ!
>> LRP EDIT+5
LRRA INACT!*, INACT+1, ASKQ!
>> LRRC I+6*, A+6*, CK1+3, CK1+8, K+3
LRREL LRAPED+11~, A+1*, A+3
>> LRSS LRAPED+14, EDIT+7, I+3, I+6, I+7, I+9, DIE+4, DIE+9, DIE+12, DIE+18
DIE+22, SET+11, SET+15, SET+19, CK+1, UIDEX+3
>> LRSVC CK1+3
LRTMP LRAPED+11~, CK1+3*, CK1+4*, CK1+5, K+6*, K+7, K+15*, K+16
LRUID UIDEX+3*, UIDEX+4, UIDEX+5, UIDEX+6, UIDEX+8!
>> LRXREF EDIT+2, EDIT+4, I+2, I+5
PREFIX SET2~, SET2+7
>> SSN EDIT+5
U G+2, A+6, CK1+3, CK1+4, CK1+6, CK1+9, ASKASK+6, INACTUIDEX+3
UIDEX+10
>> X LRAPED+14, EDIT+5*, I+6*, I+7, CK1+1*, CK1+3, CK1+4, CK1+6, CK1+9*, K+5*
K+6, K+14*, K+15, ASK*, ASK+1, ASK+3*
>> X(1 K+11*, K+15
X1 UIDEX+2~*, UIDEX+4*, UIDEX+5, UIDEX+6, UIDEX+10
X2 UIDEX+2~*, UIDEX+5*, UIDEX+6, UIDEX+10
X3 UIDEX+2~*, UIDEX+6*, UIDEX+7, UIDEX+10
X4 UIDEX+2~, UIDEX+10*, UIDEX+11, UIDEX+12
X5 UIDEX+2~, UIDEX+10*, UIDEX+11, UIDEX+12
>> Y LRAPED+12, LRAPED+17, LRAPED+20, LRAPED+21*, I+7*, I+8, DIE+20, SET1+6*, A+8, AU+4
ASK+5, ASK+6, INACT
>> Y(0 ASK+6

Marked Items

Name Field # of Occurrence
$T(EDIT^MAGT7MA G+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All