AUTP7 ; IHS/ASDST/GTH - AUT 98.1 PATCH 7 ; [ 02/14/2001 2:39 PM ]
;;98.1;IHS DICTIONARIES (POINTERS);**7**;MAR 04, 1998;Build 6
;
I '$G(DUZ) W !,"DUZ UNDEFINED OR 0." D SORRY(1) Q
;
I '$L($G(DUZ(0))) W !,"DUZ(0) UNDEFINED OR NULL." D SORRY(1) Q
;
I '(DUZ(0)["@") W:'$D(ZTQUEUED) !,"DUZ(0) DOES NOT CONTAIN AN '@'." D SORRY(1) Q
;
S X=$P(^VA(200,DUZ,0),U)
W !!,$$C^XBFUNC("Hello, "_$P(X,",",2)_" "_$P(X,",")),!
F %=1:1 S X=$P($T(HELLO+%),";",3) Q:X="" W !?5,X
;
W !!,$$C^XBFUNC("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_" Patch "_$P($T(+2),";",5)_".")
;
S X=$$VERSION^XPDUTL("AUT")
W !!,$$C^XBFUNC("Need AUT v 98.1.....AUT v "_X_" Present")
I X<98.1 D SORRY(1) Q
;
S X=$$VERSION^XPDUTL("DI")
W !,$$C^XBFUNC("Need at least FileMan 21.....FileMan "_X_" Present")
I X<21 D SORRY(1) Q
;
S X=$$VERSION^XPDUTL("XU")
W !,$$C^XBFUNC("Need at least Kernel 8.....Kernel "_X_" Present")
I X<8 D SORRY(1) Q
;
NEW DA,DIC
S X="AUT",DIC="^DIC(9.4,",DIC(0)="",D="C"
D IX^DIC
I Y<0,$D(^DIC(9.4,"C","AUT")) D Q
. W !!,*7,*7,$$C^XBFUNC("You Have More Than One Entry In The"),!,$$C^XBFUNC("PACKAGE File with an ""AUT"" prefix.")
. W !,$$C^XBFUNC("One entry needs to be deleted.")
. W !,$$C^XBFUNC("FIX IT! Before Proceeding."),!!,*7,*7,*7
. D SORRY(1)
. I $$DIR^XBDIR("E")
.Q
W !,$$C^XBFUNC("No 'AUT' dups in PACKAGE file")
;
; If patches 1-6 have already been installed, don't load them.
I $G(XPDENV)=0 D ; Run only during Load of Installation.
. NEW DA
. S DA(1)=+Y ; Y is set from previous DIC lookup into PACKAGE.
. S DA=$O(^DIC(9.4,DA(1),22,"B",98.1,0))
. F %=1:1:6 I $D(^DIC(9.4,DA(1),22,DA,"PAH","B",%)) S XPDQUIT("AUT*98.1*"_%)=1
.Q
;
; The following line prevents the "Disable Options..." and "Move
; Routines..." questions from being asked during the install.
I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
;
W !!,$$C^XBFUNC("ENVIRONMENT OK.")
I '$$DIR^XBDIR("E","","","","","",1) D SORRY(1) Q
Q
;
SORRY(X) ;
KILL DIFQ
S XPDQUIT=X
F %=1:1:5 S XPDQUIT("AUT*98.1*"_%)=1
W:'$D(ZTQUEUED) *7,!,$$C^XBFUNC("Sorry...."),$$DIR^XBDIR("E","Press RETURN")
Q
;
PRE ;EP - From KIDS.
D BMES^XPDUTL("Beginning pre-install routine (PRE^AUTP7).")
S ^XTMP("AUTP7",0)=$$FMADD^XLFDT(DT,14)_"^"_DT_"^"_"AUT*98.1*7"
I '$D(^XTMP("AUTP7",9999999.09,"DDA")) D
. D BMES^XPDUTL("Saving dd audit value for EDUCATION TOPICS...")
. S ^XTMP("AUTP7",9999999.09,"DDA")=$G(^DD(9999999.09,0,"DDA"))
.Q
D BMES^XPDUTL("Seting dd audit value for EDUCATION TOPICS 'on'...")
S ^DD(9999999.09,0,"DDA")="Y"
D BMES^XPDUTL("Pre-install routine is complete.")
Q
;
POST ;EP - From KIDS.
D BMES^XPDUTL("Beginning post-install routine (POST^AUTP7).")
I $D(^XTMP("AUTP7",9999999.09,"DDA")) D
. D BMES^XPDUTL("Restoring dd audit value for EDUCATION TOPICS...")
. S ^DD(9999999.09,0,"DDA")=^XTMP("AUTP7",9999999.09,"DDA")
.Q
D BMES^XPDUTL("Delivering MailMan message to select users...")
NEW DIFROM
D MAIL^XBMAIL("ACHSZMGP,ACRZ MANAGERS MENU,XUMGR-XUPROGMODE","MSG^AUTP7")
D BMES^XPDUTL("Post-install routine is complete.")
Q
;
MSG ;
;;AUT*98.1*7, EDUCATION TOPICS dd.
;;Greetings. You are receiving this message because you are a
;;programmer or hold specific PCC Data Entry security keys.
;;This is for your information, only. You need not do anything
;;in response to this message.
;;
;;Questions can be directed to George T. Huggins, RPMS/DBA, at
;;520-670-4871, or via IHS Mailman or Exchange.
;;
;; --- AUT v 98.1, Patch 7, has been installed into this uci ---
HELLO ;;
;;AUT v 98.1, Patch 7, does the following:
;;
;;a) AUT v 98.1, Patch 7, modifies the EDUCATION TOPICS
;; data dictionary, file # 9999999.09, to allow the adding
;; of education topics using ICD Diagnosis codes. The
;; functionality of adding education topics using ICD codes
;; will be part of the next patch to PCC Data Entry (APCD).
;;
;; Modifications to dd 9999999.09 are:
;; (1) Length of .01 (NAME) increased from 30 to 50;
;; (2) Field .04, ICD DIAGNOSIS, is added;
;; (3) Field .049, ICD DESCRIPTION, is added (this is a
;; computed field, which retrieves the description
;; from the ICD DIAGNOSIS file);
;; (4) Length of 1 (MNEMONIC) increased from 7 to 12;
;; (5) Pattern match in field 1 input transform
;; (X?1.4UN1"-"1.4UN) is deleted.
;;
;;b) This patch is issued in support of the IHS Health
;; Education Program, National Patient Education Project, as
;; captured and implemented in PCC Data Entry.
;;
;;c) The KIDS transport file for Patch 7 is inclusive of patches
;; 1 through 6. However, the environment check routine for
;; patch 7 will prevent the loading of any or all of patches
;; 1 through 6 if they have already been installed on the
;; target system.
AUTP7 ; IHS/ASDST/GTH - AUT 98.1 PATCH 7 ; [ 02/14/2001 2:39 PM ]
+1 ;;98.1;IHS DICTIONARIES (POINTERS);**7**;MAR 04, 1998;Build 6
+2 ;
+3 IF '$GET(DUZ)
WRITE !,"DUZ UNDEFINED OR 0."
DO SORRY(1)
QUIT
+4 ;
+5 IF '$LENGTH($GET(DUZ(0)))
WRITE !,"DUZ(0) UNDEFINED OR NULL."
DO SORRY(1)
QUIT
+6 ;
+7 IF '(DUZ(0)["@")
IF '$DATA(ZTQUEUED)
WRITE !,"DUZ(0) DOES NOT CONTAIN AN '@'."
DO SORRY(1)
QUIT
+8 ;
+9 SET X=$PIECE(^VA(200,DUZ,0),U)
+10 WRITE !!,$$C^XBFUNC("Hello, "_$PIECE(X,",",2)_" "_$PIECE(X,",")),!
+11 FOR %=1:1
SET X=$PIECE($TEXT(HELLO+%),";",3)
IF X=""
QUIT
WRITE !?5,X
+12 ;
+13 WRITE !!,$$C^XBFUNC("Checking Environment for "_$PIECE($TEXT(+2),";",4)_" V "_$PIECE($TEXT(+2),";",3)_" Patch "_$PIECE($TEXT(+2),";",5)_".")
+14 ;
+15 SET X=$$VERSION^XPDUTL("AUT")
+16 WRITE !!,$$C^XBFUNC("Need AUT v 98.1.....AUT v "_X_" Present")
+17 IF X<98.1
DO SORRY(1)
QUIT
+18 ;
+19 SET X=$$VERSION^XPDUTL("DI")
+20 WRITE !,$$C^XBFUNC("Need at least FileMan 21.....FileMan "_X_" Present")
+21 IF X<21
DO SORRY(1)
QUIT
+22 ;
+23 SET X=$$VERSION^XPDUTL("XU")
+24 WRITE !,$$C^XBFUNC("Need at least Kernel 8.....Kernel "_X_" Present")
+25 IF X<8
DO SORRY(1)
QUIT
+26 ;
+27 NEW DA,DIC
+28 SET X="AUT"
SET DIC="^DIC(9.4,"
SET DIC(0)=""
SET D="C"
+29 DO IX^DIC
+30 IF Y<0
IF $DATA(^DIC(9.4,"C","AUT"))
Begin DoDot:1
+31 WRITE !!,*7,*7,$$C^XBFUNC("You Have More Than One Entry In The"),!,$$C^XBFUNC("PACKAGE File with an ""AUT"" prefix.")
+32 WRITE !,$$C^XBFUNC("One entry needs to be deleted.")
+33 WRITE !,$$C^XBFUNC("FIX IT! Before Proceeding."),!!,*7,*7,*7
+34 DO SORRY(1)
+35 IF $$DIR^XBDIR("E")
+36 QUIT
End DoDot:1
QUIT
+37 WRITE !,$$C^XBFUNC("No 'AUT' dups in PACKAGE file")
+38 ;
+39 ; If patches 1-6 have already been installed, don't load them.
+40 ; Run only during Load of Installation.
IF $GET(XPDENV)=0
Begin DoDot:1
+41 NEW DA
+42 ; Y is set from previous DIC lookup into PACKAGE.
SET DA(1)=+Y
+43 SET DA=$ORDER(^DIC(9.4,DA(1),22,"B",98.1,0))
+44 FOR %=1:1:6
IF $DATA(^DIC(9.4,DA(1),22,DA,"PAH","B",%))
SET XPDQUIT("AUT*98.1*"_%)=1
+45 QUIT
End DoDot:1
+46 ;
+47 ; The following line prevents the "Disable Options..." and "Move
+48 ; Routines..." questions from being asked during the install.
+49 IF $GET(XPDENV)=1
SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
+50 ;
+51 WRITE !!,$$C^XBFUNC("ENVIRONMENT OK.")
+52 IF '$$DIR^XBDIR("E","","","","","",1)
DO SORRY(1)
QUIT
+53 QUIT
+54 ;
SORRY(X) ;
+1 KILL DIFQ
+2 SET XPDQUIT=X
+3 FOR %=1:1:5
SET XPDQUIT("AUT*98.1*"_%)=1
+4 IF '$DATA(ZTQUEUED)
WRITE *7,!,$$C^XBFUNC("Sorry...."),$$DIR^XBDIR("E","Press RETURN")
+5 QUIT
+6 ;
PRE ;EP - From KIDS.
+1 DO BMES^XPDUTL("Beginning pre-install routine (PRE^AUTP7).")
+2 SET ^XTMP("AUTP7",0)=$$FMADD^XLFDT(DT,14)_"^"_DT_"^"_"AUT*98.1*7"
+3 IF '$DATA(^XTMP("AUTP7",9999999.09,"DDA"))
Begin DoDot:1
+4 DO BMES^XPDUTL("Saving dd audit value for EDUCATION TOPICS...")
+5 SET ^XTMP("AUTP7",9999999.09,"DDA")=$GET(^DD(9999999.09,0,"DDA"))
+6 QUIT
End DoDot:1
+7 DO BMES^XPDUTL("Seting dd audit value for EDUCATION TOPICS 'on'...")
+8 SET ^DD(9999999.09,0,"DDA")="Y"
+9 DO BMES^XPDUTL("Pre-install routine is complete.")
+10 QUIT
+11 ;
POST ;EP - From KIDS.
+1 DO BMES^XPDUTL("Beginning post-install routine (POST^AUTP7).")
+2 IF $DATA(^XTMP("AUTP7",9999999.09,"DDA"))
Begin DoDot:1
+3 DO BMES^XPDUTL("Restoring dd audit value for EDUCATION TOPICS...")
+4 SET ^DD(9999999.09,0,"DDA")=^XTMP("AUTP7",9999999.09,"DDA")
+5 QUIT
End DoDot:1
+6 DO BMES^XPDUTL("Delivering MailMan message to select users...")
+7 NEW DIFROM
+8 DO MAIL^XBMAIL("ACHSZMGP,ACRZ MANAGERS MENU,XUMGR-XUPROGMODE","MSG^AUTP7")
+9 DO BMES^XPDUTL("Post-install routine is complete.")
+10 QUIT
+11 ;
MSG ;
+1 ;;AUT*98.1*7, EDUCATION TOPICS dd.
+2 ;;Greetings. You are receiving this message because you are a
+3 ;;programmer or hold specific PCC Data Entry security keys.
+4 ;;This is for your information, only. You need not do anything
+5 ;;in response to this message.
+6 ;;
+7 ;;Questions can be directed to George T. Huggins, RPMS/DBA, at
+8 ;;520-670-4871, or via IHS Mailman or Exchange.
+9 ;;
+10 ;; --- AUT v 98.1, Patch 7, has been installed into this uci ---
HELLO ;;
+1 ;;AUT v 98.1, Patch 7, does the following:
+2 ;;
+3 ;;a) AUT v 98.1, Patch 7, modifies the EDUCATION TOPICS
+4 ;; data dictionary, file # 9999999.09, to allow the adding
+5 ;; of education topics using ICD Diagnosis codes. The
+6 ;; functionality of adding education topics using ICD codes
+7 ;; will be part of the next patch to PCC Data Entry (APCD).
+8 ;;
+9 ;; Modifications to dd 9999999.09 are:
+10 ;; (1) Length of .01 (NAME) increased from 30 to 50;
+11 ;; (2) Field .04, ICD DIAGNOSIS, is added;
+12 ;; (3) Field .049, ICD DESCRIPTION, is added (this is a
+13 ;; computed field, which retrieves the description
+14 ;; from the ICD DIAGNOSIS file);
+15 ;; (4) Length of 1 (MNEMONIC) increased from 7 to 12;
+16 ;; (5) Pattern match in field 1 input transform
+17 ;; (X?1.4UN1"-"1.4UN) is deleted.
+18 ;;
+19 ;;b) This patch is issued in support of the IHS Health
+20 ;; Education Program, National Patient Education Project, as
+21 ;; captured and implemented in PCC Data Entry.
+22 ;;
+23 ;;c) The KIDS transport file for Patch 7 is inclusive of patches
+24 ;; 1 through 6. However, the environment check routine for
+25 ;; patch 7 will prevent the loading of any or all of patches
+26 ;; 1 through 6 if they have already been installed on the
+27 ;; target system.
