|
Last change
on this file since 1540 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
360 bytes
|
| Line | |
|---|
| 1 | DGJHELP ;ALB/MRY - EXECUTABLE ADT HELP PROMPTS ; 23 AUG 2001
|
|---|
| 2 | ;;1.0;Incomplete Records Tracking;;Jun 25, 2001
|
|---|
| 3 | ;
|
|---|
| 4 | EN ;called from ques node on dispo multiple
|
|---|
| 5 | Q
|
|---|
| 6 | UP I X'?.UNP F %=1:1:$L(X) I $E(X,%)?1L S X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)
|
|---|
| 7 | Q
|
|---|
| 8 | IN S %=0 D UP I X]""&(Z[(U_X)) F I=$F(Z,U_X):1 S %=$E(Z,I) Q:%=U!(%']"") W %
|
|---|
| 9 | E S %=-1
|
|---|
| 10 | S:'% X=$E(X,1) K Z
|
|---|
| 11 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
