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

Package: Lab Service

Routine: LRAPCUM1


Information

LRAPCUM1 ;AVAMC/REG - AP PATIENT CUM ;7/15/93 10:36

Source Information

Source file <LRAPCUM1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 MORE^LRAPCUM  C^LRUA  
DRG Grouper 1 $$ICDDX^ICDEX  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAPCUM  

Entry Points

Name Comments DBIA/ICR reference
M
A
EX
MORE

External References

Name Field # of Occurrence
$$ICDDX^ICDEX LRAPCUM1+13
MORE^LRAPCUM MORE
C^LRUA LRAPCUM1+6, LRAPCUM1+16, M, A, EX

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LR("%"),!,"SNOMED/ICD codes:"
  • Line Location: LRAPCUM1+6
Function Call: WRITE
  • Prompt: !,"T-",$P(T,"^",2),": "
  • Line Location: LRAPCUM1+6
Function Call: WRITE
  • Prompt: !,"T-",$P(T,"^",2),": "
  • Line Location: LRAPCUM1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: LRAPCUM1+8
Function Call: WRITE
  • Prompt: !,"ICD code: ",$P(LRX,"^",2),?20
  • Line Location: LRAPCUM1+15
Function Call: WRITE
  • Prompt: X
  • Line Location: LRAPCUM1+17
Function Call: WRITE
  • Prompt: !?5,"M-",$P(M,"^",2),": "
  • Line Location: M+0
Function Call: WRITE
  • Prompt: X
  • Line Location: M+0
Function Call: WRITE
  • Prompt: !?5,$S(B=1.4:"D-",B=3.3:"F-",B=4.5:"P-",1:""),$P(M,"^",2),?12,": "
  • Line Location: A+0
Function Call: WRITE
  • Prompt: X
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !?10,"E-",$P(E,"^",2),": "
  • Line Location: EX+0
Function Call: WRITE
  • Prompt: X
  • Line Location: EX+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB( A
^LAB(61 - [#61] LRAPCUM1+6
^LAB(61.1 - [#61.1] M
^LAB(61.2 - [#61.2] EX
^LR - [#63] LRAPCUM1+6, LRAPCUM1+10, LRAPCUM1+13, M, M+1, A, EX

Label References

Name Line Occurrences
A M+1
EX M
M LRAPCUM1+6
MORE LRAPCUM1+5, LRAPCUM1+6, LRAPCUM1+11, M, A, EX

Naked Globals

Name Field # of Occurrence
^( LRAPCUM1+6, M, EX

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> B M*, M+1*, A, EX
>> C LRAPCUM1+6*, LRAPCUM1+10*, LRAPCUM1+13, M, M+1, A, EX
>> E A*, EX*
>> F M+1*, A
>> G EX*
>> LR( LRAPCUM1+6, LRAPCUM1+16, M, A, EX
>> LR("%" LRAPCUM1+6
>> LRA(1 LRAPCUM1+5, LRAPCUM1+6, LRAPCUM1+11, M, A, EX
>> LRA(2 LRAPCUM1+5, LRAPCUM1+6, LRAPCUM1+7, LRAPCUM1+10, LRAPCUM1+12, M, M+1, A, EX
>> LRDFN LRAPCUM1+6, LRAPCUM1+10, LRAPCUM1+13, M, M+1, A, EX
>> LRI LRAPCUM1+6, LRAPCUM1+10, LRAPCUM1+13, M, M+1, A, EX
>> LRSS LRAPCUM1+6, LRAPCUM1+10, LRAPCUM1+13, M, M+1, A, EX
LRX LRAPCUM1+9~, LRAPCUM1+13*, LRAPCUM1+14, LRAPCUM1+15
>> M M*, A*
>> T LRAPCUM1+6*
>> X LRAPCUM1+6*, LRAPCUM1+14*, LRAPCUM1+17, M*, A*, EX*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All