LRMIAU1.m

LRMIAU1 ;DALISC/RBN - Microbiology Audit PREPROCESSOR ;July 22, 2008

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

 ;

 ; This routine is a shell so it will fit back into the proposed framework for LR*5.2*216

 Q

 ;

 ;

FILEAUD(DATA) ;

 ; Replacement for FILEIT^LRMIAU1

 ; Expects LRDFN,LRIDT,LREDT,LRSB

 ; Inputs

 ;   DATA : <byref>  (File#,field)=value

 ; Outputs

 ;   Returns #63.539 IEN or 0 if record not created

 ;

 N X,LRIEN,LRIENS,LRFDA,LRMSG,DIERR

 S LRIEN="+1"_","_LRIDT_","_LRDFN_","

 I $G(LREDT)="" N LREDT S LREDT=$$NOW^XLFDT

 S LRFDA(1,63.539,LRIEN,.01)=LREDT

 S LRFDA(1,63.539,LRIEN,1)=LREDT

 S LRFDA(1,63.539,LRIEN,2)=DUZ

 I $G(DATA(63.539,3))'="" S LRFDA(1,63.539,LRIEN,3)=DATA(63.539,3)

 I $G(DATA(63.539,4))'="" S LRFDA(1,63.539,LRIEN,4)=DATA(63.539,4)

 I $G(LRSB),$$DATAOK(63.539,6,LRSB) S LRFDA(1,63.539,LRIEN,6)=$G(LRSB)

 S LRFDA(1,63.539,LRIEN,7)=DUZ(2)

 D UPDATE^DIE("","LRFDA(1)","LRIENS","LRMSG")

 ;

 Q $G(LRIENS(1))

 ;

 ;

DATAOK(LRFILE,LRFLD,LRVAL) ;

 ; Checks if a value is appropriate for storing in the field

 ; Inputs

 ;  LRFILE : File #

 ;  LR FLD : Field #

 ;   LRVAL : Value of the field

 ;

 ; Returns 0 (invalid) or 1 (valid)

 ;

 N STATUS,LROUT,LRMSG

 S STATUS=0

 D CHK^DIE(LRFILE,LRFLD,"",LRVAL,.LROUT,"LRMSG")

 I $G(LROUT)'="^" S STATUS=1

 I $D(LRMSG) S STATUS=0

 Q STATUS

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRMIAU1   1356     printed  Apr 09, 2024@21:24:45                                                                                                                                                                                                     Page 2

LRMIAU1   ;DALISC/RBN - Microbiology Audit PREPROCESSOR ;July 22, 2008

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

 +2       ;

 +3       ; This routine is a shell so it will fit back into the proposed framework for LR*5.2*216

 +4        QUIT 

 +5       ;

 +6       ;

FILEAUD(DATA) ;

 +1       ; Replacement for FILEIT^LRMIAU1

 +2       ; Expects LRDFN,LRIDT,LREDT,LRSB

 +3       ; Inputs

 +4       ;   DATA : <byref>  (File#,field)=value

 +5       ; Outputs

 +6       ;   Returns #63.539 IEN or 0 if record not created

 +7       ;

 +8        NEW X,LRIEN,LRIENS,LRFDA,LRMSG,DIERR

 +9        SET LRIEN="+1"_","_LRIDT_","_LRDFN_","

 +10       IF $GET(LREDT)=""

               NEW LREDT

               SET LREDT=$$NOW^XLFDT

 +11       SET LRFDA(1,63.539,LRIEN,.01)=LREDT

 +12       SET LRFDA(1,63.539,LRIEN,1)=LREDT

 +13       SET LRFDA(1,63.539,LRIEN,2)=DUZ

 +14       IF $GET(DATA(63.539,3))'=""

               SET LRFDA(1,63.539,LRIEN,3)=DATA(63.539,3)

 +15       IF $GET(DATA(63.539,4))'=""

               SET LRFDA(1,63.539,LRIEN,4)=DATA(63.539,4)

 +16       IF $GET(LRSB)

               IF $$DATAOK(63.539,6,LRSB)

                   SET LRFDA(1,63.539,LRIEN,6)=$GET(LRSB)

 +17       SET LRFDA(1,63.539,LRIEN,7)=DUZ(2)

 +18       DO UPDATE^DIE("","LRFDA(1)","LRIENS","LRMSG")

 +19      ;

 +20       QUIT $GET(LRIENS(1))

 +21      ;

 +22      ;

DATAOK(LRFILE,LRFLD,LRVAL) ;

 +1       ; Checks if a value is appropriate for storing in the field

 +2       ; Inputs

 +3       ;  LRFILE : File #

 +4       ;  LR FLD : Field #

 +5       ;   LRVAL : Value of the field

 +6       ;

 +7       ; Returns 0 (invalid) or 1 (valid)

 +8       ;

 +9        NEW STATUS,LROUT,LRMSG

 +10       SET STATUS=0

 +11       DO CHK^DIE(LRFILE,LRFLD,"",LRVAL,.LROUT,"LRMSG")

 +12       IF $GET(LROUT)'="^"

               SET STATUS=1

 +13       IF $DATA(LRMSG)

               SET STATUS=0

 +14       QUIT STATUS