LRAPWA.m

LRAPWA ; IHS/DIR/FJE - GETP AP ACCESSION FOR WORKLOAD 13:01 ; [ 8/3/91 ]

 ;;5.2;LR;;NOV 01, 1997

 ;

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

 K X,Y,LR("CK") R !!,"Select Accession Number: ",LRAN:DTIME Q:LRAN=""!(LRAN[U)  I LRAN'?1N.N W $C(7),!!,"Enter a number."  G LRAPWA

 W "  for ",LRH(0) I '$D(^LRO(68,LRAA,1,LRAD,1,LRAN,0)) W $C(7),!!,"Accession # ",LRAN," for ",LRH(0)," not in ACCESSION file",!! G LRAPWA

 S X=^LRO(68,LRAA,1,LRAD,1,LRAN,0),LRLLOC=$P(X,"^",7),LRDFN=+X Q:'$D(^LR(LRDFN,0))  S X=^(0) D ^LRUP

 ;W !,LRP,"  ID: ",SSN S LRI=$P(^LRO(68,LRAA,1,LRAD,1,LRAN,3),"^",5),LRA=^LR(LRDFN,LRSS,LRI,0),LRRC=$P(LRA,"^",10)

 W !,LRP,"  ID: ",HRCN S LRI=$P(^LRO(68,LRAA,1,LRAD,1,LRAN,3),"^",5),LRA=^LR(LRDFN,LRSS,LRI,0),LRRC=$P(LRA,"^",10)  ;IHS/ANMC/CLS 11/1/95

 S DIE="^LR(LRDFN,LRSS,",DA=LRI,DA(1)=LRDFN D CK^LRU Q:$D(LR("CK"))  D ^DIE D FRE^LRU

 Q

LRAPWA    ; IHS/DIR/FJE - GETP AP ACCESSION FOR WORKLOAD 13:01 ; [ 8/3/91 ]

 +1       ;;5.2;LR;;NOV 01, 1997

 +2       ;

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

 +4        KILL X,Y,LR("CK")

           READ !!,"Select Accession Number: ",LRAN:DTIME

           IF LRAN=""!(LRAN[U)

               QUIT 

           IF LRAN'?1N.N

               WRITE $CHAR(7),!!,"Enter a number."

               GOTO LRAPWA

 +5        WRITE "  for ",LRH(0)

           IF '$DATA(^LRO(68,LRAA,1,LRAD,1,LRAN,0))

               WRITE $CHAR(7),!!,"Accession # ",LRAN," for ",LRH(0)," not in ACCESSION file",!!

               GOTO LRAPWA

 +6        SET X=^LRO(68,LRAA,1,LRAD,1,LRAN,0)

           SET LRLLOC=$PIECE(X,"^",7)

           SET LRDFN=+X

           IF '$DATA(^LR(LRDFN,0))

               QUIT 

           SET X=^(0)

           DO ^LRUP

 +7       ;W !,LRP,"  ID: ",SSN S LRI=$P(^LRO(68,LRAA,1,LRAD,1,LRAN,3),"^",5),LRA=^LR(LRDFN,LRSS,LRI,0),LRRC=$P(LRA,"^",10)

 +8       ;IHS/ANMC/CLS 11/1/95

           WRITE !,LRP,"  ID: ",HRCN

           SET LRI=$PIECE(^LRO(68,LRAA,1,LRAD,1,LRAN,3),"^",5)

           SET LRA=^LR(LRDFN,LRSS,LRI,0)

           SET LRRC=$PIECE(LRA,"^",10)

 +9        SET DIE="^LR(LRDFN,LRSS,"

           SET DA=LRI

           SET DA(1)=LRDFN

           DO CK^LRU

           IF $DATA(LR("CK"))

               QUIT 

           DO ^DIE

           DO FRE^LRU

 +10       QUIT