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 ;AVAMC/REG - PT ADM,RX SPECIALTY,ICD9CM CODES ;11/18/91 20:36 ;

Source Information

Source file <LRBLPC1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 H^LRBLPC  H2^LRBLTXA  
DRG Grouper 1 ($$ICDDX,$$ICDOP)^ICDCODE  

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

Package Total Caller Graph
Lab Service 3 LRBLPC  LRBLPTR1  LRBLTXA  

Entry Points

Name Comments DBIA/ICR reference
A
B
H
SET

External References

Name Field # of Occurrence
$$ICDDX^ICDCODE A+11
$$ICDOP^ICDCODE A+17
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+14
Function Call: WRITE
  • Prompt: !,$P(LRX,"^",2),?10,$P(LRX,"^",5)
  • Line Location: A+20
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+7, A
^DGPM("APID" LRBLPC1+7, LRBLPC1+8
^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+7, LRBLPC1+8
B A+2
H LRBLPC1+7, LRBLPC1+8, A+13, A+19, B

Naked Globals

Name Field # of Occurrence
^( LRBLPC1+7, LRBLPC1+8, A+2, A+5, A+7, A+8
^("401P" A+6
^(0 LRBLPC1+7, 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+7, LRBLPC1+8, A+2
DUZ SET
IOSL LRBLPC1+7, LRBLPC1+8, A+13, A+19, B
>> LR A*, A+3, A+4, A+5, A+6, A+7, A+8
>> LR("%" H+1
>> LR("D" H
>> LR("Q" LRBLPC1+7, LRBLPC1+8, A+2, A+10, A+13, A+16, A+19, B, H+1
>> LRA LRBLPC1+7*, LRBLPC1+8*
>> LRAA SET
LRC LRBLPC1+7!
LRC( A+6*, A+7*, A+8*, A+16
LRF LRBLPC1+7!
LRF( A+4*, A+5*, A+10
>> LRSDT LRBLPC1+8
LRTMP A+9~, A+10*, A+11, A+16*, A+17
LRX LRBLPC1+7*, LRBLPC1+8*, A, A+2, A+9~, A+11*, A+12, A+14, A+17*, A+18
, A+20
>> 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+7*, 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