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

Package: Lab Service

Routine: LRUPAC


Information

LRUPAC ;VA/AVAMC/REG - LAB ACCESSION COUNTS BY DATE ;JUL 06, 2010 3:14 PM;

Source Information

Source file <LRUPAC.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 (B,F,L,M,S,V)^LRU  (BEG,EN,END)^LRUTL  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRUPAC  

Entry Points

Name Comments DBIA/ICR reference
END
H
DEV
AN
AC1
QUE
Z
EP ; EP - Begin -- IHS/OIT/MKK - Patch 1027
OUT

External References

Name Field # of Occurrence
^DIC EP+5
B^LRU EP+6
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
V^LRU END
BEG^LRUTL DEV
EN^LRUTL QUE
END^LRUTL OUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,W(1)," ACCESSION COUNTS"
  • Line Location: EP+6
Function Call: WRITE
  • Prompt: !?5,$P(^LAB(60,T,0),"^"),"= ",S(S,T)
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !?5,$P(^LAB(60,T,0),"^"),"= ",T(T)
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE ",?21,W(1)," COUNTS(",LRSTR,"-",LRLST,")",!,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !!,"Number of accessions: "
  • Line Location: AN+0
Function Call: WRITE
  • Prompt: $S($D(S(LRU)):S(LRU),1:0)
  • Line Location: AN+0
Routine Call
  • DIC
  • Line Location:
    • EP+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] QUE+3, QUE+4
^LAB(61 - [#61] QUE+3
^LRO(68 - [#68] QUE+1, Z, AC1, AC1+3, AC1+4, AC1+25
^TMP("LRUPAC" EP+2!, Z+1!, AC1+14, AC1+16*

Label References

Name Line Occurrences
AC1 Z, AC1+25
AN QUE+2
END EP+5, EP+6, DEV, OUT
H QUE+2, QUE+3, QUE+4
OUT AN
Z QUE+2

Naked Globals

Name Field # of Occurrence
^(0 AC1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> B Z*
COMPLDT EP+1~, AC1+4*, AC1+5
DIC EP+5*!
DIC(0 EP+5*
>> I Z*, AC1, AC1+3, AC1+4, AC1+14, AC1+16, AC1+25*
IO QUE
IOSL QUE+3, QUE+4
IOST H
>> LR("%" H+1
>> LR("F" QUE+2*, H
>> LR("Q" QUE+3, QUE+4, H
LRAS EP+1~
>> LRLDT QUE+1*, Z, AC1+5
>> LRLST H+1
>> LRSA Z*
>> LRSDT QUE+1, Z, AC1+5
>> LRSTR H+1
>> LRU AC1, AN
>> POP DEV
>> S QUE+3*, AC1*, AC1+21, AC1+22
>> S( QUE+3, AC1*, AC1+21*, AC1+22*, AN
>> T QUE+3*, QUE+4*, AC1+3*, AC1+4, AC1+14, AC1+16, AC1+19, AC1+20, AC1+21, AC1+22
>> T( QUE+4, AC1+19*, AC1+20*
U EP+5, QUE+1
>> W EP+5*, QUE+1, Z, AC1, AC1+3, AC1+4, AC1+14, AC1+16, AC1+25
>> W(1 EP+5*, EP+6, H+1
>> W(2 EP+5*, QUE+2
>> W(6 Z*, AC1, AC1+3, AC1+4, AC1+14, AC1+16, AC1+25*
>> Y EP+5, EP+6
>> Y(0 EP+5
>> Z QUE+1*, Z*, AC1+25*
>> Z(1 QUE+1*, Z, AC1+25
>> ZTRTN DEV*
>> ZTSK DEV
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All