source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRFASTS.m@ 1604

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

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1LRFASTS ;DALOI/FHS - ENHANCED LRFAST RTN ACCESSION/VERIFY PROCESS ; Jun 3, 2003
2 ;;5.2;LAB SERVICE;**30,95,121,271,286**;Sep 27, 1994
3EN ;
4 N DIC,DIR,DIRUT,DTOUT,DUOUT,LRPER,X,Y
5 D ^LRPARAM
6 S LRFASTS=""
7 I '$D(LRLABKY) W !!?10,"Not authorized to use this option " Q
8 S LRCW=8,LREND=0,LRPANEL=0
9 S DIR(0)="YO",DIR("A")="Do you want to review the data before and after you edit",DIR("B")="YES"
10 D ^DIR
11 I $D(DIRUT) D QUIT Q
12 I Y=0 S LRPER=""
13 S X=$$SELPL^LRVERA(DUZ(2))
14 I X<1 D QUIT Q
15 I X'=DUZ(2) N LRPL S LRPL=X
16 ;
17 K LRCDEF0,LRCDEF
18 D ^LRORD
19 ;
20QUIT ;
21 I $D(LRCSQ),'$O(^TMP("LRCAP",LRCSQ,DUZ,0)) K ^TMP("LRCAP",LRCSQ,DUZ),LRCSQ
22 I $D(LRCSQ),$P(LRPARAM,U,14) D STD^LRCAPV K LRIDIV
23 ;
24 K I12,LRCDEF,LRCDEF0,LRCDEF0X,LRCSQ,LRCW,LRFASTS,LRNTN,LRNX,LRPANEL,LRSSCX,LRDUF0,LRTEC,LRVF,LRXDP,X9,%,L1,LRAD,LREND,LRSN,QUOUT
25 K LRAL,LRALL,LRCAPMS,LRMA,SEX,S2,T1,AGE,N,D0,D1,DOB,I,LRFASTS,LRSLOW,DIR,X3,LRORDXS,LRADXS,LRSNXS,LRWP,LRWPC
26 K LRALERT,LRCSQQ,LRT,LRNOW,LRODTSV,LRSNSV,LRSUF0,LRTSNV,NOW,LRI,LRTNSV
27 ; ORVP,ORIFN Killed for OE/RR 2.5
28 K ORVP,ORIFN
29 ;
30 D SLOWK,^%ZISC
31 ;
32 Q
33 ;
34 ;
35LRWU4 ;
36 N L,LRI,LRADXS,LRSNXS
37 Q:'$G(LRORD)
38 S LRORDXS=LRORD,LRADXS=0
39 F S LRADXS=$O(^LRO(69,"C",LRORDXS,LRADXS)) Q:LRADXS<1 D
40 . S LRSNXS=0
41 . F S LRSNXS=$O(^LRO(69,"C",LRORDXS,LRADXS,LRSNXS)) Q:LRSNXS<1 D
42 . . K LRSLOW
43 . . S LRSN=+LRSNXS,LRAD=+LRADXS,LRORD=+LRORDXS
44 . . Q:'LRSN!('LRAD)!('$O(^LRO(69,LRAD,1,LRSN,2,0)))
45 . . S LRI=0
46 . . F S LRI=$O(^LRO(69,LRAD,1,LRSN,2,LRI)) Q:LRI<1 D
47 . . . S L=$G(^LRO(69,LRAD,1,LRSN,2,LRI,0))
48 . . . I $P(L,U,3),$P(L,U,4),$P(L,U,5) S LRSLOW($P(L,U,3,5))=""
49 . . S LRI=""
50 . . F S LRI=$O(LRSLOW(LRI)) Q:LRI="" D GO
51 ;
52 D SLOWK
53 Q
54 ;
55 ;
56GO ;
57 ; Protect variables
58 N LRAA,LRAD,LRAN,LRADXS,LRSNXS
59 S LRAD=$P(LRI,U,1),LRAA=$P(LRI,U,2),LRAN=$P(LRI,U,3)
60 ;
61 ; Protect subscript variable
62 N LRI
63 ;
64 I $P(LRPARAM,U,14),$P($G(^LRO(68,LRAA,0)),U,16) D ^LRCAPV Q:$G(LREND)
65 ;
66 ; Check for different performing lab.
67 I $G(LRPL) N LRDUZ S LRDUZ(2)=LRPL
68 ;
69 D SLOW^LRVER
70 Q
71 ;
72 ;
73SLOWK ;
74 K I5,LRCSN,LRORIFN,LRWPC,X4
75 K K,LRACN,LRACN0,LRDAX,LRDOC,LRCDEF,LRCDEF0
76 K LRLBL,LRLBLBP,LRLL,LRLWC,LRMACH,LROD0,LROD1,LROD3,LROOS,LRORD,LROSD,LRYR
77 K LRAA,LRACD,LRAN,LRAOD,LRCAPLOC,LRAOD,LRCDT,LRCFL,LRCODEN,LRCS,LRDAT,LRDEL,LRDFN,LRDPF,LRDV,LRDVF,LREAL,LREDO,LRFFLG,LRFP,LRIDIV,LRIDT,LRIX,LRJ,LRK,LRBLBP,LRLCT,LRLDT,LRLLOC,LRM,LRMAX1
78 K LRMAX2,LRMAXX,LRMETH,LRMX,LRNAME,LRNOCODE,LROLLOC,LROT,LRPR,LRPRAC,LRRB,LRSAMP,LRSAVE,LRSPN,LRSS,LRSSX,LRST,LRSUB,LRSUM,LRSX,LRSXN,LRTEST,LRTN,LRTREA,LRTS,LRTX,LRTY,LRVRM,LRWL0,LRWLC,LRWRD,LRX,LRXD,LRWRD,SSN
79 K DR,GLB,H8,L,S5,T,TT
80 Q
Note: See TracBrowser for help on using the repository browser.