- VAQ2 ;ALB/CMM,JRP - PDX PATCH 15 DRIVER ;01-FEB-95
- ;;1.5;PATIENT DATA EXCHANGE;**15**;NOV 17, 1993
- ;
- PATCH15 ;Entry point for patch 15 installation
- ; Refer to VAQ*1.5*15 in National Patch Module for further details
- ;Declare/initialize variables
- N DASHES,TMP,MDY,TIME,DIR,DUOUT,DTOUT,DIRUT
- N ABORT,X,Y,UPDATE82,UPDATE83
- S (ABORT,UPDATE82,UPDATE83)=0
- S DASHES=$$REPEAT^VAQUTL1("-",79)
- ;Print Header
- S TMP=$$NOW^VAQUTL99()
- S MDY=$TR($P(TMP,"@",1),"-","/")
- S TIME=$P(TMP,"@",2)
- S TMP=" "_MDY_" @ "_TIME
- S TMP=$$INSERT^VAQUTL1(TMP,DASHES,(79-$L(TMP)+1))
- W !!,$$INSERT^VAQUTL1("VAQ*1.5*15 ",TMP,1)
- S TMP="Details of this installation may be obtained from the National Patch Module"
- W !!,$$INSERT^VAQUTL1(TMP,"",(40-($L(TMP)\2)))
- S TMP="under the entry VAQ*1.5*15 (patch #15 for version 1.5 of PDX)"
- W !,$$INSERT^VAQUTL1(TMP,"",(40-($L(TMP)\2)))
- W !!,DASHES,!!
- ;Allow user to skip running of inits
- S DIR(0)="YA"
- S DIR("A")="Do you want to run the inits included with this patch ? "
- S DIR("B")="YES"
- S DIR("?",1)="This patch is accompanied by a set of inits (VAQ2INIT). Running the inits"
- S DIR("?",2)="will modify triggers on the Remote Facility field (#.01) of the VAQ - RELEASE"
- S DIR("?",3)="GROUP file (#394.82) and the Remote Facility field (#.01) of the Remote"
- S DIR("?",4)="Facility multiple (field #10) in the VAQ - OUTGOING GROUP file (#394.83)."
- S DIR("?",5)="These triggers did not correctly store the external value of a pointer in the"
- S DIR("?",6)="fields they update."
- S DIR("?",7)=" "
- S DIR("?",8)="You may skip the running of these inits if the inits included with patch"
- S DIR("?")="VAQ*1.5*12 (which was entered in error) were successfully run."
- D ^DIR K DIR
- I (($D(DTOUT))!($D(DUOUT))) S ABORT=1 G EXIT
- G:('Y) SKIP1
- W !!
- D ^VAQ2INIT
- SKIP1 ;Allow user to skip updating of file 394.82
- S DIR(0)="YA"
- S DIR("A")="Do you want to update the VAQ - RELEASE GROUP file ? "
- S DIR("B")="YES"
- S DIR("?",1)="Enter 'YES' if you want the values stored in the Remote Domain field (#.02)"
- S DIR("?",2)="of the VAQ - RELEASE GROUP file (#394.82) automatically re-entered. Doing"
- S DIR("?",3)="this will ensure that the pointer values contained in this field are stored"
- S DIR("?",4)="correctly."
- S DIR("?",5)=" "
- S DIR("?",6)="This step is not neccessary if the values were successfully re-entered"
- S DIR("?")="during the installation of patch VAQ*1.5*12 (which was entered in error)."
- W !!
- D ^DIR K DIR
- I (($D(DTOUT))!($D(DUOUT))) S ABORT=1 G EXIT
- G:('Y) SKIP2
- D FIX1^VAQ2A
- S UPDATE82=1
- SKIP2 ;Allow user to skip updating of file 394.83
- S DIR(0)="YA"
- S DIR("A")="Do you want to update the VAQ - OUTGOING GROUP file ? "
- S DIR("B")="YES"
- S DIR("?",1)="Enter 'YES' if you want the values stored in the Remote Domain field (#.02)"
- S DIR("?",2)="of the Remote Facility multiple (field #10) in the VAQ - OUTGOING GROUP file"
- S DIR("?",3)="(#394.83) automatically re-entered. Doing this will ensure that the pointer"
- S DIR("?",4)="values contained in this field are stored correctly."
- S DIR("?",5)=" "
- S DIR("?",6)="This step is not neccessary if the values were successfully re-entered"
- S DIR("?")="during the installation of patch VAQ*1.5*12 (which was entered in error)."
- W !!
- D ^DIR K DIR
- I (($D(DTOUT))!($D(DUOUT))) S ABORT=1 G EXIT
- G:('Y) EXIT
- D FIX2^VAQ2A
- S UPDATE83=1
- EXIT ;Print footer and quit
- W !!,DASHES
- S TMP="Installation of patch number 15 "_$S(ABORT:"aborted",1:"completed")
- W !!,$$INSERT^VAQUTL1(TMP,"",(40-($L(TMP)\2)))
- I ('UPDATE82) D
- .S TMP="Updating of VAQ - RELEASE GROUP file (#394.82) was not performed"
- .W !,$$INSERT^VAQUTL1(TMP,"",(40-($L(TMP)\2)))
- I ('UPDATE83) D
- .S TMP="Updating of VAQ - OUTGOING GROUP file (#394.83) was not performed"
- .W !,$$INSERT^VAQUTL1(TMP,"",(40-($L(TMP)\2)))
- S TMP=$$NOW^VAQUTL99()
- S MDY=$TR($P(TMP,"@",1),"-","/")
- S TIME=$P(TMP,"@",2)
- S TMP=" "_MDY_" @ "_TIME
- S TMP=$$INSERT^VAQUTL1(TMP,DASHES,(79-$L(TMP)+1))
- W !!,$$INSERT^VAQUTL1("VAQ*1.5*15 ",TMP,1)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAQ2 4085 printed Feb 18, 2025@23:50:19 Page 2
- VAQ2 ;ALB/CMM,JRP - PDX PATCH 15 DRIVER ;01-FEB-95
- +1 ;;1.5;PATIENT DATA EXCHANGE;**15**;NOV 17, 1993
- +2 ;
- PATCH15 ;Entry point for patch 15 installation
- +1 ; Refer to VAQ*1.5*15 in National Patch Module for further details
- +2 ;Declare/initialize variables
- +3 NEW DASHES,TMP,MDY,TIME,DIR,DUOUT,DTOUT,DIRUT
- +4 NEW ABORT,X,Y,UPDATE82,UPDATE83
- +5 SET (ABORT,UPDATE82,UPDATE83)=0
- +6 SET DASHES=$$REPEAT^VAQUTL1("-",79)
- +7 ;Print Header
- +8 SET TMP=$$NOW^VAQUTL99()
- +9 SET MDY=$TRANSLATE($PIECE(TMP,"@",1),"-","/")
- +10 SET TIME=$PIECE(TMP,"@",2)
- +11 SET TMP=" "_MDY_" @ "_TIME
- +12 SET TMP=$$INSERT^VAQUTL1(TMP,DASHES,(79-$LENGTH(TMP)+1))
- +13 WRITE !!,$$INSERT^VAQUTL1("VAQ*1.5*15 ",TMP,1)
- +14 SET TMP="Details of this installation may be obtained from the National Patch Module"
- +15 WRITE !!,$$INSERT^VAQUTL1(TMP,"",(40-($LENGTH(TMP)\2)))
- +16 SET TMP="under the entry VAQ*1.5*15 (patch #15 for version 1.5 of PDX)"
- +17 WRITE !,$$INSERT^VAQUTL1(TMP,"",(40-($LENGTH(TMP)\2)))
- +18 WRITE !!,DASHES,!!
- +19 ;Allow user to skip running of inits
- +20 SET DIR(0)="YA"
- +21 SET DIR("A")="Do you want to run the inits included with this patch ? "
- +22 SET DIR("B")="YES"
- +23 SET DIR("?",1)="This patch is accompanied by a set of inits (VAQ2INIT). Running the inits"
- +24 SET DIR("?",2)="will modify triggers on the Remote Facility field (#.01) of the VAQ - RELEASE"
- +25 SET DIR("?",3)="GROUP file (#394.82) and the Remote Facility field (#.01) of the Remote"
- +26 SET DIR("?",4)="Facility multiple (field #10) in the VAQ - OUTGOING GROUP file (#394.83)."
- +27 SET DIR("?",5)="These triggers did not correctly store the external value of a pointer in the"
- +28 SET DIR("?",6)="fields they update."
- +29 SET DIR("?",7)=" "
- +30 SET DIR("?",8)="You may skip the running of these inits if the inits included with patch"
- +31 SET DIR("?")="VAQ*1.5*12 (which was entered in error) were successfully run."
- +32 DO ^DIR
- KILL DIR
- +33 IF (($DATA(DTOUT))!($DATA(DUOUT)))
- SET ABORT=1
- GOTO EXIT
- +34 if ('Y)
- GOTO SKIP1
- +35 WRITE !!
- +36 DO ^VAQ2INIT
- SKIP1 ;Allow user to skip updating of file 394.82
- +1 SET DIR(0)="YA"
- +2 SET DIR("A")="Do you want to update the VAQ - RELEASE GROUP file ? "
- +3 SET DIR("B")="YES"
- +4 SET DIR("?",1)="Enter 'YES' if you want the values stored in the Remote Domain field (#.02)"
- +5 SET DIR("?",2)="of the VAQ - RELEASE GROUP file (#394.82) automatically re-entered. Doing"
- +6 SET DIR("?",3)="this will ensure that the pointer values contained in this field are stored"
- +7 SET DIR("?",4)="correctly."
- +8 SET DIR("?",5)=" "
- +9 SET DIR("?",6)="This step is not neccessary if the values were successfully re-entered"
- +10 SET DIR("?")="during the installation of patch VAQ*1.5*12 (which was entered in error)."
- +11 WRITE !!
- +12 DO ^DIR
- KILL DIR
- +13 IF (($DATA(DTOUT))!($DATA(DUOUT)))
- SET ABORT=1
- GOTO EXIT
- +14 if ('Y)
- GOTO SKIP2
- +15 DO FIX1^VAQ2A
- +16 SET UPDATE82=1
- SKIP2 ;Allow user to skip updating of file 394.83
- +1 SET DIR(0)="YA"
- +2 SET DIR("A")="Do you want to update the VAQ - OUTGOING GROUP file ? "
- +3 SET DIR("B")="YES"
- +4 SET DIR("?",1)="Enter 'YES' if you want the values stored in the Remote Domain field (#.02)"
- +5 SET DIR("?",2)="of the Remote Facility multiple (field #10) in the VAQ - OUTGOING GROUP file"
- +6 SET DIR("?",3)="(#394.83) automatically re-entered. Doing this will ensure that the pointer"
- +7 SET DIR("?",4)="values contained in this field are stored correctly."
- +8 SET DIR("?",5)=" "
- +9 SET DIR("?",6)="This step is not neccessary if the values were successfully re-entered"
- +10 SET DIR("?")="during the installation of patch VAQ*1.5*12 (which was entered in error)."
- +11 WRITE !!
- +12 DO ^DIR
- KILL DIR
- +13 IF (($DATA(DTOUT))!($DATA(DUOUT)))
- SET ABORT=1
- GOTO EXIT
- +14 if ('Y)
- GOTO EXIT
- +15 DO FIX2^VAQ2A
- +16 SET UPDATE83=1
- EXIT ;Print footer and quit
- +1 WRITE !!,DASHES
- +2 SET TMP="Installation of patch number 15 "_$SELECT(ABORT:"aborted",1:"completed")
- +3 WRITE !!,$$INSERT^VAQUTL1(TMP,"",(40-($LENGTH(TMP)\2)))
- +4 IF ('UPDATE82)
- Begin DoDot:1
- +5 SET TMP="Updating of VAQ - RELEASE GROUP file (#394.82) was not performed"
- +6 WRITE !,$$INSERT^VAQUTL1(TMP,"",(40-($LENGTH(TMP)\2)))
- End DoDot:1
- +7 IF ('UPDATE83)
- Begin DoDot:1
- +8 SET TMP="Updating of VAQ - OUTGOING GROUP file (#394.83) was not performed"
- +9 WRITE !,$$INSERT^VAQUTL1(TMP,"",(40-($LENGTH(TMP)\2)))
- End DoDot:1
- +10 SET TMP=$$NOW^VAQUTL99()
- +11 SET MDY=$TRANSLATE($PIECE(TMP,"@",1),"-","/")
- +12 SET TIME=$PIECE(TMP,"@",2)
- +13 SET TMP=" "_MDY_" @ "_TIME
- +14 SET TMP=$$INSERT^VAQUTL1(TMP,DASHES,(79-$LENGTH(TMP)+1))
- +15 WRITE !!,$$INSERT^VAQUTL1("VAQ*1.5*15 ",TMP,1)
- +16 QUIT