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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: XTVSLPD2

Package: Toolkit

Routine: XTVSLPD2


Information

XTVSLPD2 ;ALBANY FO/GTS - VistA Package Sizing Manager - Caption display APIs; 14-DEC-2018

Source Information

Source file <XTVSLPD2.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Toolkit 4 ($$YNCHK,JUSTPAWS)^XTVSLAPI  CHKX^XTVSLPD2  ($$SETSELAY,HDR,INIT)^XTVSLPDC  SELLIST^XTVSLPR2  
Kernel 1 $$UP^XLFSTR  
VA FileMan 1 ^DIR  

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: 2

Package Total Caller Graph
Toolkit 2 XTVSLPD1  XTVSLPD2  

Entry Points

Name Comments DBIA/ICR reference
PRIMPFX(XTA,XTB,XTJUMPIN) ; Enter/Edit Primary Prefix
HILOFLE(XTA,XTB,XTJUMPIN) ; Enter/Edit High or Low File Number
EXADPFX(XTA,XTB,XTJUMPIN) ; Enter/Edit Excepted or Additional Prefixes
EDITPRFX(DATELEMT,LISTDATA,UPDATLST) ; Update Prefix list
LSTEDT(EDTELEMT,PCE,DATELEMT,LISTDATA,UPDATLST) ;Edit List dialog
FLENUM(XTA,XTB,XTJUMPIN) ; Enter/Edit File number
EDITFNUM(DATELEMT,LISTDATA,UPDATLST) ; Update File list
FLERNG(XTA,XTB,XTJUMPIN) ; Enter/Edit File Range
EDITFRNG(DATELEMT,LISTDATA,UPDATLST) ; Update File Range
PRNTPKG(XTA,XTB,XTJUMPIN) ; Enter/edit Parent Package
JUMP(XVAL,XTOLDNUM) ; Jump to a data element during edit
JUMPEXC ;Jump to selected field [from JUMP api]
CKMATCH(XTIN,XTDATNM) ; Check for sub-string match to data element name
FLESEL() ; Select FILE data element for JUMP
UPDTNODE(UPDIRUT,EDITARY,DATANUM,DATANAME,UPDX) ;Update ^TMP("XTVS-PARAM-CAP") array node with edits
SPLITOUT(DATANAME,LISTDATA) ; -- Split list data to separate lines as needed and output
; DATANAME - Data element name
; LISTDATA - Data element list
PCEPOS(LISTDATA,DATELEMT) ; Return the piece position number of DATELEMT in LISTDATA
PRECHK(X,LASTSPKG,SELARY,ITEMNUM) ; PRNTPKG X value DIR("PRE") pre-check
CHKX(X,SELARY,ITEMNUM) ;Check X for Package [called by PRECHK via DIR("PRE") in PRNTPKG]
PKGHLP(ITEMUM) ; Parent Package selection help
DATANAME ; Package Parameter data element names

External References

Name Field # of Occurrence
^DIR PRIMPFX+13, HILOFLE+10, EXADPFX+22, EDITPRFX+8, FLENUM+19, EDITFNUM+8, FLERNG+20, EDITFRNG+9, PRNTPKG+13, FLESEL+11
$$UP^XLFSTR JUMP+4
$$YNCHK^XTVSLAPI LSTEDT+3, LSTEDT+6, UPDTNODE+4
JUSTPAWS^XTVSLAPI PRIMPFX+24
CHKX^XTVSLPD2 PRECHK+2
$$SETSELAY^XTVSLPDC PRNTPKG+4
HDR^XTVSLPDC PRIMPFX+20
INIT^XTVSLPDC PRIMPFX+20
SELLIST^XTVSLPR2 CHKX+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PRIMPFX+25
Function Call: WRITE
  • Prompt: !,"?? ...Element not in list, cannot delete!"
  • Line Location: LSTEDT+5
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: JUMP+10
Function Call: WRITE
  • Prompt: !," Return to "_$P($P($TEXT(DATANAME+XTOLDNUM)," ;;",2),"^",1)_"..."
  • Line Location: JUMP+11
