|
Last change
on this file since 1154 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
649 bytes
|
| Line | |
|---|
| 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.
