IVMUPAR1.m

IVMUPAR1 ;ALB/CJM - IVM PARAMETER ENTER/EDIT (continued); 4-SEP-97

 ;;2.0;INCOME VERIFICATION MATCH;**9,17**;21-OCT-94

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 ;

 ;

ON() ;

 ;Description:  Returns 1 if enrollment events should be transmitted, 0 otherwise.

 ;Input:

 ;  None

 ;Output:

 ;  Function Value: 1 if enrollment events should be transmitted, 0 otherwise

 ;

 Q $S(($P($G(^IVM(301.9,1,0)),"^",8)=1):1,1:0)

 ;

SETON ;

 ;Description:  Sets the field TRANSMIT ENROLLMENT EVENTS? to 1 so that

 ;patient enrollment events will be transmitted in the nightly

 ;transmission. It is assumed that a record, ien=1, exists in the 

 ;IVM SITE PARAMETER file.

 ;

 ;Input: None

 ;Output: None

 ;

 S $P(^IVM(301.9,1,0),"^",8)=1

 Q

 ;

 ;

DCDON() ;

 ; Description: Returns 1 if DCD messaging is enabled, 0 otherwise.

 ;

 ;  Input: None

 ;

 ; Output:

 ;   Function Value: 1 if DCD messaging is enabled, 0 otherwise

 ;

 Q $S(($P($G(^IVM(301.9,1,20)),"^")=1):1,1:0)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IVMUPAR1   1015     printed  Feb 18, 2025@23:28:38                                                                                                                                                                                                    Page 2

IVMUPAR1  ;ALB/CJM - IVM PARAMETER ENTER/EDIT (continued); 4-SEP-97

 +1       ;;2.0;INCOME VERIFICATION MATCH;**9,17**;21-OCT-94

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

 +4       ;

ON()      ;

 +1       ;Description:  Returns 1 if enrollment events should be transmitted, 0 otherwise.

 +2       ;Input:

 +3       ;  None

 +4       ;Output:

 +5       ;  Function Value: 1 if enrollment events should be transmitted, 0 otherwise

 +6       ;

 +7        QUIT $SELECT(($PIECE($GET(^IVM(301.9,1,0)),"^",8)=1):1,1:0)

 +8       ;

SETON     ;

 +1       ;Description:  Sets the field TRANSMIT ENROLLMENT EVENTS? to 1 so that

 +2       ;patient enrollment events will be transmitted in the nightly

 +3       ;transmission. It is assumed that a record, ien=1, exists in the 

 +4       ;IVM SITE PARAMETER file.

 +5       ;

 +6       ;Input: None

 +7       ;Output: None

 +8       ;

 +9        SET $PIECE(^IVM(301.9,1,0),"^",8)=1

 +10       QUIT 

 +11      ;

 +12      ;

DCDON()   ;

 +1       ; Description: Returns 1 if DCD messaging is enabled, 0 otherwise.

 +2       ;

 +3       ;  Input: None

 +4       ;

 +5       ; Output:

 +6       ;   Function Value: 1 if DCD messaging is enabled, 0 otherwise

 +7       ;

 +8        QUIT $SELECT(($PIECE($GET(^IVM(301.9,1,20)),"^")=1):1,1:0)