Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls