Routine: ANRVJP

ANRVJP ; CED/HOIFO - Post Init Version Control ; [09-24-2004]

 ;;5.0;BLIND REHABILITATION;;Jun 02, 2006;Build 4

;;

EN ;

 N 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="5.0.1.4" D

 .D SETPAR("ANRV GUI VERSION","ANRV.EXE:"_ANRVGUI,1)

 D SETPROX("ANRVAPPLICATION,PROXY USER")

 D ADDOPT

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)

SETPROX(PROX)

 D ADDPROXY(PROX)

ADDPROXY(XOBANAME) ; add application proxy if not present

 ; depends on XU*8*361

 NEW XOBID,XOBMSG,XOBSUBER,XOBSUBTX,XOBLINE,ANRVOPT

 ; if already present don't add

 QUIT:(+$$APFIND^XUSAP(XOBANAME))>0

 ; add menus

 S ANRVOPT("ANRVJ_BLINDREHAB")=""

 S ANRVOPT("DGRR PATIENT SERVICE QUERY")=""

 SET XOBID=$$CREATE^XUSAP(XOBANAME,"",.ANRVOPT,"")

 IF (+XOBID)>0 DO

 . SET XOBMSG(1)="Added new Application Proxy User '"_XOBANAME_"'."

 . DO BMES^XPDUTL(.XOBMSG)

 IF (+XOBID)=0 DO

 . ; already checked if user present, should never get 0 back

 . SET XOBMSG(1)=">>> Error: Could not add Application Proxy User '"_XOBANAME_"' -- Already exists."

 . DO BMES^XPDUTL(.XOBMSG)

 IF (+XOBID)<0 DO

 . SET XOBMSG(1)=">>> Error: Could not add Application Proxy User '"_XOBANAME_"'."

 . SET XOBMSG(2)="    DIERR nodes: <start of error(s)>"

 . SET XOBLINE=3,XOBSUBER=0 FOR  SET XOBSUBER=$O(^TMP("DIERR",$J,XOBSUBER)) QUIT:(+XOBSUBER)'>0  DO

 . . SET XOBMSG(XOBLINE)="    "_^TMP("DIERR",$J,XOBSUBER),XOBLINE=XOBLINE+1

 . . SET XOBSUBTX=0 FOR  SET XOBSUBTX=$O(^TMP("DIERR",$J,XOBSUBER,"TEXT",XOBSUBTX)) QUIT:(+XOBSUBTX)'>0  DO

 . . . SET XOBMSG(XOBLINE)="    "_^TMP("DIERR",$J,XOBSUBER,"TEXT",XOBSUBTX),XOBLINE=XOBLINE+1

 . SET XOBMSG(XOBLINE+1)="    <end of error(s)>"

 . DO BMES^XPDUTL(.XOBMSG)

 . K ^TMP("DIERR",$J)

 QUIT

ADDOPT

 ; this is being icluded to add foundations to the

 N ANRVOPT,ANRVFDA,ANRVIEN,ANRVERR,ANRVMSG,I,J,K

 S ANRVOPT=$$FIND1^DIC(19,,"QX","ANRVJ_BLINDREHAB","B")

 S ANRVFDA(19.01,"?+2,"_ANRVOPT_",",.01)="DGRR GUI PATIENT LOOKUP"

 S ANRVFDA(19.01,"?+3,"_ANRVOPT_",",.01)="DGRR PATIENT SERVICE QUERY"

 D UPDATE^DIE("E","ANRVFDA","ANRVIEN","ANRVERR")

 I $D(ANRVERR) D

 . S I=0

 . F J=0:0 S J=$O(ANRVERR("DIERR",J)) Q:'J  F K=0:0 S K=$O(ANRVERR("DIERR",J,"TEXT",K)) Q:'K  D

 . . S I=I+1,ANRVMSG(I)=ANRVERR("DIERR",J,"TEXT",K)

 . . Q

 . S I=I+1,ANRVMSG(I)=" "

 . S ANRVMSG(I+1)="The Patient Services Broker Type Options DGRR GUI PATIENT LOOKUP"

 . S ANRVMSG(I+2)="and DGRR PATIENT SERVICE QUERY could not be added to the"

 . S ANRVMSG(I+3)="ANRV Option ANRVJ_BLINDREHAB."

 . S ANRVMSG(I+4)=" "

 . S ANRVMSG(I+5)="Users of the Blind Rehabilitation application will not be able to look up"

 . S ANRVMSG(I+6)="patients until this is resolved."

 . D MES^XPDUTL(.ANRVMSG)

. Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HANRVJP   3100     printed  Mar 13, 2025@21:50:38                                                                                                                                                                                                      Page 2

ANRVJP    ; CED/HOIFO - Post Init Version Control ; [09-24-2004]

 +1       ;;5.0;BLIND REHABILITATION;;Jun 02, 2006;Build 4

 +2       ;;

EN        ;

 +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="5.0.1.4"

           Begin DoDot:1

 +6            DO SETPAR("ANRV GUI VERSION","ANRV.EXE:"_ANRVGUI,1)

           End DoDot:1

 +7        DO SETPROX("ANRVAPPLICATION,PROXY USER")

 +8        DO ADDOPT

 +9        QUIT

 +10      ;

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       ;

