36 lines
1.1 KiB
Mathematica
36 lines
1.1 KiB
Mathematica
WV19PST ;HIOFO/FT-WV*1*19 POST INSTALLATION ROUTINE ;06/26/06
|
|
;;1.0;WOMEN'S HEALTH;**19**;Sep 30, 1998
|
|
;
|
|
EN ; This routine will loop through the word processing text in FILEs 790.6
|
|
; and 790.404 and replace the "|SSN#|" placeholder with "|$E(SSN#),6,9|".
|
|
;
|
|
N WVIEN,WVLINE,WVNEW,WVNODE
|
|
S WVIEN=0
|
|
W !,"Checking FILE 790.6...",!
|
|
F S WVIEN=$O(^WV(790.6,WVIEN)) Q:'WVIEN D
|
|
.S WVLINE=0
|
|
.F S WVLINE=$O(^WV(790.6,WVIEN,1,WVLINE)) Q:'WVLINE D
|
|
..S WVNODE=$G(^WV(790.6,WVIEN,1,WVLINE,0))
|
|
..Q:WVNODE=""
|
|
..I WVNODE["|SSN#|" D
|
|
...S WVNEW=$P(WVNODE,"|SSN#|",1)_"|$E(SSN#,6,9)|"_$P(WVNODE,"|SSN#|",2)
|
|
...W !,WVIEN,!,WVNODE,!,WVNEW
|
|
...S ^WV(790.6,WVIEN,1,WVLINE,0)=WVNEW
|
|
...Q
|
|
..Q
|
|
.Q
|
|
S WVIEN=0
|
|
W !,"Checking FILE 790.404...",!
|
|
F S WVIEN=$O(^WV(790.404,WVIEN)) Q:'WVIEN D
|
|
.S WVLINE=0
|
|
.F S WVLINE=$O(^WV(790.404,WVIEN,1,WVLINE)) Q:'WVLINE D
|
|
..S WVNODE=$G(^WV(790.404,WVIEN,1,WVLINE,0))
|
|
..Q:WVNODE=""
|
|
..I WVNODE["|SSN#|" D
|
|
...S WVNEW=$P(WVNODE,"|SSN#|",1)_"|$E(SSN#,6,9)|"_$P(WVNODE,"|SSN#|",2)
|
|
...W !,WVIEN,!,WVNODE,!,WVNEW
|
|
...S ^WV(790.404,WVIEN,1,WVLINE,0)=WVNEW
|
|
...Q
|
|
..Q
|
|
.Q
|