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