A1VSLE.m

A1VSLE ;Albany FO/GTS - VistA Package Sizing Manager ; 24-JUN-2016

 ;;1.0;VistA Package Sizing;;Oct 10, 2016;Build 25

 ;

EN ; -- main entry point for A1VS PKG MGR EDIT TOOLS

 D EN^VALM("A1VS PKG MGR EDIT TOOLS")

 Q

 ;

HDR ; -- header code

 NEW DEFDIR,SPCPAD,DIRHEAD

 SET DEFDIR=$$GET^XPAR("SYS","A1VS PACKAGE MGR DEFAULT DIR",1,"I")

 SET VALMHDR(1)="              VistA Package Size Analysis Manager - Edit Tools"

 SET VALMHDR(2)="                         Version: "_$$VERNUM^A1VSLM()_"     Build: "_$$BLDNUM^A1VSLM()

 SET DIRHEAD="Parameter file default directory: "_$S($G(DEFDIR)]"":DEFDIR,1:"<no default defined>")

 SET $P(SPCPAD," ",(80-$L(DIRHEAD))/2)=""

 SET VALMHDR(3)=SPCPAD_DIRHEAD

 Q

 ;

INIT ; -- init variables and list array

 D BUILD

 Q

 ;

BUILD ; - Build local and global display arrays

 NEW DEFDIR,FILENME,HDLINE,RESULT,FILELIST,UNDRLINE,FILELP,LISTNUM

 DO KILL ;Kill all processing & data arrays and video attributes & control arrays

 SET VALMCNT=0

 SET DEFDIR=$$GET^XPAR("SYS","A1VS PACKAGE MGR DEFAULT DIR",1,"I")

 IF DEFDIR']"" DO 

 . DO ADD^A1VSLAPI(.VALMCNT,"   XTMPSIZE.DAT default directory not specified.",4,48,)

 IF DEFDIR]"" DO

 . SET FILENME("XTMPSIZE*")=""

 . SET RESULT=$$LIST^%ZISH(DEFDIR,"FILENME","FILELIST")

 . DO ADD^A1VSLAPI(.VALMCNT," ")

 . SET HDLINE="   XTMPSIZE.DAT file list in "_DEFDIR_":"

 . SET $P(UNDRLINE,"-",$L(HDLINE)-3)=""

 . DO ADD^A1VSLAPI(.VALMCNT,HDLINE)

 . DO ADD^A1VSLAPI(.VALMCNT,"   "_UNDRLINE)

 . IF 'RESULT DO ADD^A1VSLAPI(.VALMCNT,"   No XTMPSIZE* files found in "_DEFDIR_".")

 . IF RESULT DO

 .. SET FILELP=""

 .. FOR  SET FILELP=$O(FILELIST(FILELP))  Q:FILELP=""  SET LISTNUM=VALMCNT-2 DO ADD^A1VSLAPI(.VALMCNT,"    "_LISTNUM_") "_FILELP)

 ;

 QUIT

 ;

HELP ; -- help code

 S X="?" D DISP^XQORM1 W !!

 Q

 ;

EXIT ; -- exit code

 DO KILL

 Q

 ;

EXPND ; -- expand code

 Q

 ;

 ;

REFRESH ; -- refresh display

 DO BUILD

 SET VALMBCK="R"

 QUIT

 ;

MSG(TEXT) ; -- set default message

 ;SET VALMSG=TEXT

 QUIT

 ;

KILL ; -- Cleanup local and global arrays

 DO CLEAN^VALM10 ;Kill data and video control arrays

 DO KILL^VALM10() ;Kill Video attributes

 KILL ^TMP("A1VS PKG MAN EDIT",$JOB)

 QUIT

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---A1VSLE   2207     printed  Apr 09, 2024@20:43:41                                                                                                                                                                                                      Page 2

A1VSLE    ;Albany FO/GTS - VistA Package Sizing Manager ; 24-JUN-2016

 +1       ;;1.0;VistA Package Sizing;;Oct 10, 2016;Build 25

 +2       ;

