MAGIP105.m

MAGIP105 ;WOIFO/JSL - Post Install routine to add AWIV entry;3/08/2010

 ;;3.0;IMAGING;**105**;Mar 19, 2002;Build 1865;Oct 25, 2010

 ;; Per VHA Directive 2004-038, this routine should not be modified.

 ;; +---------------------------------------------------------------+

 ;; | Property of the US Government.                                |

 ;; | No permission to copy or redistribute this software is given. |

 ;; | Use of unreleased versions of this software requires the user |

 ;; | to execute a written test agreement with the VistA Imaging    |

 ;; | Development Office of the Department of Veterans Affairs,     |

 ;; | telephone (301) 734-0100.                                     |

 ;; | The Food and Drug Administration classifies this software as  |

 ;; | a medical device.  As such, it may not be changed in any way. |

 ;; | Modifications to this software may result in an adulterated   |

 ;; | medical device under 21CFR820, the use of which is considered |

 ;; | to be a violation of US Federal Statutes.                     |

 ;; +---------------------------------------------------------------+

 ;;

 Q

 ;***** POST-INSTALL CODE

POS ;

 D ADD

 ;--- Send the install notification via e-mail

 D INS^MAGQBUT4($G(XPDNM,"MAG*3.0*105 AWIV"),DUZ,$$NOW^XLFDT,$G(XPDA))

 Q

 ;+++++ ADD 'REMOTE APPLICATION' ENTRY

ADD ;Create Imaging entries in 8994.5  REMOTE APPLICATION if it does not exist

 N ACODE,DA,DD,D0,DIC,DIE,DR,ENTRY,PORT,X,Y,CALLBKSRV,URLSTRING,CONTX,MAGZZERR

 W !,"I will check if the AWIV entry is in the REMOTE APPLICATION file."

 ;Set the new entry

 S X="VISTA IMAGING AWIV",DIC="^XWB(8994.5,",ACODE=$$EN^ROUTINE(X),CONTX="MAG WINDOWS"

 S DA=$$FIND1^DIC(8994.5,,,X,"B") D:DA=0

 . S DIC(0)="O" K DD,D0,DR D FILE^DICN

 . S ENTRY=+Y I 'ENTRY W !,"Can't add new entry "_X G ERROR

 . S DR=".02///"_CONTX_";.03///^S X=ACODE;1///H"

 . S PORT="19989",URLSTRING="/resolve.do",CALLBKSRV="vaww.context.vistaweb.domain.ext"

 . S DR(2,8994.51)=".01///H;.02///"_PORT_";.03///"_CALLBKSRV_";.04////"_URLSTRING

 . S DA=ENTRY,DIE="^XWB(8994.5," D ^DIE

 . Q

 Q

ERROR ;Trap Errors

 S MAGZZERR=$$EC^%ZOSV D ^%ZTER S $ECODE=""

 W !,MAGZZERR,!,"Please check the error log for details",!

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MAGIP105   2232     printed  Apr 09, 2024@21:03:06                                                                                                                                                                                                    Page 2

MAGIP105  ;WOIFO/JSL - Post Install routine to add AWIV entry;3/08/2010

 +1       ;;3.0;IMAGING;**105**;Mar 19, 2002;Build 1865;Oct 25, 2010

 +2       ;; Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;; +---------------------------------------------------------------+

 +4       ;; | Property of the US Government.                                |

 +5       ;; | No permission to copy or redistribute this software is given. |

 +6       ;; | Use of unreleased versions of this software requires the user |

 +7       ;; | to execute a written test agreement with the VistA Imaging    |

 +8       ;; | Development Office of the Department of Veterans Affairs,     |

 +9       ;; | telephone (301) 734-0100.                                     |

 +10      ;; | The Food and Drug Administration classifies this software as  |

 +11      ;; | a medical device.  As such, it may not be changed in any way. |

 +12      ;; | Modifications to this software may result in an adulterated   |

 +13      ;; | medical device under 21CFR820, the use of which is considered |

 +14      ;; | to be a violation of US Federal Statutes.                     |

 +15      ;; +---------------------------------------------------------------+

 +16      ;;

 +17       QUIT 

 +18      ;***** POST-INSTALL CODE

POS       ;

 +1        DO ADD

 +2       ;--- Send the install notification via e-mail

 +3        DO INS^MAGQBUT4($GET(XPDNM,"MAG*3.0*105 AWIV"),DUZ,$$NOW^XLFDT,$GET(XPDA))

 +4        QUIT 

 +5       ;+++++ ADD 'REMOTE APPLICATION' ENTRY

ADD       ;Create Imaging entries in 8994.5  REMOTE APPLICATION if it does not exist

 +1        NEW ACODE,DA,DD,D0,DIC,DIE,DR,ENTRY,PORT,X,Y,CALLBKSRV,URLSTRING,CONTX,MAGZZERR

 +2        WRITE !,"I will check if the AWIV entry is in the REMOTE APPLICATION file."

 +3       ;Set the new entry

 +4        SET X="VISTA IMAGING AWIV"

           SET DIC="^XWB(8994.5,"

           SET ACODE=$$EN^ROUTINE(X)

           SET CONTX="MAG WINDOWS"

 +5        SET DA=$$FIND1^DIC(8994.5,,,X,"B")

           if DA=0

               Begin DoDot:1

 +6                SET DIC(0)="O"

                   KILL DD,D0,DR

                   DO FILE^DICN

 +7                SET ENTRY=+Y

                   IF 'ENTRY

                       WRITE !,"Can't add new entry "_X

                       GOTO ERROR

 +8                SET DR=".02///"_CONTX_";.03///^S X=ACODE;1///H"

 +9                SET PORT="19989"

                   SET URLSTRING="/resolve.do"

                   SET CALLBKSRV="vaww.context.vistaweb.domain.ext"

 +10               SET DR(2,8994.51)=".01///H;.02///"_PORT_";.03///"_CALLBKSRV_";.04////"_URLSTRING

 +11               SET DA=ENTRY

                   SET DIE="^XWB(8994.5,"

                   DO ^DIE

 +12               QUIT 

               End DoDot:1

 +13       QUIT 

ERROR     ;Trap Errors

 +1        SET MAGZZERR=$$EC^%ZOSV

           DO ^%ZTER

           SET $ECODE=""

 +2        WRITE !,MAGZZERR,!,"Please check the error log for details",!

 +3        QUIT 

 +4       ;