WVPKG ;ISP/RFR - EDIT PACKAGE PARAMETERS;08/13/2020
;;1.0;WOMEN'S HEALTH;**24,26**;Sep 30, 1998;Build 624
Q
EDIT ;EDIT THE PARAMETERS
N WVPKG,WVERROR
S WVPKG=+$$FIND1^DIC(9.4,,,"WOMEN'S HEALTH",,"I $P($G(^(0)),U,2)=""WV""","WVERROR")
I WVPKG=0!($D(WVERROR)) D Q
.W !,"ERROR encountered:",!,$$FMERROR^WVUTL11(.WVERROR)
.W !,"Could not find the WOMEN'S HEALTH entry in the PACKAGE file (#9.4)."
.W !,"Please contact the national help desk for assistance."
I WVPKG>0 D TED^XPAREDIT("WV CPRS PACKAGE PARAMETERS","B",WVPKG_";DIC(9.4,")
D EDITPAR^XPAREDIT("WV MAIL GROUP ISSUE")
D EDITPAR^XPAREDIT("WV BREAST IMAGE TERM LINKING")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HWVPKG 653 printed Dec 13, 2024@02:47:23 Page 2
WVPKG ;ISP/RFR - EDIT PACKAGE PARAMETERS;08/13/2020
+1 ;;1.0;WOMEN'S HEALTH;**24,26**;Sep 30, 1998;Build 624
+2 QUIT
EDIT ;EDIT THE PARAMETERS
+1 NEW WVPKG,WVERROR
+2 SET WVPKG=+$$FIND1^DIC(9.4,,,"WOMEN'S HEALTH",,"I $P($G(^(0)),U,2)=""WV""","WVERROR")
+3 IF WVPKG=0!($DATA(WVERROR))
Begin DoDot:1
+4 WRITE !,"ERROR encountered:",!,$$FMERROR^WVUTL11(.WVERROR)
+5 WRITE !,"Could not find the WOMEN'S HEALTH entry in the PACKAGE file (#9.4)."
+6 WRITE !,"Please contact the national help desk for assistance."
End DoDot:1
QUIT
+7 IF WVPKG>0
DO TED^XPAREDIT("WV CPRS PACKAGE PARAMETERS","B",WVPKG_";DIC(9.4,")
+8 DO EDITPAR^XPAREDIT("WV MAIL GROUP ISSUE")
+9 DO EDITPAR^XPAREDIT("WV BREAST IMAGE TERM LINKING")
+10 QUIT
