source: WorldVistAEHR/trunk/r/BAR_CODE_MED_ADMIN-ALPB-PSB/PSBVT1.m@ 1608

Last change on this file since 1608 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 606 bytes
RevLine 
[613]1PSBVT1 ;BIRMINGHAM/BSR-BCMA ORDER VARIABLES UTILITY ;Mar 2004
2 ;;3.0;BAR CODE MED ADMIN;;Mar 2004
3 ;
4PSBDCHK1(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 ;
13PSBDCHK(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.