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

ADE60P19.m

Go to the documentation of this file.
  1. ADE60P19 ;IHS/OIT/ENM - ADE GENERAL PATCH MODULE P19 [ 04/23/2009 11:38 AM ]
  1. ;;6.0;ADE;**19**;MAR 25, 1999
  1. ;
  1. ; This patch contains calls to 2 ADE P19 routines with
  1. ; new Dental Operative Site Updates and 1 ADA Code activation
  1. ;
  1. ENV ;Environment check
  1. I '$G(IOM) D HOME^%ZIS
  1. ;
  1. I '$G(DUZ) W !,"YOUR DUZ VARIABLE IS UNDEFINED!! Please login with your Access & Verify." D SORRY(2) Q
  1. ;
  1. I '$L($G(DUZ(0))) W !,"Your DUZ(0) VARIABLE IS UNDEFINED OR NULL." D SORRY(2) Q
  1. ;
  1. I '(DUZ(0)["@") W:'$D(ZTQUEUED) !,"YOUR DUZ(0) VARIABLE DOES NOT CONTAIN AN '@'." D SORRY(2)
  1. Q
  1. POST ;EP Post-Install
  1. ; only post for patch 19 - ENM 04/23/09
  1. ; Add new Operative Site Rec's, Modify 1 ADA Code
  1. N ADED,ADECNT,ADEVALUE
  1. D BMES^XPDUTL("Adding new Operative Site Records...")
  1. D ADDOP^ADE6P191
  1. D BMES^XPDUTL(" ...DONE")
  1. D BMES^XPDUTL("Deleting Inactive Date from ADA record 4268...")
  1. D ZAPINA^ADE6P193
  1. D BMES^XPDUTL("...DONE")
  1. Q
  1. SORRY(X) ;
  1. K DIFQ
  1. S XPDQUIT=X
  1. W *7,!,$$CJ^XLFSTR("Sorry....Please fix it.",40)
  1. Q