ORY508 ;SLC/AGP/GN - PRE/POST INSTALL OR*3.0*508 ;Nov 07, 2025@12:15:01
;;3.0;ORDER ENTRY/RESULTS REPORTING;**508**;Dec 17, 1997;Build 39
;
;
Q
;
ENVCHCK ;
N ALERTS
D ALERTPARAMS(.ALERTS)
I '$$ENVCHKALERTS(.ALERTS) W !,"Cannot install notifications updates" S XPDABORT=2 Q
Q
;
;COPY OF CODE on ENVCHKALERTS^ORPATCHUTILS, had to place here since first time the ORPATCHUTILS is being deployed
ENVCHKALERTS(ALERTS) ;
N IDX,RESULT
S RESULT=1
S IDX=0 F S IDX=$O(ALERTS(IDX)) Q:IDX'>0!(RESULT=0) D
.I '$D(^ORD(100.9,IDX)) Q
.I $P($G(^ORD(100.9,IDX,0)),U)'=ALERTS(IDX,"name") S ALERTS(IDX,"error")="Entry found in file 100.9",RESULT=0
Q RESULT
;
DELDD ;
N DIU,TEXT
D BMES^XPDUTL("Removing old data dictionaries.")
S DIU(0)=""
F DIU=100.0112,101.71,101.73,101.74,101.75,101.76,101.77 D
. S TEXT=" Deleting data dictionary for file # "_DIU
. D MES^XPDUTL(TEXT)
. D EN^DIU2
Q
;
DELWIN ; pre-install to remove win message param values
;KIDS will delete the parameter definition during the install
N PARM,LIST,ERR
S PARM="OR CPRS WIN MESSAGE LOG SIZE"
D BMES^XPDUTL("Building value list for "_PARM_" ...")
D ENVAL^XPAR(.LIST,PARM,,.ERR)
Q:+$G(ERR)>0 ;parameter not found
I $G(LIST)=0 D BMES^XPDUTL("No values found - continuing with installation.") Q
D BMES^XPDUTL("Deleting values from "_PARM_" ...")
N I,J S I="",J=0
F S I=$O(LIST(I)) Q:$G(I)="" D
. F S J=$O(LIST(I,J)) Q:+$G(J)=0 D
. . D DEL^XPAR(I,PARM,J,.ERR)
. . I +$G(ERR)>0 D Q
. . . D MES^XPDUTL("ERROR MESSAGE: "_$P(ERR,"^",2)) K ERR
D MES^XPDUTL("Completed deleting values.")
Q
;
PRE ;
D SETALERTSTUB
D DELDD
D DELWIN
Q
;
POST ;
D SETALERTPARAMS
D SETPANEL
D SETPKGPARAMS
D SETINFOPARAMS
D UPDMENU
D NONVAPAP
Q
;
SETALERTPARAMS ;
N ALERTS
D ALERTPARAMS(.ALERTS)
I '$$SETALERTPARAMS^ORPATCHUTILS(.ALERTS,1) D MES^XPDUTL("Enter a ServiceNow ticket")
Q
;
SETALERTSTUB ;
N ALERTS
D ALERTPARAMS(.ALERTS)
I '$$SETALERTSTUB^ORPATCHUTILS(.ALERTS,1) D MES^XPDUTL("Enter a ServiceNow ticket")
Q
;
SETPANEL ;
N ADM,CLI,ERROR,FDA,ORIMGR,PKG,SKY
D BMES^XPDUTL("Installing CPRS Information Panel")
I $G(^ORI(101.71,1,0))'="" Q
S PKG=+$O(^DIC(9.4,"B","ORDER ENTRY/RESULTS REPORTING","")) I PKG=0 D BMES^XPDUTL("ORDER ENTRY/RESULTS REPORTING package entry not found.") Q
S CLI=$O(^ORI(101.73,"B","ALL TAB CLINICAL","")) I CLI=0 D BMES^XPDUTL("Component entry ALL TAB CLINICAL not found.") Q
S ADM=$O(^ORI(101.73,"B","ALL TAB ADMIN","")) I ADM=0 D BMES^XPDUTL("Component entry ALL TAB ADMIN not found.") Q
;S SKY=$O(^ORI(101.73,"B","SKY BLUE","")) I ADM=0 D BMES^XPDUTL("Component entry SKY BLUE not found.") Q
S FDA(101.71,"+1,",.01)="NATIONAL"
S FDA(101.71,"+1,",.02)=1
S FDA(101.71,"+1,",.03)=$$NOW^XLFDT()
S FDA(101.71,"+1,",.04)="Patch: OR*3.0*508"
S FDA(101.711,"+2,+1,",.01)=PKG
S FDA(101.7112,"+3,+2,+1,",.01)=1
S FDA(101.7112,"+3,+2,+1,",.02)=CLI
S FDA(101.7112,"+3,+2,+1,",.03)="Clinical Information"
S FDA(101.7112,"+3,+2,+1,",.04)="CI"
;S FDA(101.7112,"+3,+2,+1,",.05)=SKY
S FDA(101.7112,"+3,+2,+1,",.07)="false"
S FDA(101.7112,"+4,+2,+1,",.01)=2
S FDA(101.7112,"+4,+2,+1,",.02)=ADM
S FDA(101.7112,"+4,+2,+1,",.03)="Admin Function"
S FDA(101.7112,"+4,+2,+1,",.04)="NAF"
;S FDA(101.7112,"+4,+2,+1,",.05)=SKY
S FDA(101.7112,"+4,+2,+1,",.07)="true"
S ORIMGR=1
D UPDATE^DIE("","FDA","","ERROR")
I $D(ERROR) D AWRITE^ORINQIV("ERROR") Q
D BMES^XPDUTL(" Done")
Q
;
SETINFOPARAMS ;
N ORPARAMS
D INFOPARAMS(.ORPARAMS)
D BMES^XPDUTL("Setting Information Panel parameters:")
D SETPARAMS^ORPATCHUTILS(.ORPARAMS,1)
D BMES^XPDUTL(" Done")
Q
;
N FAIL
S FAIL=0
D BMES^XPDUTL("Updating the menu OR PARAM COORDINATOR MENU")
I +$$ADD^XPDMENU("OR PARAM COORDINATOR MENU","OR DEBUG REPORT","RPC","")=0 S FAIL=1
I +$$ADD^XPDMENU("OR PARAM COORDINATOR MENU","ORI MENU","INFO","")=0 S FAIL=1
D BMES^XPDUTL($S(FAIL=1:" error updating OR PARAM COORDINATOR MENU",1:" Done"))
S FAIL=0
Q
;
;========================= CONFIG SECTION ========================================
ALERTPARAMS(RESULTS) ;
S RESULTS(100,"name")="COMPACT UPDATES"
S RESULTS(100,"error")=""
S RESULTS(100,"parameters","ORB ARCHIVE PERIOD")=30
S RESULTS(100,"parameters","ORB DELETE MECHANISM")="A"
S RESULTS(100,"parameters","ORB FORWARD BACKUP REVIEWER")=0
S RESULTS(100,"parameters","ORB FORWARD SUPERVISOR")=0
S RESULTS(100,"parameters","ORB FORWARD SURROGATES")=0
S RESULTS(100,"parameters","ORB PROCESSING FLAG")="Disabled"
S RESULTS(100,"parameters","ORB PROVIDER RECIPIENTS")=""
S RESULTS(100,"parameters","ORB URGENCY")="Low"
Q
;
INFOPARAMS(RESULTS) ;
S RESULTS("OR INFO COLORS","PKG",1)="DISABLED"
S RESULTS("OR INFO DEFAULT COLOR","PKG",1)="WINDOW BUTTON FACE"
S RESULTS("OR INFO IMAGES","PKG",1)="ENABLED"
S RESULTS("OR INFO INDENT","PKG",1)="YES"
S RESULTS("OR INFO MOUSE CLICK","PKG",1)="YES"
S RESULTS("OR INFO PANEL ALIGNMENT","PKG",1)="Left"
S RESULTS("OR INFO PANEL ON","PKG",1)="ON"
S RESULTS("OR INFO REFRESH BUTTON","PKG",1)="YES"
S RESULTS("OR INFO TEXT ALIGN","PKG",1)="Left"
Q
;
;========================= TRANSPORT SECTION RECORD KIDS IS EXPORTING ============
TRANSPORTEDITOR(IEN) ;
N NAME
S NAME=$P($G(^ORE(101.74,IEN,0)),U)
I NAME="COMPONENTS" Q 1
I NAME="PLUGINS" Q 1
I NAME="NATIONAL INFO PANEL" Q 1
I NAME="EDITOR" Q 1
I NAME="WEB CONTENT" Q 1
Q 0
;
TRANSPORTPLUGIN(IEN) ;
N NAME
S NAME=$P($G(^OR(101.75,IEN,0)),U)
I NAME="COMPONENTS" Q 1
I NAME="EDITOR" Q 1
I NAME="INFO PANEL" Q 1
I NAME="PLUGIN SETUP" Q 1
I NAME="PROVIDER LOOKUP" Q 1
I NAME="SCHEMA" Q 1
Q 0
;
TRANSPORTWEB(IEN) ;
N NODE
S NODE=$G(^ORW(101.76,IEN,0))
I $P(NODE,U,3)=1 Q 1
I $P(NODE,U)="INFO UI SCHEMA" Q 1
I $P(NODE,U)="INFO SCHEMA" Q 1
I $P(NODE,U)="COMPONENT UI SCHEMA" Q 1
I $P(NODE,U)="COMPONENT SCHEMA" Q 1
I $P(NODE,U)="EDITOR UI SCHEMA" Q 1
I $P(NODE,U)="EDITOR SCHEMA" Q 1
I $P(NODE,U)="SCHEMA UI SCHEMA" Q 1
I $P(NODE,U)="SCHEMA SCHEMA" Q 1
I $P(NODE,U)="PLUGIN UI SCHEMA" Q 1
I $P(NODE,U)="PLUGIN SCHEMA" Q 1
Q 0
;
SETPKGPARAMS ;set PKG values for 3 of the 4 below params, as they can be overidden by the site with a SYS param, but not the UDPATE PSO param, as it is SYS only.
D EN^XPAR("PKG","OR LOAD SA FROM EXISTING ORDER",1,"y") ;y/1
D EN^XPAR("SYS","OR LOAD SA FROM EXISTING ORDER",1,"y") ;y/1
D EN^XPAR("PKG","OR SPECAUTH ADD PROB TO VISIT",1,"n") ;no/No
D EN^XPAR("PKG","OR SPECAUTH UNANSWERD TO VALUE",1,"C") ;Checked/true
D EN^XPAR("SYS","OR UPDATE PSO ENV INDICATOR",1,"n") ;n/0
I $$PATCH^XPDUTL("OR*3.0*508"),$$PATCH^XPDUTL("PSO*7.0*788") D EN^XPAR("SYS","OR UPDATE PSO ENV INDICATOR",1,"y")
D EN^XPAR("PKG","OR CPRS LAST BROKER RPC MAX",1,500)
D EN^XPAR("PKG","OR CPRS ACTIVITY LOG SIZE",1,10,)
Q
;
NONVAPAP ;Set SYS & PKG values for NON-VA provider for both parameter defintions
N FRM,I
F I=1:1 S FRM=$P($T(NONVAP+I),";;",2) Q:FRM="" D
. D SETPARVAL("ORWCH NON-VA PROVIDERS",FRM,"PKG",1)
;
D SETPARVAL("ORWCH NON-VA PROVS FEATURE",1,"PKG","YES")
Q
;
SETPARVAL(ORPAR,ORINST,ORENT,ORVAL) ; set param value
;
N ORERR
;
D BMES^XPDUTL("Setting "_$G(ORENT)_" value for parameter "_ORPAR_" ("_ORINST_")...")
;
D EN^XPAR(ORENT,ORPAR,ORINST,.ORVAL,.ORERR)
K ORVAL
I +$G(ORERR)>0 D Q
. D MES^XPDUTL(" ERROR #"_$P(ORERR,U)_": "_$P(ORERR,U,2))
. D MES^XPDUTL(" Please log a Service Now ticket for assistance.")
D MES^XPDUTL(" Done.")
;
NONVAP ;Form Names for NON-VA Provider
;;frmEncounter,cboPtProvider
;;frmODAnatPath,cbxPtProvider
;;frmdlgProb,cbProv
;;vimmMainForm,ORDERED_BY
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY508 7749 printed May 25, 2026@12:46:46 Page 2
ORY508 ;SLC/AGP/GN - PRE/POST INSTALL OR*3.0*508 ;Nov 07, 2025@12:15:01
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**508**;Dec 17, 1997;Build 39
+2 ;
+3 ;
+4 QUIT
+5 ;
ENVCHCK ;
+1 NEW ALERTS
+2 DO ALERTPARAMS(.ALERTS)
+3 IF '$$ENVCHKALERTS(.ALERTS)
WRITE !,"Cannot install notifications updates"
SET XPDABORT=2
QUIT
+4 QUIT
+5 ;
+6 ;COPY OF CODE on ENVCHKALERTS^ORPATCHUTILS, had to place here since first time the ORPATCHUTILS is being deployed
ENVCHKALERTS(ALERTS) ;
+1 NEW IDX,RESULT
+2 SET RESULT=1
+3 SET IDX=0
FOR
SET IDX=$ORDER(ALERTS(IDX))
if IDX'>0!(RESULT=0)
QUIT
Begin DoDot:1
+4 IF '$DATA(^ORD(100.9,IDX))
QUIT
+5 IF $PIECE($GET(^ORD(100.9,IDX,0)),U)'=ALERTS(IDX,"name")
SET ALERTS(IDX,"error")="Entry found in file 100.9"
SET RESULT=0
End DoDot:1
+6 QUIT RESULT
+7 ;
DELDD ;
+1 NEW DIU,TEXT
+2 DO BMES^XPDUTL("Removing old data dictionaries.")
+3 SET DIU(0)=""
+4 FOR DIU=100.0112,101.71,101.73,101.74,101.75,101.76,101.77
Begin DoDot:1
+5 SET TEXT=" Deleting data dictionary for file # "_DIU
+6 DO MES^XPDUTL(TEXT)
+7 DO EN^DIU2
End DoDot:1
+8 QUIT
+9 ;
DELWIN ; pre-install to remove win message param values
+1 ;KIDS will delete the parameter definition during the install
+2 NEW PARM,LIST,ERR
+3 SET PARM="OR CPRS WIN MESSAGE LOG SIZE"
+4 DO BMES^XPDUTL("Building value list for "_PARM_" ...")
+5 DO ENVAL^XPAR(.LIST,PARM,,.ERR)
+6 ;parameter not found
if +$GET(ERR)>0
QUIT
+7 IF $GET(LIST)=0
DO BMES^XPDUTL("No values found - continuing with installation.")
QUIT
+8 DO BMES^XPDUTL("Deleting values from "_PARM_" ...")
+9 NEW I,J
SET I=""
SET J=0
+10 FOR
SET I=$ORDER(LIST(I))
if $GET(I)=""
QUIT
Begin DoDot:1
+11 FOR
SET J=$ORDER(LIST(I,J))
if +$GET(J)=0
QUIT
Begin DoDot:2
+12 DO DEL^XPAR(I,PARM,J,.ERR)
+13 IF +$GET(ERR)>0
Begin DoDot:3
+14 DO MES^XPDUTL("ERROR MESSAGE: "_$PIECE(ERR,"^",2))
KILL ERR
End DoDot:3
QUIT
End DoDot:2
End DoDot:1
+15 DO MES^XPDUTL("Completed deleting values.")
+16 QUIT
+17 ;
PRE ;
+1 DO SETALERTSTUB
+2 DO DELDD
+3 DO DELWIN
+4 QUIT
+5 ;
POST ;
+1 DO SETALERTPARAMS
+2 DO SETPANEL
+3 DO SETPKGPARAMS
+4 DO SETINFOPARAMS
+5 DO UPDMENU
+6 DO NONVAPAP
+7 QUIT
+8 ;
SETALERTPARAMS ;
+1 NEW ALERTS
+2 DO ALERTPARAMS(.ALERTS)
+3 IF '$$SETALERTPARAMS^ORPATCHUTILS(.ALERTS,1)
DO MES^XPDUTL("Enter a ServiceNow ticket")
+4 QUIT
+5 ;
SETALERTSTUB ;
+1 NEW ALERTS
+2 DO ALERTPARAMS(.ALERTS)
+3 IF '$$SETALERTSTUB^ORPATCHUTILS(.ALERTS,1)
DO MES^XPDUTL("Enter a ServiceNow ticket")
+4 QUIT
+5 ;
SETPANEL ;
+1 NEW ADM,CLI,ERROR,FDA,ORIMGR,PKG,SKY
+2 DO BMES^XPDUTL("Installing CPRS Information Panel")
+3 IF $GET(^ORI(101.71,1,0))'=""
QUIT
+4 SET PKG=+$ORDER(^DIC(9.4,"B","ORDER ENTRY/RESULTS REPORTING",""))
IF PKG=0
DO BMES^XPDUTL("ORDER ENTRY/RESULTS REPORTING package entry not found.")
QUIT
+5 SET CLI=$ORDER(^ORI(101.73,"B","ALL TAB CLINICAL",""))
IF CLI=0
DO BMES^XPDUTL("Component entry ALL TAB CLINICAL not found.")
QUIT
+6 SET ADM=$ORDER(^ORI(101.73,"B","ALL TAB ADMIN",""))
IF ADM=0
DO BMES^XPDUTL("Component entry ALL TAB ADMIN not found.")
QUIT
+7 ;S SKY=$O(^ORI(101.73,"B","SKY BLUE","")) I ADM=0 D BMES^XPDUTL("Component entry SKY BLUE not found.") Q
+8 SET FDA(101.71,"+1,",.01)="NATIONAL"
+9 SET FDA(101.71,"+1,",.02)=1
+10 SET FDA(101.71,"+1,",.03)=$$NOW^XLFDT()
+11 SET FDA(101.71,"+1,",.04)="Patch: OR*3.0*508"
+12 SET FDA(101.711,"+2,+1,",.01)=PKG
+13 SET FDA(101.7112,"+3,+2,+1,",.01)=1
+14 SET FDA(101.7112,"+3,+2,+1,",.02)=CLI
+15 SET FDA(101.7112,"+3,+2,+1,",.03)="Clinical Information"
+16 SET FDA(101.7112,"+3,+2,+1,",.04)="CI"
+17 ;S FDA(101.7112,"+3,+2,+1,",.05)=SKY
+18 SET FDA(101.7112,"+3,+2,+1,",.07)="false"
+19 SET FDA(101.7112,"+4,+2,+1,",.01)=2
+20 SET FDA(101.7112,"+4,+2,+1,",.02)=ADM
+21 SET FDA(101.7112,"+4,+2,+1,",.03)="Admin Function"
+22 SET FDA(101.7112,"+4,+2,+1,",.04)="NAF"
+23 ;S FDA(101.7112,"+4,+2,+1,",.05)=SKY
+24 SET FDA(101.7112,"+4,+2,+1,",.07)="true"
+25 SET ORIMGR=1
+26 DO UPDATE^DIE("","FDA","","ERROR")
+27 IF $DATA(ERROR)
DO AWRITE^ORINQIV("ERROR")
QUIT
+28 DO BMES^XPDUTL(" Done")
+29 QUIT
+30 ;
SETINFOPARAMS ;
+1 NEW ORPARAMS
+2 DO INFOPARAMS(.ORPARAMS)
+3 DO BMES^XPDUTL("Setting Information Panel parameters:")
+4 DO SETPARAMS^ORPATCHUTILS(.ORPARAMS,1)
+5 DO BMES^XPDUTL(" Done")
+6 QUIT
+7 ;
+1 NEW FAIL
+2 SET FAIL=0
+3 DO BMES^XPDUTL("Updating the menu OR PARAM COORDINATOR MENU")
+4 IF +$$ADD^XPDMENU("OR PARAM COORDINATOR MENU","OR DEBUG REPORT","RPC","")=0
SET FAIL=1
+5 IF +$$ADD^XPDMENU("OR PARAM COORDINATOR MENU","ORI MENU","INFO","")=0
SET FAIL=1
+6 DO BMES^XPDUTL($SELECT(FAIL=1:" error updating OR PARAM COORDINATOR MENU",1:" Done"))
+7 SET FAIL=0
+8 QUIT
+9 ;
+10 ;========================= CONFIG SECTION ========================================
ALERTPARAMS(RESULTS) ;
+1 SET RESULTS(100,"name")="COMPACT UPDATES"
+2 SET RESULTS(100,"error")=""
+3 SET RESULTS(100,"parameters","ORB ARCHIVE PERIOD")=30
+4 SET RESULTS(100,"parameters","ORB DELETE MECHANISM")="A"
+5 SET RESULTS(100,"parameters","ORB FORWARD BACKUP REVIEWER")=0
+6 SET RESULTS(100,"parameters","ORB FORWARD SUPERVISOR")=0
+7 SET RESULTS(100,"parameters","ORB FORWARD SURROGATES")=0
+8 SET RESULTS(100,"parameters","ORB PROCESSING FLAG")="Disabled"
+9 SET RESULTS(100,"parameters","ORB PROVIDER RECIPIENTS")=""
+10 SET RESULTS(100,"parameters","ORB URGENCY")="Low"
+11 QUIT
+12 ;
INFOPARAMS(RESULTS) ;
+1 SET RESULTS("OR INFO COLORS","PKG",1)="DISABLED"
+2 SET RESULTS("OR INFO DEFAULT COLOR","PKG",1)="WINDOW BUTTON FACE"
+3 SET RESULTS("OR INFO IMAGES","PKG",1)="ENABLED"
+4 SET RESULTS("OR INFO INDENT","PKG",1)="YES"
+5 SET RESULTS("OR INFO MOUSE CLICK","PKG",1)="YES"
+6 SET RESULTS("OR INFO PANEL ALIGNMENT","PKG",1)="Left"
+7 SET RESULTS("OR INFO PANEL ON","PKG",1)="ON"
+8 SET RESULTS("OR INFO REFRESH BUTTON","PKG",1)="YES"
+9 SET RESULTS("OR INFO TEXT ALIGN","PKG",1)="Left"
+10 QUIT
+11 ;
+12 ;========================= TRANSPORT SECTION RECORD KIDS IS EXPORTING ============
TRANSPORTEDITOR(IEN) ;
+1 NEW NAME
+2 SET NAME=$PIECE($GET(^ORE(101.74,IEN,0)),U)
+3 IF NAME="COMPONENTS"
QUIT 1
+4 IF NAME="PLUGINS"
QUIT 1
+5 IF NAME="NATIONAL INFO PANEL"
QUIT 1
+6 IF NAME="EDITOR"
QUIT 1
+7 IF NAME="WEB CONTENT"
QUIT 1
+8 QUIT 0
+9 ;
TRANSPORTPLUGIN(IEN) ;
+1 NEW NAME
+2 SET NAME=$PIECE($GET(^OR(101.75,IEN,0)),U)
+3 IF NAME="COMPONENTS"
QUIT 1
+4 IF NAME="EDITOR"
QUIT 1
+5 IF NAME="INFO PANEL"
QUIT 1
+6 IF NAME="PLUGIN SETUP"
QUIT 1
+7 IF NAME="PROVIDER LOOKUP"
QUIT 1
+8 IF NAME="SCHEMA"
QUIT 1
+9 QUIT 0
+10 ;
TRANSPORTWEB(IEN) ;
+1 NEW NODE
+2 SET NODE=$GET(^ORW(101.76,IEN,0))
+3 IF $PIECE(NODE,U,3)=1
QUIT 1
+4 IF $PIECE(NODE,U)="INFO UI SCHEMA"
QUIT 1
+5 IF $PIECE(NODE,U)="INFO SCHEMA"
QUIT 1
+6 IF $PIECE(NODE,U)="COMPONENT UI SCHEMA"
QUIT 1
+7 IF $PIECE(NODE,U)="COMPONENT SCHEMA"
QUIT 1
+8 IF $PIECE(NODE,U)="EDITOR UI SCHEMA"
QUIT 1
+9 IF $PIECE(NODE,U)="EDITOR SCHEMA"
QUIT 1
+10 IF $PIECE(NODE,U)="SCHEMA UI SCHEMA"
QUIT 1
+11 IF $PIECE(NODE,U)="SCHEMA SCHEMA"
QUIT 1
+12 IF $PIECE(NODE,U)="PLUGIN UI SCHEMA"
QUIT 1
+13 IF $PIECE(NODE,U)="PLUGIN SCHEMA"
QUIT 1
+14 QUIT 0
+15 ;
SETPKGPARAMS ;set PKG values for 3 of the 4 below params, as they can be overidden by the site with a SYS param, but not the UDPATE PSO param, as it is SYS only.
+1 ;y/1
DO EN^XPAR("PKG","OR LOAD SA FROM EXISTING ORDER",1,"y")
+2 ;y/1
DO EN^XPAR("SYS","OR LOAD SA FROM EXISTING ORDER",1,"y")
+3 ;no/No
DO EN^XPAR("PKG","OR SPECAUTH ADD PROB TO VISIT",1,"n")
+4 ;Checked/true
DO EN^XPAR("PKG","OR SPECAUTH UNANSWERD TO VALUE",1,"C")
+5 ;n/0
DO EN^XPAR("SYS","OR UPDATE PSO ENV INDICATOR",1,"n")
+6 IF $$PATCH^XPDUTL("OR*3.0*508")
IF $$PATCH^XPDUTL("PSO*7.0*788")
DO EN^XPAR("SYS","OR UPDATE PSO ENV INDICATOR",1,"y")
+7 DO EN^XPAR("PKG","OR CPRS LAST BROKER RPC MAX",1,500)
+8 DO EN^XPAR("PKG","OR CPRS ACTIVITY LOG SIZE",1,10,)
+9 QUIT
+10 ;
NONVAPAP ;Set SYS & PKG values for NON-VA provider for both parameter defintions
+1 NEW FRM,I
+2 FOR I=1:1
SET FRM=$PIECE($TEXT(NONVAP+I),";;",2)
if FRM=""
QUIT
Begin DoDot:1
+3 DO SETPARVAL("ORWCH NON-VA PROVIDERS",FRM,"PKG",1)
End DoDot:1
+4 ;
+5 DO SETPARVAL("ORWCH NON-VA PROVS FEATURE",1,"PKG","YES")
+6 QUIT
+7 ;
SETPARVAL(ORPAR,ORINST,ORENT,ORVAL) ; set param value
+1 ;
+2 NEW ORERR
+3 ;
+4 DO BMES^XPDUTL("Setting "_$GET(ORENT)_" value for parameter "_ORPAR_" ("_ORINST_")...")
+5 ;
+6 DO EN^XPAR(ORENT,ORPAR,ORINST,.ORVAL,.ORERR)
+7 KILL ORVAL
+8 IF +$GET(ORERR)>0
Begin DoDot:1
+9 DO MES^XPDUTL(" ERROR #"_$PIECE(ORERR,U)_": "_$PIECE(ORERR,U,2))
+10 DO MES^XPDUTL(" Please log a Service Now ticket for assistance.")
End DoDot:1
QUIT
+11 DO MES^XPDUTL(" Done.")
+12 ;
NONVAP ;Form Names for NON-VA Provider
+1 ;;frmEncounter,cboPtProvider
+2 ;;frmODAnatPath,cbxPtProvider
+3 ;;frmdlgProb,cbProv
+4 ;;vimmMainForm,ORDERED_BY
+5 QUIT
