XTVSLPD1 ;ALBANY FO/GTS - VistA Package Sizing Manager - Caption display APIs; 12-JUL-2016
Source file <XTVSLPD1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
BADRNG(X) | ;Checks user entered File Range (used by DIR call)
|
|
SETSTR(CAPARY) | ;Return a string of Package File Lineitem (Concatonate fields to 1 HDR line)
|
|
EDPKGPRM(PKGNME) | ; Edit Package Parameters
|
|
EDCHK(PKGNME) | ; Check for edit
; Input PKGNME - Name of selected package ; Output XTEDIT - 0: Not Edited ; 1: Edited |
|
DATCHK(BIDATA,EDDATA) | ;Compare data for Add, Change, Delete OR find if all same data in different '|' pces
|
|
BEFORIMG(PKGNME) | ; Create "^TMP(""XTVS-PARAM-BI"","_$J_","""_PKGNME_""")" to record initial package definitions before edits
|