LRMIAUD.m

LRMIAUD ;DALISC/RBN - Micro Audit/Alert System ;July 22, 2008

 ;;5.2;LAB SERVICE;**350**;Sep 27, 1994;Build 230

 ;

 ; This routine is a shell to fit into the

 ; proposed framework for LR*5.2*216

 ;

 ; NOTE: All Auditing routines assume that the caller already has the appropriate global lock(s) before entry.

 ;        L +^LR(LRDFN,"MI",LRIDT)

 ; 

 ; ^LR data that is temporarily changed should all be changed in one spot.  Also an error trap should be setup

 ; so the changed data can be restored if an error happens between changing the data and restoring the data

 ;

 Q

 ;

 ;

LEDI(IN) ;

 ; This entry point is specifically for using the audit log with LDSI/LEDI lab results received via HL7 from a host lab.

 ; 

 ; Input

 ;   IN : <byref><opt>  Pass info to Audit trail

 ;      : IN(63.539,3) = #63.539 field #3 (dflt=1)

 ;      : IN(63.539,4) = #63.539 field #4 (dflt=UPDATED BY HOST)

 ; Output : Returns the IEN of the new #63.539 entry

 ;

 N X,LRNOW,LRAUDTMP,LREDT,LR63539,DATA,ZDUZP

 ;

 Q:$G(LRSB)'>0 0

 I LRSB'=.99,'$D(^LR(LRDFN,"MI",LRIDT,LRSB)) Q 0

 ;

 S ZDUZP=$S(LRSB=1:4,LRSB=5:3,LRSB=8:4,LRSB=11:5,1:"")

 I LRSB'=.99 Q:'ZDUZP 0

 S (LREDT,LRNOW)=$$NOW^XLFDT

 ; logic from proposed MI audit trail should audit trail really be setting these fields since

 ; audit trail gets triggered even when data doesnt change?

 ;I ZDUZP D  ;

 ;. N LRDFA,LRIEN,LRMSG,DIERR,FLD,FLDS

 ;. I LRSB=1 S FLDS(11)=LRNOW S FLDS(11.55)=DUZ

 ;. I LRSB=5 S FLDS(14)=LRNOW S FLDS(15.5)=DUZ

 ;. I LRSB=8 S FLDS(18)=LRNOW S FLDS(19.5)=DUZ

 ;. I LRSB=11 S FLDS(22)=LRNOW S FLDS(25.5)=DUZ

 ;. Q:'$D(FLDS)

 ;. S LRIEN=LRIDT_","_LRDFN_","

 ;. S FLD=""

 ;. F  S FLD=$O(FLDS(FLD)) Q:FLD=""  D  ;

 ;. . S LRFDA(1,63.05,LRIEN,FLD)=FLDS(FLD)

 ;. Q:'$D(LRFDA)

 ;. D FILE^DIE("","LRFDA(1)","LRMSG")

 ;. ;original LR*216 proposed code was setting these

 ;. ;S $P(^LR(LRDFN,"MI",LRIDT,LRSB),U,1)=LRNOW

 ;. ;S $P(^LR(LRDFN,"MI",LRIDT,LRSB),U,ZDUZP)=DUZ

 ;

 K DATA

 S DATA(63.539,3)=$G(IN(63.539,3),1)

 S DATA(63.539,4)=$G(IN(63.539,4),"UPDATED BY HOST LAB VIA HL7")

 S LR63539=$$FILEAUD^LRMIAU1(.DATA)

 Q LR63539

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRMIAUD   2136     printed  Apr 09, 2024@21:17                                                                                                                                                                                                        Page 2

LRMIAUD   ;DALISC/RBN - Micro Audit/Alert System ;July 22, 2008

 +1       ;;5.2;LAB SERVICE;**350**;Sep 27, 1994;Build 230

 +2       ;

 +3       ; This routine is a shell to fit into the

 +4       ; proposed framework for LR*5.2*216

 +5       ;

 +6       ; NOTE: All Auditing routines assume that the caller already has the appropriate global lock(s) before entry.

 +7       ;        L +^LR(LRDFN,"MI",LRIDT)

 +8       ; 

 +9       ; ^LR data that is temporarily changed should all be changed in one spot.  Also an error trap should be setup

 +10      ; so the changed data can be restored if an error happens between changing the data and restoring the data

 +11      ;

 +12       QUIT 

 +13      ;

 +14      ;

LEDI(IN)  ;

 +1       ; This entry point is specifically for using the audit log with LDSI/LEDI lab results received via HL7 from a host lab.

 +2       ; 

 +3       ; Input

 +4       ;   IN : <byref><opt>  Pass info to Audit trail

 +5       ;      : IN(63.539,3) = #63.539 field #3 (dflt=1)

 +6       ;      : IN(63.539,4) = #63.539 field #4 (dflt=UPDATED BY HOST)

 +7       ; Output : Returns the IEN of the new #63.539 entry

 +8       ;

 +9        NEW X,LRNOW,LRAUDTMP,LREDT,LR63539,DATA,ZDUZP

 +10      ;

 +11       if $GET(LRSB)'>0

               QUIT 0

 +12       IF LRSB'=.99

               IF '$DATA(^LR(LRDFN,"MI",LRIDT,LRSB))

                   QUIT 0

 +13      ;

 +14       SET ZDUZP=$SELECT(LRSB=1:4,LRSB=5:3,LRSB=8:4,LRSB=11:5,1:"")

 +15       IF LRSB'=.99

               if 'ZDUZP

                   QUIT 0

 +16       SET (LREDT,LRNOW)=$$NOW^XLFDT

 +17      ; logic from proposed MI audit trail should audit trail really be setting these fields since

 +18      ; audit trail gets triggered even when data doesnt change?

 +19      ;I ZDUZP D  ;

 +20      ;. N LRDFA,LRIEN,LRMSG,DIERR,FLD,FLDS

 +21      ;. I LRSB=1 S FLDS(11)=LRNOW S FLDS(11.55)=DUZ

 +22      ;. I LRSB=5 S FLDS(14)=LRNOW S FLDS(15.5)=DUZ

 +23      ;. I LRSB=8 S FLDS(18)=LRNOW S FLDS(19.5)=DUZ

 +24      ;. I LRSB=11 S FLDS(22)=LRNOW S FLDS(25.5)=DUZ

 +25      ;. Q:'$D(FLDS)

 +26      ;. S LRIEN=LRIDT_","_LRDFN_","

 +27      ;. S FLD=""

 +28      ;. F  S FLD=$O(FLDS(FLD)) Q:FLD=""  D  ;

 +29      ;. . S LRFDA(1,63.05,LRIEN,FLD)=FLDS(FLD)

 +30      ;. Q:'$D(LRFDA)

 +31      ;. D FILE^DIE("","LRFDA(1)","LRMSG")

 +32      ;. ;original LR*216 proposed code was setting these

 +33      ;. ;S $P(^LR(LRDFN,"MI",LRIDT,LRSB),U,1)=LRNOW

 +34      ;. ;S $P(^LR(LRDFN,"MI",LRIDT,LRSB),U,ZDUZP)=DUZ

 +35      ;

 +36       KILL DATA

 +37       SET DATA(63.539,3)=$GET(IN(63.539,3),1)

 +38       SET DATA(63.539,4)=$GET(IN(63.539,4),"UPDATED BY HOST LAB VIA HL7")

 +39       SET LR63539=$$FILEAUD^LRMIAU1(.DATA)

 +40       QUIT LR63539