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

Package: Lab Service

Routine: LRSPSICD


Information

LRSPSICD ;AVAMC/REG - CY/EM/SP ICD SEARCH ;8/15/95 08:39

Source Information

Source file <LRSPSICD.m>

Call Graph

Call Graph

Call Graph Total: 6

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

Entry Points

Name Comments DBIA/ICR reference
ASK
QUE
L
I
TO
PRT
HERE
DXS

External References

Name Field # of Occurrence
^%DTC PRT+1
^DIC ASK+10
$$ICDDX^ICDEX ASK+12
$$IMP^ICDEX ASK+2
$$SINFO^ICDEX ASK+7
^LRSPSICP QUE+3
B^LRU ASK
K^LRU QUE+3
L^LRU QUE
S^LRU QUE
SSN^LRU PRT+1
XR^LRU QUE
BEG^LRUTL ASK+13
END^LRUTL QUE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?20,LRO(68)," SEARCH BY ICD CODE"
  • Line Location: LRSPSICD+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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ASK+2
^DIC - [#1] PRT
^LR - [#63] QUE+2, L, I, TO+2, TO+3, PRT, DXS+1
^TMP($J QUE!, QUE+1*, QUE+3!, PRT+3*

Label References

Name Line Occurrences
ASK ASK+3, ASK+10
DXS TO+2
I L
L QUE+2
TO I

Naked Globals

Name Field # of Occurrence
^( DXS+1
^(0 PRT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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