source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRORDK.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.3 KB
Line 
1LRORDK ;SLC/FHS - CLEAN UP AFTER ACCESSIONING PROCESS ;8/7/89 13:58
2 ;;5.2;LAB SERVICE;**61,100,121,153,201**;Sep 27, 1994
3EN ;
4KILL K LRSD,LRXDFN,LRXDPF,LR696IEN,LABTEST
5 K %,A,D,DO,DA,DFN,DIC,DQ,DTOUT,DX,H8,J,K,L,LRAA,LRACC,LRAD,LRAN,LRCCOM,LRCDT,LRCSN,LRD,LRDFN,LRDPF,LREAL,LREDO,LREND,LREXP,LRIDT,LRIN,LRIX,LRLBLBP,LRLLOC,LRM,LRN,LRNT,LRORD,LROUTINE,LRPR,LRPRAC,LRRB,LRSN,LRSSP,LRSSX,LRST,LRSUM
6 K I9,LRTEST,LRZT,LRORDTIM,LRSX,LRSXN,LRTX,LRTSTNM,LRUNQ,LRWLC,LRWP,LRWPD,LRYR,PNM,S,SSN,X,Y,Z,LRFIRST,LRSAME,LRSAMP,LRSPEC,LRORDR,LRECT,LRODT,LRURG,LRFLOG,LRCS,LROT,LROLLOC,LRTREA
7 K LRBED,LRCSS,LRDTO,LRK,LRLWC,LRORDER,LRTP,LRTSTS,LRUR,LRUSI,LRUSNM,LRSLIP,I7,%H,%X,%Y,DIWL,DIWR,DPF,I1,I2,I5,LABEL,LRADDTST,LRCE,LRDAT,LRECOM,LRINFW,LRIOZERO,LRNCWL,LRNIDT,LRNOLABL,LROCN,LROID,LROLRDFN,LRORIFN,LROSN,LRPHSET,LRPREF
8 K LRSPCDSC,LRSVSN,LRTJ,LRTOP,LRTS,LRTXD,LRTXP,LRWL0,LRWPC,LRXL,S5,LRACD,LRACN,LRACN0,LRDOC,LRLL,LROD0,LROD1,LROD3,LROS,LROSD,LRROD,LRTT,T,X,X1,X2,X3,X4,Z,LRIDIV,LRCOM,LRNATURE,LRTCOM
9 K LRIO,LRJ,LROOS,LRSS,LRTN,LRTIME,LRIO,LRURGG,LRLWCURG,LRCAPLOC,LRDAX,LRDMAX,LRDTST,LRTMAX,LRSAMPX,TT,LRMAX1,LROUT,LRSAVE,LRMAX2,LRMAXX,LRTY,LRSPN,DR,DIR,VA("PID"),VA("BID")
10 D KVAR^VADPT
11 K LRDPTDFN,LRI,LRIEN,LRNLT,LRODTSV,LRORU3,LRPAT,LRPCEVSO
12 K LRREFBAR,LRRSITE,LRRUID,LRSNSV,LRTREAT,LRTSORU,LRUID,LRWRD
13 K NOW,SEX,LRTNSV,LRORDRR,AGE,LRRSTAT,DUOUT,LRRIEN,DIRUT,DOB,C,LRVV
14 K LRAFJDFN,LRDPTDFN,D0,ANS,LRY,D1,X,DI
15 K ^TMP("LRSTIK",$J)
16 D ^%ZISC
17 Q
18LROEND ;KILL LROE ROUTINE VARIABLES
19 K %,A,AGE,DFN,DIC,DL,DOB,DR,DX,H8,J,K,LRAA,LRACC,LRAD,LRAN,LRCCOM,LRCDT,LRCHK,LRCOM,LRCS,LRCSN,LRCSP,LRCSX,LRD,LRDAX,LRDFN,LRDPF,LREAL,LREND,LREXP,LRIDT,LRIN,LRIX,LRLBLBP,LRLLOC,LRLWC,LRMAX,LRMOR,LRNN,LRNT,LRODT,LROLLOC,LRTREA,LRSPCDSC
20 K LRORD,LRPR,LRPRAC,LRRB,LRSAMP,LRSNO,LRSPEC,LRSSP,LRST,LRSTATUS,LRTEST,LRTIM,LRTM7,LRTN,LRTS,LRTSTN,LRTY,LRUN,LRUNQ,LRURG,LRWL0,LRWLC,LRWRD,LRXS,LRXST,LRYR,M9,PNM,S,SEX,SSN,T,X,X1,X3,Y,Z,VA("BID"),VA("PID"),LRTCOM
21 K %H,%X,%Y,DICS,DO,DPF,DSC,G1,G2,G4,I1,I2,I7,J1,LABEL,LOC,LRACD,LRADDTST,LRAOD,LRCE,LRDC,LRECOM,LRECT,LREDO,LREXEC,LRFLOG,LRGVP,LRINFW,LRIOZERO,LRK,LRNIDT,LRNONE,LROLRDFN,LRORDR,LRORDTIM,LRORIFN,LRPER,LRPHSET,LRPLOC,LRPREF
22 K LRQUICK,LRRND,LRSLIP,LRSSQ,LRSSX,LRSVSN,LRSX,LRSXN,LRTEC,LRTJ,LRTOP,LRTSN,LRTXD,LRTXP,LRVOL,LRWP,LRWPC,LRWPD,LRWRDS,LRXL,LRZX,Z1,Z2,LRSN1,LRSAME,ZTSK,DIR,LRLABLIO,LRNATURE
23 K ^TMP("LRSTIK",$J)
24 D KVAR^VADPT D ^%ZISC
25 Q
Note: See TracBrowser for help on using the repository browser.