| 1 | LRFASTS ;DALOI/FHS - ENHANCED LRFAST RTN ACCESSION/VERIFY PROCESS ; Jun 3, 2003
|
|---|
| 2 | ;;5.2;LAB SERVICE;**30,95,121,271,286**;Sep 27, 1994
|
|---|
| 3 | EN ;
|
|---|
| 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 | ;
|
|---|
| 20 | QUIT ;
|
|---|
| 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 | ;
|
|---|
| 35 | LRWU4 ;
|
|---|
| 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 | ;
|
|---|
| 56 | GO ;
|
|---|
| 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 | ;
|
|---|
| 73 | SLOWK ;
|
|---|
| 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
|
|---|
