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 |  All
Print Page as PDF
Routine: LRAPBS1

Package: Lab Service

Routine: LRAPBS1


Information

LRAPBS1 ;VA/AVAMC/REG - BLOCK/SLIDE DATA ENTRY;3/25/2002

Source Information

Source file <LRAPBS1.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Lab Service 9 (OE1,OERR)^LR7OB63D  EN^LRAPBS2  C^LRAPCWK  EN^LRAPST  EN^LRAPWKA  W^LRAPWU  (CK,FRE,V,YN)^LRU  ^LRUP  
X^LRUWK  
VA Fileman 2 (,DD)^%DT  ^DIE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRAPBS  LRAPSL  

Entry Points

Name Comments DBIA/ICR reference
A
CK
END
SP
REST ;
AU
W ;
ASK

External References

Name Field # of Occurrence
^%DT ASK+1, ASK+2
DD^%DT REST+21, CK
^DIE A+1, A+3
OE1^LR7OB63D W+8
OERR^LR7OB63D W+8
EN^LRAPBS2 A
C^LRAPCWK REST+18
EN^LRAPST A
EN^LRAPWKA A
W^LRAPWU REST+19, REST+20
CK^LRU A+1
FRE^LRU A+1
V^LRU END
YN^LRU A
^LRUP REST+6
X^LRUWK SP, SP+1, SP+2, SP+3, SP+4, SP+5, SP+6, SP+7, AU, AU+1
, AU+2

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: " ",LRH(0)
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: $C(7),!!,"NO ",LRAA(1)," ACCESSIONS IN FILE FOR ",LRH(0),!!
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,"Select Accession Number: ",LRN,$S(LRN:"// ",1:"")
  • Line Location: W+2
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter a number."
  • Line Location: W+6
Function Call: WRITE
  • Prompt: " for ",LRH(0)
  • Line Location: REST+1
Function Call: WRITE
  • Prompt: !,LRP," ID: ",SSN
  • Line Location: REST+7
Function Call: WRITE
  • Prompt: !,LRP," ID: ",HRCN
  • Line Location: REST+8
Function Call: WRITE
  • Prompt: !
  • Line Location: REST+19
Function Call: WRITE
  • Prompt: $C(7),!,"Date/time must not be before date/time blocks prepared("
  • Line Location: REST+21
Function Call: WRITE
  • Prompt: Y,")."
  • Line Location: REST+21
Function Call: WRITE
  • Prompt: !!,"Data displayed ok "
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,$C(7),"ANOTHER TERMINAL IS EDITING THIS ENTRY!"
  • Line Location: A+2
Function Call: WRITE
  • Prompt: $C(7),!,"Date/time must not be before date/time ",$S("SPCYEM"[LRSS:"specimen received (",1:"autopsy performed (")
  • Line Location: CK+0
Function Call: WRITE
  • Prompt: Y,")"
  • Line Location: CK+0
Routine Call
  • DIE
  • Line Location:
    • A+1
    • A+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LR - [#63] REST+6, REST+10, A+2, A+3
^LRO(68 - [#68] ASK+3, W+7, REST+2, REST+5, REST+9

Label References

Name Line Occurrences
A REST+19, A+1, A+3
ASK ASK+2
CK REST+19, REST+20
END ASK+1, W+4
REST W+8
W W+6, W+9

Naked Globals

Name Field # of Occurrence
^("AU" REST+10
^(0 REST+6
^(3 REST+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % A*
>> %DT ASK+1*, ASK+2*
>> %DT("A" REST+19*, REST+20*
CORRECT ASK~
>> DA A+1*, A+2*
>> DA(1 A+1*
>> DIE A+1*, A+2*
DTIME ASK+1, W+3
>> HRCN REST+8
>> J SP*, AU*
>> LR("CK" W+1!, A+1
>> LRA REST+10*, REST+11
>> LRAA ASK+3, W+7, REST+2, REST+5, REST+9
>> LRAA(1 ASK+3
>> LRAD ASK+2*, ASK+3, W+7, REST+2, REST+5, REST+9
>> LRAN W+3*, W+4, W+5*, W+6, W+7, REST+2, REST+3, REST+5, REST+9
>> LRCAPA REST+18, AU
>> LRDFN REST+5*, REST+6, REST+10, A+1, A+2, A+3
>> LRF REST+19
>> LRH(0 ASK+2*, ASK+3, REST+1, REST+3
>> LRI REST+9*, REST+10, A+1
>> LRK REST+18, REST+19, CK
>> LRK(1 REST+19*, REST+21
>> LRLLOC REST+5*
LRMSG ASK~
>> LRN ASK+2*, W+2, W+4, W+5, W+6*, W+7*, REST+21*, CK*
>> LRP REST+8
>> LRRC REST+11*, CK
LRREL ASK~
>> LRSS REST+10, REST+11, REST+18, REST+19, REST+20, REST+21, A+1, CK
LRT SP!, SP+1!, SP+2!, SP+3!, SP+4!, SP+5!, SP+6!, SP+7!, AU!, AU+1!
, AU+2!
>> LRW(0 SP+1*, AU+1*
>> LRW(1 SP*, AU*
>> LRW(2 SP+2*, AU+2*
>> LRW(3 SP+3*
>> LRW(4 SP+4*
>> LRW(5 SP+5*
>> LRW(6 SP+6*
>> LRW(7 SP+7*
>> LRY ASK+1*, ASK+2*
U ASK+1, W+4
X ASK+1*, W+1!, REST+5*, REST+6*, SP*, SP+1*, SP+2*, SP+3*, SP+4*, SP+5*
, SP+6*, SP+7*, AU*, AU+1*, AU+2*
Y ASK+1, ASK+2, W+1!, REST+19, REST+20, REST+21*, CK*!
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 |  All