|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
486 bytes
|
| Line | |
|---|
| 1 | LRURG ;AVAMC/REG - TRANSFER ROUTINES ;5/30/96 13:22 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;**72**;Sep 27, 1994
|
|---|
| 3 | W !!,"Transfer routines",!
|
|---|
| 4 | X ^%ZOSF("RSEL") D ^%ZIS
|
|---|
| 5 | EN S U="^",X="N",%DT="T" D ^%DT X ^DD("DD") S %DT=Y
|
|---|
| 6 | S A=0,L=$P($T(L),";",3,99),PR=$P($T(PR),";",3,99)
|
|---|
| 7 | H 5 W "Transferred Routines",!,%DT
|
|---|
| 8 | X X "F I=0:1 S A=$O(^TMP($J,A)) Q:A="""" ZL @A X L,PR"
|
|---|
| 9 | W !! K A,I,L,LC,PR,S,X,Y Q
|
|---|
| 10 | ;
|
|---|
| 11 | 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
|
|---|
| 12 | PR ;;F I=1:1 S X=$T(+I) Q:X="" W !,X
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
