source: FOIAVistA/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQ1.m@ 813

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

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1VAQ1 ;ALB/JRP - INIT/ONIT DRIVER FOR PATCH 7;08-AUG-94
2 ;;1.5;PATIENT DATA EXCHANGE;**7**;NOV 17, 1993
3PATCH7 ;ENTRY POINT FOR PATCH NUMBER 7
4 ; REFER TO VAQ*1.5*7 IN NATIONAL PATCH MODULE FOR FURTHER DETAILS
5 ;
6 ;DECLARE VARIABLES
7 N LINE2,PATCHES,PATCHED,TMP,ROUTINE,STOP,DASHES,DATE,TIME
8 S DASHES=$$REPEAT^VAQUTL1("-",79)
9 ;PRINT HEADER
10 S TMP=$$NOW^VAQUTL99()
11 S DATE=$TR($P(TMP,"@",1),"-","/")
12 S TIME=$P(TMP,"@",2)
13 S TMP=" "_DATE_" @ "_TIME
14 S TMP=$$INSERT^VAQUTL1(TMP,DASHES,(79-$L(TMP)+1))
15 W !!,$$INSERT^VAQUTL1("VAQ*1.5*7 ",TMP,1)
16 S TMP="Details of this installation may be obtained from the National Patch Module"
17 W !!,$$INSERT^VAQUTL1(TMP,"",(40-($L(TMP)\2)))
18 S TMP="under the entry VAQ*1.5*7 (patch # 7 for version 1.5 of PDX)."
19 W !,$$INSERT^VAQUTL1(TMP,"",(40-($L(TMP)\2)))
20 W !!,DASHES,!!
21 S STOP=0
22 ;CHECK MAIN INIT & ONIT ROUTINES
23 F ROUTINE="VAQ1INIT","VAQONIT" D
24 .;GET SECOND LINE OF ROUTINE
25 .S LINE2=$$SECOND^VAQPST31(ROUTINE,1)
26 .I (LINE2="") D Q
27 ..W $C(7),!,"*** Routine ",ROUTINE," does not exist ***"
28 ..S STOP=1
29 .;MAKE SURE PATCH SEVEN HAS BEEN APPLIED
30 .S PATCHES=$P(LINE2,";",3)
31 .S PATCHES=$TR(PATCHES,"*","")
32 .S PATCHES=$TR(PATCHES," ","")
33 .S PATCHED=0
34 .F TMP=1:1:$L(PATCHES,",") I ($P(PATCHES,",",TMP)=7) S PATCHED=1 Q
35 .I ('PATCHED) D Q
36 ..W $C(7),!,"*** Patch 7 has not been applied to routine ",ROUTINE," ***"
37 ..S STOP=1
38 ;INSTALLATION HALTED
39 I (STOP) D Q
40 .W $C(7),!!,"*** Installation of VAQ*1.5*7 halted ***",!!
41 ;INSTALL MODIFIED MENU OPTIONS
42 D ^VAQ1INIT
43 ;RE-INSTALL PROTOCOLS
44 W !!!
45 D ^VAQONIT
46 ;PRINT FOOTER
47 W !!,DASHES
48 S TMP="Installation of patch number 7 completed"
49 W !!,$$INSERT^VAQUTL1(TMP,"",(40-($L(TMP)\2)))
50 S TMP=$$NOW^VAQUTL99()
51 S DATE=$TR($P(TMP,"@",1),"-","/")
52 S TIME=$P(TMP,"@",2)
53 S TMP=" "_DATE_" @ "_TIME
54 S TMP=$$INSERT^VAQUTL1(TMP,DASHES,(79-$L(TMP)+1))
55 W !!,$$INSERT^VAQUTL1("VAQ*1.5*7 ",TMP,1)
56 Q
Note: See TracBrowser for help on using the repository browser.