source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRBLSCRN.m@ 846

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

initial load of WorldVistAEHR

File size: 644 bytes
Line 
1LRBLSCRN ;DAL/MEA - BB DD FIELD SCREEN; ; 11/21/00 3:34pm
2 ;;5.2;LAB SERVICE;**267**;Sep 27, 1994
3 ;
4PEDI() N X,Y,ANS,CODEX,CODEY
5 S ANS=0
6 S X=^(0) ; From ^LAB(66,x,0)
7 S Y=^LAB(66,DA,0)
8 I $P(X,U,29) D
9 .S CODEX=$P(X,U,5)
10 .S CODEY=$P(Y,U,5)
11 .I $E(CODEX,1,6)'=$E(CODEY,1,6) Q ; Both have same base product code
12 .I $E(CODEX,7)'="A" Q ; Seventh character is an 'A' (split)
13 .I $P(X,U,12)'=$P(Y,U,12) Q ; Both have same anti coag
14 .I $P(X,U,29)'=$P(Y,U,29) Q ; Both are of the same symbology
15 .S ANS=1 ; If ISBT, same coag, and same symbology
16 I '$P(X,U,29),$P(X,U)["PEDIATRIC",$P(X,U,12)=$P(Y,U,12),$P(X,U,29)=$P(Y,U,29) S ANS=1
17 Q ANS
Note: See TracBrowser for help on using the repository browser.