|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
388 bytes
|
| Line | |
|---|
| 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.
