IVM20204P.m

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 ---IVM20204P   1815     printed  Mar 13, 2025@21:04:29                                                                                                                                                                                                   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