- WV10PST ;HCIOFO/DS-Patch 10 Post-Installation Routine ;3/28/00 08:42
- ;;1.0;WOMEN'S HEALTH;**10**;Sep 30, 1998
- ;
- D QMAIL
- Q
- ;
- QMAIL ; Queue mail message
- N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
- S ZTRTN="MAIL^WV10PST",ZTDESC="WV*1*10 INSTALLED"
- S ZTIO="",ZTDTH=$H
- D ^%ZTLOAD
- Q
- MAIL ; Send message to default case managers to inform them of the changes
- N XMDUZ,XMSUB,XMTEXT,XMY,WVSITE,WVIEN,WVLINE,WVMSG
- I $D(ZTQUEUED) S ZTREQ="@"
- S (WVLINE,WVSITE)=0
- F S WVSITE=$O(^WV(790.02,WVSITE)) Q:'WVSITE D
- .S WVIEN=$P($G(^WV(790.02,WVSITE,0)),U,2) ;default case manager
- .Q:'WVIEN
- .S XMY(WVIEN)=""
- .Q
- I '$O(XMY(0)) Q
- SEND ; Create and send mail message
- S XMDUZ=.5 ;message sender
- S XMSUB="Women's Health patch #10 installed"
- S WVMSG(+$$LINE())="Patch #10 for the Women's Health package was installed. This patch adds"
- S WVMSG(+$$LINE())="additional site parameters for the Radiology/NM and Laboratory package links."
- S WVMSG(+$$LINE())="With these new parameters you can accept none, some or all non-veteran"
- S WVMSG(+$$LINE())="patient data from the Radiology/NM and Laboratory package links. To accept"
- S WVMSG(+$$LINE())="data for only certain non-veterans you must define the eligibility codes"
- S WVMSG(+$$LINE())="(e.g., TRICARE) you are interested in tracking."
- S WVMSG(+$$LINE())=" "
- S WVMSG(+$$LINE())="To set these new parameters, please do the following steps:"
- S WVMSG(+$$LINE())="1) Go to the File Maintenance Menu."
- S WVMSG(+$$LINE())="2) Select the Edit Site Parameters option."
- S WVMSG(+$$LINE())="3) Select a facility."
- S WVMSG(+$$LINE())="4) Go to page 2 of the data entry form."
- S WVMSG(+$$LINE())="5) If the 'Import Mammograms from Radiology:' value is NO or blank go to"
- S WVMSG(+$$LINE())=" Step 8."
- S WVMSG(+$$LINE())="6) Go to the first 'Include ALL Non-Veterans(Y/N)?:' prompt."
- S WVMSG(+$$LINE())=" a) Answer YES if you want all non-veteran data from Radiology/NM."
- S WVMSG(+$$LINE())=" b) Answer NO if you don't want any non-veteran data from Radiology/NM."
- S WVMSG(+$$LINE())=" c) Answer NO if you want only certain non-veterans."
- S WVMSG(+$$LINE())=" d) Leaving this answer blank is the same as YES."
- S WVMSG(+$$LINE())="If you opted for a, b or d, then skip to Step 8."
- S WVMSG(+$$LINE())="7) Go to the first 'ELIGIBILITY CODE(S):' prompt. This is a multiple answer"
- S WVMSG(+$$LINE())=" field."
- S WVMSG(+$$LINE())=" Enter each eligibility code you wish to accept data for from Radiology/NM."
- S WVMSG(+$$LINE())="8) If the 'Import Tests from Laboratory:' value is NO or blank go to Step 11."
- S WVMSG(+$$LINE())="9) Go to the second 'Include ALL Non-Veterans(Y/N)?:' prompt."
- S WVMSG(+$$LINE())=" a) Answer YES if you want all non-veteran data from Laboratory."
- S WVMSG(+$$LINE())=" b) Answer NO if you don't want any non-veteran data from Laboratory."
- S WVMSG(+$$LINE())=" c) Answer NO if you want only certain non-veterans."
- S WVMSG(+$$LINE())=" d) Leaving this answer blank is the same as YES."
- S WVMSG(+$$LINE())="If you opted for a, b or d, then skip to Step 11."
- S WVMSG(+$$LINE())="10) Go to the second 'ELIGIBILITY CODE(S):' prompt. This is a multiple answer"
- S WVMSG(+$$LINE())=" field."
- S WVMSG(+$$LINE())=" Enter each eligibility code you wish to accept data for from Laboratory."
- S WVMSG(+$$LINE())="11) Exit and Save any changes"
- S WVMSG(+$$LINE())=" "
- S WVMSG(+$$LINE())="Repeat steps 3-11 for each facility defined."
- S XMTEXT="WVMSG("
- D ^XMD
- Q
- LINE() ; Increment line counter by 1
- S WVLINE=+$G(WVLINE)+1
- Q WVLINE
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HWV10PST 3597 printed Apr 23, 2025@19:00:54 Page 2
- WV10PST ;HCIOFO/DS-Patch 10 Post-Installation Routine ;3/28/00 08:42
- +1 ;;1.0;WOMEN'S HEALTH;**10**;Sep 30, 1998
- +2 ;
- +3 DO QMAIL
- +4 QUIT
- +5 ;
- QMAIL ; Queue mail message
- +1 NEW ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
- +2 SET ZTRTN="MAIL^WV10PST"
- SET ZTDESC="WV*1*10 INSTALLED"
- +3 SET ZTIO=""
- SET ZTDTH=$HOROLOG
- +4 DO ^%ZTLOAD
- +5 QUIT
- MAIL ; Send message to default case managers to inform them of the changes
- +1 NEW XMDUZ,XMSUB,XMTEXT,XMY,WVSITE,WVIEN,WVLINE,WVMSG
- +2 IF $DATA(ZTQUEUED)
- SET ZTREQ="@"
- +3 SET (WVLINE,WVSITE)=0
- +4 FOR
- SET WVSITE=$ORDER(^WV(790.02,WVSITE))
- if 'WVSITE
- QUIT
- Begin DoDot:1
- +5 ;default case manager
- SET WVIEN=$PIECE($GET(^WV(790.02,WVSITE,0)),U,2)
- +6 if 'WVIEN
- QUIT
- +7 SET XMY(WVIEN)=""
- +8 QUIT
- End DoDot:1
- +9 IF '$ORDER(XMY(0))
- QUIT
- SEND ; Create and send mail message
- +1 ;message sender
- SET XMDUZ=.5
- +2 SET XMSUB="Women's Health patch #10 installed"
- +3 SET WVMSG(+$$LINE())="Patch #10 for the Women's Health package was installed. This patch adds"
- +4 SET WVMSG(+$$LINE())="additional site parameters for the Radiology/NM and Laboratory package links."
- +5 SET WVMSG(+$$LINE())="With these new parameters you can accept none, some or all non-veteran"
- +6 SET WVMSG(+$$LINE())="patient data from the Radiology/NM and Laboratory package links. To accept"
- +7 SET WVMSG(+$$LINE())="data for only certain non-veterans you must define the eligibility codes"
- +8 SET WVMSG(+$$LINE())="(e.g., TRICARE) you are interested in tracking."
- +9 SET WVMSG(+$$LINE())=" "
- +10 SET WVMSG(+$$LINE())="To set these new parameters, please do the following steps:"
- +11 SET WVMSG(+$$LINE())="1) Go to the File Maintenance Menu."
- +12 SET WVMSG(+$$LINE())="2) Select the Edit Site Parameters option."
- +13 SET WVMSG(+$$LINE())="3) Select a facility."
- +14 SET WVMSG(+$$LINE())="4) Go to page 2 of the data entry form."
- +15 SET WVMSG(+$$LINE())="5) If the 'Import Mammograms from Radiology:' value is NO or blank go to"
- +16 SET WVMSG(+$$LINE())=" Step 8."
- +17 SET WVMSG(+$$LINE())="6) Go to the first 'Include ALL Non-Veterans(Y/N)?:' prompt."
- +18 SET WVMSG(+$$LINE())=" a) Answer YES if you want all non-veteran data from Radiology/NM."
- +19 SET WVMSG(+$$LINE())=" b) Answer NO if you don't want any non-veteran data from Radiology/NM."
- +20 SET WVMSG(+$$LINE())=" c) Answer NO if you want only certain non-veterans."
- +21 SET WVMSG(+$$LINE())=" d) Leaving this answer blank is the same as YES."
- +22 SET WVMSG(+$$LINE())="If you opted for a, b or d, then skip to Step 8."
- +23 SET WVMSG(+$$LINE())="7) Go to the first 'ELIGIBILITY CODE(S):' prompt. This is a multiple answer"
- +24 SET WVMSG(+$$LINE())=" field."
- +25 SET WVMSG(+$$LINE())=" Enter each eligibility code you wish to accept data for from Radiology/NM."
- +26 SET WVMSG(+$$LINE())="8) If the 'Import Tests from Laboratory:' value is NO or blank go to Step 11."
- +27 SET WVMSG(+$$LINE())="9) Go to the second 'Include ALL Non-Veterans(Y/N)?:' prompt."
- +28 SET WVMSG(+$$LINE())=" a) Answer YES if you want all non-veteran data from Laboratory."
- +29 SET WVMSG(+$$LINE())=" b) Answer NO if you don't want any non-veteran data from Laboratory."
- +30 SET WVMSG(+$$LINE())=" c) Answer NO if you want only certain non-veterans."
- +31 SET WVMSG(+$$LINE())=" d) Leaving this answer blank is the same as YES."
- +32 SET WVMSG(+$$LINE())="If you opted for a, b or d, then skip to Step 11."
- +33 SET WVMSG(+$$LINE())="10) Go to the second 'ELIGIBILITY CODE(S):' prompt. This is a multiple answer"
- +34 SET WVMSG(+$$LINE())=" field."
- +35 SET WVMSG(+$$LINE())=" Enter each eligibility code you wish to accept data for from Laboratory."
- +36 SET WVMSG(+$$LINE())="11) Exit and Save any changes"
- +37 SET WVMSG(+$$LINE())=" "
- +38 SET WVMSG(+$$LINE())="Repeat steps 3-11 for each facility defined."
- +39 SET XMTEXT="WVMSG("
- +40 DO ^XMD
- +41 QUIT
- LINE() ; Increment line counter by 1
- +1 SET WVLINE=+$GET(WVLINE)+1
- +2 QUIT WVLINE
- +3 ;
