source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LRQC.m@ 792

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

initial load of FOIAVistA 6/30/08 version

File size: 388 bytes
Line 
1LRQC ;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
8END 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.