source: FOIAVistA/trunk/r/WOMENS_HEALTH-WV/WV7PST.m@ 1119

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

initial load of FOIAVistA 6/30/08 version

File size: 3.7 KB
Line 
1WV7PST ;HCIOFO/FT-Patch 7 Post-Installation Routine ;10/1/99 18:00
2 ;;1.0;WOMEN'S HEALTH;**7**;Sep 30, 1998
3 ;
4EN ; Start post-install
5 D XREF,RCODE,ZERO
6 D QMAIL
7 Q
8XREF ; Index new cross-reference added to File 790.2 (CPT CODE - .08)
9 N DIK
10 S DIK="^WV(790.2,",DIK(1)=".08"
11 D ENALL^DIK
12 Q
13RCODE ; Put R code in PACKAGE (#.05), File 790.2
14 N DA,DIE,DR,WVLOOP
15 F WVLOOP="BREAST ULTRASOUND","MAMMOGRAM DX BILAT","MAMMOGRAM DX UNILAT","MAMMOGRAM SCREENING","PELVIC ULTRASOUND","VAGINAL ULTRASOUND" D
16 .S DA=$O(^WV(790.2,"B",WVLOOP,0))
17 .Q:'DA
18 .S DR=".05///"_"R",DIE="^WV(790.2,"
19 .D ^DIE
20 .Q
21 Q
22QMAIL ; Queue mail message
23 N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
24 S ZTRTN="MAIL^WV7PST",ZTDESC="WV*1*7 INSTALLED"
25 S ZTIO="",ZTDTH=$H
26 D ^%ZTLOAD
27 Q
28MAIL ; Send message to Default Case Managers to
29 ; 1) enter parameters for new procedures
30 ; 2) include |APPOINTMENTS| on form letters (if desired).
31 N XMDUZ,XMSUB,XMTEXT,XMY,WVSITE,WVIEN,WVLINE,WVMSG
32 S (WVLINE,WVSITE)=0
33 F S WVSITE=$O(^WV(790.02,WVSITE)) Q:'WVSITE D
34 .S WVIEN=$P($G(^WV(790.02,WVSITE,0)),U,2) ;default case manager
35 .Q:'WVIEN
36 .S XMY(WVIEN)=""
37 .Q
38 I '$O(XMY(0)) Q
39SEND ; Create mail message and send
40 S XMDUZ=.5 ;message sender
41 S XMSUB="Women's Health patch #7 installed"
42 S WVMSG(+$$LINE())="Patch #7 for the Women's Health package was installed. This patch adds 3"
43 S WVMSG(+$$LINE())="new procedures for tracking. They are: Tubal Ligation, Pelvic Ultrasound"
44 S WVMSG(+$$LINE())="and Vaginal Ultrasound. Please update your site parameters:"
45 S WVMSG(+$$LINE())=" "
46 S WVMSG(+$$LINE())=" Go to the: File Maintenance menu"
47 S WVMSG(+$$LINE())=" Select the: Edit Site Parameters option"
48 S WVMSG(+$$LINE())=" Select your: Site/Facility"
49 S WVMSG(+$$LINE())="Go to pages 5 and 6"
50 S WVMSG(+$$LINE())=" "
51 S WVMSG(+$$LINE())="Enter YES in the 'Active' column and a numeric value in the 'DAYS DELINQUENT'"
52 S WVMSG(+$$LINE())="column for each new procedure."
53 S WVMSG(+$$LINE())=" "
54 S WVMSG(+$$LINE())="Exit and save your changes."
55 S WVMSG(+$$LINE())=" "
56 S WVMSG(+$$LINE())="==================================================="
57 S WVMSG(+$$LINE())=" "
58 S WVMSG(+$$LINE())="Also, you can automatically have a patient's future appointments display in"
59 S WVMSG(+$$LINE())="a notification letter. To do so:"
60 S WVMSG(+$$LINE())=" "
61 S WVMSG(+$$LINE())=" Go to the: File Maintenance menu"
62 S WVMSG(+$$LINE())=" Select the: Add/Edit a Notification Purpose & Letter option"
63 S WVMSG(+$$LINE())=" "
64 S WVMSG(+$$LINE())="Select the notification letter which will display the future appointments."
65 S WVMSG(+$$LINE())=" "
66 S WVMSG(+$$LINE())="Answer NO to the 'Do you wish to delete the old letter for this Purpose of"
67 S WVMSG(+$$LINE())="Notification and replace it with the generic sample letter?"
68 S WVMSG(+$$LINE())="Enter Yes or No: NO//' prompt."
69 S WVMSG(+$$LINE())=" "
70 S WVMSG(+$$LINE())="Navigate to the FORM LETTER (WP) field."
71 S WVMSG(+$$LINE())=" "
72 S WVMSG(+$$LINE())="In the text of the letter type ""|APPOINTMENTS|"" (without the quotes) along"
73 S WVMSG(+$$LINE())="with any other text that should appear in the letter."
74 S WVMSG(+$$LINE())=" "
75 S WVMSG(+$$LINE())="For example, create a new paragraph:"
76 S WVMSG(+$$LINE())=" "
77 S WVMSG(+$$LINE())="Your future appointments are:"
78 S WVMSG(+$$LINE())="|APPOINTMENTS|"
79 S WVMSG(+$$LINE())=" "
80 S WVMSG(+$$LINE())=" "
81 S XMTEXT="WVMSG("
82 D ^XMD
83 Q
84LINE() ; Increment line counter by 1
85 S WVLINE=+$G(WVLINE)+1
86 Q WVLINE
87 ;
88ZERO ; Set Fields .77, .78 and .79 in File 790.71 entries to zero
89 ; (pieces 28, 29 & 30 of node 2).
90 N WVLOOP,WVNODE,WVX
91 S WVLOOP=0
92 F S WVLOOP=$O(^WV(790.71,WVLOOP)) Q:'WVLOOP D
93 .S WVNODE=$G(^WV(790.71,WVLOOP,2))
94 .Q:WVNODE=""
95 .F WVX=28,29,30 S:$P(WVNODE,U,WVX)="" $P(WVNODE,U,WVX)=0
96 .S ^WV(790.71,WVLOOP,2)=WVNODE
97 .Q
98 Q
Note: See TracBrowser for help on using the repository browser.