EN        ; -- main entry point for A1VS PKG MGR EDIT TOOLS

 +1        DO EN^VALM("A1VS PKG MGR EDIT TOOLS")

 +2        QUIT 

 +3       ;

HDR       ; -- header code

 +1        NEW DEFDIR,SPCPAD,DIRHEAD

 +2        SET DEFDIR=$$GET^XPAR("SYS","A1VS PACKAGE MGR DEFAULT DIR",1,"I")

 +3        SET VALMHDR(1)="              VistA Package Size Analysis Manager - Edit Tools"

 +4        SET VALMHDR(2)="                         Version: "_$$VERNUM^A1VSLM()_"     Build: "_$$BLDNUM^A1VSLM()

 +5        SET DIRHEAD="Parameter file default directory: "_$SELECT($GET(DEFDIR)]"":DEFDIR,1:"<no default defined>")

 +6        SET $PIECE(SPCPAD," ",(80-$LENGTH(DIRHEAD))/2)=""

 +7        SET VALMHDR(3)=SPCPAD_DIRHEAD

 +8        QUIT 

 +9       ;

INIT      ; -- init variables and list array

 +1        DO BUILD

 +2        QUIT 

 +3       ;

BUILD     ; - Build local and global display arrays

 +1        NEW DEFDIR,FILENME,HDLINE,RESULT,FILELIST,UNDRLINE,FILELP,LISTNUM

 +2       ;Kill all processing & data arrays and video attributes & control arrays

           DO KILL

 +3        SET VALMCNT=0

 +4        SET DEFDIR=$$GET^XPAR("SYS","A1VS PACKAGE MGR DEFAULT DIR",1,"I")

 +5        IF DEFDIR']""

               Begin DoDot:1

 +6                DO ADD^A1VSLAPI(.VALMCNT,"   XTMPSIZE.DAT default directory not specified.",4,48,)

               End DoDot:1

 +7        IF DEFDIR]""

               Begin DoDot:1

 +8                SET FILENME("XTMPSIZE*")=""

 +9                SET RESULT=$$LIST^%ZISH(DEFDIR,"FILENME","FILELIST")

 +10               DO ADD^A1VSLAPI(.VALMCNT," ")

 +11               SET HDLINE="   XTMPSIZE.DAT file list in "_DEFDIR_":"

 +12               SET $PIECE(UNDRLINE,"-",$LENGTH(HDLINE)-3)=""

 +13               DO ADD^A1VSLAPI(.VALMCNT,HDLINE)

 +14               DO ADD^A1VSLAPI(.VALMCNT,"   "_UNDRLINE)

 +15               IF 'RESULT

                       DO ADD^A1VSLAPI(.VALMCNT,"   No XTMPSIZE* files found in "_DEFDIR_".")

 +16               IF RESULT

                       Begin DoDot:2

 +17                       SET FILELP=""

 +18                       FOR 

                               SET FILELP=$ORDER(FILELIST(FILELP))

                               if FILELP=""

                                   QUIT 

                               SET LISTNUM=VALMCNT-2

                               DO ADD^A1VSLAPI(.VALMCNT,"    "_LISTNUM_") "_FILELP)

                       End DoDot:2

               End DoDot:1

 +19      ;

 +20       QUIT 

 +21      ;

HELP      ; -- help code

 +1        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +2        QUIT 

 +3       ;

EXIT      ; -- exit code

 +1        DO KILL

 +2        QUIT 

 +3       ;

EXPND     ; -- expand code

 +1        QUIT 

 +2       ;

 +3       ;

REFRESH   ; -- refresh display

 +1        DO BUILD

 +2        SET VALMBCK="R"

 +3        QUIT 

 +4       ;

MSG(TEXT) ; -- set default message

 +1       ;SET VALMSG=TEXT

 +2        QUIT 

 +3       ;

KILL      ; -- Cleanup local and global arrays

 +1       ;Kill data and video control arrays

           DO CLEAN^VALM10

 +2       ;Kill Video attributes

           DO KILL^VALM10()

 +3        KILL ^TMP("A1VS PKG MAN EDIT",$JOB)

 +4        QUIT