Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LRURG

LRURG.m

Go to the documentation of this file.
  1. LRURG ;AVAMC/REG - TRANSFER ROUTINES ;5/30/96 13:22 ;
  1. ;;5.2;LAB SERVICE;**72**;Sep 27, 1994
  1. W !!,"Transfer routines",!
  1. X ^%ZOSF("RSEL") D ^%ZIS
  1. EN S U="^",X="N",%DT="T" D ^%DT X ^DD("DD") S %DT=Y
  1. S A=0,L=$P($T(L),";",3,99),PR=$P($T(PR),";",3,99)
  1. H 5 W "Transferred Routines",!,%DT
  1. X X "F I=0:1 S A=$O(^TMP($J,A)) Q:A="""" ZL @A X L,PR"
  1. W !! K A,I,L,LC,PR,S,X,Y Q
  1. ;
  1. 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
  1. PR ;;F I=1:1 S X=$T(+I) Q:X="" W !,X