source:
WorldVistAEHR/trunk/r/BENEFICIARY_TRAVEL-DGBT/DGBTHELP.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 352 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | DGBTHELP ;ALB/MRY - EXECUTABLE ADT HELP PROMPTS ; 23 AUG 2001 |
2 | ;;1.0;Beneficiary Travel;;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.