- 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 Feb 19, 2025@00:12:20 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 ;
