LRQC.m

LRQC ;SLC/CJS - QUALITY CONTROL DISPLAY ; 6/2/86  8:38 AM ;

 ;;5.2;LAB SERVICE;**201**;Sep 27, 1994

 D DT^LRX D EN^LRPARAM

 S LRDT0=$$Y2K^LRX(DT)

 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

 S PNM=$P(Y(0),U),SSN=$P(Y(0),U,9) D PT^LRX

 K DIC D ENT^LRDIST

END K SEX,S1,J,T,LRMX,POP,AGE,DFN,DIC,DOB,LRDFN,LRDPF,SSN

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRQC   397     printed  Nov 22, 2024@17:29:48                                                                                                                                                                                                         Page 2

LRQC      ;SLC/CJS - QUALITY CONTROL DISPLAY ; 6/2/86  8:38 AM ;

 +1       ;;5.2;LAB SERVICE;**201**;Sep 27, 1994

 +2        DO DT^LRX

           DO EN^LRPARAM

 +3        SET LRDT0=$$Y2K^LRX(DT)

 +4        SET DIC="^LAB(62.3,"

           SET DIC(0)="AEQZ"

           DO ^DIC

           if Y<1

               GOTO END

           SET DFN=+Y

           SET LRDFN=+$GET(^LAB(62.3,DFN,"LR"))

           if 'LRDFN

               GOTO END

           SET LRDPF=62.3

 +5        SET PNM=$PIECE(Y(0),U)

           SET SSN=$PIECE(Y(0),U,9)

           DO PT^LRX

 +6        KILL DIC

           DO ENT^LRDIST

END        KILL SEX,S1,J,T,LRMX,POP,AGE,DFN,DIC,DOB,LRDFN,LRDPF,SSN

 +1        QUIT