- LRSTUF ;SLC/CJS - MASS DATA ENTRY INTO FILE 63.04 ; 10/8/87 19:28 ;
- ;;5.2;LAB SERVICE;;Sep 27, 1994
- D ^LRPARAM G:$G(LREND) QUIT
- I '$P($G(LRLABKY),U) W !,"You're not cleared for this option" G QUIT
- D ^LRSTUF1
- D ANN^LRCAPV,KVAR^VADPT,STOP^LRCAPV,SLOQ^LRVER
- QUIT K %,A,A1,AGE,DFN,DOB,DQ,I,J,K,LRAD,LRAN,LRDFN,LRDPF,LREDN,LRFLD,LRIDT,LRINI,LRLLOC,LRMETH,LRNOP,LRNOW,LRODT
- K LROUTINE,LRSN,LRSS,LRSTUFF,LRTEC,^TMP("LR",$J,"TMP"),LRTN,LRTSTLM,LRUSI,LRA,LRAA,DIC,DR,DIE,LRAC,M,^TMP("LR",$J,"VTO"),%DT,LRSB
- K %H,%X,%Y,C,D,D1,DA,G,G1,G2,G4,J1,LRAC,LRACD,LRADD,LRDAT,LRDEL,LRDV,LRDVF,LREDIT,LREND,LREXEC,LRFFLG,LRFP,LRGVP,LRIOZERO,LRLCT,LRLDT,LRM
- K LRNAME,LRNG,LRNG2,LRNG3,LRNG4,LRNG5,LRNTN,LRNX,LRORD,LRPER,LRPLOC,LRSA,LRSPEC,LRSSQ,LRTESTSV,LRTX,LRVF,LRVRM,LRXD,LRXDH,LRXDP,M,POP,R,S1,T,T1,X1,X2,X9,Y,Z1,Z2
- K LRPRAC,LRTREA,ORVP,LRRB,LRTT,ORIFN,LRUSNM,LRWRD,PNM,SEX,SSN,X,Y,Z,LRTEST,LRTS,LRVX Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRSTUF 905 printed Feb 18, 2025@23:46:52 Page 2
- LRSTUF ;SLC/CJS - MASS DATA ENTRY INTO FILE 63.04 ; 10/8/87 19:28 ;
- +1 ;;5.2;LAB SERVICE;;Sep 27, 1994
- +2 DO ^LRPARAM
- if $GET(LREND)
- GOTO QUIT
- +3 IF '$PIECE($GET(LRLABKY),U)
- WRITE !,"You're not cleared for this option"
- GOTO QUIT
- +4 DO ^LRSTUF1
- +5 DO ANN^LRCAPV
- DO KVAR^VADPT
- DO STOP^LRCAPV
- DO SLOQ^LRVER
- QUIT KILL %,A,A1,AGE,DFN,DOB,DQ,I,J,K,LRAD,LRAN,LRDFN,LRDPF,LREDN,LRFLD,LRIDT,LRINI,LRLLOC,LRMETH,LRNOP,LRNOW,LRODT
- +1 KILL LROUTINE,LRSN,LRSS,LRSTUFF,LRTEC,^TMP("LR",$JOB,"TMP"),LRTN,LRTSTLM,LRUSI,LRA,LRAA,DIC,DR,DIE,LRAC,M,^TMP("LR",$JOB,"VTO"),%DT,LRSB
- +2 KILL %H,%X,%Y,C,D,D1,DA,G,G1,G2,G4,J1,LRAC,LRACD,LRADD,LRDAT,LRDEL,LRDV,LRDVF,LREDIT,LREND,LREXEC,LRFFLG,LRFP,LRGVP,LRIOZERO,LRLCT,LRLDT,LRM
- +3 KILL LRNAME,LRNG,LRNG2,LRNG3,LRNG4,LRNG5,LRNTN,LRNX,LRORD,LRPER,LRPLOC,LRSA,LRSPEC,LRSSQ,LRTESTSV,LRTX,LRVF,LRVRM,LRXD,LRXDH,LRXDP,M,POP,R,S1,T,T1,X1,X2,X9,Y,Z1,Z2
- +4 KILL LRPRAC,LRTREA,ORVP,LRRB,LRTT,ORIFN,LRUSNM,LRWRD,PNM,SEX,SSN,X,Y,Z,LRTEST,LRTS,LRVX
- QUIT
