Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All
Print Page as PDF
Routine: XTVSLPR2

Package: Toolkit

Routine: XTVSLPR2


Information

XTVSLPR2 ;ALBANY FO/GTS - VistA Package Sizing Manager; 23-JAN-2022

Source Information

Source file <XTVSLPR2.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 $$UP^XLFSTR  
Toolkit 1 ($$YNCHK,INSRTX)^XTVSLAPI  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Toolkit 3 XTVSLP  XTVSLPD2  XTVSLPDC  

Entry Points

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

External References

Name Field # of Occurrence
$$UP^XLFSTR SELLIST+35, SELLIST+36, SELLIST+41, PTRNEXT+25, PTRNEXT+26
$$YNCHK^XTVSLAPI SELLIST+66, SELLIST+91, SELLIST+103, ASKADD+1
INSRTX^XTVSLAPI ASKADD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: XTOUT=1
  • Condition for execution: (CURITMNM'=ITMCNT) !,"Press <Enter> to see more items, '^' to exit, OR" W !,"Choose 1-"_CURITMNM_": " READ XVAL:DTIME SET:'$T
  • Line Location: SELLIST+56
Function Call: WRITE
  • Prompt: !,"Select an item from the list [Number 1 - "_CURITMNM_"]",!
  • Line Location: SELLIST+57

Label References

Name Line Occurrences
$$BADENT SELLIST+79, SELLIST+95, SELLIST+109
$$PTRNDESC BADENT+8
$$PTRNEXT PTRNDESC+4
ASKADD SELLIST+73, SELLIST+80, SELLIST+96, SELLIST+97, SELLIST+110
CLNXEND SELLIST+33

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDANS SELLIST+20~, SELLIST+73, SELLIST+74, SELLIST+80, SELLIST+81, SELLIST+96, SELLIST+97, SELLIST+100, SELLIST+110, SELLIST+111
, ASKADD~, ASKADD+1*, ASKADD+2, ASKADD+3
ADDITM SELLIST+21~, SELLIST+29*, SELLIST+30*, SELLIST+62, SELLIST+71, SELLIST+72, SELLIST+76, SELLIST+90, SELLIST+96, SELLIST+97
, SELLIST+98, SELLIST+102, SELLIST+109, SELLIST+112
BEGTXT PTRNDESC+2~, PTRNDESC+5*, PTRNDESC+11
CHKCHAR CLNXEND+4~, CLNXEND+6*, CLNXEND+7*, CLNXEND+10*, PTRNEXT+7~, PTRNEXT+11*, PTRNEXT+12, PTRNEXT+14, PTRNEXT+17, PTRNEXT+19
, PTRNEXT+20, PTRNEXT+21, PTRNEXT+22, PTRNEXT+24, PTRNEXT+25, PTRNEXT+26
CLNX CLNXEND+4~, CLNXEND+5*, CLNXEND+7*, CLNXEND+10*, CLNXEND+12
CURITMNM SELLIST+20~, SELLIST+39*, SELLIST+40*, SELLIST+41, SELLIST+42, SELLIST+44, SELLIST+45, SELLIST+46, SELLIST+47, SELLIST+52*
, SELLIST+53*, SELLIST+54, SELLIST+55, SELLIST+56, SELLIST+57
DTIME SELLIST+56
ENDTXT PTRNDESC+2~, PTRNDESC+6*, PTRNDESC+11, PTRNDESC+12
ITEMLIST SELLIST+20~
ITEMLIST( SELLIST+46*, SELLIST+47*, SELLIST+53, SELLIST+54, SELLIST+83
ITEMLIST(1 SELLIST+87, SELLIST+88
ITEMNUM SELLIST~, SELLIST+73, SELLIST+80, SELLIST+96, SELLIST+97, SELLIST+110, ASKADD~, ASKADD+2
ITMCNT SELLIST+20~, SELLIST+39*, SELLIST+46*, SELLIST+47*, SELLIST+49, SELLIST+55, SELLIST+56, SELLIST+85, SELLIST+108
ITMNMEL SELLIST+20~, SELLIST+42*, SELLIST+45, SELLIST+46, SELLIST+47
ITMNMEU SELLIST+20~, SELLIST+41*, SELLIST+44, SELLIST+46
LPCNT CLNXEND+4~, CLNXEND+6*, CLNXEND+7*, CLNXEND+9*, CLNXEND+10*
MAXLNG SELLIST+21~, SELLIST+27*, SELLIST+79, SELLIST+95, SELLIST+109, BADENT~, BADENT+6, BADENT+8
MINLNG SELLIST+21~, SELLIST+26*, SELLIST+79, SELLIST+95, SELLIST+109, BADENT~, BADENT+6, BADENT+8
OKANS SELLIST+20~, SELLIST+66*, SELLIST+67, SELLIST+68, SELLIST+69, SELLIST+91*, SELLIST+92, SELLIST+94, SELLIST+95, SELLIST+100
, SELLIST+103*, SELLIST+104, SELLIST+105, SELLIST+106
ONEITMEN SELLIST+86~, SELLIST+87*, SELLIST+92, SELLIST+104
ONEITMNM SELLIST+86~, SELLIST+88*, SELLIST+89, SELLIST+97, SELLIST+98
PARAMSTR SELLIST~
PARAMSTR("ADDITM" SELLIST+29
PARAMSTR("MAXLNG" SELLIST+25*, SELLIST+27
PARAMSTR("MINLNG" SELLIST+24*, SELLIST+26
PARAMSTR("PATRN" SELLIST+23*, SELLIST+28
PARAMSTR("XTUPCASE" SELLIST+31
PATDESC PTRNDESC+2~, PTRNDESC+3*, PTRNDESC+8*, PTRNDESC+9*, PTRNDESC+10*, PTRNDESC+13*, PTRNDESC+14
PATRN SELLIST+21~, SELLIST+28*, SELLIST+35*, SELLIST+79, SELLIST+95, SELLIST+109, PTRNDESC~, PTRNDESC+4, PTRNDESC+7*, PTRNDESC+8
, PTRNDESC+9, PTRNDESC+10, PTRNEXT~, PTRNEXT+10, PTRNEXT+11, BADENT~, BADENT+6, BADENT+8
>> PATRNPARS PTRNDESC+4*, PTRNDESC+5, PTRNDESC+6, PTRNDESC+7
POSCTR PTRNEXT+7~, PTRNEXT+10*, PTRNEXT+11
PTRNBEG PTRNEXT+7~, PTRNEXT+8*, PTRNEXT+21*, PTRNEXT+28
PTRNCHRS PTRNEXT+7~, PTRNEXT+8*, PTRNEXT+12*, PTRNEXT+17*, PTRNEXT+20*, PTRNEXT+25*, PTRNEXT+28
PTRNCODE PTRNEXT+7~, PTRNEXT+8*, PTRNEXT+21, PTRNEXT+22, PTRNEXT+26*, PTRNEXT+28
PTRNEND PTRNEXT+7~, PTRNEXT+8*, PTRNEXT+22*, PTRNEXT+28
PTRNPARS PTRNDESC+2~
PTRNTXT PTRNDESC+2~, PTRNDESC+3*, PTRNDESC+11*, PTRNDESC+12*, PTRNDESC+13
QUOTOPEN PTRNEXT+7~, PTRNEXT+9*, PTRNEXT+12*, PTRNEXT+14, PTRNEXT+15*, PTRNEXT+19, PTRNEXT+24
RESULT BADENT+4~, BADENT+5*, BADENT+9*, BADENT+10
SELARY SELLIST~, SELLIST+73, SELLIST+80, SELLIST+96, SELLIST+97, SELLIST+110, ASKADD~, ASKADD+2
SELARY( SELLIST+40, SELLIST+41, SELLIST+42
SETPCHAR PTRNEXT+7~, PTRNEXT+9*, PTRNEXT+12*, PTRNEXT+14, PTRNEXT+16*, PTRNEXT+19, PTRNEXT+24, PTRNEXT+27*
X SELLIST~, SELLIST+33, SELLIST+35*, SELLIST+36, SELLIST+45, SELLIST+47, SELLIST+59!, SELLIST+60*, SELLIST+64!, SELLIST+66
, SELLIST+67*, SELLIST+68!, SELLIST+69*, SELLIST+73, SELLIST+74*, SELLIST+76!, SELLIST+79, SELLIST+80, SELLIST+81*, SELLIST+83*
, SELLIST+89, SELLIST+92*, SELLIST+94!, SELLIST+95, SELLIST+96, SELLIST+97, SELLIST+98!, SELLIST+100*, SELLIST+104*, SELLIST+105!
, SELLIST+106*, SELLIST+109, SELLIST+110, SELLIST+111*, SELLIST+112!, ASKADD~, ASKADD+1, ASKADD+2, ASKADD+3!, CLNXEND+5
, CLNXEND+6*, CLNXEND+7, CLNXEND+12*, BADENT~, BADENT+6, BADENT+7!
XACTMAT SELLIST+20~, SELLIST+39*, SELLIST+43, SELLIST+44*, SELLIST+45*, SELLIST+64, SELLIST+65, SELLIST+67, SELLIST+72, SELLIST+76
, SELLIST+78
XTOUT SELLIST+50~, SELLIST+52*, SELLIST+53, SELLIST+56*, SELLIST+57, SELLIST+60, SELLIST+62, SELLIST+71, SELLIST+83
XTUPCASE SELLIST+21~, SELLIST+31*, SELLIST+35, SELLIST+44, SELLIST+45, SELLIST+46, SELLIST+47
XUPPER SELLIST+20~, SELLIST+36*, SELLIST+44, SELLIST+46
XVAL SELLIST+50~, SELLIST+51*, SELLIST+53, SELLIST+56*, SELLIST+57, SELLIST+59, SELLIST+62, SELLIST+63, SELLIST+71, SELLIST+72
, SELLIST+76, SELLIST+78, SELLIST+83, CLNXEND~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All