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

A1VSLM.m

Go to the documentation of this file.
  1. A1VSLM ;Albany FO/GTS - VistA Package Sizing Manager; 23-JUN-2016
  1. ;;1.0;VistA Package Sizing;;Oct 10, 2016;Build 25
  1. ;
  1. EN ; -- main entry point for A1VS PACKAGE MANAGER
  1. NEW FIRSTITM,LASTITM
  1. ;Definitions:
  1. ; FIRSTITM - Line Item of first XTMPSIZE.DAT file in list
  1. ; LASTITM - Line Item of last XTMPSIZE.DAT file in list
  1. ;NOTE: These variables are used by A1VSLP & A1VSLR (A1VS PKG MGR PARAM DISPLAY ListMan & A1VS PKG MGR VISTA SIZE RPT Templates)
  1. ;
  1. D EN^VALM("A1VS PACKAGE MANAGER")
  1. QUIT
  1. ;
  1. HDR ; -- header code
  1. SET VALMHDR(1)=" VistA Package Size Analysis Manager"
  1. SET VALMHDR(2)=" Version: "_$$VERNUM^A1VSLM()_" Build: "_$$BLDNUM^A1VSLM()
  1. QUIT
  1. ;
  1. INIT ; -- init variables and list array
  1. ; DISPBAK - List "BAK" files indicator [NOTE: Used by this List Template to turn on/off display of *.BAK files
  1. ; [KILLed in EXIT]
  1. ;
  1. SET DISPBAK=+$$YNCHK^A1VSLAPI("Do you want to Display XTMPSIZE*.BAK (backup files)")
  1. ;
  1. DO BUILD
  1. QUIT
  1. ;
  1. BUILD ; - Build local and global display arrays
  1. NEW DEFDIR,FILENME,HDLINE,RESULT,FILELIST,UNDRLINE,FILELP,LISTNUM
  1. DO KILL ;Kill all processing & data arrays and video attributes & control arrays
  1. ;
  1. SET (FIRSTITM,LASTITM,VALMCNT)=0
  1. SET DEFDIR=$$GET^XPAR("SYS","A1VS PACKAGE MGR DEFAULT DIR",1,"I")
  1. DO ADD^A1VSLAPI(.VALMCNT," ")
  1. DO ADD^A1VSLAPI(.VALMCNT," XTMPSIZE.DAT default directory: "_$S($G(DEFDIR)]"":DEFDIR,1:"<no default defined>"),1,36,$S($L(DEFDIR)>0:$L(DEFDIR),1:20))
  1. IF DEFDIR]"" DO
  1. . SET FILENME("XTMPSIZE*")=""
  1. . SET RESULT=$$LIST^%ZISH(DEFDIR,"FILENME","FILELIST")
  1. . DO ADD^A1VSLAPI(.VALMCNT," ")
  1. . SET HDLINE=" XTMPSIZE.DAT Package Parameter file list in "_DEFDIR_":"
  1. . SET $P(UNDRLINE,"-",$L(HDLINE)-3)=""
  1. . DO ADD^A1VSLAPI(.VALMCNT,HDLINE)
  1. . DO ADD^A1VSLAPI(.VALMCNT," "_UNDRLINE)
  1. . IF 'RESULT DO ADD^A1VSLAPI(.VALMCNT," No XTMPSIZE* files found in "_DEFDIR_".")
  1. . IF RESULT DO
  1. .. SET FILELP=""
  1. .. FOR SET FILELP=$O(FILELIST(FILELP)) Q:FILELP="" DO
  1. ... IF (+$G(DISPBAK)=1)!($P(FILELP,".",2)["DAT") DO
  1. .... SET LISTNUM=VALMCNT-4
  1. .... DO ADD^A1VSLAPI(.VALMCNT," "_LISTNUM_") "_FILELP)
  1. .... SET:FIRSTITM=0 FIRSTITM=VALMCNT
  1. .... SET LASTITM=VALMCNT
  1. ;
  1. QUIT
  1. ;
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. DO KILL
  1. KILL DISPBAK
  1. Q
  1. ;
  1. EXPND ; -- expand code
  1. Q
  1. ;
  1. KILL ; - Kill local and global display arrays
  1. DO CLEAN^VALM10 ;Kill data and video control arrays
  1. DO KILL^VALM10() ;Kill Video attributes
  1. KILL ^TMP("A1VS PACKAGE MGR",$JOB)
  1. QUIT
  1. ;
  1. REFRESH ; -- refresh display
  1. DO BUILD
  1. SET VALMBCK="R"
  1. QUIT
  1. ;
  1. ; APIs
  1. MSG(TEXT) ; -- set default message
  1. ;SET VALMSG=TEXT
  1. QUIT
  1. ;
  1. BLDNUM() ; -- returns the build number
  1. QUIT +$PIECE($PIECE($TEXT(A1VSLM+1),";",7),"Build ",2)
  1. ;
  1. VERNUM() ; -- returns the version number for this build
  1. QUIT +$PIECE($TEXT(A1VSLM+1),";",3)
  1. ;
  1. ;PROTOCOL entry points
  1. ;
  1. SP ; -- A1VS site parameters
  1. ; -- Protocol: A1VS SITE PARAMETERS
  1. DO FULL^VALM1
  1. DO TED^XPAREDIT("A1VS PKG MGT PARAMETERS","B")
  1. KILL VALMHDR
  1. DO REFRESH
  1. DO MSG
  1. QUIT
  1. ;
  1. ;
  1. PE ; -- Package Manager Editor
  1. ; -- Protocol: A1VS PKG MGR MENU EDIT ACTION
  1. DO EN^A1VSLE
  1. DO REFRESH
  1. DO MSG
  1. QUIT
  1. ;
  1. PRMD ; -- Report Parameter file Display
  1. ; -- Protocol: A1VS PKG MGR PARAM DISPLAY ACTION
  1. DO EN^A1VSLP
  1. DO REFRESH
  1. DO MSG
  1. QUIT
  1. ;
  1. VSR ; -- Generate a VistA Size Report
  1. ; -- Protocol: A1VS PKG MGR VISTA SIZE RPT
  1. DO EN^A1VSLR
  1. DO REFRESH
  1. DO MSG
  1. QUIT
  1. ;
  1. EA ; -- Extract Manager
  1. ; -- Protocol: A1VS PKG MGR EXT MNGR ACTION
  1. DO EN^A1VSLN
  1. DO REFRESH
  1. DO MSG
  1. QUIT
  1. ;
  1. DELPRM ; -- Delete a selected Parameter file
  1. ; -- Protocol: A1VS PKG MGR PARAM FILE DELETE ACTION
  1. ;
  1. NEW DEFDIR
  1. DO FULL^VALM1
  1. SET DEFDIR=$$GET^XPAR("SYS","A1VS PACKAGE MGR DEFAULT DIR",1,"I")
  1. IF (+$G(FIRSTITM)'>0)!($G(LASTITM)'>0) DO JUSTPAWS^A1VSLAPI(" No Package Parameter Files to delete in "_DEFDIR_".")
  1. IF (+$G(FIRSTITM)>0),($G(LASTITM)>0) DO
  1. . NEW DELFILE,FILESEL,FILENME
  1. . SET DELFILE=0
  1. . SET FILESEL=$$SELXTMP^A1VSLAPI(FIRSTITM,LASTITM,5)
  1. . IF +FILESEL>0 DO
  1. .. SET FILENME=$P($G(^TMP("A1VS PACKAGE MGR",$J,FILESEL,0)),FILESEL-5_") ",2)
  1. .. SET DELFILE=+$$YNCHK^A1VSLAPI("Do you want to PERMANENTLY DELETE "_FILENME)
  1. .. IF DELFILE DO
  1. ... NEW DELFLE
  1. ... SET DELFLE(FILENME)="" SET DELRSLT=$$DEL^%ZISH(DEFDIR,$NA(DELFLE)) K DELFLE(FILENME) ;Delete selected Parameter file
  1. ... IF 'DELRSLT DO JUSTPAWS^A1VSLAPI(FILENME_" parameter file deletion failed. Check your privileges.")
  1. ... IF DELRSLT DO REFRESH
  1. ;
  1. SET VALMBCK="R"
  1. QUIT