| [613] | 1 | LRPEND ;DALISC/FHS - SET LAB PENDING FILE ; 2/9/97 15:41 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;**153,201**;Sep 27, 1994
|
|---|
| 3 | Q
|
|---|
| 4 | ;PID = SSN / PSITE = Ordering Site # / CSITE = Collecting Site #
|
|---|
| 5 | ;PUID = Ordering Site UID / SPEC = Specimen
|
|---|
| 6 | ;LRRSITE("SMID") = Shipping Manifest # / SAMP = Colection Sample
|
|---|
| 7 | ;STATUS = Processing status / LRSD(REIN)= IEN in ^LRT(67
|
|---|
| 8 | ;ODT = Order date/time / CDT = Collection date/time
|
|---|
| 9 | ;SDT = Ship date/time / LRNT = Receive date/time
|
|---|
| 10 | PSET(PID,PSITE,PUID,CSITE,SPEC,SAMP,STATUS,ODT,CDT,SDT,RDT,TST) ;
|
|---|
| 11 | Q:'$D(^LRO(69.6,0))#2 S:'$G(LRNT) LRNT=$$NOW^XLFDT
|
|---|
| 12 | N DA,DIC,DIE,DINUM,DIR,DR,LRNNODE,LRX,X,Y,DLAYGO
|
|---|
| 13 | K DO,DD
|
|---|
| 14 | L +^LRO(69.6,0)
|
|---|
| 15 | F LRNNODE=+$P(^LRO(69.6,0),U,3):1 Q:'$D(^LRO(69.6,LRNNODE))#2
|
|---|
| 16 | L +^LRO(69.6,LRNNODE)
|
|---|
| 17 | S (LR696IEN,DINUM,DA)=LRNNODE,DA(1)=69.6
|
|---|
| 18 | S X=PNM,DIC="^LRO(69.6,",DIC(0)="LFNM",DLAYGO=69
|
|---|
| 19 | S DIC("DR")=".01////"_PNM_";.02////"_SEX_";.03////"_DOB_";.09////"_PID
|
|---|
| 20 | S DIC("DR")=DIC("DR")_";1////"_PSITE_";2////"_CSITE_";3////"_PUID_";4////"_SPEC_";18///"_$G(LRRSITE("SMID"))
|
|---|
| 21 | FILE K DD,DO
|
|---|
| 22 | D FILE^DICN S LRX=Y
|
|---|
| 23 | L -(^LRO(69.6,0),^LRO(69.6,LRNNODE))
|
|---|
| 24 | K DIC,DA,DR,DO,DD
|
|---|
| 25 | I LRX<1 Q
|
|---|
| 26 | S DR="5////"_SAMP_";6////"_STATUS_";7////"_+$G(LRSD("RIEN"))
|
|---|
| 27 | S DR(1,69.6,1)="10////"_ODT_";11////"_CDT_";12////"_$P(SDT,U)_";13////"_LRNT
|
|---|
| 28 | S DA=+LRX,DIE="^LRO(69.6,",DIC(0)="LNM"
|
|---|
| 29 | D ^DIE
|
|---|
| 30 | Q
|
|---|
| 31 | TST ;
|
|---|
| 32 | K DR,DA,DIC,DO
|
|---|
| 33 | S PNM="STALLING,FRANK",SEX="M",DOB=2440120,LRDPTDFN=7
|
|---|
| 34 | S LRDPF=67,LRRIEN=10
|
|---|
| 35 | S LRUID=170_DT,I=100 F S I=I+1 I '$D(LRO(68,"C",LRUID_I)) S LRUID=LRUID_I Q
|
|---|
| 36 | S SSN(2)=111223333,LRRSITE=41,LRSPEC=72
|
|---|
| 37 | S LRSD("RIEN")=10
|
|---|
| 38 | S LRSAMP=4,(LRODT,LRCDT,LRODT)=DT,LRNT=$$NOW^XLFDT
|
|---|
| 39 | S STATUS=131
|
|---|
| 40 | S LROT(4,72,11)=181,LROT(4,72,11,2)=71
|
|---|
| 41 | S LROT(4,72,"SN")=3
|
|---|
| 42 | ;(PID,PSITE,PUID,SPEC,SAMP,STATUS,ODT,CDT,SDT,RDT,.TST)
|
|---|
| 43 | D PSET(SSN(2),+LRRSITE,LRUID,+LRRSITE,LRSPEC,LRSAMP,STATUS,LRODT,$P(LRCDT,U),LRCDT,LRNT,.LROT)
|
|---|
| 44 | Q
|
|---|
