BLRPR28P.m

BLRPR28P ;IHS/OIT/MKK - IHS Lab PATCH 1028 Post Install Routine ;FEB 10, 2011 1:45 PM

 ;;5.2;IHS LABORATORY;**1028**;NOV 01, 1997;Build 46

 ;

 ; Cloned from BLRPR27P

 ; 

 Q

 ;

EP ; EP

 D EEP^BLRGMENU

 Q

 ;

 ; Modify the Estimated Average Glucose (EAG) Delta Check so that only a

 ; NUMERIC A1C result will store data. If the A1C result is not numeric,

 ; DO NOT store anything.

MODEAGDC ; EP

 NEW DESC,DESC1STR,DESC2STR,NAME,OVER1,OVER1STR,XCODE,XCODESTR

 NEW A1CIEN,A1CDESC,MESSAGE,TARGET

 ;

 D MKDELTA("HEMOGLOBIN A1C","ESTIMATED AVERAGE GLUCOSE","Modified by IHS Lab Patch 1028")

 Q

 ;

MKDELTA(F60TEST1,F60TEST2,FRMWHERE) ; EP

 NEW EAGDNAME

 ;

 S XCODESTR="S %X="""" X:$D(LRDEL(1)) LRDEL(1) W:+$G(%X)>0 ""  ESTIMATED AVERAGE GLUCOSE:"",$P(%X,""^"") S:+$G(%X)>0 LRSB($$GETDNAM^BLREXECU("""_F60TEST2_"""))=%X K %,%X,%Y,%Z,%ZZ"

 S OVER1STR="S %ZZ=$$GETDNAM^BLREXECU("""_F60TEST1_""") X:LRVRM>0 ""F %=%ZZ S %X(%)=$S(%=LRSB:X,$D(LRSB(%)):+LRSB(%),1:0)"" X:LRVRM>0 ""F %=%ZZ S %X(%)=$S($D(LRSB(%)):LRSB(%),1:0)"" S %X=$FN((((X)*28.7)-46.7),"""",0)"

 S OVER1STR=OVER1STR_"_""^^!!!!!!^^!!!!!!mg/dl!!^^^^""_$G(DUZ(2))"

 ;

 S NAME="EAG"

 S EAGDNAME=$$GETDNAM^BLREXECU(F60TEST2)

 S EAGDNAME=$P($G(^DD(63.04,EAGDNAME,0)),"^")

 S XCODE=XCODESTR

 S OVER1=OVER1STR

 S DESC(1)="This delta check, when added to the A1C test, will calculate an Estimated"

 S DESC(2)="Average Glucose (EAG) using the equation: EAG=((A1C)*28.7)-46.7.  It will"

 S DESC(3)="stuff the result into the "_EAGDNAME_" Location (Data Name).  NOTE: if "

 S DESC(4)="the result of the A1C test is not numeric, no calculation will be performed."

 D DLTADICA(NAME,XCODE,OVER1,.DESC,FRMWHERE)

 ;

 Q

 ;

