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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: LRURG

Package: Lab Service

Routine: LRURG


Information

LRURG ;AVAMC/REG - TRANSFER ROUTINES ;5/30/96 13:22 ;

Source Information

Source file <LRURG.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 ^%ZIS  
VA FileMan 1 ^%DT  

Entry Points

Name Comments DBIA/ICR reference
EN
X
L ;;W:I ! W !,A S S=0 F LC=1:1 S S=S+$L($T(+LC)) I $T(+LC)="" S LC=LC-1 Q
PR ;;F I=1:1 S X=$T(+I) Q:X="" W !,X

External References

Name Field # of Occurrence
^%DT EN
^%ZIS LRURG+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Transfer routines",!
  • Line Location: LRURG+2
Function Call: WRITE
  • Prompt: "Transferred Routines",!,%DT
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: X+1
Function Call: WRITE
  • Prompt: !,A
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !,X
  • Line Location: PR+0
Routine Call
  • %ZIS
  • Line Location:
    • LRURG+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RSEL" LRURG+3
^DD("DD" EN

Label References

Name Line Occurrences
L EN+1
PR EN+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT EN*, EN+2
A EN+1*, X+1!
I X+1!
L EN+1*, X+1!
LC X+1!
PR EN+1*, X+1!
S X+1!
U EN*
X EN*, X+1!
Y EN, X+1!

Marked Items

Name Field # of Occurrence
$T(L EN+1
$T(PR EN+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All