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 ;AVAMC/REG - PT ADM,RX SPECIALTY,ICD9CM CODES ;4/17/91 14:31 ;

Source Information

Source file <LRBLJPP1.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
DRG Grouper 1 ($$ICDDX,$$ICDOP)^ICDCODE  
Lab Service 1 H1^LRBLJPP  

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 LRBLJPP  

Entry Points

Name Comments DBIA/ICR reference
A
B
H

External References

Name Field # of Occurrence
$$ICDDX^ICDCODE A+11
$$ICDOP^ICDCODE A+17
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+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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] LRBLJPP1+7, AB
^DGPM("APID" LRBLJPP1+7, LRBLJPP1+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

Label References

Name Line Occurrences
A LRBLJPP1+7, LRBLJPP1+8
B A+2
H LRBLJPP1+7, LRBLJPP1+8, A+13, A+19, B

Naked Globals

Name Field # of Occurrence
^( LRBLJPP1+7, LRBLJPP1+8, A+2, A+5, A+7, A+8
^("401P" A+6
^(0 LRBLJPP1+7, AA+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+7, LRBLJPP1+8
IOSL LRBLJPP1+7, LRBLJPP1+8, A+13, A+19, B
>> LR A*, A+3, A+4, A+5, A+6, A+7, A+8
>> LR("Q" LRBLJPP1+7, LRBLJPP1+8, A+2, A+10, A+13, A+16, A+19, B
>> LRA LRBLJPP1+7*, LRBLJPP1+8*
LRC LRBLJPP1+7!
LRC( A+6*, A+7*, A+8*, A+16
LRF LRBLJPP1+7!
LRF( A+4*, A+5*, A+10
>> LRSDT LRBLJPP1+8
LRTMP A+9~, A+10*, A+11, A+16*, A+17
LRX LRBLJPP1+7*, LRBLJPP1+8*, AA+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*
>> X LRBLJPP1+7*, AA+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