- LRACM ;SLC/DCM - MENU FOR CUMULATIVE REPORTS ;2/19/91 10:11 ;
- ;;5.2;LAB SERVICE;;Sep 27, 1994
- Q
- LRAC W ?25,"Kill now taking place!!!",$C(7) K ^LAC("LRAC"),^LAC("LGOT") S ^LAC("LRAC",0)="CUMULATIVE^64.7P" D DEL^LRACM4 Q
- LRKILL W !?25,"Kill under way!!!",$C(7) K ^LAC("LRKILL") Q
- LOC D A^LRACM1 D:LRNOT MSG D L,END Q
- L D ASK^LRACM1,LOCA^LRWU Q:X[U S LRNM=0,LRRE=1
- I '$D(^LRO(69,LRDT,1,"AR",LRLLOC)) W !?7,"SORRY, NO DATA FOR LOCATION ",LRLLOC G L
- I 'LRDT W !!,$C(7),"NO PREVIOUS RUN DEFINED",! Q
- K IO("Q") S %ZIS="QM" D ^%ZIS Q:POP I $D(IO("Q")) K IO("Q") S ZTRTN="LOC1^LRACM",ZTSAVE("DT")="",ZTSAVE("LR*")="",ZTSAVE("DUZ")="",ZTSAVE("U")="" D ^%ZTLOAD D ^%ZISC K ZTRTN,ZTIO,ZTDESC,ZTSAVE,ZTSK Q
- U IO
- LOC1 D LOAD S LRIDT=0,LRTRUE=1,LRDFN=0
- D LRLTR^LRAC1
- S LRRE=0 D ^%ZISC D END Q
- DIC R !,"Select HOSPITAL LOCATION NAME: ",X:DTIME Q:'$T!(X[U)!($L(X)>20)!(X'?.ANP) S LRLLOC=X,LRYDT=DT,DIC=44,DIC(0)="EMOQ" D ^DIC Q:Y<1!(X["?") S LRLLOC=$S($L($P(^SC(+Y,0),U,2)):$P(^(0),U,2),1:$P(^(0),U,1)) K DIC,DIC(0)
- Q
- EN ;
- KILL W !,"I will initialize various portions of the Lab cumulative package.",!,"Continue only if you want to start over with the cumulative.",!
- R !!,"Do you want to continue? N// ",X:120 Q:X'["Y" W !!,"O.K.",!!
- D LRAC,LRKILL R !!,"Initialize all page numbers? Y// ",X:120 D:X'["N" LPG^LRACM2 K DIC,%DT Q
- LOAD ;from LRACM3
- S:$D(ZTQUEUED) ZTREQ="@"
- Q
- MSG ;from LRACM1, LRACM3
- S IOP="HOME" D STA^LRACK
- W !!,$C(7),"THE CUMULATIVE APPARENTLY HAS NOT FINISHED.",!,"Do NOT try to reprint reports that have not finished printing!",!,"TO MANUALLY RUN/RESTART CUMULATIVE USE THE OPTION LRAC MANUAL."
- R !!,"Press any key to continue: ",X:DTIME K IOP Q
- END ;from LRACM1, LRACM2, LRACM3, LRACSUM
- K ^TMP($J),LRCALE,LRADD,LRAMT,LRCTR,LRCTRR,LRDOC,LRDT,LRDT1,LRFALT,LRFD1,LRFDE,LRFED,LRFFLG,LRGRM,LRIF,LRIOZERO,LRKL,LRLTR,LROUT,LRIN,LRSDT,LREDT,LRI,LRX,LRF,LRL,LRDIS,LRACT,LRAG,LRAN,LRBDT,LRCL,LRCW,LRCL,LRDFN,LRD,LRDPF
- K LRIV,LRMYC,LRNOT,LRNUM,LRNX,LRNXSW,LRPAR,LRPG2,LRPPT,LRSET,LRSIC,LRSS,LRTBC,LRWRDVEW,LRXDT,LRXLR,LRYDT,LRRPTN,LRFD,LRFDT,LRFFDT,LRFMT,LRFN,LRFULL,LRHI,LRIDT,LRII,LRIIDT,LRIL,LRINN,LRJS,LRLFDT,LRLLOC,LRLNS,LRLO,LRLOHI,LRMH
- K ^TMP($J,"TM"),LRMHN,LRMU,LRMULT,LRNM,LRNOFL,LRNON,LRNP,LROFDT,LROFMT,LRPG,LRPL,LRSH,LRSHD,LRSHN,LRSPM,LRSPM1,LRSUB,LRTAB,LRTD,LRTF,LRTIM,LRTLOC,LRTM,LRTNN,LRTOPP,LRTOT,LRTS,LRTST,LRTSTS,LRTSTVAL,LRTT,LRUDT,LRVDT,LRVIDT,LRWRD
- K LRG,LRYESCOM,LRPERM,LRBOT,LRCDT,LRDP,LRVAR,LRNP,PNM,SEX,SSN,Z Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRACM 2485 printed Feb 18, 2025@23:32:16 Page 2
- LRACM ;SLC/DCM - MENU FOR CUMULATIVE REPORTS ;2/19/91 10:11 ;
- +1 ;;5.2;LAB SERVICE;;Sep 27, 1994
- +2 QUIT
- LRAC WRITE ?25,"Kill now taking place!!!",$CHAR(7)
- KILL ^LAC("LRAC"),^LAC("LGOT")
- SET ^LAC("LRAC",0)="CUMULATIVE^64.7P"
- DO DEL^LRACM4
- QUIT
- LRKILL WRITE !?25,"Kill under way!!!",$CHAR(7)
- KILL ^LAC("LRKILL")
- QUIT
- LOC DO A^LRACM1
- if LRNOT
- DO MSG
- DO L
- DO END
- QUIT
- L DO ASK^LRACM1
- DO LOCA^LRWU
- if X[U
- QUIT
- SET LRNM=0
- SET LRRE=1
- +1 IF '$DATA(^LRO(69,LRDT,1,"AR",LRLLOC))
- WRITE !?7,"SORRY, NO DATA FOR LOCATION ",LRLLOC
- GOTO L
- +2 IF 'LRDT
- WRITE !!,$CHAR(7),"NO PREVIOUS RUN DEFINED",!
- QUIT
- +3 KILL IO("Q")
- SET %ZIS="QM"
- DO ^%ZIS
- if POP
- QUIT
- IF $DATA(IO("Q"))
- KILL IO("Q")
- SET ZTRTN="LOC1^LRACM"
- SET ZTSAVE("DT")=""
- SET ZTSAVE("LR*")=""
- SET ZTSAVE("DUZ")=""
- SET ZTSAVE("U")=""
- DO ^%ZTLOAD
- DO ^%ZISC
- KILL ZTRTN,ZTIO,ZTDESC,ZTSAVE,ZTSK
- QUIT
- +4 USE IO
- LOC1 DO LOAD
- SET LRIDT=0
- SET LRTRUE=1
- SET LRDFN=0
- +1 DO LRLTR^LRAC1
- +2 SET LRRE=0
- DO ^%ZISC
- DO END
- QUIT
- DIC READ !,"Select HOSPITAL LOCATION NAME: ",X:DTIME
- if '$TEST!(X[U)!($LENGTH(X)>20)!(X'?.ANP)
- QUIT
- SET LRLLOC=X
- SET LRYDT=DT
- SET DIC=44
- SET DIC(0)="EMOQ"
- DO ^DIC
- if Y<1!(X["?")
- QUIT
- SET LRLLOC=$SELECT($LENGTH($PIECE(^SC(+Y,0),U,2)):$PIECE(^(0),U,2),1:$PIECE(^(0),U,1))
- KILL DIC,DIC(0)
- +1 QUIT
- EN ;
- KILL WRITE !,"I will initialize various portions of the Lab cumulative package.",!,"Continue only if you want to start over with the cumulative.",!
- +1 READ !!,"Do you want to continue? N// ",X:120
- if X'["Y"
- QUIT
- WRITE !!,"O.K.",!!
- +2 DO LRAC
- DO LRKILL
- READ !!,"Initialize all page numbers? Y// ",X:120
- if X'["N"
- DO LPG^LRACM2
- KILL DIC,%DT
- QUIT
- LOAD ;from LRACM3
- +1 if $DATA(ZTQUEUED)
- SET ZTREQ="@"
- +2 QUIT
- MSG ;from LRACM1, LRACM3
- +1 SET IOP="HOME"
- DO STA^LRACK
- +2 WRITE !!,$CHAR(7),"THE CUMULATIVE APPARENTLY HAS NOT FINISHED.",!,"Do NOT try to reprint reports that have not finished printing!",!,"TO MANUALLY RUN/RESTART CUMULATIVE USE THE OPTION LRAC MANUAL."
- +3 READ !!,"Press any key to continue: ",X:DTIME
- KILL IOP
- QUIT
- END ;from LRACM1, LRACM2, LRACM3, LRACSUM
- +1 KILL ^TMP($JOB),LRCALE,LRADD,LRAMT,LRCTR,LRCTRR,LRDOC,LRDT,LRDT1,LRFALT,LRFD1,LRFDE,LRFED,LRFFLG,LRGRM,LRIF,LRIOZERO,LRKL,LRLTR,LROUT,LRIN,LRSDT,LREDT,LRI,LRX,LRF,LRL,LRDIS,LRACT,LRAG,LRAN,LRBDT,LRCL,LRCW,LRCL,LRDFN,LRD,LRDPF
- +2 KILL LRIV,LRMYC,LRNOT,LRNUM,LRNX,LRNXSW,LRPAR,LRPG2,LRPPT,LRSET,LRSIC,LRSS,LRTBC,LRWRDVEW,LRXDT,LRXLR,LRYDT,LRRPTN,LRFD,LRFDT,LRFFDT,LRFMT,LRFN,LRFULL,LRHI,LRIDT,LRII,LRIIDT,LRIL,LRINN,LRJS,LRLFDT,LRLLOC,LRLNS,LRLO,LRLOHI,LRMH
- +3 KILL ^TMP($JOB,"TM"),LRMHN,LRMU,LRMULT,LRNM,LRNOFL,LRNON,LRNP,LROFDT,LROFMT,LRPG,LRPL,LRSH,LRSHD,LRSHN,LRSPM,LRSPM1,LRSUB,LRTAB,LRTD,LRTF,LRTIM,LRTLOC,LRTM,LRTNN,LRTOPP,LRTOT,LRTS,LRTST,LRTSTS,LRTSTVAL,LRTT,LRUDT,LRVDT,LRVIDT,LRWRD
- +4 KILL LRG,LRYESCOM,LRPERM,LRBOT,LRCDT,LRDP,LRVAR,LRNP,PNM,SEX,SSN,Z
- QUIT