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

IVM2111.m

Go to the documentation of this file.
  1. IVM2111 ;ALB/TMK - POST INSTALL FOR PATCH IVM*2*111 ; 10-FEB-2006
  1. ;;2.0;INCOME VERIFICATION MATCH;**111**; 21-OCT-94
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. EN ;
  1. D BMES^XPDUTL("Deleting IVM PARAMETER field #.04 SUPPRESS INSURANCE MESSAGE")
  1. S DIE="^IVM(301.9,",DR=".04///@",DA=1 D ^DIE ; Delete data
  1. S DIK="^DD(301.9,",DA=.04,DA(1)=301.9 D ^DIK ; Delete field
  1. D BMES^XPDUTL("Step complete")
  1. ;
  1. D BMES^XPDUTL("Queueing job to auto-upload existing HL7 Z04 messages to the buffer file")
  1. S ZTIO="",ZTDESC="Uploads existing insurance messages to buffer file"
  1. S ZTRTN="AUTO^IVMLINS3",ZTDTH=$$NOW^XLFDT()
  1. D ^%ZTLOAD
  1. D BMES^XPDUTL($S($D(ZTSK):"This job has been queued. The task number is "_ZTSK,1:"This job could not be queued"))
  1. D BMES^XPDUTL("To restart this job, use 'D AUTO^IVMLINS3'")
  1. D BMES^XPDUTL("Step complete")
  1. D BMES^XPDUTL("End of post-install")
  1. Q
  1. ;