EHM013P ;ALB/WTC - EHRM APPOINTMENT MAINTENANCE; Jun 05, 2025@14:48:28
;;1.0;ELECTRONIC HEALTH MODERNIZATION;**13**;Apr 19, 2021;Build 27
;
; EHM*1*13 post-install
;
; ICR #10070 supports call to APPERROR^%ZTER.
;
Q ;
;
RUN ;
;
; Add "CONVERTED TO CERNER" to Cancellation Reasons file (#409.2).
;
I $O(^SD(409.2,"B","CONVERTED TO CERNER",0))'>0 D ;
. ;
. N EHMIEN,EHMFDA,ERRMSG,EHMIENS ;
. ;
. S EHMIEN="+1," ;
. S EHMFDA(409.2,EHMIEN,.01)="CONVERTED TO CERNER" ;
. S EHMFDA(409.2,EHMIEN,2)="C" ;
. S EHMFDA(409.2,EHMIEN,5)=0 ;
. S EHMFDA(409.2,EHMIEN,6)=1 ;
. D UPDATE^DIE("","EHMFDA","EHMIENS","ERRMSG") ;
. S EHMIEN=+$G(EHMIENS(1)) I EHMIEN<1 D APPERROR^%ZTER("Error creating record in file #409.2") Q ; ICR #10070
;
; Add "DUPLICATE - CERNER" to Cancellation Reasons file (#409.2).
;
I $O(^SD(409.2,"B","DUPLICATE - CERNER",0))'>0 D ;
. ;
. N EHMIEN,EHMFDA,ERRMSG,EHMIENS ;
. ;
. S EHMIEN="+1," ;
. S EHMFDA(409.2,EHMIEN,.01)="DUPLICATE - CERNER" ;
. S EHMFDA(409.2,EHMIEN,2)="C" ;
. S EHMFDA(409.2,EHMIEN,5)=0 ;
. S EHMFDA(409.2,EHMIEN,6)=1 ;
. D UPDATE^DIE("","EHMFDA","EHMIENS","ERRMSG") ;
. S EHMIEN=+$G(EHMIENS(1)) I EHMIEN<1 D APPERROR^%ZTER("Error creating record in file #409.2") Q ; ICR #10070
;
Q ;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEHM013P 1303 printed Apr 22, 2026@13:48:13 Page 2
EHM013P ;ALB/WTC - EHRM APPOINTMENT MAINTENANCE; Jun 05, 2025@14:48:28
+1 ;;1.0;ELECTRONIC HEALTH MODERNIZATION;**13**;Apr 19, 2021;Build 27
+2 ;
+3 ; EHM*1*13 post-install
+4 ;
+5 ; ICR #10070 supports call to APPERROR^%ZTER.
+6 ;
+7 ;
QUIT
+8 ;
RUN ;
+1 ;
+2 ; Add "CONVERTED TO CERNER" to Cancellation Reasons file (#409.2).
+3 ;
+4 ;
IF $ORDER(^SD(409.2,"B","CONVERTED TO CERNER",0))'>0
Begin DoDot:1
+5 ;
+6 ;
NEW EHMIEN,EHMFDA,ERRMSG,EHMIENS
+7 ;
+8 ;
SET EHMIEN="+1,"
+9 ;
SET EHMFDA(409.2,EHMIEN,.01)="CONVERTED TO CERNER"
+10 ;
SET EHMFDA(409.2,EHMIEN,2)="C"
+11 ;
SET EHMFDA(409.2,EHMIEN,5)=0
+12 ;
SET EHMFDA(409.2,EHMIEN,6)=1
+13 ;
DO UPDATE^DIE("","EHMFDA","EHMIENS","ERRMSG")
+14 ; ICR #10070
SET EHMIEN=+$GET(EHMIENS(1))
IF EHMIEN<1
DO APPERROR^%ZTER("Error creating record in file #409.2")
QUIT
End DoDot:1
+15 ;
+16 ; Add "DUPLICATE - CERNER" to Cancellation Reasons file (#409.2).
+17 ;
+18 ;
IF $ORDER(^SD(409.2,"B","DUPLICATE - CERNER",0))'>0
Begin DoDot:1
+19 ;
+20 ;
NEW EHMIEN,EHMFDA,ERRMSG,EHMIENS
+21 ;
+22 ;
SET EHMIEN="+1,"
+23 ;
SET EHMFDA(409.2,EHMIEN,.01)="DUPLICATE - CERNER"
+24 ;
SET EHMFDA(409.2,EHMIEN,2)="C"
+25 ;
SET EHMFDA(409.2,EHMIEN,5)=0
+26 ;
SET EHMFDA(409.2,EHMIEN,6)=1
+27 ;
DO UPDATE^DIE("","EHMFDA","EHMIENS","ERRMSG")
+28 ; ICR #10070
SET EHMIEN=+$GET(EHMIENS(1))
IF EHMIEN<1
DO APPERROR^%ZTER("Error creating record in file #409.2")
QUIT
End DoDot:1
+29 ;
+30 ;
QUIT
