- 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