source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSEMSG.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 847 bytes
Line 
1YSEMSG ;SLC/AFE-ERROR MESSAGES ;8/3/89 14:49 ;
2 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
3 ;
4MSG1 ; Called by routine YSPPJ
5 W !!," YOU SHOULD SELECT ONE OF THE FOLLOWING OR (^) TO EXIT:"
6 W !," Select section numbers (1) thru (10) corresponding to the "
7 W !," 'PATIENT PROFILE' section items listed above."
8 W !," Select (P) for section number selection process, e.g. 1,3,5,7."
9 W !," Select (Q) for a single section 'PATIENT STATUS' or 'Quick Look'.",! H 5
10 Q
11 ;
12MSG2 ; Called by routine YSPROBR
13 W !!," NO PROBLEM LIST ENTRIES EXIST FOR: ",YSNM
14 W !!," ",! H 5
15 Q
16 ;
17MSG3 ; Called by routine YSPROBR
18 W !!," FOR PROBLEM NUMBER: ",YSNP
19 W !," NO STATUS RECORDS EXIST",! H 5
20 Q
21MSG4 ; Called by routine YSPROBR
22 W !!," FOR PROBLEM NUMBER: ",YSNP
23 W !," STATUS RECORD NUMBER: ",YSLP
24 W !," DOES NOT EXIST",! H 5
25 Q
Note: See TracBrowser for help on using the repository browser.