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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRSPSICP

Package: Lab Service

Routine: LRSPSICP


Information

LRSPSICP ; IHS/DIR/AAB - SEARCH BY ICD CODE PRINT ; 17-Oct-2014 09:22 ; MKK

Source Information

Source file <LRSPSICP.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Lab Service 1 (F,M)^LRU  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRSPSICD  

Entry Points

Name Comments DBIA/ICR reference
A
ABC
PT
H2
H
H1
L
H4
PRT
LRAN
H3

External References

Name Field # of Occurrence
F^LRU H+1
M^LRU H

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E(N,1,18),?19,$P(V,"^",5),?25,$P(V,"^",3)
  • Line Location: LRSPSICP+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: C>0
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: ?27,$P(V,"^",2)
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: ?31,$J($P(V,"^"),7),?39,$E($P(V,"^",8),1,18)
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: Z>1
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: ?58,$E(^(O),1,21)
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !,$J($P(V,"^"),7),?9,$E($P(V,"^",4),1,18),?28,$P(V,"^",5),?34,$P(V,"^",3),?37,$J($P(V,"^",2),3),?41
  • Line Location: PT+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: Z>1
  • Line Location: PT+2
Function Call: WRITE
  • Prompt: ?65,$E(^(O),1,14)
  • Line Location: PT+2
Function Call: WRITE
  • Prompt: !,LRO(68)," SEARCH (",LRSTR,"=>",LRLST,")"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !!,"ICD CODE: ",I(1),?30,I
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !!,?8,"NAME",?19,"ID",?23,"SEX",?27,"AGE",?32,"ACC #",!!
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !!,"ACC #",?9,"NAME",?28,"ID",?33,"SEX",?37,"AGE",?41,"MO/DA"
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !,$E(N,1,18),?19,$P(V,"^",5),?25,$P(V,"^",3),?27,$P(V,"^",2),?31,$J($P(V,"^"),7)
  • Line Location: H3+0
Function Call: WRITE
  • Prompt: !,$J($P(V,"^"),7),?9,$E($P(V,"^",4),1,18),?28,$P(V,"^",5),?34,$P(V,"^",3),?37,$J($P(V,"^",2),3),?41,$J($P(V,"^",6),5)
  • Line Location: H4+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J LRSPSICP+4, A, ABC, PRT, PRT+1, L, LRAN, PT+1, PT+2

Label References

Name Line Occurrences
A LRSPSICP+4
ABC A
H LRSPSICP+3, LRSPSICP+4, LRSPSICP+5, PT, H3, H4
H1 LRSPSICP+3, LRSPSICP+4, H3
H2 LRSPSICP+5, PT, H4
H3 PRT+1
H4 PT+2
L LRSPSICP+5
LRAN L
PRT ABC
PT LRAN

Naked Globals

Name Field # of Occurrence
^( LRSPSICP+4, PRT+1, PT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A LRSPSICP+4*
>> B A*, L*
>> C ABC*, PRT, LRAN*
>> H(2 LRSPSICP+5*, A*, ABC, PRT, PRT+1, L*, LRAN, PT+1, PT+2
>> I H+2
>> I(1 H+2
IOSL LRSPSICP+4, PRT+1, PT, PT+2
IOST H
>> LR("%" H+3
>> LR("F" LRSPSICP+3*, H
>> LR("Q" LRSPSICP+4, LRSPSICP+5, A, ABC, PRT+1, L, LRAN, PT, PT+2, H
, H1, H2, H3, H4
>> LRAN ABC*, PRT, PRT+1, LRAN*, PT+1, PT+2
>> LRLST H+1
>> LRO(68 H+1
>> LRSTR H+1
>> N LRSPSICP+3*, LRSPSICP+4*, A, ABC, H3
>> O PRT+1*, PT+2*
>> V LRSPSICP+4*, PRT*, PT+1*, PT+2, H3, H4
>> V(2 LRSPSICP+4*
>> V(3 LRSPSICP+4*
>> Z PRT+1*, PT+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All