ANRV4P6.m

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 ---ANRV4P6   710     printed  Apr 09, 2024@21:47:47                                                                                                                                                                                                      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       ;