BWPATCH2 ;IHS/ANMC/MWR - UTIL: MOSTLY PATIENT DATA [ 01/23/97 4:37 PM ];15-Feb-2003 22:03;PLS
;;2.0;WOMEN'S HEALTH;**2,8**;JAN 21, 1997
;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
;; PATCH ROUTINE TO FIX "AOPEN" XREF IN ^BWNOT( GLOBAL
;; (BW NOTIFICATION FILE).
;
;----------
START ;EP
D INIT
D MAIN
D EOJ
Q
;
;----------
INIT ;EP - Initialization.
D SETVARS^BWUTL5
S IOP=$I D ^%ZIS
S BWPTITL="v2.0 PATCH PROGRAM"
Q
;
;----------
MAIN ;EP - Main program.
D TITLE^BWUTL5(BWPTITL)
D TEXT1
W !!," Do you wish to apply the patch and reindex the data now?"
S DIR("?")=" Enter YES to apply the patch, enter NO to abort."
S DIR(0)="Y",DIR("A")=" Enter Yes or No"
D ^DIR W !
I $D(DIRUT)!(Y<1) D NOCHANGE Q
;
D TITLE^BWUTL5(BWPTITL)
I '$D(^DD(9002086.4))!('$D(^BWNOT(0))) D TEXT2,NOCHANGE Q
;
;---> Correct xref logic in ^DD.
N BWY
S BWY="I ""o""[$P(^BWNOT(DA,0),U,14) S ^BWNOT(""AOPEN"",X,DA)="""""
S ^DD(9002086.4,.02,1,1,1)=BWY
S BWY="K ^BWNOT(""AOPEN"",X,DA)"
S ^DD(9002086.4,.02,1,1,2)=BWY
;
;---> Reindex AOPEN xref.
K ^BWNOT("AOPEN")
S BWINC=$J(($P(^BWNOT(0),U,4))/50,0,0) S:BWINC<1 BWINC=1
W !!?14,"Reindexing..."
W !!!?14,"0% 50% 100%"
W !?14,"----------------------------------------------------"
W !?14,"["
N I,Y S BWIEN=0,BWCOUNT=0
F I=1:1 S BWIEN=$O(^BWNOT(BWIEN)) Q:'BWIEN D
.I '(I#BWINC)&(BWCOUNT<51) W "=" S BWCOUNT=BWCOUNT+1
.S Y=^BWNOT(BWIEN,0)
.Q:"o"'[$P(Y,U,14)
.S ^BWNOT("AOPEN",$P(Y,U,2),BWIEN)=""
I BWCOUNT<50 F I=1:1:50-BWCOUNT W "="
W "]"
W !!!!?14,"Patch applied successfully! Job complete.",!!
D DIRZ^BWUTL3
Q
;
;----------
EOJ ;EP - End of job.
D KILLALL^BWUTL8 K BWINC
Q
;
;----------
TEXT1 ;EP
;;This routine will correct an error in the crossreference logic
;;in the data dictionary for Women's Health Notifications. It will
;;then reindex the "AOPEN" crossreference on field .02 of the
;;BW NOTIFICATIONS File #9002086.4.
;;
;;NO user/programmer action is required. The program will present a
;;progress bar 0%-100% during the job, which may take several minutes.
;;
S BWTAB=5,BWLINL="TEXT1" D PRINTX
Q
;
;----------
TEXT2 ;EP
;;The BW NOTIFICATIONS File does not appear to be loaded on this
;;system. Please contact your Women's Health support person or
;;Mike Remillard at (907)696-7472."
;;
S BWTAB=5,BWLINL="TEXT2" D PRINTX
Q
;
;----------
NOCHANGE ;EP
W !?25,"NO CHANGES MADE!" D DIRZ^BWUTL3
Q
;
;----------
PRINTX ;EP
N I,T,X S T="" F I=1:1:BWTAB S T=T_" "
F I=1:1 S X=$T(@BWLINL+I) Q:X'[";;" W !,T,$P(X,";;",2)
Q
BWPATCH2 ;IHS/ANMC/MWR - UTIL: MOSTLY PATIENT DATA [ 01/23/97 4:37 PM ];15-Feb-2003 22:03;PLS
+1 ;;2.0;WOMEN'S HEALTH;**2,8**;JAN 21, 1997
+2 ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
+3 ;; PATCH ROUTINE TO FIX "AOPEN" XREF IN ^BWNOT( GLOBAL
+4 ;; (BW NOTIFICATION FILE).
+5 ;
+6 ;----------
START ;EP
+1 DO INIT
+2 DO MAIN
+3 DO EOJ
+4 QUIT
+5 ;
+6 ;----------
INIT ;EP - Initialization.
+1 DO SETVARS^BWUTL5
+2 SET IOP=$IO
DO ^%ZIS
+3 SET BWPTITL="v2.0 PATCH PROGRAM"
+4 QUIT
+5 ;
+6 ;----------
MAIN ;EP - Main program.
+1 DO TITLE^BWUTL5(BWPTITL)
+2 DO TEXT1
+3 WRITE !!," Do you wish to apply the patch and reindex the data now?"
+4 SET DIR("?")=" Enter YES to apply the patch, enter NO to abort."
+5 SET DIR(0)="Y"
SET DIR("A")=" Enter Yes or No"
+6 DO ^DIR
WRITE !
+7 IF $DATA(DIRUT)!(Y<1)
DO NOCHANGE
QUIT
+8 ;
+9 DO TITLE^BWUTL5(BWPTITL)
+10 IF '$DATA(^DD(9002086.4))!('$DATA(^BWNOT(0)))
DO TEXT2
DO NOCHANGE
QUIT
+11 ;
+12 ;---> Correct xref logic in ^DD.
+13 NEW BWY
+14 SET BWY="I ""o""[$P(^BWNOT(DA,0),U,14) S ^BWNOT(""AOPEN"",X,DA)="""""
+15 SET ^DD(9002086.4,.02,1,1,1)=BWY
+16 SET BWY="K ^BWNOT(""AOPEN"",X,DA)"
+17 SET ^DD(9002086.4,.02,1,1,2)=BWY
+18 ;
+19 ;---> Reindex AOPEN xref.
+20 KILL ^BWNOT("AOPEN")
+21 SET BWINC=$JUSTIFY(($PIECE(^BWNOT(0),U,4))/50,0,0)
IF BWINC<1
SET BWINC=1
+22 WRITE !!?14,"Reindexing..."
+23 WRITE !!!?14,"0% 50% 100%"
+24 WRITE !?14,"----------------------------------------------------"
+25 WRITE !?14,"["
+26 NEW I,Y
SET BWIEN=0
SET BWCOUNT=0
+27 FOR I=1:1
SET BWIEN=$ORDER(^BWNOT(BWIEN))
IF 'BWIEN
QUIT
Begin DoDot:1
+28 IF '(I#BWINC)&(BWCOUNT<51)
WRITE "="
SET BWCOUNT=BWCOUNT+1
+29 SET Y=^BWNOT(BWIEN,0)
+30 IF "o"'[$PIECE(Y,U,14)
QUIT
+31 SET ^BWNOT("AOPEN",$PIECE(Y,U,2),BWIEN)=""
End DoDot:1
+32 IF BWCOUNT<50
FOR I=1:1:50-BWCOUNT
WRITE "="
+33 WRITE "]"
+34 WRITE !!!!?14,"Patch applied successfully! Job complete.",!!
+35 DO DIRZ^BWUTL3
+36 QUIT
+37 ;
+38 ;----------
EOJ ;EP - End of job.
+1 DO KILLALL^BWUTL8
KILL BWINC
+2 QUIT
+3 ;
+4 ;----------
TEXT1 ;EP
+1 ;;This routine will correct an error in the crossreference logic
+2 ;;in the data dictionary for Women's Health Notifications. It will
+3 ;;then reindex the "AOPEN" crossreference on field .02 of the
+4 ;;BW NOTIFICATIONS File #9002086.4.
+5 ;;
+6 ;;NO user/programmer action is required. The program will present a
+7 ;;progress bar 0%-100% during the job, which may take several minutes.
+8 ;;
+9 SET BWTAB=5
SET BWLINL="TEXT1"
DO PRINTX
+10 QUIT
+11 ;
+12 ;----------
TEXT2 ;EP
+1 ;;The BW NOTIFICATIONS File does not appear to be loaded on this
+2 ;;system. Please contact your Women's Health support person or
+3 ;;Mike Remillard at (907)696-7472."
+4 ;;
+5 SET BWTAB=5
SET BWLINL="TEXT2"
DO PRINTX
+6 QUIT
+7 ;
+8 ;----------
NOCHANGE ;EP
+1 WRITE !?25,"NO CHANGES MADE!"
DO DIRZ^BWUTL3
+2 QUIT
+3 ;
+4 ;----------
PRINTX ;EP
+1 NEW I,T,X
SET T=""
FOR I=1:1:BWTAB
SET T=T_" "
+2 FOR I=1:1
SET X=$TEXT(@BWLINL+I)
IF X'[";;"
QUIT
WRITE !,T,$PIECE(X,";;",2)
+3 QUIT
