|
Last change
on this file since 789 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
606 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | PSBVT1 ;BIRMINGHAM/BSR-BCMA ORDER VARIABLES UTILITY ;Mar 2004
|
|---|
| 2 | ;;3.0;BAR CODE MED ADMIN;;Mar 2004
|
|---|
| 3 | ;
|
|---|
| 4 | PSBDCHK1(PSBSCHV) ;
|
|---|
| 5 | I PSBSCHV="" Q 0
|
|---|
| 6 | I PSBSCHV["PRN" Q 0
|
|---|
| 7 | S PSBYEA1="1"
|
|---|
| 8 | I PSBSCHV["@" S PSBSCHV=$P(PSBSCHV,"@")
|
|---|
| 9 | I $L(PSBSCHV)<2 Q 0
|
|---|
| 10 | F S=1:1:7 Q:$P(PSBSCHV,"-",S)="" I $$PSBDCHK($P(PSBSCHV,"-",S))=0 S PSBYEA1=0 Q
|
|---|
| 11 | Q PSBYEA1
|
|---|
| 12 | ;
|
|---|
| 13 | PSBDCHK(PSBSCHV1) ;
|
|---|
| 14 | S PSBYEA=0
|
|---|
| 15 | S PSBRDOW="SUNDAYS^MONDAYS^TUESDAYS^WEDNESDAYS^THURSDAYS^FRIDAYS^SATURDAYS"
|
|---|
| 16 | F I=1:1:7 D
|
|---|
| 17 | .S X=$P(PSBRDOW,"^",I),X1=$L(X),X2=$P(PSBSCHV1,"-",1),X3=$L(X2) I X3<2 Q
|
|---|
| 18 | .I $E(X,1,X3)=X2 S PSBYEA=1
|
|---|
| 19 | Q PSBYEA
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
