source: WorldVistAEHR/trunk/r/WOMENS_HEALTH-WV/WV19PST.m@ 724

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1WV19PST ;HIOFO/FT-WV*1*19 POST INSTALLATION ROUTINE ;06/26/06
2 ;;1.0;WOMEN'S HEALTH;**19**;Sep 30, 1998
3 ;
4EN ; This routine will loop through the word processing text in FILEs 790.6
5 ; and 790.404 and replace the "|SSN#|" placeholder with "|$E(SSN#),6,9|".
6 ;
7 N WVIEN,WVLINE,WVNEW,WVNODE
8 S WVIEN=0
9 W !,"Checking FILE 790.6...",!
10 F S WVIEN=$O(^WV(790.6,WVIEN)) Q:'WVIEN D
11 .S WVLINE=0
12 .F S WVLINE=$O(^WV(790.6,WVIEN,1,WVLINE)) Q:'WVLINE D
13 ..S WVNODE=$G(^WV(790.6,WVIEN,1,WVLINE,0))
14 ..Q:WVNODE=""
15 ..I WVNODE["|SSN#|" D
16 ...S WVNEW=$P(WVNODE,"|SSN#|",1)_"|$E(SSN#,6,9)|"_$P(WVNODE,"|SSN#|",2)
17 ...W !,WVIEN,!,WVNODE,!,WVNEW
18 ...S ^WV(790.6,WVIEN,1,WVLINE,0)=WVNEW
19 ...Q
20 ..Q
21 .Q
22 S WVIEN=0
23 W !,"Checking FILE 790.404...",!
24 F S WVIEN=$O(^WV(790.404,WVIEN)) Q:'WVIEN D
25 .S WVLINE=0
26 .F S WVLINE=$O(^WV(790.404,WVIEN,1,WVLINE)) Q:'WVLINE D
27 ..S WVNODE=$G(^WV(790.404,WVIEN,1,WVLINE,0))
28 ..Q:WVNODE=""
29 ..I WVNODE["|SSN#|" D
30 ...S WVNEW=$P(WVNODE,"|SSN#|",1)_"|$E(SSN#,6,9)|"_$P(WVNODE,"|SSN#|",2)
31 ...W !,WVIEN,!,WVNODE,!,WVNEW
32 ...S ^WV(790.404,WVIEN,1,WVLINE,0)=WVNEW
33 ...Q
34 ..Q
35 .Q
Note: See TracBrowser for help on using the repository browser.