ORY334 ; SLC/KCM - Turn off Auto Unflag ;03:16 PM 2 Sep 1998
;;3.0;ORDER ENTRY/RESULTS REPORTING;**334**;Dec 17, 1997;Build 5
;;Per VHA Directive 2004-038, this routine should not be modified
;
;DBIA reference section
;2992 - ^XTV(8989.51
;2053 - DIE
;10070 - XMD
;2263 - XPAR
;
N AUTOUNFL,XPARIEN
S AUTOUNFL=$$GET^XPAR("SYS","ORPF AUTO UNFLAG")
S XPARIEN=$O(^XTV(8989.51,"B","ORPF AUTO UNFLAG",0))
I AUTOUNFL=1,$G(XPARIEN) D
. N ERR
. I $P(^XTV(8989.51,XPARIEN,0),"^",6) D PROHIBIT(XPARIEN,0) ;Edit has been disabled so enable for just now.
. D EN^XPAR("SYS","ORPF AUTO UNFLAG",1,0,.ERR) ;turn off auto unflag
. I +ERR D MAIL(ERR)
D PROHIBIT(XPARIEN,1)
Q
;
PROHIBIT(DA,YESNO) ;Set PROHIBIT EDITING field of the parameter definition file
N DR,DIE
S DR=".06////"_YESNO,DIE="^XTV(8989.51,"
D ^DIE
Q
;
MAIL(ERR) ;
; setup, create, and send a mailman message to the installer
; instructing him/her on how to manually set the ORPF AUTO UNFLAG
; to NO in VistA when the pre-install process has failed.
N XMSUB,XMTEXT,XMDUZ,XMY,XMZ,XMMG,I
S XMDUZ="PATCH OR*3*334 PRE-INIT" S:$G(DUZ) XMY(DUZ)=""
S I=0,I=I+1,^TMP($J,"ORTXT",I)=""
S I=I+1,^TMP($J,"ORTXT",I)="The following error occurred in the process of modifying the ORPF AUTO UNFLAG"
S I=I+1,^TMP($J,"ORTXT",I)="parameter programmatically.",I=I+1,^TMP($J,"ORTXT",I)=""
S I=I+1,^TMP($J,"ORTXT",I)=" "_ERR,I=I+1,^TMP($J,"ORTXT",I)=""
S I=I+1,^TMP($J,"ORTXT",I)="Attached are some instructions on how to manually change these parameter settings"
S I=I+1,^TMP($J,"ORTXT",I)="in VistA. Please follow the below instructions to make this change."
S I=I+1,^TMP($J,"ORTXT",I)=""
S I=I+1,^TMP($J,"ORTXT",I)=" 1) First, enable editing on the ORPF AUTO UNFLAG parameter."
S I=I+1,^TMP($J,"ORTXT",I)=" a) In VistA, access FileMan."
S I=I+1,^TMP($J,"ORTXT",I)=" b) Select option 1 ENTER OR EDIT FILE ENTRIES."
S I=I+1,^TMP($J,"ORTXT",I)=" c) At INPUT TO WHAT FILE: prompt select PARAMETER DEFINITION."
S I=I+1,^TMP($J,"ORTXT",I)=" d) At the EDIT WHICH FIELD: ALL// prompt, enter in PROHIBIT EDITING."
S I=I+1,^TMP($J,"ORTXT",I)=" e) At the THEN EDIT FIELD: prompt, hit enter."
S I=I+1,^TMP($J,"ORTXT",I)=" f) At the Select PARAMETER DEFINITION NAME: prompt, enter ORPF AUTO UNFLAG."
S I=I+1,^TMP($J,"ORTXT",I)=" g) At the PROHIBIT EDITING: Yes// prompt, enter No."
S I=I+1,^TMP($J,"ORTXT",I)=" h) Exit FileMan.",I=I+1,^TMP($J,"ORTXT",I)=""
S I=I+1,^TMP($J,"ORTXT",I)=" 2) Second, set the ORPF AUTO UNFLAG parameter to NO."
S I=I+1,^TMP($J,"ORTXT",I)=" a) In VistA, access the General Parameter Tools menu [XPAR MENU TOOLS]."
S I=I+1,^TMP($J,"ORTXT",I)=" b) Select EP, Edit Parameter Values [XPAR EDIT PARAMETER]."
S I=I+1,^TMP($J,"ORTXT",I)=" c) At the Select PARAMETER DEFINITION NAME: prompt, "
S I=I+1,^TMP($J,"ORTXT",I)=" enter in ORPF AUTO UNFLAG."
S I=I+1,^TMP($J,"ORTXT",I)=" d) At the next prompt, AUTO UNFLAG: YES//, enter in NO."
S I=I+1,^TMP($J,"ORTXT",I)=" e) Exit the General Parameter Tools",I=I+1,^TMP($J,"ORTXT",I)=""
S I=I+1,^TMP($J,"ORTXT",I)=" 3) Finally, disable editing on the ORPF AUTO UNFLAG parameter."
S I=I+1,^TMP($J,"ORTXT",I)=" a) In VistA, access FileMan."
S I=I+1,^TMP($J,"ORTXT",I)=" b) Select option 1 ENTER OR EDIT FILE ENTRIES."
S I=I+1,^TMP($J,"ORTXT",I)=" c) At INPUT TO WHAT FILE: prompt select PARAMETER DEFINITION."
S I=I+1,^TMP($J,"ORTXT",I)=" d) At the EDIT WHICH FIELD: ALL// prompt, enter in PROHIBIT EDITING."
S I=I+1,^TMP($J,"ORTXT",I)=" e) At the THEN EDIT FIELD: prompt, hit enter."
S I=I+1,^TMP($J,"ORTXT",I)=" f) At the Select PARAMETER DEFINITION NAME: prompt, enter ORPF AUTO UNFLAG."
S I=I+1,^TMP($J,"ORTXT",I)=" g) At the PROHIBIT EDITING: No// prompt, enter Yes."
S I=I+1,^TMP($J,"ORTXT",I)=" h) Exit FileMan.",I=I+1,^TMP($J,"ORTXT",I)="",I=I+1,^TMP($J,"ORTXT",I)=""
S I=I+1,^TMP($J,"ORTXT",I)="",XMTEXT="^TMP($J,""ORTXT"",",XMSUB="PATCH OR*3*334 Pre-init FAILED!"
D ^XMD
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY334 4071 printed Apr 09, 2024@21:28:49 Page 2
ORY334 ; SLC/KCM - Turn off Auto Unflag ;03:16 PM 2 Sep 1998
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**334**;Dec 17, 1997;Build 5
+2 ;;Per VHA Directive 2004-038, this routine should not be modified
+3 ;
+4 ;DBIA reference section
+5 ;2992 - ^XTV(8989.51
+6 ;2053 - DIE
+7 ;10070 - XMD
+8 ;2263 - XPAR
+9 ;
+10 NEW AUTOUNFL,XPARIEN
+11 SET AUTOUNFL=$$GET^XPAR("SYS","ORPF AUTO UNFLAG")
+12 SET XPARIEN=$ORDER(^XTV(8989.51,"B","ORPF AUTO UNFLAG",0))
+13 IF AUTOUNFL=1
IF $GET(XPARIEN)
Begin DoDot:1
+14 NEW ERR
+15 ;Edit has been disabled so enable for just now.
IF $PIECE(^XTV(8989.51,XPARIEN,0),"^",6)
DO PROHIBIT(XPARIEN,0)
+16 ;turn off auto unflag
DO EN^XPAR("SYS","ORPF AUTO UNFLAG",1,0,.ERR)
+17 IF +ERR
DO MAIL(ERR)
End DoDot:1
+18 DO PROHIBIT(XPARIEN,1)
+19 QUIT
+20 ;
PROHIBIT(DA,YESNO) ;Set PROHIBIT EDITING field of the parameter definition file
+1 NEW DR,DIE
+2 SET DR=".06////"_YESNO
SET DIE="^XTV(8989.51,"
+3 DO ^DIE
+4 QUIT
+5 ;
MAIL(ERR) ;
+1 ; setup, create, and send a mailman message to the installer
+2 ; instructing him/her on how to manually set the ORPF AUTO UNFLAG
+3 ; to NO in VistA when the pre-install process has failed.
+4 NEW XMSUB,XMTEXT,XMDUZ,XMY,XMZ,XMMG,I
+5 SET XMDUZ="PATCH OR*3*334 PRE-INIT"
if $GET(DUZ)
SET XMY(DUZ)=""
+6 SET I=0
SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=""
+7 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)="The following error occurred in the process of modifying the ORPF AUTO UNFLAG"
+8 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)="parameter programmatically."
SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=""
+9 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" "_ERR
SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=""
+10 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)="Attached are some instructions on how to manually change these parameter settings"
+11 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)="in VistA. Please follow the below instructions to make this change."
+12 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=""
+13 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" 1) First, enable editing on the ORPF AUTO UNFLAG parameter."
+14 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" a) In VistA, access FileMan."
+15 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" b) Select option 1 ENTER OR EDIT FILE ENTRIES."
+16 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" c) At INPUT TO WHAT FILE: prompt select PARAMETER DEFINITION."
+17 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" d) At the EDIT WHICH FIELD: ALL// prompt, enter in PROHIBIT EDITING."
+18 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" e) At the THEN EDIT FIELD: prompt, hit enter."
+19 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" f) At the Select PARAMETER DEFINITION NAME: prompt, enter ORPF AUTO UNFLAG."
+20 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" g) At the PROHIBIT EDITING: Yes// prompt, enter No."
+21 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" h) Exit FileMan."
SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=""
+22 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" 2) Second, set the ORPF AUTO UNFLAG parameter to NO."
+23 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" a) In VistA, access the General Parameter Tools menu [XPAR MENU TOOLS]."
+24 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" b) Select EP, Edit Parameter Values [XPAR EDIT PARAMETER]."
+25 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" c) At the Select PARAMETER DEFINITION NAME: prompt, "
+26 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" enter in ORPF AUTO UNFLAG."
+27 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" d) At the next prompt, AUTO UNFLAG: YES//, enter in NO."
+28 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" e) Exit the General Parameter Tools"
SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=""
+29 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" 3) Finally, disable editing on the ORPF AUTO UNFLAG parameter."
+30 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" a) In VistA, access FileMan."
+31 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" b) Select option 1 ENTER OR EDIT FILE ENTRIES."
+32 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" c) At INPUT TO WHAT FILE: prompt select PARAMETER DEFINITION."
+33 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" d) At the EDIT WHICH FIELD: ALL// prompt, enter in PROHIBIT EDITING."
+34 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" e) At the THEN EDIT FIELD: prompt, hit enter."
+35 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" f) At the Select PARAMETER DEFINITION NAME: prompt, enter ORPF AUTO UNFLAG."
+36 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" g) At the PROHIBIT EDITING: No// prompt, enter Yes."
+37 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=" h) Exit FileMan."
SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=""
SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=""
+38 SET I=I+1
SET ^TMP($JOB,"ORTXT",I)=""
SET XMTEXT="^TMP($J,""ORTXT"","
SET XMSUB="PATCH OR*3*334 Pre-init FAILED!"
+39 DO ^XMD
+40 QUIT
