DG903PST ;ALB/JCH - DG*5.3*903 POST INSTALL ; 11/10/14 9:51am
;;5.3;Registration;**903**;Aug 13, 1993;Build 82
;
; Submitted to OSEHRA 04/02/2015 by HP
; PCHK entry points authored by James Harris 2014-2015
;
Q
POST ; Add entry 315 in INCONSISTENT DATA ELEMENTS file (#38.6)
; and Enable MyHeatheVet in the MAS PARAMETERS (#43) File.
;
D PCHK
; Enable MyHealtheVet Prompts? (#1100.07) field in the the MAS PARAMETERS (#43) File
; is set to "NO" which disables the "Increase Engagement in My HealtheVet" Pre-Register
; Patient Interface.
N DIE,DR,DA
S DIE="^DG(43,",DA=1,DR="1100.07///0" D ^DIE
Q
;
PCHK ; File new INCONSISTENT DATA ELEMENTS (#38.6) file entry for missing MHV Registration status
N DIE,X,Y,DR,DA,DIC,DGFILE,DGIENS,DGFIELD,DGWROOT,DGMROOT,DGMSG,DGTXT
Q:$D(^DGIN(38.6,315)) ; Rule #315 already exists. Can't overwrite different rule, but rule #'s are hard coded in DGRPC*
S DIE="^DGIN(38.6,",DA=315,DR=".01////MHV REGISTRATION STATUS ABSENT;2////MY HEALTHEVET REGISTRATION STATUS ABSENT/MISSING;3////0;4////0;5////1" D ^DIE
N DIE,X,Y,DR,DA,DIC
S DGFILE="38.6",DGIENS="315,",DGFIELD=50,DGWROOT="DGTXT",DGMROOT="DGMSG",DGMSG=""
S DGTXT(1)="This check ensures a patient has been asked about their registration, or "
S DGTXT(2)="interest in registration, in My HealtheVet. It will only be checked if the "
S DGTXT(3)="'Enable MyHealtheVet Prompts?' (#1100.07) field in the MAS PARAMETERS (#43)"
S DGTXT(4)="file is set to 'YES'."
D WP^DIE(DGFILE,DGIENS,DGFIELD,,DGWROOT,DGMROOT)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG903PST 1557 printed Nov 22, 2024@17:50:52 Page 2
DG903PST ;ALB/JCH - DG*5.3*903 POST INSTALL ; 11/10/14 9:51am
+1 ;;5.3;Registration;**903**;Aug 13, 1993;Build 82
+2 ;
+3 ; Submitted to OSEHRA 04/02/2015 by HP
+4 ; PCHK entry points authored by James Harris 2014-2015
+5 ;
+6 QUIT
POST ; Add entry 315 in INCONSISTENT DATA ELEMENTS file (#38.6)
+1 ; and Enable MyHeatheVet in the MAS PARAMETERS (#43) File.
+2 ;
+3 DO PCHK
+4 ; Enable MyHealtheVet Prompts? (#1100.07) field in the the MAS PARAMETERS (#43) File
+5 ; is set to "NO" which disables the "Increase Engagement in My HealtheVet" Pre-Register
+6 ; Patient Interface.
+7 NEW DIE,DR,DA
+8 SET DIE="^DG(43,"
SET DA=1
SET DR="1100.07///0"
DO ^DIE
+9 QUIT
+10 ;
PCHK ; File new INCONSISTENT DATA ELEMENTS (#38.6) file entry for missing MHV Registration status
+1 NEW DIE,X,Y,DR,DA,DIC,DGFILE,DGIENS,DGFIELD,DGWROOT,DGMROOT,DGMSG,DGTXT
+2 ; Rule #315 already exists. Can't overwrite different rule, but rule #'s are hard coded in DGRPC*
if $DATA(^DGIN(38.6,315))
QUIT
+3 SET DIE="^DGIN(38.6,"
SET DA=315
SET DR=".01////MHV REGISTRATION STATUS ABSENT;2////MY HEALTHEVET REGISTRATION STATUS ABSENT/MISSING;3////0;4////0;5////1"
DO ^DIE
+4 NEW DIE,X,Y,DR,DA,DIC
+5 SET DGFILE="38.6"
SET DGIENS="315,"
SET DGFIELD=50
SET DGWROOT="DGTXT"
SET DGMROOT="DGMSG"
SET DGMSG=""
+6 SET DGTXT(1)="This check ensures a patient has been asked about their registration, or "
+7 SET DGTXT(2)="interest in registration, in My HealtheVet. It will only be checked if the "
+8 SET DGTXT(3)="'Enable MyHealtheVet Prompts?' (#1100.07) field in the MAS PARAMETERS (#43)"
+9 SET DGTXT(4)="file is set to 'YES'."
+10 DO WP^DIE(DGFILE,DGIENS,DGFIELD,,DGWROOT,DGMROOT)
+11 QUIT
+12 ;
