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

VAQ2.m

Go to the documentation of this file.
  1. VAQ2 ;ALB/CMM,JRP - PDX PATCH 15 DRIVER ;01-FEB-95
  1. ;;1.5;PATIENT DATA EXCHANGE;**15**;NOV 17, 1993
  1. ;
  1. PATCH15 ;Entry point for patch 15 installation
  1. ; Refer to VAQ*1.5*15 in National Patch Module for further details
  1. ;Declare/initialize variables
  1. N DASHES,TMP,MDY,TIME,DIR,DUOUT,DTOUT,DIRUT
  1. N ABORT,X,Y,UPDATE82,UPDATE83
  1. S (ABORT,UPDATE82,UPDATE83)=0
  1. S DASHES=$$REPEAT^VAQUTL1("-",79)
  1. ;Print Header
  1. S TMP=$$NOW^VAQUTL99()
  1. S MDY=$TR($P(TMP,"@",1),"-","/")
  1. S TIME=$P(TMP,"@",2)
  1. S TMP=" "_MDY_" @ "_TIME
  1. S TMP=$$INSERT^VAQUTL1(TMP,DASHES,(79-$L(TMP)+1))
  1. W !!,$$INSERT^VAQUTL1("VAQ*1.5*15 ",TMP,1)
  1. S TMP="Details of this installation may be obtained from the National Patch Module"
  1. W !!,$$INSERT^VAQUTL1(TMP,"",(40-($L(TMP)\2)))
  1. S TMP="under the entry VAQ*1.5*15 (patch #15 for version 1.5 of PDX)"
  1. W !,$$INSERT^VAQUTL1(TMP,"",(40-($L(TMP)\2)))
  1. W !!,DASHES,!!
  1. ;Allow user to skip running of inits
  1. S DIR(0)="YA"
  1. S DIR("A")="Do you want to run the inits included with this patch ? "
  1. S DIR("B")="YES"
  1. S DIR("?",1)="This patch is accompanied by a set of inits (VAQ2INIT). Running the inits"
  1. S DIR("?",2)="will modify triggers on the Remote Facility field (#.01) of the VAQ - RELEASE"
  1. S DIR("?",3)="GROUP file (#394.82) and the Remote Facility field (#.01) of the Remote"
  1. S DIR("?",4)="Facility multiple (field #10) in the VAQ - OUTGOING GROUP file (#394.83)."
  1. S DIR("?",5)="These triggers did not correctly store the external value of a pointer in the"
  1. S DIR("?",6)="fields they update."
  1. S DIR("?",7)=" "
  1. S DIR("?",8)="You may skip the running of these inits if the inits included with patch"
  1. S DIR("?")="VAQ*1.5*12 (which was entered in error) were successfully run."
  1. D ^DIR K DIR
  1. I (($D(DTOUT))!($D(DUOUT))) S ABORT=1 G EXIT
  1. G:('Y) SKIP1
  1. W !!
  1. D ^VAQ2INIT
  1. SKIP1 ;Allow user to skip updating of file 394.82
  1. S DIR(0)="YA"
  1. S DIR("A")="Do you want to update the VAQ - RELEASE GROUP file ? "
  1. S DIR("B")="YES"
  1. S DIR("?",1)="Enter 'YES' if you want the values stored in the Remote Domain field (#.02)"
  1. S DIR("?",2)="of the VAQ - RELEASE GROUP file (#394.82) automatically re-entered. Doing"
  1. S DIR("?",3)="this will ensure that the pointer values contained in this field are stored"
  1. S DIR("?",4)="correctly."
  1. S DIR("?",5)=" "
  1. S DIR("?",6)="This step is not neccessary if the values were successfully re-entered"
  1. S DIR("?")="during the installation of patch VAQ*1.5*12 (which was entered in error)."
  1. W !!
  1. D ^DIR K DIR
  1. I (($D(DTOUT))!($D(DUOUT))) S ABORT=1 G EXIT
  1. G:('Y) SKIP2
  1. D FIX1^VAQ2A
  1. S UPDATE82=1
  1. SKIP2 ;Allow user to skip updating of file 394.83
  1. S DIR(0)="YA"
  1. S DIR("A")="Do you want to update the VAQ - OUTGOING GROUP file ? "
  1. S DIR("B")="YES"
  1. S DIR("?",1)="Enter 'YES' if you want the values stored in the Remote Domain field (#.02)"
  1. S DIR("?",2)="of the Remote Facility multiple (field #10) in the VAQ - OUTGOING GROUP file"
  1. S DIR("?",3)="(#394.83) automatically re-entered. Doing this will ensure that the pointer"
  1. S DIR("?",4)="values contained in this field are stored correctly."
  1. S DIR("?",5)=" "
  1. S DIR("?",6)="This step is not neccessary if the values were successfully re-entered"
  1. S DIR("?")="during the installation of patch VAQ*1.5*12 (which was entered in error)."
  1. W !!
  1. D ^DIR K DIR
  1. I (($D(DTOUT))!($D(DUOUT))) S ABORT=1 G EXIT
  1. G:('Y) EXIT
  1. D FIX2^VAQ2A
  1. S UPDATE83=1
  1. EXIT ;Print footer and quit
  1. W !!,DASHES
  1. S TMP="Installation of patch number 15 "_$S(ABORT:"aborted",1:"completed")
  1. W !!,$$INSERT^VAQUTL1(TMP,"",(40-($L(TMP)\2)))
  1. I ('UPDATE82) D
  1. .S TMP="Updating of VAQ - RELEASE GROUP file (#394.82) was not performed"
  1. .W !,$$INSERT^VAQUTL1(TMP,"",(40-($L(TMP)\2)))
  1. I ('UPDATE83) D
  1. .S TMP="Updating of VAQ - OUTGOING GROUP file (#394.83) was not performed"
  1. .W !,$$INSERT^VAQUTL1(TMP,"",(40-($L(TMP)\2)))
  1. S TMP=$$NOW^VAQUTL99()
  1. S MDY=$TR($P(TMP,"@",1),"-","/")
  1. S TIME=$P(TMP,"@",2)
  1. S TMP=" "_MDY_" @ "_TIME
  1. S TMP=$$INSERT^VAQUTL1(TMP,DASHES,(79-$L(TMP)+1))
  1. W !!,$$INSERT^VAQUTL1("VAQ*1.5*15 ",TMP,1)
  1. Q