VAQ1 ;ALB/JRP - INIT/ONIT DRIVER FOR PATCH 7;08-AUG-94
;;1.5;PATIENT DATA EXCHANGE;**7**;NOV 17, 1993
PATCH7 ;ENTRY POINT FOR PATCH NUMBER 7
; REFER TO VAQ*1.5*7 IN NATIONAL PATCH MODULE FOR FURTHER DETAILS
;
;DECLARE VARIABLES
N LINE2,PATCHES,PATCHED,TMP,ROUTINE,STOP,DASHES,DATE,TIME
S DASHES=$$REPEAT^VAQUTL1("-",79)
;PRINT HEADER
S TMP=$$NOW^VAQUTL99()
S DATE=$TR($P(TMP,"@",1),"-","/")
S TIME=$P(TMP,"@",2)
S TMP=" "_DATE_" @ "_TIME
S TMP=$$INSERT^VAQUTL1(TMP,DASHES,(79-$L(TMP)+1))
W !!,$$INSERT^VAQUTL1("VAQ*1.5*7 ",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*7 (patch # 7 for version 1.5 of PDX)."
W !,$$INSERT^VAQUTL1(TMP,"",(40-($L(TMP)\2)))
W !!,DASHES,!!
S STOP=0
;CHECK MAIN INIT & ONIT ROUTINES
F ROUTINE="VAQ1INIT","VAQONIT" D
.;GET SECOND LINE OF ROUTINE
.S LINE2=$$SECOND^VAQPST31(ROUTINE,1)
.I (LINE2="") D Q
..W $C(7),!,"*** Routine ",ROUTINE," does not exist ***"
..S STOP=1
.;MAKE SURE PATCH SEVEN HAS BEEN APPLIED
.S PATCHES=$P(LINE2,";",3)
.S PATCHES=$TR(PATCHES,"*","")
.S PATCHES=$TR(PATCHES," ","")
.S PATCHED=0
.F TMP=1:1:$L(PATCHES,",") I ($P(PATCHES,",",TMP)=7) S PATCHED=1 Q
.I ('PATCHED) D Q
..W $C(7),!,"*** Patch 7 has not been applied to routine ",ROUTINE," ***"
..S STOP=1
;INSTALLATION HALTED
I (STOP) D Q
.W $C(7),!!,"*** Installation of VAQ*1.5*7 halted ***",!!
;INSTALL MODIFIED MENU OPTIONS
D ^VAQ1INIT
;RE-INSTALL PROTOCOLS
W !!!
D ^VAQONIT
;PRINT FOOTER
W !!,DASHES
S TMP="Installation of patch number 7 completed"
W !!,$$INSERT^VAQUTL1(TMP,"",(40-($L(TMP)\2)))
S TMP=$$NOW^VAQUTL99()
S DATE=$TR($P(TMP,"@",1),"-","/")
S TIME=$P(TMP,"@",2)
S TMP=" "_DATE_" @ "_TIME
S TMP=$$INSERT^VAQUTL1(TMP,DASHES,(79-$L(TMP)+1))
W !!,$$INSERT^VAQUTL1("VAQ*1.5*7 ",TMP,1)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAQ1 1945 printed Apr 09, 2024@21:28 Page 2
VAQ1 ;ALB/JRP - INIT/ONIT DRIVER FOR PATCH 7;08-AUG-94
+1 ;;1.5;PATIENT DATA EXCHANGE;**7**;NOV 17, 1993
PATCH7 ;ENTRY POINT FOR PATCH NUMBER 7
+1 ; REFER TO VAQ*1.5*7 IN NATIONAL PATCH MODULE FOR FURTHER DETAILS
+2 ;
+3 ;DECLARE VARIABLES
+4 NEW LINE2,PATCHES,PATCHED,TMP,ROUTINE,STOP,DASHES,DATE,TIME
+5 SET DASHES=$$REPEAT^VAQUTL1("-",79)
+6 ;PRINT HEADER
+7 SET TMP=$$NOW^VAQUTL99()
+8 SET DATE=$TRANSLATE($PIECE(TMP,"@",1),"-","/")
+9 SET TIME=$PIECE(TMP,"@",2)
+10 SET TMP=" "_DATE_" @ "_TIME
+11 SET TMP=$$INSERT^VAQUTL1(TMP,DASHES,(79-$LENGTH(TMP)+1))
+12 WRITE !!,$$INSERT^VAQUTL1("VAQ*1.5*7 ",TMP,1)
+13 SET TMP="Details of this installation may be obtained from the National Patch Module"
+14 WRITE !!,$$INSERT^VAQUTL1(TMP,"",(40-($LENGTH(TMP)\2)))
+15 SET TMP="under the entry VAQ*1.5*7 (patch # 7 for version 1.5 of PDX)."
+16 WRITE !,$$INSERT^VAQUTL1(TMP,"",(40-($LENGTH(TMP)\2)))
+17 WRITE !!,DASHES,!!
+18 SET STOP=0
+19 ;CHECK MAIN INIT & ONIT ROUTINES
+20 FOR ROUTINE="VAQ1INIT","VAQONIT"
Begin DoDot:1
+21 ;GET SECOND LINE OF ROUTINE
+22 SET LINE2=$$SECOND^VAQPST31(ROUTINE,1)
+23 IF (LINE2="")
Begin DoDot:2
+24 WRITE $CHAR(7),!,"*** Routine ",ROUTINE," does not exist ***"
+25 SET STOP=1
End DoDot:2
QUIT
+26 ;MAKE SURE PATCH SEVEN HAS BEEN APPLIED
+27 SET PATCHES=$PIECE(LINE2,";",3)
+28 SET PATCHES=$TRANSLATE(PATCHES,"*","")
+29 SET PATCHES=$TRANSLATE(PATCHES," ","")
+30 SET PATCHED=0
+31 FOR TMP=1:1:$LENGTH(PATCHES,",")
IF ($PIECE(PATCHES,",",TMP)=7)
SET PATCHED=1
QUIT
+32 IF ('PATCHED)
Begin DoDot:2
+33 WRITE $CHAR(7),!,"*** Patch 7 has not been applied to routine ",ROUTINE," ***"
+34 SET STOP=1
End DoDot:2
QUIT
End DoDot:1
+35 ;INSTALLATION HALTED
+36 IF (STOP)
Begin DoDot:1
+37 WRITE $CHAR(7),!!,"*** Installation of VAQ*1.5*7 halted ***",!!
End DoDot:1
QUIT
+38 ;INSTALL MODIFIED MENU OPTIONS
+39 DO ^VAQ1INIT
+40 ;RE-INSTALL PROTOCOLS
+41 WRITE !!!
+42 DO ^VAQONIT
+43 ;PRINT FOOTER
+44 WRITE !!,DASHES
+45 SET TMP="Installation of patch number 7 completed"
+46 WRITE !!,$$INSERT^VAQUTL1(TMP,"",(40-($LENGTH(TMP)\2)))
+47 SET TMP=$$NOW^VAQUTL99()
+48 SET DATE=$TRANSLATE($PIECE(TMP,"@",1),"-","/")
+49 SET TIME=$PIECE(TMP,"@",2)
+50 SET TMP=" "_DATE_" @ "_TIME
+51 SET TMP=$$INSERT^VAQUTL1(TMP,DASHES,(79-$LENGTH(TMP)+1))
+52 WRITE !!,$$INSERT^VAQUTL1("VAQ*1.5*7 ",TMP,1)
+53 QUIT
