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 ---[H[J[2J[HDG1071P 1865 printed Dec 13, 2024@02:35:14 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 ;