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 |