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

AUTP6PRE.m

Go to the documentation of this file. 
  1. 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
  1.  ;
  1.  I '$G(DUZ) W !,"DUZ UNDEFINED OR 0." D SORRY(1) Q
  1.  ;
  1.  I '$L($G(DUZ(0))) W !,"DUZ(0) UNDEFINED OR NULL." D SORRY(1) Q
  1.  ;
  1.  I '(DUZ(0)["@") W:'$D(ZTQUEUED) !,"DUZ(0) DOES NOT CONTAIN AN '@'." D SORRY(1) Q
  1.  ;
  1.  S X=$P(^VA(200,DUZ,0),U)
  1.  W !!,$$C^XBFUNC("Hello, "_$P(X,",",2)_" "_$P(X,",")),!
  1.  F %=1:1 S X=$P($T(HELLO+%),";",3) Q:X=""  W !?5,X
  1.  ;
  1.  W !!,$$C^XBFUNC("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_" Patch "_$P($T(+2),";",5)_".")
  1.  ;
  1.  S X=$$VERSION^XPDUTL("AUT")
  1.  W !!,$$C^XBFUNC("Need AUT v 98.1.....AUT v "_X_" Present")
  1.  I X<98.1 D SORRY(1) Q
  1.  ;
  1.  S X=$$VERSION^XPDUTL("DI")
  1.  W !,$$C^XBFUNC("Need at least FileMan 21.....FileMan "_X_" Present")
  1.  I X<21 D SORRY(1) Q
  1.  ;
  1.  S X=$$VERSION^XPDUTL("XU")
  1.  W !,$$C^XBFUNC("Need at least Kernel 8.....Kernel "_X_" Present")
  1.  I X<8 D SORRY(1) Q
  1.  ;
  1.  NEW DA,DIC
  1.  S X="AUT",DIC="^DIC(9.4,",DIC(0)="",D="C"
  1.  D IX^DIC
  1.  I Y<0,$D(^DIC(9.4,"C","AUT")) D  Q
  1.  . W !!,*7,*7,$$C^XBFUNC("You Have More Than One Entry In The"),!,$$C^XBFUNC("PACKAGE File with an ""AUT"" prefix.")
  1.  . W !,$$C^XBFUNC("One entry needs to be deleted.")
  1.  . W !,$$C^XBFUNC("FIX IT! Before Proceeding."),!!,*7,*7,*7
  1.  . D SORRY(1)
  1.  . I $$DIR^XBDIR("E")
  1.  .Q
  1.  W !,$$C^XBFUNC("No 'AUT' dups in PACKAGE file")
  1.  ;
  1.  ; If patches 1-5 have already been installed, don't load them.
  1.  I $G(XPDENV)=0 D  ; Run only during Load of Installation.
  1.  . NEW DA
  1.  . S DA(1)=+Y ; Y is set from previous DIC lookup into PACKAGE.
  1.  . S DA=$O(^DIC(9.4,DA(1),22,"B",98.1,0))
  1.  . F %=1:1:5 I $D(^DIC(9.4,DA(1),22,DA,"PAH","B",%)) S XPDQUIT("AUT*98.1*"_%)=1
  1.  .Q
  1.  ;
  1.  ; The following line prevents the "Disable Options..." and "Move
  1.  ; Routines..." questions from being asked during the install.
  1.  I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
  1.  ;
  1.  W !!,$$C^XBFUNC("ENVIRONMENT OK.")
  1.  I '$$DIR^XBDIR("E","","","","","",1) D SORRY(1) Q
  1.  Q
  1.  ;
  1. SORRY(X) ;
  1.  KILL DIFQ
  1.  S XPDQUIT=X
  1.  F %=1:1:5 S XPDQUIT("AUT*98.1*"_%)=1
  1.  W:'$D(ZTQUEUED) *7,!,$$C^XBFUNC("Sorry...."),$$DIR^XBDIR("E","Press RETURN")
  1.  Q
  1.  ;
  1. AUTP6MSG ;
  1.  ;;AUT*98.1*6, Control Number in INSURER
  1.  ;;Greetings.  You are receiving this message because you are a
  1.  ;;programmer or hold specific Third Party Billing security keys.
  1.  ;;This is for your information, only.  You need not do anything
  1.  ;;in response to this message.
  1.  ;;  
  1.  ;;Questions can be directed to George T. Huggins, RPMS/DBA, at
  1.  ;;520-670-4871, or via IHS Mailman or Exchange.
  1.  ;;  
  1.  ;; --- AUT v 98.1, Patch 6, has been installed into this uci ---
  1. HELLO ;;  
  1.  ;;AUT v 98.1, Patch 6, does the following:
  1.  ;;  
  1.  ;;(1)  Modifies the field definition of field CONTROL NUMBER in the
  1.  ;;INSURER file.  The field type is changed from NUMERIC to FREE TEXT,
  1.  ;;to allow entry of Alpha characters into this field.  This will
  1.  ;;enable use of this field for support of clearing houses like ENVOY.
  1.  ;;  
  1.  ;;(2)  Modifies the PCC FILE CONVERSION DONE field in the RPMS SITE
  1.  ;;file so that the field is uneditable.
  1.  ;;  
  1.  ;;This patch is issued in support of the Third Party Billing
  1.  ;;and PCC applications.