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

DVBA163P.m

Go to the documentation of this file. 
  1. DVBA163P ;ALB/KCL,RLC,ECF - PATCH DVBA*2.7*163 INSTALL UTILITIES ; 2/15/2011
  1.  ;;2.7;AMIE;**163**;Apr 10, 1995;Build 5
  1.  ;
  1.  ;No direct entry allowed
  1.  Q
  1.  ;
  1. PRE ;Main entry point for Pre-install items
  1.  ;
  1.  D BMES^XPDUTL("***** PRE-INSTALL PROCESSING *****")
  1.  D DEACT ;de-activate older versions of CAPRI templates
  1.  ;
  1.  Q
  1.  ;
  1. POST ;Main entry point for Post-install items
  1.  ;
  1.  D BMES^XPDUTL("***** POST-INSTALL PROCESSING *****")
  1.  D ACTIVATE ;activate CAPRI templates that were loaded by the patch
  1.  D AMIE     ;updates for the AMIE EXAM (#396.6) file
  1.  ;
  1.  Q
  1.  ;
  1. DEACT ;De-activate older versions of CAPRI templates
  1.  ;
  1.  ;Used to disable older versions of a template for those templates being
  1.  ;exported with the patch.
  1.  ; - Make sure to call the DISABLE procedure for each template name
  1.  ;   being exported in the patch.
  1.  ; - This must be called as a pre-init or else it will disable the
  1.  ;   templates that are being loaded by the patch.
  1.  ;
  1.  N DVBVERSS,DVBVERSN,DVBACTR
  1.  ;
  1.  ;what the template version will be in the incoming patch
  1.  ;(version pulled from export account)
  1.  S DVBVERSS="163F"
  1.  ;
  1.  ;what the final template version should be once the template is 
  1.  ;loaded by the patch on the target system
  1.  S DVBVERSN="163"
  1.  S DVBACTR=0
  1.  ;
  1.  D BMES^XPDUTL(" Disabling CAPRI templates...")
  1.  D MES^XPDUTL(" ")
  1.  ;
  1.  D DISABLE("DBQ KIDNEY CONDITIONS (NEPHROLOGY)")
  1.  D DISABLE("DBQ HEMATOLOGIC AND LYMPHATIC CONDITIONS, INCLUDING LEUKEMIA")
  1.  D DISABLE("DBQ MALE REPRODUCTIVE SYSTEM CONDITIONS")
  1.  D DISABLE("DBQ PROSTATE CANCER")
  1.  ;
  1.  D BMES^XPDUTL("  Number of CAPRI templates disabled:  "_DVBACTR)
  1.  Q
  1.  ;
  1.  ;
  1. ACTIVATE ;Activate CAPRI templates that were loaded by the patch
  1.  ;
  1.  ;Used to activate/rename templates that were loaded by the patch.
  1.  ; - Make sure to call RENAME procedure for each template name
  1.  ;   being loaded by the patch.
  1.  ; - Must be called as a post-init in order to rename those
  1.  ;   templates being loaded by the patch.
  1.  ;
  1.  N DVBVERSS,DVBVERSN,DVBACTR
  1.  ;
  1.  ;what the template version will be in the incoming patch
  1.  ;(version pulled from export account)
  1.  S DVBVERSS="163F"
  1.  ;
  1.  ;what the final template version should be once the template is 
  1.  ;loaded by the patch on the target system
  1.  S DVBVERSN="163"
  1.  S DVBACTR=0
  1.  ;
  1.  D BMES^XPDUTL(" Activating CAPRI templates...")
  1.  D MES^XPDUTL(" ")
  1.  ;
  1.  D RENAME("DBQ KIDNEY CONDITIONS (NEPHROLOGY)")
  1.  D RENAME("DBQ HEMATOLOGIC AND LYMPHATIC CONDITIONS, INCLUDING LEUKEMIA")
  1.  D RENAME("DBQ MALE REPRODUCTIVE SYSTEM CONDITIONS")
  1.  D RENAME("DBQ PROSTATE CANCER")
  1.  ;
  1.  D BMES^XPDUTL("  Number of CAPRI templates activated:  "_DVBACTR)
  1.  Q
  1.  ;
  1.  ;
  1. DISABLE(NM) ;Disable matching CAPRI template entries
  1.  ;
  1.  ;This procedure will find each entry in the CAPRI TEMPLATE DEFINITIONS
  1.  ;(#396.18) file that matches the name (NM) of the template being exported.
  1.  ;Once a matching entry is found, it will be disabled if the version
  1.  ;suffix (i.e. ~163) does not match the version suffix that will be used
  1.  ;for templates loaded by the patch on the target system (i.e. ~163).
  1.  ;
  1.  ;An entry will be disabled by doing the following:
  1.  ; - Turning off the SELECTABLE BY USER? field. This will keep the entry
  1.  ;   from showing in the CAPRI GUI template list.
  1.  ; - Looking at DE-ACTIVATION DATE field. If there's no date, set it to today.
  1.  ;
  1.  N DVBABIEN ;ien of CAPRI TEMPLATE DEFINITIONS file
  1.  N DVBABST  ;template NAME field (i.e. DBQ PARKINSONS~163)
  1.  N DVBACH   ;flag used to indicate template was disabled
  1.  N DVBAFDA  ;FDA array for FILE^DIE
  1.  N DVBAERR  ;error array for FILE^DIE
  1.  N DVBAMSG1 ;used to write msg to installer/Install file entry
  1.  ;
  1.  S DVBABIEN=0
  1.  ;
  1.  ;walk through CAPRI TEMPLATE DEFINITIONS file entries
  1.  F  S DVBABIEN=$O(^DVB(396.18,DVBABIEN)) Q:'DVBABIEN  D
  1.  .S DVBABST=$P($G(^DVB(396.18,DVBABIEN,0)),"^",1) ;template name
  1.  .;if name matches and version is different, then disable entry
  1.  .I $P(DVBABST,"~",1)=NM  I $P(DVBABST,"~",2)'=DVBVERSN  D
  1.  ..S DVBACH=0
  1.  ..;turn SELECTABLE BY USER (#7) field off
  1.  ..I $P($G(^DVB(396.18,DVBABIEN,6)),"^",1)'="0" S DVBAFDA(396.18,DVBABIEN_",",7)="0",DVBACH=1
  1.  ..;set DE-ACTIVATION DATE (#3) field to TODAY
  1.  ..I $P($G(^DVB(396.18,DVBABIEN,2)),"^",2)="" S DVBAFDA(396.18,DVBABIEN_",",3)=DT,DVBACH=1
  1.  ..;output list of disabled templates
  1.  ..I DVBACH=1 D
  1.  ...S DVBACTR=DVBACTR+1
  1.  ...D FILE^DIE("","DVBAFDA","DVBAERR")
  1.  ...D MES^XPDUTL("   Disabling: "_DVBABST)
  1.  ...I $D(DVBAERR) D
  1.  ....D MSG^DIALOG("AE",.DVBAMSG1,"","","DVBAERR")
  1.  ....D MES^XPDUTL(.DVBAMSG1)
  1.  ;
  1.  K DVBABIEN,DVBABST,DVBACH
  1.  Q
  1.  ;
  1.  ;
  1. RENAME(NM) ;Rename CAPRI templates loaded by the patch
  1.  ;
  1.  ;This procedure is used to lookup and rename a template in the
  1.  ;CAPRI TEMPLATE DEFINITIONS (#396.18) file. This is done to rename
  1.  ;the imported version of a template (i.e. DBQ PARKINSONS~163F) to its
  1.  ;new name/version (i.e. DBQ PARKINSONS~163).
  1.  ;
  1.  N DVBABIEN,DVBABIE2 ;ien of CAPRI TEMPLATE DEFINITIONS file
  1.  N DVBABST  ;template NAME field (i.e. AUDIO~163F)
  1.  N DVBABS2  ;template NAME field (i.e. AUDIO~163)
  1.  N DVBACH   ;flag to indicate if template version is found or not
  1.  N DVBAFDA  ;FDA array for FILE^DIE
  1.  N DVBAERR  ;error array for FILE^DIE
  1.  N DVBAMSG,DVBAMSG1  ;used to write msg to installer/Install file entry
  1.  N DVBAADT  ;template activation date
  1.  ;
  1.  S DVBABIEN=0
  1.  ;
  1.  ;main loop-walk through CAPRI TEMPLATE DEFINITIONS file entries
  1.  F  S DVBABIEN=$O(^DVB(396.18,DVBABIEN)) Q:'DVBABIEN  D
  1.  .S DVBABST=$P($G(^DVB(396.18,DVBABIEN,0)),"^",1) ;template name
  1.  .;look for template versions just loaded by the patch (~163F)
  1.  .I $P(DVBABST,"~",1)=NM  I $P(DVBABST,"~",2)=DVBVERSS  D
  1.  ..S DVBABIE2=0,DVBACH=0
  1.  ..;secondary loop-walk through CAPRI TEMPLATE DEFINITIONS file entries
  1.  ..F  S DVBABIE2=$O(^DVB(396.18,DVBABIE2)) Q:'DVBABIE2  D
  1.  ...S DVBABS2=$P($G(^DVB(396.18,DVBABIE2,0)),"^",1) ;template name
  1.  ...;if new version of template already exists in file, set flag
  1.  ...I $P(DVBABS2,"~",1)=NM  I $P(DVBABS2,"~",2)=DVBVERSN  S DVBACH=1
  1.  ..;if new version already exists, delete the imported version (abort rename)
  1.  ..I DVBACH=1  D
  1.  ...S DVBAMSG="   Found existing "_NM_".  No modifications made."
  1.  ...S DVBAFDA(396.18,DVBABIEN_",",.01)="@"
  1.  ...D FILE^DIE("","DVBAFDA","DVBAERR")
  1.  ..;otherwise, if new version isn't found, rename imported template
  1.  ..;name to the new version name (i.e. DBQ PARKINSONS~163F --> DBQ PARKINSONS~163)
  1.  ..I DVBACH=0  D
  1.  ...S DVBAADT=$P($G(^DVB(396.18,DVBABIEN,2)),"^")
  1.  ...S DVBACTR=DVBACTR+1
  1.  ...S DVBAFDA(396.18,DVBABIEN_",",.01)=NM_"~"_DVBVERSN
  1.  ...I DVBAADT=""!(DVBAADT<DT) S DVBAFDA(396.18,DVBABIEN_",",2)=DT
  1.  ...D FILE^DIE("","DVBAFDA","DVBAERR")
  1.  ...S DVBAMSG="   Activating: "_$P($G(^DVB(396.18,DVBABIEN,0)),"^",1)
  1.  ..D MES^XPDUTL(DVBAMSG)
  1.  ..I $D(DVBAERR) D
  1.  ...D MSG^DIALOG("AE",.DVBAMSG1,"","","DVBAERR")
  1.  ...D MES^XPDUTL(.DVBAMSG1)
  1.  ;
  1.  K DVBABIEN,DVBABST,DVBACH
  1.  Q
  1.  ;
  1. AMIE ;Updates for the AMIE EXAM (#396.6) file
  1.  ;
  1.  ;Used to inactivate old entries and create new entries for designated
  1.  ;worksheet updates
  1.  ;
  1.  D BMES^XPDUTL(" Update to AMIE EXAM (#396.6) file...")
  1.  D MES^XPDUTL("  ")
  1.  I '$D(^DVB(396.6)) D BMES^XPDUTL("Missing AMIE EXAM (#396.6) file") Q
  1.  I $D(^DVB(396.6)) D
  1.  .D INACT
  1.  .D NEW
  1.  Q
  1.  ;
  1.  ;
  1. INACT ;Inactivate old (current) exams
  1.  ;
  1.  N LINE,IEN,EXM,PNM,BDY,ROU,STAT,WKS,DIE,DR,DA,X,Y,DVBAI
  1.  ;
  1.  D BMES^XPDUTL(" Inactivating AMIE EXAM (#396.6) file entries...")
  1.  F DVBAI=1:1 S LINE=$P($T(TXTOLD+DVBAI),";;",2) Q:LINE="QUIT"  D
  1.  .D GET K X,Y,DA
  1.  .I $P($G(^DVB(396.6,IEN,0)),"^",1)'=EXM D  Q
  1.  ..D BMES^XPDUTL("   *** Warning - Entry #"_IEN)
  1.  ..D MES^XPDUTL("                for exam "_EXM)
  1.  ..D MES^XPDUTL("                could not be inactivated.")
  1.  .S DIE="^DVB(396.6,",DA=IEN,DR=".5///I" D ^DIE
  1.  .D BMES^XPDUTL("   Entry #"_IEN_" for exam "_EXM)
  1.  .D MES^XPDUTL("      successfully inactivated.")
  1.  D MES^XPDUTL("  ")
  1.  Q
  1.  ;
  1.  ;
  1. NEW ;Add new exam entries
  1.  ;
  1.  N LINE,IEN,EXM,PNM,BDY,ROU,STAT,WKS,DIC,DIC,DR,DA,X,Y,DINUM,DVBAI
  1.  ;
  1.  D BMES^XPDUTL(" Adding new AMIE EXAM (#396.6) file entries...")
  1.  F DVBAI=1:1 S LINE=$P($T(TXTNEW+DVBAI),";;",2) Q:LINE="QUIT"  D
  1.  .D GET K X,Y,DA
  1.  .D BMES^XPDUTL("  Attempting to add Entry #"_IEN_"...")
  1.  .I $D(^DVB(396.6,IEN,0)) D  Q
  1.  ..D MES^XPDUTL("   You have an Entry #"_IEN_".")
  1.  ..D MES^XPDUTL("   Updating "_EXM_".")
  1.  ..S DIE="^DVB(396.6,",DA=IEN,DR=".01///"_EXM_";.5///"_STAT_";2///"_BDY_";6///"_PNM_";7///"_ROU
  1.  ..D ^DIE
  1.  .S DIC="^DVB(396.6,",DIC(0)="LZ",X=EXM,DINUM=IEN
  1.  .S DIC("DR")=".5///"_STAT_";2///"_BDY_";6///"_PNM_";7///"_ROU
  1.  .K DD,DO D FILE^DICN
  1.  .I +Y=IEN D  Q
  1.  ..D MES^XPDUTL("   Successfully added Entry #"_IEN)
  1.  ..D MES^XPDUTL("   for exam "_EXM_".")
  1.  .I +Y=-1 D
  1.  ..D MES^XPDUTL("   *** Warning - Unable to add Entry #"_IEN)
  1.  ..D MES^XPDUTL("                for exam "_EXM_".")
  1.  Q
  1.  ;
  1.  ;
  1. GET ;Get exam data
  1.  ;
  1.  S (IEN,EXM,PNM,BDY,ROU,STAT,WKS)=""
  1.  S IEN=$P(LINE,";",1)  ;ien
  1.  S EXM=$P(LINE,";",2)  ;exam name
  1.  S PNM=$P(LINE,";",3)  ;print name
  1.  S BDY=$P(LINE,";",4)  ;body system
  1.  S ROU=$P(LINE,";",5)  ;routine name
  1.  S STAT=$P(LINE,";",6) ;status
  1.  S WKS=$P(LINE,";",8)  ;worksheet number
  1.  Q
  1.  ;
  1.  ; Entries to be inactivated
  1.  ; format:  ien;exam name;;;routine;status;;wks#
  1. TXTOLD ;
  1.  ;;304;DBQ HEMIC AND LYMPHATIC CONDITIONS INCLUDING LEUKEMIA;DBQ HEMIC AND LYMPHATIC;22;DVBCQHA1;I; ; ;
  1.  ;;308;DBQ PROSTATE CANCER;DBQ PROSTATE CANCER;8;DVBCQPC1;I; ; ; 
  1.  ;;QUIT
  1.  ;
  1.  ; New exam(s) to activate
  1.  ; format:  ien;exam name;print name;body system;routine;status;;wks#
  1.  ; Max length of NAME (#.01) is 60, PRINT NAME (#6)is 25
  1. TXTNEW ;
  1.  ;;316;DBQ KIDNEY CONDITIONS (NEPHROLOGY);DBQ KIDNEY CONDITIONS;8;DVBCQKC1;A; ; ;
  1.  ;;317;DBQ MALE REPRODUCTIVE SYSTEM CONDITIONS;DBQ MALE REPRO SYSTEM;8;DVBCQMR1;A; ; ;
  1.  ;;323;DBQ PROSTATE CANCER;DBQ PROSTATE CANCER;8;DVBCQPC3;A; ; ;
  1.  ;;324;DBQ HEMIC AND LYMPHATIC CONDITIONS INCLUDING LEUKEMIA;DBQ HEMIC AND LYMPHATIC;22;DVBCQHA3;A; ; ;
  1.  ;;QUIT
  1.  Q