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

vivianPostInstall.m

Go to the documentation of this file.
  1. vivianPostInstall ; Vivian VistA Post Install;2018-03-16 11:07 AM
  1. W "Deleting source code for DSI*",!
  1. N R,STOP S (R,STOP)="DSI"
  1. N %
  1. F S R=$O(^$ROUTINE(R)) Q:R="" Q:$E(R,1,3)'=STOP S %=##class(%Routine).Delete(R,2)
  1. ;
  1. W "Deleting source code for VEJD*",!
  1. N R,STOP S (R,STOP)="VEJD"
  1. N %
  1. F S R=$O(^$ROUTINE(R)) Q:R="" Q:$E(R,1,3)'=STOP S %=##class(%Routine).Delete(R,2)
  1. ;
  1. W "Deleting source code for VEN*",!
  1. N R,STOP S (R,STOP)="VEN"
  1. N %
  1. F S R=$O(^$ROUTINE(R)) Q:R="" Q:$E(R,1,3)'=STOP S %=##class(%Routine).Delete(R,2)
  1. ;
  1. W "Deleting source code for DSS*",!
  1. N R,STOP S (R,STOP)="DSS"
  1. N %
  1. F S R=$O(^$ROUTINE(R)) Q:R="" Q:$E(R,1,3)'=STOP S %=##class(%Routine).Delete(R,2)
  1. ;
  1. W "Deleting invalid fields...",!
  1. F I=0:0 S I=$O(^DD(I)) Q:'I F J=0:0 S J=$O(^DD(I,J)) Q:'J K:'$D(^DD(I,J,0)) ^DD(I,J)
  1. ;
  1. ; For Vivian
  1. ; Activate User One by giving him/her an access code: needed for KIDS installer
  1. W "Activate User One...",!
  1. S $P(^VA(200,1,0),"^",3)="USER.1"
  1. ;
  1. ; For Vivian
  1. ; Cleaning HL7 messages from VistA, which can contain non-ISO-8859 characters
  1. W "Clean HL7 messages from VistA...",!
  1. K ^HLMA,^HL(772)
  1. S ^HLMA(0)="HL7 MESSAGE ADMINISTRATION^773PI"
  1. S ^HL(772,0)="HL7 MESSAGE TEXT^772DI"
  1. ;
  1. ; Primary HFS Directory
  1. W "Fixing Primary HFS Directory...",!
  1. N KBANFDA,KBANERR
  1. N OS S OS=$$VERSION^%ZOSV(1)
  1. S KBANFDA(8989.3,1_",",320)=$S(OS["NT":^%SYS("TempDir"),1:"/tmp/")
  1. D FILE^DIE(,$NA(KBANFDA),$NA(KBANERR))
  1. I $D(KBANERR) S $EC=",U1," ; if error filing, crash
  1. ;
  1. QUIT