DLTADICA(NAME,XCODE,OVER1,DESC,FRMWHERE) ; EP

 NEW DICT0,DICT1,FDA,ERRS,PTR

 NEW HEREYAGO

 ;

 D BMES^XPDUTL("Modifying "_NAME_" Delta Check")

 ;

 D ^XBFMK

 K ERRS,FDA,IENS,DIE

 ; 

 S DICT1="62.1"

 S FDA(DICT1,"?+1,",.01)=NAME   ; Find the Name node, or create it.

 S FDA(DICT1,"?+1,",10)=XCODE   ; Execute Code

 S FDA(DICT1,"?+1,",20)=OVER1   ; Overflow 1

 D UPDATE^DIE("S","FDA",,"ERRS")

 ;

 I $D(ERRS("DIERR"))>0 D  Q

 . D SORRY^BLRPRE27("Error in modifying "_NAME_" Delta Check XECUTABLE CODE field.","NONFATAL")

 ;

 D OKAY^BLRKIDSU(NAME_" Delta Check XECUTABLE CODE field modified.",5)

 ;

 ; Modify the Description

 K ERRS

 D FIND^DIC(62.1,"","","",NAME,"","","","","HEREYAGO") ; Get Pointer

 S PTR=$G(HEREYAGO("DILIST",2,1))

 M WPARRAY("WP")=DESC

 D WP^DIE(62.1,PTR_",",30,"K","WPARRAY(""WP"")","ERRS")

 ;

 I $D(ERRS("DIERR"))>0 D  Q

 . D SORRY^BLRPRE27("Error in modifying DESCRIPTION of "_NAME_" Delta Check.","NONFATAL")

 ;

 D OKAY^BLRKIDSU(NAME_" Delta Check DESCRIPTION modified.",5)

 ;

 ; Modify the SITE NOTES DATE

 K ERRS,FDA

 S FDA(62.131,"?+1,"_PTR_",",.01)=$P($$NOW^XLFDT,".",1)

 D UPDATE^DIE("S","FDA",,"ERRS")

 ;

 I $D(ERRS("DIERR"))>0 D  Q

 . D SORRY^BLRPRE27("Error in modifying SITES NOTES DATE of "_NAME_" Delta Check.","NONFATAL")

 ;

 D OKAY^BLRKIDSU(NAME_" Delta Check SITES NOTES DATE modified.",5)

 ;

 ; Modify the TEXT

 K ERRS,WPARRAY

 S WPARRAY("WP",1)=FRMWHERE

 D WP^DIE(62.131,"1,"_PTR_",",1,"K","WPARRAY(""WP"")","ERRS")

 ;

 I $D(ERRS("DIERR"))>0 D  Q

 . D SORRY^BLRPRE27("Error in modifying TEXT of "_NAME_" Delta Check.","NONFATAL")

 ;

 D OKAY^BLRKIDSU(NAME_" Delta Check TEXT modified.",5)

 D MES^XPDUTL(NAME_" Delta Check Successfully Modified.")

 D MES^XPDUTL("")

 Q

BLRPR28P  ;IHS/OIT/MKK - IHS Lab PATCH 1028 Post Install Routine ;FEB 10, 2011 1:45 PM

 +1       ;;5.2;IHS LABORATORY;**1028**;NOV 01, 1997;Build 46

 +2       ;

 +3       ; Cloned from BLRPR27P

 +4       ; 

 +5        QUIT 

 +6       ;

EP        ; EP

 +1        DO EEP^BLRGMENU

 +2        QUIT 

 +3       ;

 +4       ; Modify the Estimated Average Glucose (EAG) Delta Check so that only a

 +5       ; NUMERIC A1C result will store data. If the A1C result is not numeric,

 +6       ; DO NOT store anything.

MODEAGDC  ; EP

 +1        NEW DESC,DESC1STR,DESC2STR,NAME,OVER1,OVER1STR,XCODE,XCODESTR

 +2        NEW A1CIEN,A1CDESC,MESSAGE,TARGET

 +3       ;

 +4        DO MKDELTA("HEMOGLOBIN A1C","ESTIMATED AVERAGE GLUCOSE","Modified by IHS Lab Patch 1028")

 +5        QUIT 

 +6       ;

MKDELTA(F60TEST1,F60TEST2,FRMWHERE) ; EP

 +1        NEW EAGDNAME

 +2       ;

 +3        SET XCODESTR="S %X="""" X:$D(LRDEL(1)) LRDEL(1) W:+$G(%X)>0 ""  ESTIMATED AVERAGE GLUCOSE:"",$P(%X,""^"") S:+$G(%X)>0 LRSB($$GETDNAM^BLREXECU("""_F60TEST2_"""))=%X K %,%X,%Y,%Z,%ZZ"

 +4        SET OVER1STR="S %ZZ=$$GETDNAM^BLREXECU("""_F60TEST1_""") X:LRVRM>0 ""F %=%ZZ S %X(%)=$S(%=LRSB:X,$D(LRSB(%)):+LRSB(%),1:0)"" X:LRVRM>0 ""F %=%ZZ S %X(%)=$S($D(LRSB(%)):LRSB(%),1:0)"" S %X=$FN((((X)*28.7)-46.7),"""",0)"

 +5        SET OVER1STR=OVER1STR_"_""^^!!!!!!^^!!!!!!mg/dl!!^^^^""_$G(DUZ(2))"

 +6       ;

 +7        SET NAME="EAG"

 +8        SET EAGDNAME=$$GETDNAM^BLREXECU(F60TEST2)

 +9        SET EAGDNAME=$PIECE($GET(^DD(63.04,EAGDNAME,0)),"^")

 +10       SET XCODE=XCODESTR

 +11       SET OVER1=OVER1STR

 +12       SET DESC(1)="This delta check, when added to the A1C test, will calculate an Estimated"

 +13       SET DESC(2)="Average Glucose (EAG) using the equation: EAG=((A1C)*28.7)-46.7.  It will"

 +14       SET DESC(3)="stuff the result into the "_EAGDNAME_" Location (Data Name).  NOTE: if "

 +15       SET DESC(4)="the result of the A1C test is not numeric, no calculation will be performed."

 +16       DO DLTADICA(NAME,XCODE,OVER1,.DESC,FRMWHERE)

 +17      ;

 +18       QUIT 

 +19      ;

