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