1 | YSEMSG ;SLC/AFE-ERROR MESSAGES ;8/3/89 14:49 ;
|
---|
2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
---|
3 | ;
|
---|
4 | MSG1 ; 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 | ;
|
---|
12 | MSG2 ; Called by routine YSPROBR
|
---|
13 | W !!," NO PROBLEM LIST ENTRIES EXIST FOR: ",YSNM
|
---|
14 | W !!," ",! H 5
|
---|
15 | Q
|
---|
16 | ;
|
---|
17 | MSG3 ; Called by routine YSPROBR
|
---|
18 | W !!," FOR PROBLEM NUMBER: ",YSNP
|
---|
19 | W !," NO STATUS RECORDS EXIST",! H 5
|
---|
20 | Q
|
---|
21 | MSG4 ; 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
|
---|