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
Q
;
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))
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBA185P 1106 printed Dec 13, 2024@01:39:23 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
