DG53233P.m

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 ---DG53233P   1428     printed  Apr 09, 2024@21:45:21                                                                                                                                                                                                    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