LRPEND ;DALISC/FHS - SET LAB PENDING FILE ; 2/9/97 15:41 ;
;;5.2;LAB SERVICE;**153,201**;Sep 27, 1994
Q
;PID = SSN / PSITE = Ordering Site # / CSITE = Collecting Site #
;PUID = Ordering Site UID / SPEC = Specimen
;LRRSITE("SMID") = Shipping Manifest # / SAMP = Colection Sample
;STATUS = Processing status / LRSD(REIN)= IEN in ^LRT(67
;ODT = Order date/time / CDT = Collection date/time
;SDT = Ship date/time / LRNT = Receive date/time
PSET(PID,PSITE,PUID,CSITE,SPEC,SAMP,STATUS,ODT,CDT,SDT,RDT,TST) ;
Q:'$D(^LRO(69.6,0))#2 S:'$G(LRNT) LRNT=$$NOW^XLFDT
N DA,DIC,DIE,DINUM,DIR,DR,LRNNODE,LRX,X,Y,DLAYGO
K DO,DD
L +^LRO(69.6,0)
F LRNNODE=+$P(^LRO(69.6,0),U,3):1 Q:'$D(^LRO(69.6,LRNNODE))#2
L +^LRO(69.6,LRNNODE)
S (LR696IEN,DINUM,DA)=LRNNODE,DA(1)=69.6
S X=PNM,DIC="^LRO(69.6,",DIC(0)="LFNM",DLAYGO=69
S DIC("DR")=".01////"_PNM_";.02////"_SEX_";.03////"_DOB_";.09////"_PID
S DIC("DR")=DIC("DR")_";1////"_PSITE_";2////"_CSITE_";3////"_PUID_";4////"_SPEC_";18///"_$G(LRRSITE("SMID"))
FILE K DD,DO
D FILE^DICN S LRX=Y
L -(^LRO(69.6,0),^LRO(69.6,LRNNODE))
K DIC,DA,DR,DO,DD
I LRX<1 Q
S DR="5////"_SAMP_";6////"_STATUS_";7////"_+$G(LRSD("RIEN"))
S DR(1,69.6,1)="10////"_ODT_";11////"_CDT_";12////"_$P(SDT,U)_";13////"_LRNT
S DA=+LRX,DIE="^LRO(69.6,",DIC(0)="LNM"
D ^DIE
Q
TST ;
K DR,DA,DIC,DO
S PNM="STALLING,FRANK",SEX="M",DOB=2440120,LRDPTDFN=7
S LRDPF=67,LRRIEN=10
S LRUID=170_DT,I=100 F S I=I+1 I '$D(LRO(68,"C",LRUID_I)) S LRUID=LRUID_I Q
S SSN(2)=111223333,LRRSITE=41,LRSPEC=72
S LRSD("RIEN")=10
S LRSAMP=4,(LRODT,LRCDT,LRODT)=DT,LRNT=$$NOW^XLFDT
S STATUS=131
S LROT(4,72,11)=181,LROT(4,72,11,2)=71
S LROT(4,72,"SN")=3
;(PID,PSITE,PUID,SPEC,SAMP,STATUS,ODT,CDT,SDT,RDT,.TST)
D PSET(SSN(2),+LRRSITE,LRUID,+LRRSITE,LRSPEC,LRSAMP,STATUS,LRODT,$P(LRCDT,U),LRCDT,LRNT,.LROT)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRPEND 1858 printed Dec 13, 2024@02:19:17 Page 2
LRPEND ;DALISC/FHS - SET LAB PENDING FILE ; 2/9/97 15:41 ;
+1 ;;5.2;LAB SERVICE;**153,201**;Sep 27, 1994
+2 QUIT
+3 ;PID = SSN / PSITE = Ordering Site # / CSITE = Collecting Site #
+4 ;PUID = Ordering Site UID / SPEC = Specimen
+5 ;LRRSITE("SMID") = Shipping Manifest # / SAMP = Colection Sample
+6 ;STATUS = Processing status / LRSD(REIN)= IEN in ^LRT(67
+7 ;ODT = Order date/time / CDT = Collection date/time
+8 ;SDT = Ship date/time / LRNT = Receive date/time
PSET(PID,PSITE,PUID,CSITE,SPEC,SAMP,STATUS,ODT,CDT,SDT,RDT,TST) ;
+1 if '$DATA(^LRO(69.6,0))#2
QUIT
if '$GET(LRNT)
SET LRNT=$$NOW^XLFDT
+2 NEW DA,DIC,DIE,DINUM,DIR,DR,LRNNODE,LRX,X,Y,DLAYGO
+3 KILL DO,DD
+4 LOCK +^LRO(69.6,0)
+5 FOR LRNNODE=+$PIECE(^LRO(69.6,0),U,3):1
if '$DATA(^LRO(69.6,LRNNODE))#2
QUIT
+6 LOCK +^LRO(69.6,LRNNODE)
+7 SET (LR696IEN,DINUM,DA)=LRNNODE
SET DA(1)=69.6
+8 SET X=PNM
SET DIC="^LRO(69.6,"
SET DIC(0)="LFNM"
SET DLAYGO=69
+9 SET DIC("DR")=".01////"_PNM_";.02////"_SEX_";.03////"_DOB_";.09////"_PID
+10 SET DIC("DR")=DIC("DR")_";1////"_PSITE_";2////"_CSITE_";3////"_PUID_";4////"_SPEC_";18///"_$GET(LRRSITE("SMID"))
FILE KILL DD,DO
+1 DO FILE^DICN
SET LRX=Y
+2 LOCK -(^LRO(69.6,0),^LRO(69.6,LRNNODE))
+3 KILL DIC,DA,DR,DO,DD
+4 IF LRX<1
QUIT
+5 SET DR="5////"_SAMP_";6////"_STATUS_";7////"_+$GET(LRSD("RIEN"))
+6 SET DR(1,69.6,1)="10////"_ODT_";11////"_CDT_";12////"_$PIECE(SDT,U)_";13////"_LRNT
+7 SET DA=+LRX
SET DIE="^LRO(69.6,"
SET DIC(0)="LNM"
+8 DO ^DIE
+9 QUIT
TST ;
+1 KILL DR,DA,DIC,DO
+2 SET PNM="STALLING,FRANK"
SET SEX="M"
SET DOB=2440120
SET LRDPTDFN=7
+3 SET LRDPF=67
SET LRRIEN=10
+4 SET LRUID=170_DT
SET I=100
FOR
SET I=I+1
IF '$DATA(LRO(68,"C",LRUID_I))
SET LRUID=LRUID_I
QUIT
+5 SET SSN(2)=111223333
SET LRRSITE=41
SET LRSPEC=72
+6 SET LRSD("RIEN")=10
+7 SET LRSAMP=4
SET (LRODT,LRCDT,LRODT)=DT
SET LRNT=$$NOW^XLFDT
+8 SET STATUS=131
+9 SET LROT(4,72,11)=181
SET LROT(4,72,11,2)=71
+10 SET LROT(4,72,"SN")=3
+11 ;(PID,PSITE,PUID,SPEC,SAMP,STATUS,ODT,CDT,SDT,RDT,.TST)
+12 DO PSET(SSN(2),+LRRSITE,LRUID,+LRRSITE,LRSPEC,LRSAMP,STATUS,LRODT,$PIECE(LRCDT,U),LRCDT,LRNT,.LROT)
+13 QUIT
