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

Package: Lab Service

Routine: LRBLPC1


Information

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

Source Information

Source file <LRBLPC1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
DRG Grouper 2 $$ICDOP^ICDCODE  $$ICDDX^ICDEX  
Lab Service 2 H^LRBLPC  H2^LRBLTXA  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 LRBLPC  LRBLPTR1  LRBLTXA  

Entry Points

Name Comments DBIA/ICR reference
A
H
B
SET

External References

Name Field # of Occurrence
$$ICDOP^ICDCODE A+18
$$ICDDX^ICDEX A+12
H^LRBLPC H+1
H2^LRBLTXA 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(Z,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
Function Call: WRITE
  • Prompt: !,W(2),?31,W(10),?45,"DOB: ",W(4),!,LR("%")
  • Line Location: H+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] LRBLPC1+8, A
^DGPM("APID" LRBLPC1+8, LRBLPC1+9
^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
^LRO(69.2 - [#69.2] SET!

Label References

Name Line Occurrences
A LRBLPC1+8, LRBLPC1+9
B A+2
H LRBLPC1+8, LRBLPC1+9, A+14, A+20, B

Naked Globals

Name Field # of Occurrence
^( LRBLPC1+8, LRBLPC1+9, A+2, A+5, A+7, A+8
^("401P" A+6
^(0 LRBLPC1+8, A, A+1, B, SET*
^(70 A+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A A+2*, B
>> B A+2*
>> C A+2*, B
>> DFN LRBLPC1+8, LRBLPC1+9, A+2
DUZ SET
IOSL LRBLPC1+8, LRBLPC1+9, A+14, A+20, B
>> LR A*, A+3, A+4, A+5, A+6, A+7, A+8
>> LR("%" H+1
>> LR("D" H
>> LR("Q" LRBLPC1+8, LRBLPC1+9, A+2, A+10, A+14, A+17, A+20, B, H+1
>> LRA LRBLPC1+8*, LRBLPC1+9*
>> LRAA SET
LRC LRBLPC1+8!
LRC( A+6*, A+7*, A+8*, A+17
LRF LRBLPC1+8!
LRF( A+4*, A+5*, A+10
>> LRSDT LRBLPC1+9
LRTMP A+9~, A+10*, A+12, A+17*, A+18
LRX LRBLPC1+8*, LRBLPC1+9*, 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*
>> W(10 H+1
>> W(2 H+1
>> W(4 H+1
>> X LRBLPC1+8*, A+4*, A+5*, A+6*, A+7*, A+8*, SET*
>> X(1 SET*
>> Y A*, A+1, A+5*, A+7*, A+8*
>> Z A*, A+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All