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 |  Local Variables |  All
Print Page as PDF
Routine: LRAPEDC

Package: Lab Service

Routine: LRAPEDC


Information

LRAPEDC ;AVAMC/REG/WTY - EDIT ANATOMIC PATH COMMENTS ;11/20/01

Source Information

Source file <LRAPEDC.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 5 ^%DT  EN^DDIOL  $$GET1^DID  ^DIE  $$GET1^DIQ  
Lab Service 3 ^LRAP  (D,V,XR,YN)^LRU  ^LRUP  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAPEDC  

Entry Points

Name Comments DBIA/ICR reference
ASK ;
EDIT ;
END ;
G ;

External References

Name Field # of Occurrence
^%DT ASK+12
EN^DDIOL EDIT+19
$$GET1^DID EDIT+14
^DIE EDIT+24
$$GET1^DIQ EDIT+15
^LRAP LRAPEDC+6
D^LRU ASK+14, EDIT+23
V^LRU END+1
XR^LRU LRAPEDC+7
YN^LRU ASK+9, EDIT+7
^LRUP EDIT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?14,"1. Enter/edit specimen comment(s)"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !?14,"2. Enter/edit delayed report comment(s)"
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"EDIT ",LRO(68)," ",LR("C")," comments for ",LRH(0)," "
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: !!,"Enter ",LRO(68)," Accession #: "
  • Line Location: G+1
Function Call: READ
  • Timeout: DTIME
  • Variable: LRAN
  • Line Location: G+2
Function Call: WRITE
  • Prompt: $C(7)," ENTER NUMBERS ONLY"
  • Line Location: G+3
Function Call: WRITE
  • Prompt: $C(7)," Not in file"
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !,LRP," ID: ",SSN," OK "
  • Line Location: EDIT+5
Function Call: WRITE
  • Prompt: !,LRP," ID: ",HRCN," OK "
  • Line Location: EDIT+6
Function Call: WRITE
  • Prompt: !,"Specimen date: ",Y
  • Line Location: EDIT+23
Routine Call
  • DIE
  • Line Location:
    • EDIT+24

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LR - [#63] Classic Fileman Calls,  GET1^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LR - [#63] EDIT+1, EDIT+3!, EDIT+4, EDIT+8, EDIT+9, EDIT+11!, EDIT+20

Label References

Name Line Occurrences
ASK ASK+5
EDIT G+4
END ASK+4, ASK+9, ASK+10, G+2
G G+3, G+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK+9*, ASK+10, EDIT+7*
%DT ASK+11*, ASK+12!
%DT("A" ASK+11*
%DT(0 ASK+11*
>> DA EDIT+22*
>> DA(1 EDIT+22*
>> DIE EDIT+22*
>> DR ASK+7*
DTIME ASK+3, G+2
>> HRCN EDIT+6
>> LR("C" ASK+7*, ASK+8
>> LRABV EDIT+1, EDIT+3, EDIT+8, EDIT+11, EDIT+21
>> LRAD ASK+14*, ASK+15
>> LRAN G+2*, G+3, EDIT+1, EDIT+3, EDIT+8, EDIT+11
>> LRB EDIT+23*
>> LRC ASK+15*, EDIT+1, EDIT+3, EDIT+8, EDIT+11
>> LRD EDIT+22*
>> LRDFN EDIT+1*, EDIT+2, EDIT+3, EDIT+4, EDIT+8, EDIT+9, EDIT+11, EDIT+15, EDIT+20, EDIT+22
>> LRDICS LRAPEDC+6*
LRFILE LRAPEDC+5~, EDIT+14*, EDIT+15
LRFLD LRAPEDC+5~, EDIT+12*, EDIT+13, EDIT+14
>> LRH(0 ASK+8, ASK+14*
>> LRI EDIT+8*, EDIT+9, EDIT+11, EDIT+15, EDIT+20, EDIT+22
LRMSG LRAPEDC+5~, EDIT+17!, EDIT+18*, EDIT+19
>> LRO(68 ASK+8, G+1
>> LRP EDIT+6
LRREL LRAPEDC+5~, EDIT+15*, EDIT+16
>> LRSS EDIT+9, EDIT+12, EDIT+20
>> LRXREF EDIT+1, EDIT+3, EDIT+8, EDIT+11
U ASK+4, G+2
>> X ASK+3*, ASK+4, ASK+5, ASK+7, EDIT+4*, EDIT+20*, EDIT+21, EDIT+22, EDIT+23
>> Y LRAPEDC+6, ASK+10, ASK+13, ASK+14*, EDIT+23*
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 |  Local Variables |  All