LRAPRES2.m

LRAPRES2 ;VA/DALOI/CKA - AP ESIG RELEASE REPORT;11/7/07

 ;;5.2;LAB SERVICE;**1031**;NOV 1, 1997;Build 188

 ;

 ;;VA LR Patche(s): 315

 ;

WKLD ;Capture workload

 K LRFDA,ERR,IENS,OROUT,ORIEN

 S LRK=$P(^LR(LRDFN,LRSS,LRI,0),"^",11) Q:'LRK

 Q:$D(^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRT,0))

 S RNUM=1

 S IENS="+"_RNUM_","_LRAN_","_LRAD_","_LRAA_","

 S FILE=68.04,ORIEN(1)=LRT

 S LRFDA(1,FILE,IENS,.01)=LRT

 S LRFDA(1,FILE,IENS,1)=50

 S LRFDA(1,FILE,IENS,3)=DUZ

 S LRFDA(1,FILE,IENS,4)=LRK

 S FILE1=68.14

 S C=0 F  S C=$O(LRT(C)) Q:'C  D

 .S RNUM=RNUM+1

 .S ORIEN(RNUM)=C

 .S IENS1="+"_RNUM_","_IENS

 .S LRFDA(1,FILE1,IENS1,.01)=C

 .S LRFDA(1,FILE1,IENS1,.02)=1

 .S LRFDA(1,FILE1,IENS1,.03)=0

 .S LRFDA(1,FILE1,IENS1,.04)=0

 .S LRFDA(1,FILE1,IENS1,1)=LRK

 .S LRFDA(1,FILE1,IENS1,2)=DUZ

 .S LRFDA(1,FILE1,IENS1,3)=DUZ(2)

 .S LRFDA(1,FILE1,IENS1,4)=LRAA

 .S LRFDA(1,FILE1,IENS1,5)=LRAA

 .S LRFDA(1,FILE1,IENS1,6)=LRAA

 D UPDATE^DIE("","LRFDA(1)","ORIEN","OROUT")

 Q

END ;Clean-up variables and quit

 K LRAD1,LRDATA,LRAU,LRRDTE,LRTEXT,LRSEL,LRFILE,LRIENS,LRIENS1

 K LRFDA,ERR,IENS,OROUT,ORIEN,LRTMP

 K DIROUT,FILE,FILE1,IENS1,LRCHKSUM,LRO68,LRPRO,RNUM,TIUPRM1,X1

 K ^TMP("LRAPBR",$J),^TMP("TIUP",$J)

 D:$T(CLEAN^LRCAPES)'="" CLEAN^LRCAPES

 D V^LRU

 Q

LRAPRES2  ;VA/DALOI/CKA - AP ESIG RELEASE REPORT;11/7/07

 +1       ;;5.2;LAB SERVICE;**1031**;NOV 1, 1997;Build 188

 +2       ;

 +3       ;;VA LR Patche(s): 315

 +4       ;

WKLD      ;Capture workload

 +1        KILL LRFDA,ERR,IENS,OROUT,ORIEN

 +2        SET LRK=$PIECE(^LR(LRDFN,LRSS,LRI,0),"^",11)

           IF 'LRK

               QUIT 

 +3        IF $DATA(^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRT,0))

               QUIT 

 +4        SET RNUM=1

 +5        SET IENS="+"_RNUM_","_LRAN_","_LRAD_","_LRAA_","

 +6        SET FILE=68.04

           SET ORIEN(1)=LRT

 +7        SET LRFDA(1,FILE,IENS,.01)=LRT

 +8        SET LRFDA(1,FILE,IENS,1)=50

 +9        SET LRFDA(1,FILE,IENS,3)=DUZ

 +10       SET LRFDA(1,FILE,IENS,4)=LRK

 +11       SET FILE1=68.14

 +12       SET C=0

           FOR 

               SET C=$ORDER(LRT(C))

               IF 'C

                   QUIT 

               Begin DoDot:1

 +13               SET RNUM=RNUM+1

 +14               SET ORIEN(RNUM)=C

 +15               SET IENS1="+"_RNUM_","_IENS

 +16               SET LRFDA(1,FILE1,IENS1,.01)=C

 +17               SET LRFDA(1,FILE1,IENS1,.02)=1

 +18               SET LRFDA(1,FILE1,IENS1,.03)=0

 +19               SET LRFDA(1,FILE1,IENS1,.04)=0

 +20               SET LRFDA(1,FILE1,IENS1,1)=LRK

 +21               SET LRFDA(1,FILE1,IENS1,2)=DUZ

 +22               SET LRFDA(1,FILE1,IENS1,3)=DUZ(2)

 +23               SET LRFDA(1,FILE1,IENS1,4)=LRAA

 +24               SET LRFDA(1,FILE1,IENS1,5)=LRAA

 +25               SET LRFDA(1,FILE1,IENS1,6)=LRAA

               End DoDot:1

 +26       DO UPDATE^DIE("","LRFDA(1)","ORIEN","OROUT")

 +27       QUIT 

END       ;Clean-up variables and quit

 +1        KILL LRAD1,LRDATA,LRAU,LRRDTE,LRTEXT,LRSEL,LRFILE,LRIENS,LRIENS1

 +2        KILL LRFDA,ERR,IENS,OROUT,ORIEN,LRTMP

 +3        KILL DIROUT,FILE,FILE1,IENS1,LRCHKSUM,LRO68,LRPRO,RNUM,TIUPRM1,X1

 +4        KILL ^TMP("LRAPBR",$JOB),^TMP("TIUP",$JOB)

 +5        IF $TEXT(CLEAN^LRCAPES)'=""

               DO CLEAN^LRCAPES

 +6        DO V^LRU

 +7        QUIT