AUTP6PRE ; IHS/ASDST/GTH - AUT 98.1 PATCH 6 ENVIRON CHECK ; [ 09/21/2000 2:18 PM ]
;;98.1;IHS DICTIONARIES (POINTERS);**6**;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-5 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:5 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
;
AUTP6MSG ;
;;AUT*98.1*6, Control Number in INSURER
;;Greetings. You are receiving this message because you are a
;;programmer or hold specific Third Party Billing 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 6, has been installed into this uci ---
HELLO ;;
;;AUT v 98.1, Patch 6, does the following:
;;
;;(1) Modifies the field definition of field CONTROL NUMBER in the
;;INSURER file. The field type is changed from NUMERIC to FREE TEXT,
;;to allow entry of Alpha characters into this field. This will
;;enable use of this field for support of clearing houses like ENVOY.
;;
;;(2) Modifies the PCC FILE CONVERSION DONE field in the RPMS SITE
;;file so that the field is uneditable.
;;
;;This patch is issued in support of the Third Party Billing
;;and PCC applications.
AUTP6PRE ; IHS/ASDST/GTH - AUT 98.1 PATCH 6 ENVIRON CHECK ; [ 09/21/2000 2:18 PM ]
+1 ;;98.1;IHS DICTIONARIES (POINTERS);**6**;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-5 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:5
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 ;
AUTP6MSG ;
+1 ;;AUT*98.1*6, Control Number in INSURER
+2 ;;Greetings. You are receiving this message because you are a
+3 ;;programmer or hold specific Third Party Billing 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 6, has been installed into this uci ---
HELLO ;;
+1 ;;AUT v 98.1, Patch 6, does the following:
+2 ;;
+3 ;;(1) Modifies the field definition of field CONTROL NUMBER in the
+4 ;;INSURER file. The field type is changed from NUMERIC to FREE TEXT,
+5 ;;to allow entry of Alpha characters into this field. This will
+6 ;;enable use of this field for support of clearing houses like ENVOY.
+7 ;;
+8 ;;(2) Modifies the PCC FILE CONVERSION DONE field in the RPMS SITE
+9 ;;file so that the field is uneditable.
+10 ;;
+11 ;;This patch is issued in support of the Third Party Billing
+12 ;;and PCC applications.
