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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRAUSICD

Package: Lab Service

Routine: LRAUSICD


Information

LRAUSICD ;AVAMC/REG - AUTOPSY ICD SEARCH ;8/15/95 09:01

Source Information

Source file <LRAUSICD.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lab Service 3 ^LRAUS  (B,S,SSN)^LRU  (BEG,END)^LRUTL  
VA FileMan 2 ^%DTC  ^DIC  
DRG Grouper 1 ($$ICDDX,$$IMP,$$SINFO)^ICDEX  
Kernel 1 ^%ZIS  

Entry Points

Name Comments DBIA/ICR reference
ASK
QUE
LRDFN
SN

External References

Name Field # of Occurrence
^%DTC SN+4
^%ZIS LRAUSICD+7
^DIC ASK+10
$$ICDDX^ICDEX ASK+11
$$IMP^ICDEX ASK+2
$$SINFO^ICDEX ASK+7
^LRAUS QUE+2
B^LRU ASK
S^LRU QUE
SSN^LRU SN+2
BEG^LRUTL ASK+12
END^LRUTL QUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?20,LRO(68)," SEARCH BY ICD CODE"
  • Line Location: LRAUSICD+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Beginning and Ending dates must both be prior to "_LR("I10DTE")_"(ICD-9)"
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,"or both be on or after "_LR("I10DTE")_"(ICD-10)."
  • Line Location: ASK+5
Routine Call
  • DIC
  • Line Location:
    • ASK+10
Routine Call
  • %ZIS
  • Line Location:
    • LRAUSICD+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ASK+2
^DIC - [#1] SN+1
^LR - [#63] SN, SN+1
^LR("AAU" QUE+1, LRDFN
^TMP($J QUE!*, QUE+2!, SN+6*

Label References

Name Line Occurrences
ASK ASK+3, ASK+10
LRDFN QUE+1
SN LRDFN

Naked Globals

Name Field # of Occurrence
^("AU" SN
^(0 SN+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AGE SN+4*, SN+5*, SN+6
>> DFN SN+1*, SN+2
DIC ASK+10*!
DIC("A" ASK+9*
DIC(0 ASK+10*
>> DOB SN+2*, SN+4
>> I ASK+11*, QUE
>> I(1 ASK+11*, QUE
ICDFMT ASK+1~, ASK+6*
ICDSYS ASK+1~, ASK+7*
IO QUE
IOF LRAUSICD+7
>> IOP LRAUSICD+7*
LR ASK+1~
LR("I10DTE" ASK+2*, ASK+4, ASK+5
LR("I10DTI" ASK+2*, ASK+3, ASK+6
>> LRABV SN
>> LRAC SN+3*, SN+6
>> LRAD SN*
>> LRAN SN+3*, SN+6
>> LRAU SN*, SN+3, SN+4, SN+6
>> LRDFN LRDFN*, SN, SN+1
>> LRDPF SN+1*
>> LRFLN SN+1*
>> LRLDT ASK+3, ASK+7, ASK+8*, ASK+11, QUE+1
>> LRO(68 LRAUSICD+7, QUE
>> LRP SN+2*, SN+6
>> LRPAT1 QUE*, LRDFN*
>> LRPF SN+1*, SN+2
>> LRPPT SN+2*
>> LRSDT ASK+3, ASK+6, ASK+8*, QUE+1*, LRDFN
>> LRYR SN+3*, SN+6
>> N ASK+11*, SN
>> POP ASK+12
>> SEX SN+2*, SN+6
>> SSN SN+2*
>> SSN(1 SN+6
U ASK+11, SN, SN+1
VAR ASK+1~
>> X QUE+1*, SN+4
>> X1 SN+4*
>> X2 SN+4*
>> Y ASK, ASK+2*, ASK+10, ASK+11
>> Y(0 ASK+11
>> ZTRTN ASK+12*
>> ZTSK ASK+12
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All