LRACM4.m

LRACM4 ; IHS/DIR/FJE - INIT CUM REPORTS CONT. 9/10/87 09:55 ;

 ;;5.2;LR;**1013**;JUL 15, 2002

 ;

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

DEL ;from LRACM

 K ^LRO(68,"AC") D MOR S I=0 F  S I=$O(^LAB(64.5,1,3,I)) Q:I<1  S ^(0)=$P(^(I,0),U,1,3)

DEL1 W !!,"Each day has a different set of patients for which cumulatives are printed.",!,"Your next response will be a beginning date for combining these sets of",!,"patients into the next cumulative (ending date is today).  "

 W !,"A cumulative will be printed for each patient that originally",!,"had a cumulative during this time period.  The potential for duplicates",!,"is high because of patient movement within the time period."

 S %DT="AE",%DT("A")="Select BEGINNING DATE FOR COMBINED CUMULATIVE: " D ^%DT G:Y<1 OUT S $P(^LAB(64.5,1,0),U,3)=Y

 S LRDTX=0 F  S LRDTX=$O(^LRO(69,LRDTX)) Q:LRDTX<1!(LRDTX'<Y)  W " ",LRDTX K ^LRO(69,LRDTX,1,"AR")

 K LRDTX Q

MOR W !!,"Re-cross referencing just the ""AC"" index will recapture the pointers to",!,"^LR from ^LRO(68,""AC""; thus, all data back to a given date (date of going",!,"live with cum) that is still on the system can be reprinted.",!

 F I=0:0 R !,"Do you want to re-cross reference the ""AC"" X-ref from a certain date" S %=1 D YN^DICN Q:%>0  W !,"You must answer 'Y'es or 'N'o."

 I %=1 D ^LRACFIX

 Q

OUT W !!,$C(7),"NO COMBINING HAS OCCURRED!" Q

LRACM4    ; IHS/DIR/FJE - INIT CUM REPORTS CONT. 9/10/87 09:55 ;

 +1       ;;5.2;LR;**1013**;JUL 15, 2002

 +2       ;

 +3       ;;5.2;LAB SERVICE;;Sep 27, 1994

DEL       ;from LRACM

 +1        KILL ^LRO(68,"AC")

           DO MOR

           SET I=0

           FOR 

               SET I=$ORDER(^LAB(64.5,1,3,I))

               IF I<1

                   QUIT 

               SET ^(0)=$PIECE(^(I,0),U,1,3)

DEL1       WRITE !!,"Each day has a different set of patients for which cumulatives are printed.",!,"Your next response will be a beginning date for combining these sets of",!,"patients into the next cumulative (ending date is today).  "

 +1        WRITE !,"A cumulative will be printed for each patient that originally",!,"had a cumulative during this time period.  The potential for duplicates",!,"is high because of patient movement within the time period."

 +2        SET %DT="AE"

           SET %DT("A")="Select BEGINNING DATE FOR COMBINED CUMULATIVE: "

           DO ^%DT

           IF Y<1

               GOTO OUT

           SET $PIECE(^LAB(64.5,1,0),U,3)=Y

 +3        SET LRDTX=0

           FOR 

               SET LRDTX=$ORDER(^LRO(69,LRDTX))

               IF LRDTX<1!(LRDTX'<Y)

                   QUIT 

               WRITE " ",LRDTX

               KILL ^LRO(69,LRDTX,1,"AR")

 +4        KILL LRDTX

           QUIT 

MOR        WRITE !!,"Re-cross referencing just the ""AC"" index will recapture the pointers to",!,"^LR from ^LRO(68,""AC""; thus, all data back to a given date (date of going",!,"live with cum) that is still on the system can be reprinted.",!

 +1        FOR I=0:0

               READ !,"Do you want to re-cross reference the ""AC"" X-ref from a certain date"

               SET %=1

               DO YN^DICN

               IF %>0

                   QUIT 

               WRITE !,"You must answer 'Y'es or 'N'o."

 +2        IF %=1

               DO ^LRACFIX

 +3        QUIT 

OUT        WRITE !!,$CHAR(7),"NO COMBINING HAS OCCURRED!"

           QUIT