Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
649 bytes
|
Rev | Line | |
---|
[628] | 1 | SRSWL5 ;B'HAM ISC/MAM - PRINT PROCEDURE FOR WAITING LIST ; 20 SEPT 1990 9:00 AM
|
---|
| 2 | ;;3.0; Surgery ;;24 Jun 93
|
---|
| 3 | S SROLD=0 D OLD^SRSWLST Q:'SROLD S SROPER=$P(^SRF(SROLD,"OP"),"^")
|
---|
| 4 | K SROPS,MM,MMM S:$L(SROPER)<70 SROPS(1)=SROPER I $L(SROPER)>69 S SROPER=SROPER_" " F M=1:1 D LOOP Q:MMM=""
|
---|
| 5 | W !,"* Procedure performed since this entry was made on the Waiting List",!," Operation Date: "_SROLD("DATE"),!,?2,SROPS(1) I $D(SROPS(2)) W !,?2,SROPS(2)
|
---|
| 6 | Q
|
---|
| 7 | LOOP ; break operation if greater than 69 characters
|
---|
| 8 | S SROPS(M)="" F LOOP=1:1 S MM=$P(SROPER," "),MMM=$P(SROPER," ",2,200) Q:MMM="" Q:$L(SROPS(M))+$L(MM)'<70 S SROPS(M)=SROPS(M)_MM_" ",SROPER=MMM
|
---|
| 9 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.