Function Call: WRITE
  • Prompt: !,"{no data list}"
  • Line Location: SPLITOUT+6
Function Call: WRITE
  • Prompt: !,LISTDATA
  • Line Location: SPLITOUT+8
Function Call: WRITE
  • Prompt: !,$P(LISTDATA,"|",NXSTPCE,PCENUM-1)
  • Line Location: SPLITOUT+13
Function Call: WRITE
  • Prompt: !,$P(LISTDATA,"|",NXSTPCE,999)
  • Line Location: SPLITOUT+14
Function Call: WRITE
  • Prompt: " ",X
  • Line Location: PRECHK+1
Function Call: WRITE
  • Prompt: " ",X
  • Line Location: CHKX+14
Routine Call
  • DIR
  • Line Location:
    • PRIMPFX+13
    • HILOFLE+10
    • EXADPFX+22
    • EDITPRFX+8
    • FLENUM+19
    • EDITFNUM+8
    • FLERNG+20
    • EDITFRNG+9
    • PRNTPKG+13
    • FLESEL+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("XTVS-PARAM-CAP" PRIMPFX+4, PRIMPFX+19!

Label References

Name Line Occurrences
$$CKMATCH JUMP+5, JUMP+7
$$FLESEL JUMP+5
$$PCEPOS EDITPRFX+3, EDITFNUM+3, EDITFRNG+3
@( JUMPEXC+6
EDITFNUM FLENUM+22
EDITFRNG FLERNG+23
EDITPRFX EXADPFX+25
JUMP PRIMPFX+28, HILOFLE+15, EXADPFX+26, FLENUM+23, FLERNG+24, PRNTPKG+18
JUMPEXC JUMP+5, JUMP+8
LSTEDT EDITPRFX+9, EDITFNUM+9, EDITFRNG+10
SPLITOUT EXADPFX+8, FLENUM+8, FLERNG+8
UPDTNODE PRIMPFX+15, HILOFLE+12, PRNTPKG+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDPKG PRIMPFX+2~, PRIMPFX+4*, PRIMPFX+18, PRIMPFX+23, PRIMPFX+28
CT JUMP+1~, JUMP+6*
DATANAME PRIMPFX+15, PRIMPFX+16, HILOFLE+12, HILOFLE+13, EXADPFX+7, EXADPFX+8, EXADPFX+27, FLENUM+7, FLENUM+8, FLENUM+24
, FLERNG+7, FLERNG+8, FLERNG+25, PRNTPKG+16, PRNTPKG+17, JUMP+1~, JUMPEXC+3*, JUMPEXC+4, JUMPEXC+5, UPDTNODE~
, UPDTNODE+1, UPDTNODE+3, UPDTNODE+4, UPDTNODE+5, SPLITOUT~, SPLITOUT+5
DATANUM PRIMPFX+4, PRIMPFX+15, PRIMPFX+16, PRIMPFX+21*, PRIMPFX+26*, PRIMPFX+28*, HILOFLE+12, HILOFLE+13, HILOFLE+15*, EXADPFX+7
, EXADPFX+9, EXADPFX+26*, EXADPFX+27, FLENUM+7, FLENUM+23*, FLENUM+24, FLERNG+7, FLERNG+24*, FLERNG+25, PRNTPKG+16
, PRNTPKG+17, PRNTPKG+18*, JUMP+1~, JUMPEXC+2*, JUMPEXC+3, JUMPEXC+5, UPDTNODE~, UPDTNODE+1, UPDTNODE+3, UPDTNODE+4
, UPDTNODE+5
DATELEMT EDITPRFX~, EDITPRFX+3, EDITPRFX+5, EDITPRFX+9, LSTEDT~, LSTEDT+3, LSTEDT+5, EDITFNUM~, EDITFNUM+3, EDITFNUM+5
, EDITFNUM+9, EDITFRNG~, EDITFRNG+3, EDITFRNG+5, EDITFRNG+10, PCEPOS~, PCEPOS+2
DELIMPOS PCEPOS+1~
DIR PRIMPFX+1~, HILOFLE+1~, EXADPFX+2~, EDITPRFX+1~, FLENUM+2~, EDITFNUM+1~, FLERNG+2~, EDITFRNG+1~, PRNTPKG+1~, JUMP+1~
, FLESEL+1~
DIR("?" PRIMPFX+7*, PRIMPFX+8*, PRIMPFX+9*, PRIMPFX+10*, PRIMPFX+11*, HILOFLE+4*, HILOFLE+5*, HILOFLE+6*, HILOFLE+7*, HILOFLE+8*
, EXADPFX+12*, EXADPFX+13*, EXADPFX+14*, EXADPFX+15*, EXADPFX+16*, EXADPFX+17*, EXADPFX+18*, EXADPFX+19*, EXADPFX+20*, EDITPRFX+6*
, FLENUM+11*, FLENUM+12*, FLENUM+13*, FLENUM+14*, FLENUM+15*, FLENUM+16*, FLENUM+17*, EDITFNUM+6*, FLERNG+11*, FLERNG+12*
, FLERNG+13*, FLERNG+14*, FLERNG+15*, FLERNG+16*, FLERNG+17*, FLERNG+18*, EDITFRNG+6*, EDITFRNG+7*, PRNTPKG+10*, FLESEL+4*
DIR("??" PRNTPKG+11*
DIR("A" PRIMPFX+5*, HILOFLE+2*, EXADPFX+3*, EXADPFX+10*, EDITPRFX+4*, FLENUM+3*, FLENUM+9*, EDITFNUM+4*, FLERNG+3*, FLERNG+9*
, EDITFRNG+4*, PRNTPKG+6*, PRNTPKG+8*, JUMPEXC+4*, FLESEL+3*, FLESEL+5*, FLESEL+6*, FLESEL+7*, FLESEL+8*
DIR("B" PRIMPFX+6*, HILOFLE+3*, EXADPFX+4*, EXADPFX+11!, EDITPRFX+5*, FLENUM+4*, FLENUM+10!, EDITFNUM+5*, FLERNG+4*, FLERNG+10!
, EDITFRNG+5*, PRNTPKG+7*, JUMPEXC+5*
DIR("PRE" PRNTPKG+9*
DIR(0 PRIMPFX+12*, HILOFLE+9*, EXADPFX+21*, EDITPRFX+7*, FLENUM+18*, EDITFNUM+7*, FLERNG+19*, EDITFRNG+8*, PRNTPKG+12*, FLESEL+10*
DIROUT PRIMPFX+1~, PRIMPFX+18, HILOFLE+1~, EXADPFX+2~, EDITPRFX+9, FLENUM+2~, EDITFNUM+9, FLERNG+2~, EDITFRNG+10, PRNTPKG+1~
, FLESEL+1~
DIRUT PRIMPFX+1~, PRIMPFX+15, PRIMPFX+16, PRIMPFX+17!, HILOFLE+1~, HILOFLE+12, HILOFLE+13, HILOFLE+14!, EXADPFX+2~, EDITPRFX+1~
, FLENUM+2~, EDITFNUM+1~, FLERNG+2~, EDITFRNG+1~, PRNTPKG+1~, PRNTPKG+16, PRNTPKG+17, FLESEL+1~, FLESEL+12
DTELMT JUMP+1~, JUMP+5*, JUMP+6*, JUMP+7, JUMPEXC+2, JUMPEXC+6
DTOUT PRIMPFX+1~, PRIMPFX+14, PRIMPFX+18, HILOFLE+1~, HILOFLE+11, EXADPFX+2~, EXADPFX+23, EDITPRFX+1~, EDITPRFX+9, FLENUM+2~
, FLENUM+20, EDITFNUM+1~, EDITFNUM+9, FLERNG+2~, FLERNG+21, EDITFRNG+1~, EDITFRNG+10, PRNTPKG+1~, PRNTPKG+15, FLESEL+1~
DUOUT PRIMPFX+1~, PRIMPFX+14, PRIMPFX+18, PRIMPFX+22, PRIMPFX+27!, HILOFLE+1~, HILOFLE+11, HILOFLE+15, EXADPFX+2~, EXADPFX+23
, EXADPFX+26, EDITPRFX+1~, EDITPRFX+9, FLENUM+2~, FLENUM+20, FLENUM+23, EDITFNUM+1~, EDITFNUM+9, FLERNG+2~, FLERNG+21
, FLERNG+24, EDITFRNG+1~, EDITFRNG+10, PRNTPKG+1~, PRNTPKG+15, PRNTPKG+18, JUMP+10!, JUMPEXC+7!, FLESEL+1~
EDITARY PRIMPFX+15, PRIMPFX+16, HILOFLE+12, HILOFLE+13, EXADPFX+7, EXADPFX+27, FLENUM+7, FLENUM+24, FLERNG+7, FLERNG+25
, PRNTPKG+16, PRNTPKG+17, JUMPEXC+3, JUMPEXC+5, UPDTNODE~, UPDTNODE+1, UPDTNODE+3, UPDTNODE+4, UPDTNODE+5
EDTELEMT EDITPRFX+1~, LSTEDT~, LSTEDT+1, LSTEDT+2, LSTEDT+5*, LSTEDT+6, EDITFNUM+1~, EDITFRNG+1~
>> GETOUT EXADPFX+5*, EXADPFX+6, EXADPFX+23*, EXADPFX+25, EXADPFX+26, FLENUM+5*, FLENUM+6, FLENUM+20*, FLENUM+22, FLENUM+23
, FLERNG+5*, FLERNG+6, FLERNG+21*, FLERNG+23, FLERNG+24
ITEM PCEPOS+1~, PCEPOS+2*
ITEMNUM PRNTPKG+3~, PRNTPKG+4*, PRECHK~, PRECHK+2, CHKX~, CHKX+10, CHKX+11, CHKX+13, PKGHLP+1
ITEMUM PKGHLP~
LASTSPKG PRECHK~, PRECHK+1, CHKX+14*
LINE SPLITOUT+4~, SPLITOUT+10*
LISTDATA EXADPFX+1~, EXADPFX+7*, EXADPFX+8, EXADPFX+25, EXADPFX+27, EDITPRFX~, EDITPRFX+3, EDITPRFX+9, LSTEDT~, LSTEDT+1*
, LSTEDT+3*, LSTEDT+6*, FLENUM+1~, FLENUM+7*, FLENUM+8, FLENUM+22, FLENUM+24, EDITFNUM~, EDITFNUM+3, EDITFNUM+9
, FLERNG+1~, FLERNG+7*, FLERNG+8, FLERNG+23, FLERNG+25, EDITFRNG~, EDITFRNG+3, EDITFRNG+10, SPLITOUT~, SPLITOUT+6
, SPLITOUT+7, SPLITOUT+8, SPLITOUT+9, SPLITOUT+12, SPLITOUT+13, SPLITOUT+14, PCEPOS~, PCEPOS+2
LISTPCE SPLITOUT+4~, SPLITOUT+12*
NXSTPCE SPLITOUT+4~, SPLITOUT+11*, SPLITOUT+13*, SPLITOUT+14
PARAMSTR CHKX+2~, CHKX+11
PARAMSTR("ADDITM" CHKX+3*
PARAMSTR("ITEMNUM" CHKX+10*
PARAMSTR("MAXLNG" CHKX+7*
PARAMSTR("MINLNG" CHKX+6*
PARAMSTR("PATRN" CHKX+5*
PARAMSTR("XTUPCASE" CHKX+4*
PCE EDITPRFX+1~, EDITPRFX+2*, EDITPRFX+3*, EDITPRFX+9, LSTEDT~, LSTEDT+1, LSTEDT+2, LSTEDT+4, EDITFNUM+1~, EDITFNUM+2*
, EDITFNUM+3*, EDITFNUM+9, EDITFRNG+1~, EDITFRNG+2*, EDITFRNG+3*, EDITFRNG+10, PCEPOS+1~, PCEPOS+2*, PCEPOS+3
PCENUM SPLITOUT+4~, SPLITOUT+12*, SPLITOUT+13
>> PKGNME PRIMPFX+4, PRIMPFX+19
PPRMT EXADPFX+1~, EXADPFX+9*, EXADPFX+10
RESULT CKMATCH+1~, CKMATCH+2*, CKMATCH+3, FLESEL+1~, FLESEL+2*, FLESEL+12*, FLESEL+13
SELARY PRNTPKG+3~, PRNTPKG+4, PRECHK~, PRECHK+2, CHKX~, CHKX+8*, CHKX+11
SELARY( CHKX+14
SUBRTN JUMP+1~
UPDATLST EXADPFX+24*, EXADPFX+25, EXADPFX+27, EDITPRFX~, EDITPRFX+9, LSTEDT~, LSTEDT+1*, LSTEDT+3*, LSTEDT+6*, FLENUM+21*
, FLENUM+22, FLENUM+24, EDITFNUM~, EDITFNUM+9, FLERNG+22*, FLERNG+23, FLERNG+25, EDITFRNG~, EDITFRNG+10
UPDIRUT UPDTNODE~, UPDTNODE+1, UPDTNODE+2
UPDX UPDTNODE~, UPDTNODE+1, UPDTNODE+3, UPDTNODE+5
X PRIMPFX+1~, PRIMPFX+15, PRIMPFX+16, PRIMPFX+18, PRIMPFX+22, PRIMPFX+28, HILOFLE+1~, HILOFLE+12, HILOFLE+13, HILOFLE+15
, EXADPFX+2~, EXADPFX+26, EDITPRFX+1~, EDITPRFX+9, FLENUM+2~, FLENUM+23, EDITFNUM+9, FLERNG+2~, FLERNG+24, EDITFRNG+10
, PRNTPKG+1~, PRNTPKG+15, PRNTPKG+16, PRNTPKG+17, PRNTPKG+18, JUMP+10!, FLESEL+1~, PRECHK~, PRECHK+1*, PRECHK+2
, CHKX~, CHKX+1, CHKX+11, CHKX+13!, CHKX+14*
XTA PRIMPFX~, PRIMPFX+5, HILOFLE~, HILOFLE+2, EXADPFX~, EXADPFX+3, FLENUM~, FLENUM+3, FLERNG~, FLERNG+3
, PRNTPKG~, PRNTPKG+6
XTB PRIMPFX~, PRIMPFX+6, HILOFLE~, HILOFLE+3, EXADPFX~, EXADPFX+4, FLENUM~, FLENUM+4, FLERNG~, FLERNG+4
, PRNTPKG~, PRNTPKG+7
XTDATNM CKMATCH~, CKMATCH+2
XTDONE JUMP+1~, JUMP+2*, JUMP+5*, JUMP+6, JUMP+9*
XTFOUND JUMP+1~, JUMP+2*, JUMP+10, JUMP+11, JUMPEXC+1*
XTIN CKMATCH~, CKMATCH+2
XTJUMPIN PRIMPFX~, PRIMPFX+1, HILOFLE~, HILOFLE+1, EXADPFX~, EXADPFX+2, FLENUM~, FLENUM+2, FLERNG~, FLERNG+2
, PRNTPKG~, PRNTPKG+1
XTOLDNUM JUMP~, JUMP+5, JUMP+7
XVAL JUMP~, JUMP+3, JUMP+4*, JUMP+5, JUMP+7
Y PRIMPFX+1~, PRIMPFX+16, HILOFLE+1~, HILOFLE+13, EXADPFX+2~, EXADPFX+23, EXADPFX+25, EDITPRFX+1~, FLENUM+2~, FLENUM+20
, FLENUM+22, FLERNG+2~, FLERNG+21, FLERNG+23, PRNTPKG+1~, FLESEL+1~

Marked Items

Name Field # of Occurrence
$T(DATANAME+(3) FLESEL+12
$T(DATANAME+CT JUMP+6
$T(DATANAME+XTOLDNUM JUMP+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All