DG1071P.m

DG1071P ;BIR/JFW - DG*5.3*1071 Post-Init ;2/22/22  16:02

 ;;5.3;Registration;**1071**;Aug 13, 1993;Build 4

 ;

 ;BMES^XPDUTL and MES^XPDUTL - DBIA #10141 Supported

 ;

 ;STORY VAMPI-13802 (jfw) - Enable Auditing on PHONE NUMBER [CELLULAR]

 ;STORY VAMPI-13671 (dri) - File '200CRNR' as this site's Cerner Station Number

 ;

POST ;

 D BMES^XPDUTL("Post-Install: Starting")

 D ENAUDIT  ;Enable auditing on Cell Phone (#.134) in the PATIENT File (#2)

 I $D(^MPIF(984.8)) D DEFCRNR ;File '200CRNR' as this site's Cerner Station Number, only file at sites installing mpif* patches (not legacy, forum, claims, etc.)

 D BMES^XPDUTL("Post-Install: Finished")

 Q

 ;

ENAUDIT ;Enable auditing on PATIENT (#2) field PHONE NUMBER [CELLULAR] (#.134)

 D BMES^XPDUTL("   >> Enabled AUDIT(ing) on the PHONE NUMBER [CELLULAR] field")

 D MES^XPDUTL("        in the PATIENT (#2) file!")

 D TURNON^DIAUTL(2,.134)  ;DBIA #4397 Supported

 Q

 ;

DEFCRNR ;File '200CRNR' as the Cerner Station Number for this site

 ;

 ;all sites will default to '200CRNR'

 ;some test environments could be updated to something else

 ;

 N DGFAC,DGIEN,DGMSG,DIERR,FDA,IEN

 S DGFAC="200CRNR" ;default Cerner Station Number

 D BMES^XPDUTL("   >> Filing '"_DGFAC_"' as the Cerner Station Number for this site.")

 S DGIEN=$O(^MPIF(984.8,"B","FOUR",0)) I DGIEN D BMES^XPDUTL("   >> '"_$P($G(^MPIF(984.8,DGIEN,0)),"^",5)_"' already defined for this site.") Q

 S FDA(984.8,"?+1,",.01)="FOUR"

 S FDA(984.8,"?+1,",4)=DGFAC ;STATUS (#4) field in the MPI ICN BUILD MANAGEMENT (#984.8) file

 S IEN(1)=4

 D UPDATE^DIE("E","FDA","IEN","DGMSG")

 I $D(DGMSG) D BMES^XPDUTL("   >> ERROR!!  The Cerner Station Number, '"_DGFAC_"' was NOT filed."),MES^XPDUTL("       [#"_$G(DGMSG("DIERR",1))_": "_$G(DGMSG("DIERR",1,"TEXT",1))_"]") Q

 D MES^XPDUTL("   >> '"_DGFAC_"' successfully filed.")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG1071P   1865     printed  Apr 09, 2024@21:41:06                                                                                                                                                                                                     Page 2

DG1071P   ;BIR/JFW - DG*5.3*1071 Post-Init ;2/22/22  16:02

 +1       ;;5.3;Registration;**1071**;Aug 13, 1993;Build 4

 +2       ;

 +3       ;BMES^XPDUTL and MES^XPDUTL - DBIA #10141 Supported

 +4       ;

 +5       ;STORY VAMPI-13802 (jfw) - Enable Auditing on PHONE NUMBER [CELLULAR]

 +6       ;STORY VAMPI-13671 (dri) - File '200CRNR' as this site's Cerner Station Number

 +7       ;

POST      ;

 +1        DO BMES^XPDUTL("Post-Install: Starting")

 +2       ;Enable auditing on Cell Phone (#.134) in the PATIENT File (#2)

           DO ENAUDIT

 +3       ;File '200CRNR' as this site's Cerner Station Number, only file at sites installing mpif* patches (not legacy, forum, claims, etc.)

           IF $DATA(^MPIF(984.8))

               DO DEFCRNR

 +4        DO BMES^XPDUTL("Post-Install: Finished")

 +5        QUIT 

 +6       ;

ENAUDIT   ;Enable auditing on PATIENT (#2) field PHONE NUMBER [CELLULAR] (#.134)

 +1        DO BMES^XPDUTL("   >> Enabled AUDIT(ing) on the PHONE NUMBER [CELLULAR] field")

 +2        DO MES^XPDUTL("        in the PATIENT (#2) file!")

 +3       ;DBIA #4397 Supported

           DO TURNON^DIAUTL(2,.134)

 +4        QUIT 

 +5       ;

DEFCRNR   ;File '200CRNR' as the Cerner Station Number for this site

 +1       ;

 +2       ;all sites will default to '200CRNR'

 +3       ;some test environments could be updated to something else

 +4       ;

 +5        NEW DGFAC,DGIEN,DGMSG,DIERR,FDA,IEN

 +6       ;default Cerner Station Number

           SET DGFAC="200CRNR"

 +7        DO BMES^XPDUTL("   >> Filing '"_DGFAC_"' as the Cerner Station Number for this site.")

 +8        SET DGIEN=$ORDER(^MPIF(984.8,"B","FOUR",0))

           IF DGIEN

               DO BMES^XPDUTL("   >> '"_$PIECE($GET(^MPIF(984.8,DGIEN,0)),"^",5)_"' already defined for this site.")

               QUIT 

 +9        SET FDA(984.8,"?+1,",.01)="FOUR"

 +10      ;STATUS (#4) field in the MPI ICN BUILD MANAGEMENT (#984.8) file

           SET FDA(984.8,"?+1,",4)=DGFAC

 +11       SET IEN(1)=4

 +12       DO UPDATE^DIE("E","FDA","IEN","DGMSG")

 +13       IF $DATA(DGMSG)

               DO BMES^XPDUTL("   >> ERROR!!  The Cerner Station Number, '"_DGFAC_"' was NOT filed.")

               DO MES^XPDUTL("       [#"_$GET(DGMSG("DIERR",1))_": "_$GET(DGMSG("DIERR",1,"TEXT",1))_"]")

               QUIT 

 +14       DO MES^XPDUTL("   >> '"_DGFAC_"' successfully filed.")

 +15       QUIT 

 +16      ;