| 1 | LRPHEXPT ;SLC/CJS/RWF-EXCEPTION LOGIN OF ACCESSIONS ;8/11/97
|
|---|
| 2 | ;;5.2;LAB SERVICE;**43,121,221**;Sep 27, 1994
|
|---|
| 3 | S X="N",%DT="T" D ^%DT S LRODT=DT,LRNT=Y
|
|---|
| 4 | LR1 ;
|
|---|
| 5 | D ^LRPARAM QUIT:$G(LREND) ;-> 4/25/95 LJA
|
|---|
| 6 | ;
|
|---|
| 7 | D FNDLOC^LRDRAW G END:LRLLOC["^" I LRLLOC=""&'$D(^XUSEC("LRPHSUPER",DUZ)) W !,"You don't have the LRPHSUPER key to enter 'ALL'." G LRPHEXPT
|
|---|
| 8 | I LRLLOC="" W !,"You're doing the entire collection" S %=2 D YN^DICN W:%=0 !,"Maybe you'd better think about it some more." G END:%'=1
|
|---|
| 9 | K LRSN,LROR,LRCOM,LRTCOM,LRNOCOM W !,"Enter Order Numbers not collected: "
|
|---|
| 10 | LOOP S LRFIRST=1,LROR=0 D
|
|---|
| 11 | . D LP1^LRPHITEM
|
|---|
| 12 | I $O(LROR(0))>0 W !,"Let's handle the exceptions first.",! D
|
|---|
| 13 | . N LRLLOC,LRODT
|
|---|
| 14 | . S LROR=0 F S LROR=$O(LROR(LROR)) Q:LROR<1 D EXCEPT^LRPHITE3 W ! D EQUALS^LRX W !
|
|---|
| 15 | W !!,"Now enter any orders that are not canceled but you don't want ""collected"", yet.",!,"If all remaining orders are collected, skip this entry."
|
|---|
| 16 | W !,"Any order #'s entered here will remain on collection list until 12 midnight.",!,"The orders will not 'rollover' to the next days collection list."
|
|---|
| 17 | K LROR S LROR=0,LRNOCOM=1 D
|
|---|
| 18 | . D LP1^LRPHITEM
|
|---|
| 19 | S %=2 W !!,"Ready to accept the rest of the orders" D YN^DICN G END:%'=1
|
|---|
| 20 | D INV G:LRLLOC'="" E1 S LRLLOC="" F S LRLLOC=$O(^LRO(69,LRODT,1,"AC",LRLLOC)) Q:LRLLOC="" D E2
|
|---|
| 21 | G LR1
|
|---|
| 22 | Q
|
|---|
| 23 | E1 D E2 G LR1
|
|---|
| 24 | E2 S LRSN=0 F S LRSN=$O(^LRO(69,LRODT,1,"AC",LRLLOC,LRSN)) Q:LRSN="" D
|
|---|
| 25 | . I ^LRO(69,LRODT,1,"AC",LRLLOC,LRSN)=1 I $S($D(^LRO(69,LRODT,1,LRSN,.1)):'$D(LROR(^(.1))),1:1) D P15^LRPHITEM W:$P(^LRO(69,LRODT,1,LRSN,1),U,4)="C" !,LRLLOC," ",$S($D(^(.1)):^(.1),1:".")
|
|---|
| 26 | Q
|
|---|
| 27 | INV K ^TMP($J) S %X="LROR(",%Y="^TMP($J," D %XY^%RCR K LROR F I=1:1 Q:'$D(^TMP($J,I)) S LROR(^(I))=""
|
|---|
| 28 | Q
|
|---|
| 29 | % R %:DTIME Q:%=""!(%["N")!(%["Y") W !,"Answer 'Y' or 'N': " G %
|
|---|
| 30 | END K %,A,J1,K,LRFIRST,LRFORD,LRLLOC,LRNOCOM,LRNT,LRODT,LROR,LRSN,X,Y,Z,DIC,LRLLOC,LRAA,LRAD,LRAN,LRDFN,LRSS,LRIDT,LROID,T,LRSN,I,%H,%X,%Y,DIWL,DIWR,DO,DPF,LRBED,LRCS,LRCSN,LRCSS,LRDC,LRDTO,LRFLOG,LRIOZERO,LRIX,LRLWC,LRM,LRORDR,LRORDTIM
|
|---|
| 31 | K LRGCOM,LROUTINE,LRPR,LRRND,LRSSX,LRSTIK,LRTSN,LRUNQ,LRUR,LRWD,LRWPC,POP Q
|
|---|
