Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IVM2P179

IVM2P179.m

Go to the documentation of this file.
  1. IVM2P179 ;MNTVBB/DTA - Update/Add DHCP OUTPUT LOGIC; 3/13/19
  1. ;;2.0;INCOME VERIFICATION MATCH;**179**;AUG 13, 1993;Build 5
  1. ;
  1. ;Post-init routine updating entries in
  1. ;the IVM DEMOGRAPHIC UPLOAD FIELDS (#301.92) file
  1. ;
  1. Q
  1. EN ;
  1. ;
  1. D START,ADD,UPDATE,FINISH
  1. Q
  1. ;
  1. START D BMES^XPDUTL("DHCP OUTPUT LOGIC, Post-Install Starting")
  1. Q
  1. ;
  1. FINISH D BMES^XPDUTL("DHCP OUTPUT LOGIC, Post-Install Complete")
  1. Q
  1. ;
  1. ADD ;add a DHCP OUTPUT LOGIC string
  1. N IVMC,IVMX,IVML,IVMIEN,IVMFN,IVMSTR,IVMS
  1. D BMES^XPDUTL("Adding DHCP OUTPUT LOGIC to file 301.92")
  1. S IVMC=0
  1. F IVMX=1:1 S IVML=$P($T(ADOL+IVMX),";",3) Q:IVML="QUIT" D
  1. . S IVMIEN=$P(IVML,"~")
  1. . S IVMFN=$P(IVML,"~",2)
  1. . S IVMSTR=$P(IVML,"~",3)
  1. . S IVMS=+$$ADD30192(IVMIEN,IVMFN,IVMSTR) S:IVMS>0 IVMC=IVMC+1
  1. D BMES^XPDUTL(" "_IVMC_$S(IVMC<2:" entry",1:" entries")_" added to the IVM DEMOGRAPHIC UPLOAD FIELDS file (#301.92)")
  1. Q
  1. UPDATE ;update DHCP OUTPUT LOGIC string
  1. N IVMC,IVMX,IVML,IVMIEN,IVMFN,IVMSTR,IVMS
  1. D BMES^XPDUTL("Updating DHCP OUTPUT LOGIC in file 301.92")
  1. S IVMC=0
  1. F IVMX=1:1 S IVML=$P($T(UDOL+IVMX),";",3) Q:IVML="QUIT" D
  1. . S IVMIEN=$P(IVML,"~")
  1. . S IVMFN=$P(IVML,"~",2)
  1. . S IVMSTR=$P(IVML,"~",3)
  1. . S IVMS=+$$ADD30192(IVMIEN,IVMFN,IVMSTR) S:IVMS>0 IVMC=IVMC+1
  1. D BMES^XPDUTL(" "_IVMC_$S(IVMC<2:" entry",1:" entries")_" updated for the IVM DEMOGRAPHIC UPLOAD FIELDS file (#301.92)")
  1. Q
  1. ADD30192(IVMIEN,IVMFN,IVMSTR) ;
  1. ;add/update entry
  1. D BMES^XPDUTL(" "_IVMIEN_" "_IVMFN)
  1. N IVMFDA,IVMER
  1. S IVMFDA(301.92,IVMIEN_",",20)=IVMSTR
  1. I (IVMFN["COUNTRY")!(IVMFN["COUNTY") D
  1. . S IVMFDA(301.92,IVMIEN_",",.07)=1
  1. D FILE^DIE(,"IVMFDA","IVMER")
  1. I $D(IVMER) D BMES^XPDUTL(IVMER("DIERR",1,"TEXT",1)) Q 0
  1. Q 1
  1. ;
  1. ADOL ;STRING
  1. ;;70~TEMPORARY ADDRESS ZIP~S DR=.1216 D LOOK^IVMPREC9
  1. ;;71~TEMPORARY ADDRESS COUNTRY~S DR=.1223 D LOOK^IVMPREC9
  1. ;;72~TEMPORARY ADDRESS COUNTY~S DR=.12111 D LOOK^IVMPREC9
  1. ;;QUIT
  1. UDOL ;IEN^FIELD^STRING
  1. ;;73~TEMPORARY ADDRESS PROVINCE~S DR=.1221 D LOOK^IVMPREC9
  1. ;;74~TEMPORARY ADDRESS POSTAL CODE~S DR=.1222 D LOOK^IVMPREC9
  1. ;;QUIT