- 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 Feb 18, 2025@23:26:42 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