Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: WEBGY00

WEBGY00.m

Go to the documentation of this file.
  1. WEBGY00 ;SLC/SRM - Post-init for patch WEBG*1.0*0 ;11/18/19 09:39
  1. ;;1.0;WEB VISTA REMOTE ACCESS MANAGEMENT;**0**;Jun 24, 2019;Build 15
  1. ;
  1. POST ; initiate post-init processes
  1. ;
  1. N RESULT,APCODE,APNAME,APCBT,APIP,APPORT,APPATH,APCONTEXT
  1. S APCODE="Dy5IYz(uTC|tYq|iJf2"
  1. S APNAME="WEBVRAM"
  1. S APCBT="S"
  1. S APIP=""
  1. S APPORT=-1
  1. S APPATH=""
  1. S APCONTEXT="WEBG WEBVRAM GUI"
  1. S RESULT=$$BSESETUP(APCODE,APNAME,APCBT,APIP,APPORT,APPATH,APCONTEXT)
  1. I '+RESULT D SHOWMSGB("***"_APNAME_" BSE SETUP FAILED: POST INSTALL *NOT* COMPLETED SUCCESSFULLY***") Q
  1. D SHOWMSGB("=== POST INSTALL COMPLETED SUCCESSFULLY ===")
  1. Q
  1. ;
  1. BSESETUP(APCODE,APNAME,APCBT,APIP,APPORT,APPATH,APCONTEXT) ;
  1. D SHOWMSG("REMOVING OLD "_APNAME_" ENTRY FROM 8994.5")
  1. I +$$DELBSE(APCODE,APNAME) D Q $$SAVEBSE(APCODE,APNAME,APCBT,APIP,APPORT,APPATH,APCONTEXT)
  1. . D SHOWMSG("ADDING NEW "_APNAME_" ENTRY TO 8994.5")
  1. D SHOWMSG(APNAME_" SETUP *NOT* COMPLETED SUCCESSFULLY")
  1. Q 0
  1. ;
  1. DELBSE(NAME,APNAME) ;
  1. D SHOWMSG("LOOKING FOR DUPLICATE "_APNAME_" ENTRY")
  1. N ERR,LIST
  1. D FIND^DIC(8994.5,"","@","X",NAME,"*","ACODE","","","LIST","ERR")
  1. I '+$D(LIST("DILIST",0)) D Q 0
  1. . D SHOWMSG("ERROR LOOKING UP OLD "_APNAME_" ENTRY")
  1. . D SHOWMSG(ERR)
  1. I '+$P(LIST("DILIST",0),"^",1) D Q 1
  1. . D SHOWMSG("NO OLD "_APNAME_" ENTRIES FOUND")
  1. N I,FDA S I=0
  1. F S I=$O(LIST("DILIST",2,I)) Q:'I D
  1. . K FDA S FDA(8994.5,LIST("DILIST",2,I)_",",.01)="@"
  1. . D FILE^DIE("","FDA","ERR")
  1. . D SHOWMSG("REMOVED OLD "_APNAME_" ENTRY FROM 8994.5 ("_LIST("DILIST",2,I)_")")
  1. . I $D(ERR) D
  1. .. D SHOWMSG("ERROR DELETING OLD "_APNAME_" ENTRY")
  1. .. D SHOWMSG(ERR)
  1. Q 1
  1. ;
  1. SAVEBSE(APCODE,APNAME,APCBT,APIP,APPORT,APPATH,APCONTEXT) ;
  1. N FDA,ERR,INDEX
  1. S FDA(8994.5,"+1,",.01)=APNAME
  1. S INDEX=$$OPTINDEX(APCONTEXT)
  1. I +$G(INDEX)'>0 D Q 0
  1. . D SHOWMSG("COULD NOT FIND '"_APCONTEXT_"' OPTION:"_INDEX)
  1. S FDA(8994.5,"+1,",.02)=INDEX
  1. S FDA(8994.5,"+1,",.03)=APCODE
  1. S FDA(8994.51,"+2,+1,",.01)=APCBT
  1. S FDA(8994.51,"+2,+1,",.02)=APPORT
  1. S FDA(8994.51,"+2,+1,",.03)=APIP
  1. S FDA(8994.51,"+2,+1,",.04)=APPATH
  1. D SHOWMSG("WRITING TO REMOTE APPLICATION FILE (8994.5)")
  1. D UPDATE^DIE("","FDA","","ERR")
  1. I +$D(ERR) D Q 0
  1. . D SHOWMSG(ERR)
  1. D SHOWMSG("REMOTE APPLICATION ENTRY SUCCESSFULLY ADDED")
  1. Q 1
  1. ;
  1. OPTINDEX(ACONTEXT) ; Finds the IEN of the option for a context
  1. D SHOWMSG("LOOKING FOR '"_ACONTEXT_"':")
  1. N INDEX,ERR S INDEX=$$FIND1^DIC(19,"","X",ACONTEXT,"B","","ERR")
  1. I +$D(ERR) D Q 0
  1. . D SHOWMSG("ERROR TRYING TO FIND OPTION")
  1. . D SHOWMSG(ERR)
  1. D SHOWMSG("FOUND OPTION")
  1. Q INDEX
  1. ;
  1. SHOWMSG(MSG) ; Displays messages to the patch log and the user
  1. N TMSG
  1. S TMSG=MSG
  1. D MES^XPDUTL(.TMSG)
  1. Q
  1. ;
  1. SHOWMSGB(MSG) ; Displays message with an extra blank line
  1. N TMSG
  1. S TMSG=MSG
  1. D BMES^XPDUTL(.TMSG)
  1. Q
  1. ;