IVM2P179 ;MNTVBB/DTA - Update/Add DHCP OUTPUT LOGIC; 3/13/19
;;2.0;INCOME VERIFICATION MATCH;**179**;AUG 13, 1993;Build 5
;
;Post-init routine updating entries in
;the IVM DEMOGRAPHIC UPLOAD FIELDS (#301.92) file
;
Q
EN ;
;
D START,ADD,UPDATE,FINISH
Q
;
START D BMES^XPDUTL("DHCP OUTPUT LOGIC, Post-Install Starting")
Q
;
FINISH D BMES^XPDUTL("DHCP OUTPUT LOGIC, Post-Install Complete")
Q
;
ADD ;add a DHCP OUTPUT LOGIC string
N IVMC,IVMX,IVML,IVMIEN,IVMFN,IVMSTR,IVMS
D BMES^XPDUTL("Adding DHCP OUTPUT LOGIC to file 301.92")
S IVMC=0
F IVMX=1:1 S IVML=$P($T(ADOL+IVMX),";",3) Q:IVML="QUIT" D
. S IVMIEN=$P(IVML,"~")
. S IVMFN=$P(IVML,"~",2)
. S IVMSTR=$P(IVML,"~",3)
. S IVMS=+$$ADD30192(IVMIEN,IVMFN,IVMSTR) S:IVMS>0 IVMC=IVMC+1
D BMES^XPDUTL(" "_IVMC_$S(IVMC<2:" entry",1:" entries")_" added to the IVM DEMOGRAPHIC UPLOAD FIELDS file (#301.92)")
Q
UPDATE ;update DHCP OUTPUT LOGIC string
N IVMC,IVMX,IVML,IVMIEN,IVMFN,IVMSTR,IVMS
D BMES^XPDUTL("Updating DHCP OUTPUT LOGIC in file 301.92")
S IVMC=0
F IVMX=1:1 S IVML=$P($T(UDOL+IVMX),";",3) Q:IVML="QUIT" D
. S IVMIEN=$P(IVML,"~")
. S IVMFN=$P(IVML,"~",2)
. S IVMSTR=$P(IVML,"~",3)
. S IVMS=+$$ADD30192(IVMIEN,IVMFN,IVMSTR) S:IVMS>0 IVMC=IVMC+1
D BMES^XPDUTL(" "_IVMC_$S(IVMC<2:" entry",1:" entries")_" updated for the IVM DEMOGRAPHIC UPLOAD FIELDS file (#301.92)")
Q
ADD30192(IVMIEN,IVMFN,IVMSTR) ;
;add/update entry
D BMES^XPDUTL(" "_IVMIEN_" "_IVMFN)
N IVMFDA,IVMER
S IVMFDA(301.92,IVMIEN_",",20)=IVMSTR
I (IVMFN["COUNTRY")!(IVMFN["COUNTY") D
. S IVMFDA(301.92,IVMIEN_",",.07)=1
D FILE^DIE(,"IVMFDA","IVMER")
I $D(IVMER) D BMES^XPDUTL(IVMER("DIERR",1,"TEXT",1)) Q 0
Q 1
;
ADOL ;STRING
;;70~TEMPORARY ADDRESS ZIP~S DR=.1216 D LOOK^IVMPREC9
;;71~TEMPORARY ADDRESS COUNTRY~S DR=.1223 D LOOK^IVMPREC9
;;72~TEMPORARY ADDRESS COUNTY~S DR=.12111 D LOOK^IVMPREC9
;;QUIT
UDOL ;IEN^FIELD^STRING
;;73~TEMPORARY ADDRESS PROVINCE~S DR=.1221 D LOOK^IVMPREC9
;;74~TEMPORARY ADDRESS POSTAL CODE~S DR=.1222 D LOOK^IVMPREC9
;;QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIVM2P179 2092 printed Apr 09, 2024@21:02:58 Page 2
IVM2P179 ;MNTVBB/DTA - Update/Add DHCP OUTPUT LOGIC; 3/13/19
+1 ;;2.0;INCOME VERIFICATION MATCH;**179**;AUG 13, 1993;Build 5
+2 ;
+3 ;Post-init routine updating entries in
+4 ;the IVM DEMOGRAPHIC UPLOAD FIELDS (#301.92) file
+5 ;
+6 QUIT
EN ;
+1 ;
+2 DO START
DO ADD
DO UPDATE
DO FINISH
+3 QUIT
+4 ;
START DO BMES^XPDUTL("DHCP OUTPUT LOGIC, Post-Install Starting")
+1 QUIT
+2 ;
FINISH DO BMES^XPDUTL("DHCP OUTPUT LOGIC, Post-Install Complete")
+1 QUIT
+2 ;
ADD ;add a DHCP OUTPUT LOGIC string
+1 NEW IVMC,IVMX,IVML,IVMIEN,IVMFN,IVMSTR,IVMS
+2 DO BMES^XPDUTL("Adding DHCP OUTPUT LOGIC to file 301.92")
+3 SET IVMC=0
+4 FOR IVMX=1:1
SET IVML=$PIECE($TEXT(ADOL+IVMX),";",3)
if IVML="QUIT"
QUIT
Begin DoDot:1
+5 SET IVMIEN=$PIECE(IVML,"~")
+6 SET IVMFN=$PIECE(IVML,"~",2)
+7 SET IVMSTR=$PIECE(IVML,"~",3)
+8 SET IVMS=+$$ADD30192(IVMIEN,IVMFN,IVMSTR)
if IVMS>0
SET IVMC=IVMC+1
End DoDot:1
+9 DO BMES^XPDUTL(" "_IVMC_$SELECT(IVMC<2:" entry",1:" entries")_" added to the IVM DEMOGRAPHIC UPLOAD FIELDS file (#301.92)")
+10 QUIT
UPDATE ;update DHCP OUTPUT LOGIC string
+1 NEW IVMC,IVMX,IVML,IVMIEN,IVMFN,IVMSTR,IVMS
+2 DO BMES^XPDUTL("Updating DHCP OUTPUT LOGIC in file 301.92")
+3 SET IVMC=0
+4 FOR IVMX=1:1
SET IVML=$PIECE($TEXT(UDOL+IVMX),";",3)
if IVML="QUIT"
QUIT
Begin DoDot:1
+5 SET IVMIEN=$PIECE(IVML,"~")
+6 SET IVMFN=$PIECE(IVML,"~",2)
+7 SET IVMSTR=$PIECE(IVML,"~",3)
+8 SET IVMS=+$$ADD30192(IVMIEN,IVMFN,IVMSTR)
if IVMS>0
SET IVMC=IVMC+1
End DoDot:1
+9 DO BMES^XPDUTL(" "_IVMC_$SELECT(IVMC<2:" entry",1:" entries")_" updated for the IVM DEMOGRAPHIC UPLOAD FIELDS file (#301.92)")
+10 QUIT
ADD30192(IVMIEN,IVMFN,IVMSTR) ;
+1 ;add/update entry
+2 DO BMES^XPDUTL(" "_IVMIEN_" "_IVMFN)
+3 NEW IVMFDA,IVMER
+4 SET IVMFDA(301.92,IVMIEN_",",20)=IVMSTR
+5 IF (IVMFN["COUNTRY")!(IVMFN["COUNTY")
Begin DoDot:1
+6 SET IVMFDA(301.92,IVMIEN_",",.07)=1
End DoDot:1
+7 DO FILE^DIE(,"IVMFDA","IVMER")
+8 IF $DATA(IVMER)
DO BMES^XPDUTL(IVMER("DIERR",1,"TEXT",1))
QUIT 0
+9 QUIT 1
+10 ;
ADOL ;STRING
+1 ;;70~TEMPORARY ADDRESS ZIP~S DR=.1216 D LOOK^IVMPREC9
+2 ;;71~TEMPORARY ADDRESS COUNTRY~S DR=.1223 D LOOK^IVMPREC9
+3 ;;72~TEMPORARY ADDRESS COUNTY~S DR=.12111 D LOOK^IVMPREC9
+4 ;;QUIT
UDOL ;IEN^FIELD^STRING
+1 ;;73~TEMPORARY ADDRESS PROVINCE~S DR=.1221 D LOOK^IVMPREC9
+2 ;;74~TEMPORARY ADDRESS POSTAL CODE~S DR=.1222 D LOOK^IVMPREC9
+3 ;;QUIT
