IVM20204P ;ALB/KUM - PATCH IVM*2*204 INSTALL UTILITIES ; 1/10/22 1:36pm
;;2.0;INCOME VERIFICATION MATCH;**204**;21-OCT-94;Build 20
;
Q
;
PRE ; Main entry point for Pre-Install items
;
D PRE1 ; Delete entries from IVM DEMOGRAPHIC UPLAOD (#301.92) File
Q
;
PRE1 ;Delete entries
;
; Supported ICRs:
; 10141: BMES^XPDUTL
; MES^XPDUTL
;
N IVMFILE,IVMI,IVMELEMNT,IVMEXIST,IVMERR,IVMIEN,IVMNAME,IVMFDA
;
S XPDABORT=""
D BMES^XPDUTL("*****")
D MES^XPDUTL(" Deleting Change Date/Time ZCT entries from the ")
D MES^XPDUTL(" IVM DEMOGRAPHIC UPLOAD FIELDS file #301.92")
S IVMFILE=301.92
F IVMI=1:1 S IVMELEMNT=$P($T(TEXT+IVMI),";;",2) Q:IVMELEMNT="QUIT" D
. S IVMEXIST=0
. S IVMEXIST=$$FIND1^DIC(IVMFILE,,,IVMELEMNT,"B")
. I IVMEXIST D
. . S IVMNAME=IVMELEMNT
. . S IVMIEN=IVMEXIST_","
. . S IVMFDA(301.92,IVMIEN,.01)="@"
. . D UPDATE^DIE("E","IVMFDA","","IVMERR")
. . I '$D(IVMERR("DIERR")) D
. . . D MES^XPDUTL(" "_IVMNAME_" deleted. ")
. . . S IVMEXIST=0
. . I $D(IVMERR("DIERR")) D
. . . D BMES^XPDUTL("*****")
. . . D MES^XPDUTL(" Error in deleting "_IVMNAME)
. . . D MES^XPDUTL(" Installation aborted. Please log YOUR IT Services ticket.")
. . . D MES^XPDUTL("*****")
. . . S XPDABORT=2
. . Q
D BMES^XPDUTL("*****")
I XPDABORT="" K XPDABORT
Q
;
SCR(Y) ;Screen Logic to be called from IVM*2.0*204 build to merge entries from IVM DEMOGRAPHIC UPLOAD (#301.92) file
N IVMSET
S IVMSET=0
I $P($G(^IVM(301.92,+Y,0)),U,2)["ZCT10"!($P($G(^IVM(301.92,+Y,0)),U,2)["ZCT11") S IVMSET=1
Q IVMSET
;
TEXT ;;FIELD#~VALUE;FIELD#~VALUE;FIELD#~VALUE.....
;;DESIGNEE CHANGE DATE/TIME
;;E-CONTACT CHANGE DATE/TIME
;;E2-CONTACT CHANGE DATE/TIME
;;PRIMARY NOK CHANGE DATE/TIME
;;SECONDARY NOK CHANGE DT/TM
;;QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIVM20204P 1815 printed Sep 23, 2025@19:35:47 Page 2
IVM20204P ;ALB/KUM - PATCH IVM*2*204 INSTALL UTILITIES ; 1/10/22 1:36pm
+1 ;;2.0;INCOME VERIFICATION MATCH;**204**;21-OCT-94;Build 20
+2 ;
+3 QUIT
+4 ;
PRE ; Main entry point for Pre-Install items
+1 ;
+2 ; Delete entries from IVM DEMOGRAPHIC UPLAOD (#301.92) File
DO PRE1
+3 QUIT
+4 ;
PRE1 ;Delete entries
+1 ;
+2 ; Supported ICRs:
+3 ; 10141: BMES^XPDUTL
+4 ; MES^XPDUTL
+5 ;
+6 NEW IVMFILE,IVMI,IVMELEMNT,IVMEXIST,IVMERR,IVMIEN,IVMNAME,IVMFDA
+7 ;
+8 SET XPDABORT=""
+9 DO BMES^XPDUTL("*****")
+10 DO MES^XPDUTL(" Deleting Change Date/Time ZCT entries from the ")
+11 DO MES^XPDUTL(" IVM DEMOGRAPHIC UPLOAD FIELDS file #301.92")
+12 SET IVMFILE=301.92
+13 FOR IVMI=1:1
SET IVMELEMNT=$PIECE($TEXT(TEXT+IVMI),";;",2)
if IVMELEMNT="QUIT"
QUIT
Begin DoDot:1
+14 SET IVMEXIST=0
+15 SET IVMEXIST=$$FIND1^DIC(IVMFILE,,,IVMELEMNT,"B")
+16 IF IVMEXIST
Begin DoDot:2
+17 SET IVMNAME=IVMELEMNT
+18 SET IVMIEN=IVMEXIST_","
+19 SET IVMFDA(301.92,IVMIEN,.01)="@"
+20 DO UPDATE^DIE("E","IVMFDA","","IVMERR")
+21 IF '$DATA(IVMERR("DIERR"))
Begin DoDot:3
+22 DO MES^XPDUTL(" "_IVMNAME_" deleted. ")
+23 SET IVMEXIST=0
End DoDot:3
+24 IF $DATA(IVMERR("DIERR"))
Begin DoDot:3
+25 DO BMES^XPDUTL("*****")
+26 DO MES^XPDUTL(" Error in deleting "_IVMNAME)
+27 DO MES^XPDUTL(" Installation aborted. Please log YOUR IT Services ticket.")
+28 DO MES^XPDUTL("*****")
+29 SET XPDABORT=2
End DoDot:3
+30 QUIT
End DoDot:2
End DoDot:1
+31 DO BMES^XPDUTL("*****")
+32 IF XPDABORT=""
KILL XPDABORT
+33 QUIT
+34 ;
SCR(Y) ;Screen Logic to be called from IVM*2.0*204 build to merge entries from IVM DEMOGRAPHIC UPLOAD (#301.92) file
+1 NEW IVMSET
+2 SET IVMSET=0
+3 IF $PIECE($GET(^IVM(301.92,+Y,0)),U,2)["ZCT10"!($PIECE($GET(^IVM(301.92,+Y,0)),U,2)["ZCT11")
SET IVMSET=1
+4 QUIT IVMSET
+5 ;
TEXT ;;FIELD#~VALUE;FIELD#~VALUE;FIELD#~VALUE.....
+1 ;;DESIGNEE CHANGE DATE/TIME
+2 ;;E-CONTACT CHANGE DATE/TIME
+3 ;;E2-CONTACT CHANGE DATE/TIME
+4 ;;PRIMARY NOK CHANGE DATE/TIME
+5 ;;SECONDARY NOK CHANGE DT/TM
+6 ;;QUIT
