ANRV4P6 ; HOIFO/CD - Post Init Version Control ; 8/5/03 2:55pm
;;4.0;VISUAL IMPAIRMENT SERVICE TEAM;**6**;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.6.0" 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[HANRV4P6 710 printed Dec 13, 2024@02:45:33 Page 2
ANRV4P6 ; HOIFO/CD - Post Init Version Control ; 8/5/03 2:55pm
+1 ;;4.0;VISUAL IMPAIRMENT SERVICE TEAM;**6**;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.6.0"
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 ;
