DG53233P ;PB - ENROLLMENT/ELIGIBILITY QUERY FUNCTIONALITY; 04/19/1999
;;5.3;REGISTRATION;**233**;04/20/99
;
;
; The Enrollment Query Functionality allows sites to query
; HEC for enrollment and eligibility data during patient registration.
;
; Inorder to activate the Enrollment/Eligibility Query Functionality
; the ENROLLMENT QUERY ACTIVE field (#15) in the IVM SITE PARAMETER
; file (#301.9) should be set to '1' for Active. This field serves
; as a switch to turn on and off transmission of Enrollment queries
; sent to HEC from VistA.
;
; This routine does not serve to turn transmission on or off. It only
; turns it on.
;
;
BEGIN N DIR,DIC,DA,DR,DIQ,DGDIQ,ACTIVE
;
; check that IVM SITE PARAMETER FILE exists
I '$D(^IVM(301.9)) D Q
.D BMES^XPDUTL(">>> Missing IVM SITE PARAMTER FILE.")
.D MES^XPDUTL("Please contact the PIMS National VISTA Support Team for assistance")
.Q
;
; get value of ENROLLMENT QUERY ACTIVE field
S DIQ(0)="I",DIC="^IVM(301.9,",DA=1,DR="15",DIQ="DGDIQ"
D EN^DIQ1
I $G(DGDIQ(301.9,DA,DR,"I"))=0 S ACTIVE=0
E S ACTIVE=1
I 'ACTIVE D
.; This field is uneditable so use a direct set to change
.S ^IVM(301.9,1,15)=1
.D BMES^XPDUTL(">>> ENROLLMENT QUERY ACTIVE field (#15) set to ACTIVE.")
.Q
I ACTIVE D
.D BMES^XPDUTL(">>> ENROLLMENT QUERY ACTIVE field (#15) already set to ACTIVE.")
.Q
D BMES^XPDUTL(">>> Done.")
QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53233P 1428 printed Nov 22, 2024@17:46:48 Page 2
DG53233P ;PB - ENROLLMENT/ELIGIBILITY QUERY FUNCTIONALITY; 04/19/1999
+1 ;;5.3;REGISTRATION;**233**;04/20/99
+2 ;
+3 ;
+4 ; The Enrollment Query Functionality allows sites to query
+5 ; HEC for enrollment and eligibility data during patient registration.
+6 ;
+7 ; Inorder to activate the Enrollment/Eligibility Query Functionality
+8 ; the ENROLLMENT QUERY ACTIVE field (#15) in the IVM SITE PARAMETER
+9 ; file (#301.9) should be set to '1' for Active. This field serves
+10 ; as a switch to turn on and off transmission of Enrollment queries
+11 ; sent to HEC from VistA.
+12 ;
+13 ; This routine does not serve to turn transmission on or off. It only
+14 ; turns it on.
+15 ;
+16 ;
BEGIN NEW DIR,DIC,DA,DR,DIQ,DGDIQ,ACTIVE
+1 ;
+2 ; check that IVM SITE PARAMETER FILE exists
+3 IF '$DATA(^IVM(301.9))
Begin DoDot:1
+4 DO BMES^XPDUTL(">>> Missing IVM SITE PARAMTER FILE.")
+5 DO MES^XPDUTL("Please contact the PIMS National VISTA Support Team for assistance")
+6 QUIT
End DoDot:1
QUIT
+7 ;
+8 ; get value of ENROLLMENT QUERY ACTIVE field
+9 SET DIQ(0)="I"
SET DIC="^IVM(301.9,"
SET DA=1
SET DR="15"
SET DIQ="DGDIQ"
+10 DO EN^DIQ1
+11 IF $GET(DGDIQ(301.9,DA,DR,"I"))=0
SET ACTIVE=0
+12 IF '$TEST
SET ACTIVE=1
+13 IF 'ACTIVE
Begin DoDot:1
+14 ; This field is uneditable so use a direct set to change
+15 SET ^IVM(301.9,1,15)=1
+16 DO BMES^XPDUTL(">>> ENROLLMENT QUERY ACTIVE field (#15) set to ACTIVE.")
+17 QUIT
End DoDot:1
+18 IF ACTIVE
Begin DoDot:1
+19 DO BMES^XPDUTL(">>> ENROLLMENT QUERY ACTIVE field (#15) already set to ACTIVE.")
+20 QUIT
End DoDot:1
+21 DO BMES^XPDUTL(">>> Done.")
+22 QUIT
