LRURG ; IHS/DIR/AAB - TRANSFER ROUTINES 5/30/96 13:22 ; [ 07/22/2002 1:55 PM ]
Source file <LRURG.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PR | ;;F I=1:1 S X=$T(+I) Q:X="" W !,X
|
|
X | ||
EN | ||
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("RSEL" | LRURG+4 |
^DD("DD" | EN |
Name | Line Occurrences |
---|---|
L | EN+1 |
PR | EN+1 |
>> | 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! |
Name | Field # of Occurrence |
---|---|
$T(L | EN+1 |
$T(PR | EN+1 |