ANRVOP ; HOIFO/CD - Post Init Version Control ; [01-07-2003 12:20]
;;4.0;VISUAL IMPAIRMENT SERVICE TEAM;**5**;JUN 03, 2002
EN ; [Procedure] Main entry to update Patient Review Version
NEW ANRV,ANRVGUI,ANRVLST
D GETLST^XPAR(.ANRVLST,"SYS","ANRV GUI VERSION")
F ANRV=0:0 S ANRV=$O(ANRVLST(ANRV)) Q:'ANRV D
.D SETPAR("ANRV GUI VERSION",$P(ANRVLST(ANRV),"^",1),0)
S ANRVGUI="4.0.5.3" D
.D SETPAR("ANRV GUI VERSION","ANRV.EXE:"_ANRVGUI,1)
Q
;
SETPAR(PAR,INS,VAL) ; [Procedure] Set the Parameter
; Input parameters
; 1. PAR [Literal/Required] No description
; 2. INS [Literal/Required] No description
; 3. VAL [Literal/Required] No description
;
D EN^XPAR("SYS",PAR,INS,VAL)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HANRVOP 714 printed Dec 13, 2024@02:45:49 Page 2
ANRVOP ; HOIFO/CD - Post Init Version Control ; [01-07-2003 12:20]
+1 ;;4.0;VISUAL IMPAIRMENT SERVICE TEAM;**5**;JUN 03, 2002
EN ; [Procedure] Main entry to update Patient Review Version
+1 NEW ANRV,ANRVGUI,ANRVLST
+2 DO GETLST^XPAR(.ANRVLST,"SYS","ANRV GUI VERSION")
+3 FOR ANRV=0:0
SET ANRV=$ORDER(ANRVLST(ANRV))
if 'ANRV
QUIT
Begin DoDot:1
+4 DO SETPAR("ANRV GUI VERSION",$PIECE(ANRVLST(ANRV),"^",1),0)
End DoDot:1
+5 SET ANRVGUI="4.0.5.3"
Begin DoDot:1
+6 DO SETPAR("ANRV GUI VERSION","ANRV.EXE:"_ANRVGUI,1)
End DoDot:1
+7 QUIT
+8 ;
SETPAR(PAR,INS,VAL) ; [Procedure] Set the Parameter
+1 ; Input parameters
+2 ; 1. PAR [Literal/Required] No description
+3 ; 2. INS [Literal/Required] No description
+4 ; 3. VAL [Literal/Required] No description
+5 ;
+6 DO EN^XPAR("SYS",PAR,INS,VAL)
+7 QUIT
+8 ;
