source:
WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRQC.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 388 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | LRQC ;SLC/CJS - QUALITY CONTROL DISPLAY ; 6/2/86 8:38 AM ; |
2 | ;;5.2;LAB SERVICE;**201**;Sep 27, 1994 | |
3 | D DT^LRX D EN^LRPARAM | |
4 | S LRDT0=$$Y2K^LRX(DT) | |
5 | S DIC="^LAB(62.3,",DIC(0)="AEQZ" D ^DIC G END:Y<1 S DFN=+Y,LRDFN=+$G(^LAB(62.3,DFN,"LR")) G END:'LRDFN S LRDPF=62.3 | |
6 | S PNM=$P(Y(0),U),SSN=$P(Y(0),U,9) D PT^LRX | |
7 | K DIC D ENT^LRDIST | |
8 | END K SEX,S1,J,T,LRMX,POP,AGE,DFN,DIC,DOB,LRDFN,LRDPF,SSN | |
9 | Q |
Note:
See TracBrowser
for help on using the repository browser.