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

Package: Lab Service

Routine: LRBLJPP1


Information

LRBLJPP1 ;VA/AVAMC/REG - PT ADM,RX SPECIALTY,ICDCM CODES ; 17-Oct-2014 09:22 ; MKK

Source Information

Source file <LRBLJPP1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
DRG Grouper 2 $$ICDOP^ICDCODE  $$ICDDX^ICDEX  
Lab Service 1 H1^LRBLJPP  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLJPP  

Entry Points

Name Comments DBIA/ICR reference
A
H
B

External References

Name Field # of Occurrence
$$ICDOP^ICDCODE A+18
$$ICDDX^ICDEX A+12
H1^LRBLJPP H

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Adm:",+$E(Y,4,5)_"/"_+$E(Y,6,7)_"/"_$E(Y,2,3)
  • Line Location: A+0
Function Call: WRITE
  • Prompt: ?13,"Discharge:",+$E(Z,4,5)_"/"_+$E(X,6,7)_"/"_$E(Z,2,3)
  • Line Location: A+0
Function Call: WRITE
  • Prompt: ?35,$P(^(0),"^")
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !,$P(LRX,"^",2),?10,$P(LRX,"^",4)
  • Line Location: A+15
Function Call: WRITE
  • Prompt: !,$P(LRX,"^",2),?10,$P(LRX,"^",5)
  • Line Location: A+21
Function Call: WRITE
  • Prompt: !?12,"Specialty:",+$E(LRY,4,5)_"/"_+$E(LRY,6,7)_"/"_$E(LRY,2,3)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: ?35,$P(^(0),"^")
  • Line Location: B+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] LRBLJPP1+10, A, B
^DGPM("APID" LRBLJPP1+10, LRBLJPP1+11
^DGPM("ATS" A+2
^DGPT - [#45] A+4, A+5, A+6, A+7, A+8
^DIC(42 - [#42] A+1
^DIC(45.7 - [#45.7] B

Label References

Name Line Occurrences
A LRBLJPP1+10, LRBLJPP1+11
B A+2
H LRBLJPP1+10, LRBLJPP1+11, A+14, A+20, B

Naked Globals

Name Field # of Occurrence
^( LRBLJPP1+10, LRBLJPP1+11, A+2, A+5, A+7, A+8
^("401P" A+6
^(0 LRBLJPP1+10, A, A+1, B
^(70 A+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A A+2*
>> B A+2*
>> C A+2*, B
>> DFN LRBLJPP1+10, LRBLJPP1+11
IOSL LRBLJPP1+10, LRBLJPP1+11, A+14, A+20, B
>> LR A*, A+3, A+4, A+5, A+6, A+7, A+8
>> LR("Q" LRBLJPP1+10, LRBLJPP1+11, A+2, A+10, A+14, A+17, A+20, B
>> LRA LRBLJPP1+10*, LRBLJPP1+11*
LRC LRBLJPP1+10!
LRC( A+6*, A+7*, A+8*, A+17
LRF LRBLJPP1+10!
LRF( A+4*, A+5*, A+10
>> LRSDT LRBLJPP1+11
LRTMP A+9~, A+10*, A+12, A+17*, A+18
LRX LRBLJPP1+10*, LRBLJPP1+11*, A, A+2, A+9~, A+12*, A+13, A+15, A+18*, A+19
, A+21
>> LRY B*
>> W A+4*, A+5*, A+6*, A+7*, A+8*
>> X LRBLJPP1+10*, A, A+4*, A+5*, A+6*, A+7*, A+8*
>> Y A*, A+1, A+5*, A+7*, A+8*
>> Z A*, A+1*, B*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All