source: WorldVistAEHR/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQ2.m@ 1766

Last change on this file since 1766 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.9 KB
Line 
1VAQ2 ;ALB/CMM,JRP - PDX PATCH 15 DRIVER ;01-FEB-95
2 ;;1.5;PATIENT DATA EXCHANGE;**15**;NOV 17, 1993
3 ;
4PATCH15 ;Entry point for patch 15 installation
5 ; Refer to VAQ*1.5*15 in National Patch Module for further details
6 ;Declare/initialize variables
7 N DASHES,TMP,MDY,TIME,DIR,DUOUT,DTOUT,DIRUT
8 N ABORT,X,Y,UPDATE82,UPDATE83
9 S (ABORT,UPDATE82,UPDATE83)=0
10 S DASHES=$$REPEAT^VAQUTL1("-",79)
11 ;Print Header
12 S TMP=$$NOW^VAQUTL99()
13 S MDY=$TR($P(TMP,"@",1),"-","/")
14 S TIME=$P(TMP,"@",2)
15 S TMP=" "_MDY_" @ "_TIME
16 S TMP=$$INSERT^VAQUTL1(TMP,DASHES,(79-$L(TMP)+1))
17 W !!,$$INSERT^VAQUTL1("VAQ*1.5*15 ",TMP,1)
18 S TMP="Details of this installation may be obtained from the National Patch Module"
19 W !!,$$INSERT^VAQUTL1(TMP,"",(40-($L(TMP)\2)))
20 S TMP="under the entry VAQ*1.5*15 (patch #15 for version 1.5 of PDX)"
21 W !,$$INSERT^VAQUTL1(TMP,"",(40-($L(TMP)\2)))
22 W !!,DASHES,!!
23 ;Allow user to skip running of inits
24 S DIR(0)="YA"
25 S DIR("A")="Do you want to run the inits included with this patch ? "
26 S DIR("B")="YES"
27 S DIR("?",1)="This patch is accompanied by a set of inits (VAQ2INIT). Running the inits"
28 S DIR("?",2)="will modify triggers on the Remote Facility field (#.01) of the VAQ - RELEASE"
29 S DIR("?",3)="GROUP file (#394.82) and the Remote Facility field (#.01) of the Remote"
30 S DIR("?",4)="Facility multiple (field #10) in the VAQ - OUTGOING GROUP file (#394.83)."
31 S DIR("?",5)="These triggers did not correctly store the external value of a pointer in the"
32 S DIR("?",6)="fields they update."
33 S DIR("?",7)=" "
34 S DIR("?",8)="You may skip the running of these inits if the inits included with patch"
35 S DIR("?")="VAQ*1.5*12 (which was entered in error) were successfully run."
36 D ^DIR K DIR
37 I (($D(DTOUT))!($D(DUOUT))) S ABORT=1 G EXIT
38 G:('Y) SKIP1
39 W !!
40 D ^VAQ2INIT
41SKIP1 ;Allow user to skip updating of file 394.82
42 S DIR(0)="YA"
43 S DIR("A")="Do you want to update the VAQ - RELEASE GROUP file ? "
44 S DIR("B")="YES"
45 S DIR("?",1)="Enter 'YES' if you want the values stored in the Remote Domain field (#.02)"
46 S DIR("?",2)="of the VAQ - RELEASE GROUP file (#394.82) automatically re-entered. Doing"
47 S DIR("?",3)="this will ensure that the pointer values contained in this field are stored"
48 S DIR("?",4)="correctly."
49 S DIR("?",5)=" "
50 S DIR("?",6)="This step is not neccessary if the values were successfully re-entered"
51 S DIR("?")="during the installation of patch VAQ*1.5*12 (which was entered in error)."
52 W !!
53 D ^DIR K DIR
54 I (($D(DTOUT))!($D(DUOUT))) S ABORT=1 G EXIT
55 G:('Y) SKIP2
56 D FIX1^VAQ2A
57 S UPDATE82=1
58SKIP2 ;Allow user to skip updating of file 394.83
59 S DIR(0)="YA"
60 S DIR("A")="Do you want to update the VAQ - OUTGOING GROUP file ? "
61 S DIR("B")="YES"
62 S DIR("?",1)="Enter 'YES' if you want the values stored in the Remote Domain field (#.02)"
63 S DIR("?",2)="of the Remote Facility multiple (field #10) in the VAQ - OUTGOING GROUP file"
64 S DIR("?",3)="(#394.83) automatically re-entered. Doing this will ensure that the pointer"
65 S DIR("?",4)="values contained in this field are stored correctly."
66 S DIR("?",5)=" "
67 S DIR("?",6)="This step is not neccessary if the values were successfully re-entered"
68 S DIR("?")="during the installation of patch VAQ*1.5*12 (which was entered in error)."
69 W !!
70 D ^DIR K DIR
71 I (($D(DTOUT))!($D(DUOUT))) S ABORT=1 G EXIT
72 G:('Y) EXIT
73 D FIX2^VAQ2A
74 S UPDATE83=1
75EXIT ;Print footer and quit
76 W !!,DASHES
77 S TMP="Installation of patch number 15 "_$S(ABORT:"aborted",1:"completed")
78 W !!,$$INSERT^VAQUTL1(TMP,"",(40-($L(TMP)\2)))
79 I ('UPDATE82) D
80 .S TMP="Updating of VAQ - RELEASE GROUP file (#394.82) was not performed"
81 .W !,$$INSERT^VAQUTL1(TMP,"",(40-($L(TMP)\2)))
82 I ('UPDATE83) D
83 .S TMP="Updating of VAQ - OUTGOING GROUP file (#394.83) was not performed"
84 .W !,$$INSERT^VAQUTL1(TMP,"",(40-($L(TMP)\2)))
85 S TMP=$$NOW^VAQUTL99()
86 S MDY=$TR($P(TMP,"@",1),"-","/")
87 S TIME=$P(TMP,"@",2)
88 S TMP=" "_MDY_" @ "_TIME
89 S TMP=$$INSERT^VAQUTL1(TMP,DASHES,(79-$L(TMP)+1))
90 W !!,$$INSERT^VAQUTL1("VAQ*1.5*15 ",TMP,1)
91 Q
Note: See TracBrowser for help on using the repository browser.