XTVSLPR2 ;ALBANY FO/GTS - VistA Package Sizing Manager; 23-JAN-2022
Source file <XTVSLPR2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SELLIST(SELARY,ITEMNUM,X,PARAMSTR) | ; List the items for selection
; INPUT: SELARY - Array of items [passed by parameter] ; ITEMNUM - Number of items in SELARY [passed by parameter] ; X - Value entered by user [passed by parameter, will be translated to uppercase, ; value returned will be: "" - TimeOut; KILLed X - nothing selected; number - SELARY node #] ; PARAMSTR - Array of string parameters as follows: ; PARAMSTR("ADDITM") - 1 : Allow adding new item ; 2nd ^ pce = 1: Allow duplicates ; [E.G. 1 - Do not allow duplicates ; 1^1 - Allow duplicates] ; 0 : Do not allow adding new item [Default] ; PARMSTR("XTUPCASE") - 0 : Allow lowercase text [default] [Case matters] ; 1 : Convert all text to uppercase ; PARAMSTR("PATRN")) - String the defines the pattern the item text ; must match in a pattern match compare. ; [I.E. ?.ANP] ; 1 : Change user entry to uppercase ; PARAMSTR("MINLNG") - Minumum length of entered string [Default 4] ; PARAMSTR("MAXLNG") - Maximum length of entered string [Default 50] |
|
ASKADD(ADDANS,X,SELARY,ITEMNUM) | ; Query to Add item
|
|
CLNXEND(XVAL) | ; Removes control chars from end & spaces from beginning and end
; INPUT: XVAL - String to clean up [Passed by reference] ; (Removes control characters and trailing spaces from a string) |
|
PTRNDESC(PATRN) | ; Pattern Description
; Returns a description string for type of string |
|
PTRNEXT(PATRN) | ; Extract PATTERN characters, Change lower case pattern codes to uppercase
|
|
BADENT(MINLNG,MAXLNG,PATRN,X) | ;Evaluate X for String PATTERN and Length req's
; RESULT : 0 - entry meets requirements ; 1 - entry doesn't meet requirements |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|