Routine: DVBA185P

DVBA185P ;ALB/DJS - PATCH DVBA*2.7*185 POST-INSTALL ROUTINE;21-JUN-2013

 ;;2.7;AMIE;**185**;Apr 10, 1995;Build 18

 ; This routine adds an entry to the REMOTE APPLICATION file (#8994.5) for CCR-CAPRI

POST ; Create record to add & update file

 S IEN="" F  S IEN=$O(^DIC(19,IEN)) Q:IEN=""  D

 . S OPTNM=$P($G(^DIC(19,IEN,0)),U,1) Q:OPTNM'="DVBA CAPRI GUI"  S OPTIEN=IEN

 S ARY(8994.5,"?+1,",.01)="CCR-CAPRI"  ;Remote application name

 S ARY(8994.5,"?+1,",.02)=OPTIEN  ;Context option IEN FOR "DVBA CAPRI GUI"

 S ARY(8994.5,"?+1,",.03)="J\f0LPa:]m#vpVZo2i[D"  ;Application code

 S ARY(8994.51,"?+2,?+1,",.01)="S"  ;Callback type

 S ARY(8994.51,"?+2,?+1,",.02)=-1  ;Callback port

 S ARY(8994.51,"?+2,?+1,",.03)="XXX"  ;Callback server

 D UPDATE^DIE("","ARY","","MSG")  ;Update Remote Application file with new CCR-CAPRI entry

    I $G(MSG("DIERR"))'="" D

 .N ERR,LN,LN2

 .S (ERR,LN2)=0

 .F  S ERR=+$O(MSG("DIERR",ERR)) Q:'ERR  D

 ..S LN=0

 ..F  S LN=+$O(MSG("DIERR",ERR,"TEXT",LN)) Q:'LN  D

 ...S LN2=LN2+1

 ...S X(LN2)=MSG("DIERR",ERR,"TEXT",LN)

 ...D BMES^XPDUTL(X(LN2))

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBA185P   1106     printed  Apr 09, 2024@20:59:50                                                                                                                                                                                                    Page 2

DVBA185P  ;ALB/DJS - PATCH DVBA*2.7*185 POST-INSTALL ROUTINE;21-JUN-2013

 +1       ;;2.7;AMIE;**185**;Apr 10, 1995;Build 18

 +2       ; This routine adds an entry to the REMOTE APPLICATION file (#8994.5) for CCR-CAPRI

 +3        QUIT

 +4       ;

POST      ; Create record to add & update file

 +1       ;

 +2        SET IEN=""

FOR

               SET IEN=$ORDER(^DIC(19,IEN))

               if IEN=""

                   QUIT

               Begin DoDot:1

 +3                SET OPTNM=$PIECE($GET(^DIC(19,IEN,0)),U,1)

                   if OPTNM'="DVBA CAPRI GUI"

                       QUIT

                   SET OPTIEN=IEN

               End DoDot:1

 +4       ;Remote application name

           SET ARY(8994.5,"?+1,",.01)="CCR-CAPRI"

 +5       ;Context option IEN FOR "DVBA CAPRI GUI"

           SET ARY(8994.5,"?+1,",.02)=OPTIEN

 +6       ;Application code

           SET ARY(8994.5,"?+1,",.03)="J\f0LPa:]m#vpVZo2i[D"

 +7       ;Callback type

           SET ARY(8994.51,"?+2,?+1,",.01)="S"

 +8       ;Callback port

           SET ARY(8994.51,"?+2,?+1,",.02)=-1

 +9       ;Callback server

           SET ARY(8994.51,"?+2,?+1,",.03)="XXX"

 +10      ;Update Remote Application file with new CCR-CAPRI entry

           DO UPDATE^DIE("","ARY","","MSG")

 +11       IF $GET(MSG("DIERR"))'=""

               Begin DoDot:1

 +12               NEW ERR,LN,LN2

 +13               SET (ERR,LN2)=0

 +14               FOR

                       SET ERR=+$ORDER(MSG("DIERR",ERR))

                       if 'ERR

                           QUIT

                       Begin DoDot:2

 +15                       SET LN=0

 +16                       FOR

                               SET LN=+$ORDER(MSG("DIERR",ERR,"TEXT",LN))

                               if 'LN

                                   QUIT

                               Begin DoDot:3

 +17                               SET LN2=LN2+1

 +18                               SET X(LN2)=MSG("DIERR",ERR,"TEXT",LN)

 +19                               DO BMES^XPDUTL(X(LN2))

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +20       QUIT

DVBA185P.m