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 ---[H[J[2J[HIVMUPAR1 1015 printed Dec 13, 2024@02:03:04 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)
