source: WorldVistAEHR/trunk/r/BENEFICIARY_TRAVEL-DGBT/DGBTHELP.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 352 bytes
Line 
1DGBTHELP ;ALB/MRY - EXECUTABLE ADT HELP PROMPTS ; 23 AUG 2001
2 ;;1.0;Beneficiary Travel;;Jun 25, 2001
3 ;
4EN ;called from ques node on dispo multiple
5 Q
6UP 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
8IN 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.