SETPROX(PROX)  +1 ;

 +2        DO ADDPROXY(PROX)

 +3       ;

ADDPROXY(XOBANAME) ; add application proxy if not present

 +1       ; depends on XU*8*361

 +2        NEW XOBID,XOBMSG,XOBSUBER,XOBSUBTX,XOBLINE,ANRVOPT

 +3       ;

 +4       ; if already present don't add

 +5        if (+$$APFIND^XUSAP(XOBANAME))>0

               QUIT

 +6       ; add menus

 +7        SET ANRVOPT("ANRVJ_BLINDREHAB")=""

 +8        SET ANRVOPT("DGRR PATIENT SERVICE QUERY")=""

 +9       ;

 +10       SET XOBID=$$CREATE^XUSAP(XOBANAME,"",.ANRVOPT,"")

 +11      ;

 +12       IF (+XOBID)>0

               Begin DoDot:1

 +13               SET XOBMSG(1)="Added new Application Proxy User '"_XOBANAME_"'."

 +14               DO BMES^XPDUTL(.XOBMSG)

               End DoDot:1

 +15       IF (+XOBID)=0

               Begin DoDot:1

 +16      ; already checked if user present, should never get 0 back

 +17               SET XOBMSG(1)=">>> Error: Could not add Application Proxy User '"_XOBANAME_"' -- Already exists."

 +18               DO BMES^XPDUTL(.XOBMSG)

               End DoDot:1

 +19       IF (+XOBID)<0

               Begin DoDot:1

 +20               SET XOBMSG(1)=">>> Error: Could not add Application Proxy User '"_XOBANAME_"'."

 +21               SET XOBMSG(2)="    DIERR nodes: <start of error(s)>"

 +22               SET XOBLINE=3

                   SET XOBSUBER=0

FOR

                       SET XOBSUBER=$ORDER(^TMP("DIERR",$JOB,XOBSUBER))

                       if (+XOBSUBER)'>0

                           QUIT

                       Begin DoDot:2

 +23                       SET XOBMSG(XOBLINE)="    "_^TMP("DIERR",$JOB,XOBSUBER)

                           SET XOBLINE=XOBLINE+1

 +24                       SET XOBSUBTX=0

FOR

                               SET XOBSUBTX=$ORDER(^TMP("DIERR",$JOB,XOBSUBER,"TEXT",XOBSUBTX))

                               if (+XOBSUBTX)'>0

                                   QUIT

                               Begin DoDot:3

 +25                               SET XOBMSG(XOBLINE)="    "_^TMP("DIERR",$JOB,XOBSUBER,"TEXT",XOBSUBTX)

                                   SET XOBLINE=XOBLINE+1

                               End DoDot:3

                       End DoDot:2

 +26               SET XOBMSG(XOBLINE+1)="    <end of error(s)>"

 +27               DO BMES^XPDUTL(.XOBMSG)

 +28               KILL ^TMP("DIERR",$JOB)

               End DoDot:1

 +29      ;

 +30       QUIT

 +31      ;

ADDOPT  +1 ; this is being icluded to add foundations to the

 +2        NEW ANRVOPT,ANRVFDA,ANRVIEN,ANRVERR,ANRVMSG,I,J,K

 +3        SET ANRVOPT=$$FIND1^DIC(19,,"QX","ANRVJ_BLINDREHAB","B")

 +4        SET ANRVFDA(19.01,"?+2,"_ANRVOPT_",",.01)="DGRR GUI PATIENT LOOKUP"

 +5        SET ANRVFDA(19.01,"?+3,"_ANRVOPT_",",.01)="DGRR PATIENT SERVICE QUERY"

 +6        DO UPDATE^DIE("E","ANRVFDA","ANRVIEN","ANRVERR")

 +7        IF $DATA(ANRVERR)

               Begin DoDot:1

 +8                SET I=0

 +9                FOR J=0:0

                       SET J=$ORDER(ANRVERR("DIERR",J))

                       if 'J

                           QUIT

                       FOR K=0:0

                           SET K=$ORDER(ANRVERR("DIERR",J,"TEXT",K))

                           if 'K

                               QUIT

                           Begin DoDot:2

 +10                           SET I=I+1

                               SET ANRVMSG(I)=ANRVERR("DIERR",J,"TEXT",K)

 +11                           QUIT

                           End DoDot:2

 +12               SET I=I+1

                   SET ANRVMSG(I)=" "

 +13               SET ANRVMSG(I+1)="The Patient Services Broker Type Options DGRR GUI PATIENT LOOKUP"

 +14               SET ANRVMSG(I+2)="and DGRR PATIENT SERVICE QUERY could not be added to the"

 +15               SET ANRVMSG(I+3)="ANRV Option ANRVJ_BLINDREHAB."

 +16               SET ANRVMSG(I+4)=" "

 +17               SET ANRVMSG(I+5)="Users of the Blind Rehabilitation application will not be able to look up"

 +18               SET ANRVMSG(I+6)="patients until this is resolved."

 +19               DO MES^XPDUTL(.ANRVMSG)

 +20               QUIT

               End DoDot:1

 +21       QUIT

 +22      ;

 +23      ;

ANRVJP.m