DLTADICA(NAME,XCODE,OVER1,DESC,FRMWHERE) ; EP

 +1        NEW DICT0,DICT1,FDA,ERRS,PTR

 +2        NEW HEREYAGO

 +3       ;

 +4        DO BMES^XPDUTL("Modifying "_NAME_" Delta Check")

 +5       ;

 +6        DO ^XBFMK

 +7        KILL ERRS,FDA,IENS,DIE

 +8       ; 

 +9        SET DICT1="62.1"

 +10      ; Find the Name node, or create it.

           SET FDA(DICT1,"?+1,",.01)=NAME

 +11      ; Execute Code

           SET FDA(DICT1,"?+1,",10)=XCODE

 +12      ; Overflow 1

           SET FDA(DICT1,"?+1,",20)=OVER1

 +13       DO UPDATE^DIE("S","FDA",,"ERRS")

 +14      ;

 +15       IF $DATA(ERRS("DIERR"))>0

               Begin DoDot:1

 +16               DO SORRY^BLRPRE27("Error in modifying "_NAME_" Delta Check XECUTABLE CODE field.","NONFATAL")

               End DoDot:1

               QUIT 

 +17      ;

 +18       DO OKAY^BLRKIDSU(NAME_" Delta Check XECUTABLE CODE field modified.",5)

 +19      ;

 +20      ; Modify the Description

 +21       KILL ERRS

 +22      ; Get Pointer

           DO FIND^DIC(62.1,"","","",NAME,"","","","","HEREYAGO")

 +23       SET PTR=$GET(HEREYAGO("DILIST",2,1))

 +24       MERGE WPARRAY("WP")=DESC

 +25       DO WP^DIE(62.1,PTR_",",30,"K","WPARRAY(""WP"")","ERRS")

 +26      ;

 +27       IF $DATA(ERRS("DIERR"))>0

               Begin DoDot:1

 +28               DO SORRY^BLRPRE27("Error in modifying DESCRIPTION of "_NAME_" Delta Check.","NONFATAL")

               End DoDot:1

               QUIT 

 +29      ;

 +30       DO OKAY^BLRKIDSU(NAME_" Delta Check DESCRIPTION modified.",5)

 +31      ;

 +32      ; Modify the SITE NOTES DATE

 +33       KILL ERRS,FDA

 +34       SET FDA(62.131,"?+1,"_PTR_",",.01)=$PIECE($$NOW^XLFDT,".",1)

 +35       DO UPDATE^DIE("S","FDA",,"ERRS")

 +36      ;

 +37       IF $DATA(ERRS("DIERR"))>0

               Begin DoDot:1

 +38               DO SORRY^BLRPRE27("Error in modifying SITES NOTES DATE of "_NAME_" Delta Check.","NONFATAL")

               End DoDot:1

               QUIT 

 +39      ;

 +40       DO OKAY^BLRKIDSU(NAME_" Delta Check SITES NOTES DATE modified.",5)

 +41      ;

 +42      ; Modify the TEXT

 +43       KILL ERRS,WPARRAY

 +44       SET WPARRAY("WP",1)=FRMWHERE

 +45       DO WP^DIE(62.131,"1,"_PTR_",",1,"K","WPARRAY(""WP"")","ERRS")

 +46      ;

 +47       IF $DATA(ERRS("DIERR"))>0

               Begin DoDot:1

 +48               DO SORRY^BLRPRE27("Error in modifying TEXT of "_NAME_" Delta Check.","NONFATAL")

               End DoDot:1

               QUIT 

 +49      ;

 +50       DO OKAY^BLRKIDSU(NAME_" Delta Check TEXT modified.",5)

 +51       DO MES^XPDUTL(NAME_" Delta Check Successfully Modified.")

 +52       DO MES^XPDUTL("")

 +53       QUIT