|
Last change
on this file since 712 was 613, checked in by George Lilly, 16 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
653 bytes
|
| Line | |
|---|
| 1 | SRSBD1 ;B'HAM ISC/MAM - DELETE SERVICE BLOCKOUT (CONT); 07/08/88 15:44
|
|---|
| 2 | ;;3.0; Surgery ;**26**;24 Jun 93
|
|---|
| 3 | DAYCHK ; check to see if service is scheduled for the date selected
|
|---|
| 4 | I '$D(^SRS(SRSOR,"S",SRSDATE,0)) S SROR=SRSOR D GRAPH^SRSAVL
|
|---|
| 5 | S SRCHK=0,SRX1=11+($P(SRSST,".")*5)+(SRSST-$P(SRSST,".")*100\15),SRX2=11+($P(SRSET,".")*5)+(SRSET-$P(SRSET,".")*100\15) I $E(^SRS(SRSOR,"S",SRSDATE,1),SRX1,SRX2)'[SRSSER S SRCHK=1
|
|---|
| 6 | S SRX=SRX2-SRX1 I ((SRX1-1)#5!(SRX2#5)),SRX<9 S SRY=SRSSER_".",SRY=$E(SRY,1,4),SRZ=SRX1,SRN=^SRS(SRSOR,"S",SRSDATE,1),SRC=0 D
|
|---|
| 7 | .F J=1:1:SRX Q:SRC=1 S SRZ=SRZ+1 I SRZ#5'=1,$E(SRN,SRZ)'=$E(SRY,(SRZ-1)#5) S SRC=1 Q
|
|---|
| 8 | .I 'SRC S SRCHK=0
|
|---|
| 9 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
