Routine: XTVSLPDC

Information

XTVSLPDC ;ALBANY FO/GTS - VistA Package Sizing Manager - Caption display; 12-JUL-2016

Package	Total	Call Graph
Toolkit	7	$$GET^XPAR ^XTVSHLP1 ($$CHKPID,$$REQLOCK,$$UNLCKPFL,$$YNCHK,ADD,JUSTPAWS,SPLITADD)^XTVSLAPI ($$BLDNUM,$$VERNUM)^XTVSLM ($$EDCHK,$$SETSTR,BEFORIMG,EDPKGPRM)^XTVSLPD1 EXIT^XTVSLPDC SELLIST^XTVSLPR2
Kernel	3	($$DEL,$$MV,CLOSE,OPEN)^%ZISH ($$FMTE,$$NOW)^XLFDT DISP^XQORM1
List Manager	3	EN^VALM (CLEAR,FULL,PAUSE)^VALM1 (CLEAN,KILL)^VALM10
VA FileMan	1	^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 10

Package	Total	Caller Graph
Toolkit	9	XTVS PKG MGR DEL PACKAGE PARM ACTION XTVS PKG MGR EDIT PACKAGE PARM ACTION XTVS PKG MGR PARAM CAPTN DISP XTVS PKG MGR SAVE PACKAGE PARM ACTION XTVSLP XTVSLPD2 XTVSLPDC XTVSLR XTVSRFL
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for XTVS PKG MGR PARAM CAPTN DISP
HDR	; -- header code
INIT	; -- init variables and list array
HELP	; -- help code
EXIT	; -- exit code
MSG(TEXT)	; -- set default message
KILL	; - Cleanup local and global display arrays
SELPKG(ADDITM,DELIND)	; Select Package to Edit/Delete from ^TMP("XTVS PKG MGR PARAM CAP",$J) ; INPUT: ; ADDITM : 0 - Do not allow add new package [Default] ; : 1 - Allow add new package ; DELIND : 0 - Called to select a package for add/edit [Default] ; 1 - Called to select a package to delete
PRECHK(X,LASTSPKG,SELARY,ITEMNUM,PARAMSTR)	; SELPKG X value DIR("PRE") pre-check
EDITPRM	; Edit parameters for a package ; -- Protocol: XTVS PKG MGR EDIT PACKAGE PARM ACTION
DELPMPKG	; Delete parameters from a package ; -- Protocol: XTVS PKG MGR DEL PACKAGE PARM ACTION
SAVPMPKG	; Save Package Parameters file ; -- Protocol: XTVS PKG MGR SAVE PACKAGE PARM ACTION
PKGSAVE	;Save Package Changes
CRTFLE(DEFDIR,FILENME,WNFILE)	; Update old file/Write New file
SETADD(X)	; Add a new package to ^TMP("XTVS-PARAM-CAP")
SETSELAY(SELARY)	; Move Package names to SELARY from ^TMP("XTVS-PARAM-CAP") array
SPCPKGCK(XTVSSAVX,ITEMNUM,SELARY)	; Check for existence of the <SPACE> select package in SELARY

Name	Field # of Occurrence
$$DEL^%ZISH	PKGSAVE+23, PKGSAVE+25
$$MV^%ZISH	PKGSAVE+24
CLOSE^%ZISH	CRTFLE+9
OPEN^%ZISH	CRTFLE+3
^DIR	SELPKG+42
EN^VALM	EN+4
CLEAR^VALM1	HELP+5, HELP+14
FULL^VALM1	HELP+6, EXIT+5, EXIT+13, EDITPRM+12, DELPMPKG+7, SAVPMPKG+7
PAUSE^VALM1	HELP+14
CLEAN^VALM10	KILL+1
KILL^VALM10	KILL+2
$$FMTE^XLFDT	PKGSAVE+2
$$NOW^XLFDT	PKGSAVE+2
$$GET^XPAR	HDR+3, INIT+2, EXIT+2, EDITPRM+9, EDITPRM+30, DELPMPKG+4, DELPMPKG+26, SAVPMPKG+4, PKGSAVE+8
DISP^XQORM1	HELP+3, HELP+9
^XTVSHLP1	HELP+13
$$CHKPID^XTVSLAPI	INIT+3, EXIT+2, EDITPRM+10, EDITPRM+31, DELPMPKG+5, DELPMPKG+22, DELPMPKG+27, SAVPMPKG+5
$$REQLOCK^XTVSLAPI	CRTFLE+14
$$UNLCKPFL^XTVSLAPI	PKGSAVE+32
$$YNCHK^XTVSLAPI	EXIT+7, DELPMPKG+15, PKGSAVE+11, PKGSAVE+12
ADD^XTVSLAPI	INIT+11, INIT+12
JUSTPAWS^XTVSLAPI	EXIT+9, EXIT+10, EXIT+15, SELPKG+32, EDITPRM+19, EDITPRM+34, DELPMPKG+24, SAVPMPKG+8, PKGSAVE+34, CRTFLE+15
SPLITADD^XTVSLAPI	INIT+16
$$BLDNUM^XTVSLM	HDR+5
$$VERNUM^XTVSLM	HDR+5
$$EDCHK^XTVSLPD1	EDITPRM+25
$$SETSTR^XTVSLPD1	EDITPRM+26
BEFORIMG^XTVSLPD1	EDITPRM+22, DELPMPKG+18
EDPKGPRM^XTVSLPD1	EDITPRM+24
EXIT^XTVSLPDC	INIT+18
SELLIST^XTVSLPR2	PRECHK+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: HELP+3
Function Call: WRITE	Prompt: !! Line Location: HELP+9
Function Call: WRITE	Prompt: !,$S(XTX["$PAUSE":"",1:XTX) Line Location: HELP+15
Function Call: WRITE	Prompt: ! Line Location: HELP+16
Function Call: WRITE	Prompt: !!," <* LOCK ERROR. LOCK required to proceed. Check LOCK file Integrity. *>" Line Location: EXIT+14
Function Call: WRITE	Prompt: " ",PKGNME Line Location: SELPKG+45
Function Call: WRITE	Prompt: " ",LASTSPKG Line Location: PRECHK+3
Function Call: WRITE	Prompt: !!," <* UNLOCK ERROR. Check LOCK file Integrity. *>" Line Location: PKGSAVE+33
Function Call: WRITE	Prompt: !!,"?? ",XTVSSAVX_" VistA package is undefined." Line Location: SPCPKGCK+3
Routine Call	DIR Line Location: SELPKG+42
Routine Call	VALM Line Location: EN+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("XTVS PKG MGR PARAM CAP"	KILL+3!
^TMP("XTVS-PARAM-BI"	EN+3!, EXIT+17!, EDITPRM+22, EDITPRM+27!, EDITPRM+28, DELPMPKG+18, DELPMPKG+20!, DELPMPKG+21, CRTFLE+12!
^TMP("XTVS-PARAM-CAP"	INIT+8, INIT+13, INIT+14, INIT+15, EDITPRM+21, CRTFLE+8, SETADD+1, SETADD+2, SETADD+3, SETADD+4 , SETADD+5, SETADD+6, SETADD+7, SETADD+8, SETADD+9, SETADD+10, SETSELAY+4
^VA(200 - [#200]	PKGSAVE+6

Label References

Name	Line Occurrences
$$SELPKG	EDITPRM+13, DELPMPKG+8
$$SETSELAY	SELPKG+29
CRTFLE	PKGSAVE+27, PKGSAVE+35
HDR	HELP+17, EDITPRM+32, DELPMPKG+22, SAVPMPKG+11
INIT	HELP+17, EDITPRM+32, DELPMPKG+22, SAVPMPKG+11
KILL	INIT+5, EXIT+18
MSG	HDR+13, EDITPRM+34, DELPMPKG+16, DELPMPKG+24, SAVPMPKG+8, SAVPMPKG+12
PKGSAVE	EXIT+8, SAVPMPKG+10
SETADD	EDITPRM+21
SPCPKGCK	PRECHK+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDITM	SELPKG~, SELPKG+20, SELPKG+37, SELPKG+38
CAPARY	EDITPRM+8~, EDITPRM+23, EDITPRM+26, DELPMPKG+3~, DELPMPKG+10, DELPMPKG+19
CAPDAT	INIT+1~, INIT+10, INIT+14, INIT+15, INIT+16
CHKLKER	PKGSAVE+19~, CRTFLE+1~, CRTFLE+14*, CRTFLE+15
CHNGMADE	EN+1~, EN+2, HDR+10, EXIT+4, EXIT+9, EXIT+10, EDITPRM+28, DELPMPKG+21, SAVPMPKG+8, SAVPMPKG+9 , SAVPMPKG+11, SAVPMPKG+12, CRTFLE+11
DATAITEM	INIT+1~, INIT+15*, INIT+16
DEFDIR	HDR+1~, HDR+3, HDR+6, INIT+1~, INIT+2, INIT+3, EDITPRM+8~, EDITPRM+9, EDITPRM+10, EDITPRM+30 , EDITPRM+31, DELPMPKG+3~, DELPMPKG+4, DELPMPKG+5, DELPMPKG+22, DELPMPKG+26, DELPMPKG+27, SAVPMPKG+3~, SAVPMPKG+4, SAVPMPKG+5 , PKGSAVE+1~, PKGSAVE+8, PKGSAVE+23, PKGSAVE+24, PKGSAVE+25, PKGSAVE+27, PKGSAVE+35, CRTFLE~, CRTFLE+3
DELFLE	PKGSAVE+19~, PKGSAVE+23, PKGSAVE+25
DELFLE(	PKGSAVE+23!, PKGSAVE+25
DELIND	SELPKG~, SELPKG+25, SELPKG+26, SELPKG+37, PRECHK+1~, PRECHK+2, PRECHK+6
DELPKG	DELPMPKG+3~, DELPMPKG+15*, DELPMPKG+16, DELPMPKG+17
DELRSLT	PKGSAVE+14~, PKGSAVE+17, PKGSAVE+23, PKGSAVE+24, PKGSAVE+25, PKGSAVE+30
DIR	SELPKG+19~
DIR("?"	SELPKG+37, SELPKG+38, SELPKG+39, SELPKG+40
DIR("??"	SELPKG+41*
DIR("A"	SELPKG+34*
DIR("PRE"	SELPKG+36*
DIR(0	SELPKG+35*
DIRHEAD	HDR+1~, HDR+6, HDR+7, HDR+8, HDR+10, HDR+11, HDR+12
DIRUT	SELPKG+19~
DTOUT	SELPKG+19~, PRECHK+4
DUOUT	SELPKG+19~
DUZ	PKGSAVE+6
EDITARY	EDITPRM+8~
EDPKG	EDITPRM+8~, EDITPRM+25*, EDITPRM+26, EDITPRM+27
FILENAME	INIT+1~
FILENME	PKGSAVE+1~, PKGSAVE+15, PKGSAVE+20, PKGSAVE+21, PKGSAVE+22, PKGSAVE+26, PKGSAVE+27, PKGSAVE+35, CRTFLE~, CRTFLE+3 , CRTFLE+10, SETSELAY+1~, SETSELAY+2, SETSELAY+4, SETSELAY+5
INITIAL	PKGSAVE+1~, PKGSAVE+6, PKGSAVE+7, PKGSAVE+15
IO	CRTFLE+6
ITEMNUM	SELPKG+19~, SELPKG+29, SELPKG+30, SELPKG+32, SELPKG+35, SELPKG+39, PRECHK~, PRECHK+5, PRECHK+6, SETSELAY+1~ , SETSELAY+3, SETSELAY+5*, SETSELAY+6, SPCPKGCK~, SPCPKGCK+2, SPCPKGCK+3
LASTSPKG	EXIT+17!, SELPKG+45, PRECHK~, PRECHK+3, EDITPRM+18
LCKCHK	INIT+1~, INIT+3, INIT+4, INIT+18, EXIT+2, EXIT+3, EXIT+12, EXIT+15, EDITPRM+8~, EDITPRM+10* , EDITPRM+11, EDITPRM+31, EDITPRM+32, EDITPRM+36, EDITPRM+37, DELPMPKG+3~, DELPMPKG+5, DELPMPKG+6, DELPMPKG+27, DELPMPKG+29 , DELPMPKG+30, SAVPMPKG+3~, SAVPMPKG+5, SAVPMPKG+6, SAVPMPKG+15
LNENUM	INIT+1~, INIT+9, INIT+13, INIT+14, INIT+15
LPNM	INIT+1~
MAXLG	SELPKG+19~
MINLG	SELPKG+19~
NOWDT	PKGSAVE+1~, PKGSAVE+2, PKGSAVE+3, PKGSAVE+4, PKGSAVE+5, PKGSAVE+15
OLDFNME	PKGSAVE+19~, PKGSAVE+22*, PKGSAVE+23, PKGSAVE+24
PARAMSTR	SELPKG+19~, PRECHK~, PRECHK+5
PARAMSTR("ADDITM"	SELPKG+20*
PARAMSTR("DELIND"	SELPKG+26*, PRECHK+2
PARAMSTR("ITEMNUM"	SELPKG+30*
PARAMSTR("MAXLNG"	SELPKG+24*
PARAMSTR("MINLNG"	SELPKG+23*
PARAMSTR("PATRN"	SELPKG+22*
PARAMSTR("XTUPCASE"	SELPKG+21*
PKG	INIT+1~, INIT+6, INIT+8, INIT+13, INIT+14, INIT+15
PKGNME	SELPKG+19~, SELPKG+44, SELPKG+45, SELPKG+47, EDITPRM+8~, EDITPRM+13, EDITPRM+14, EDITPRM+16, EDITPRM+17, EDITPRM+18 , EDITPRM+19, EDITPRM+21, EDITPRM+22, EDITPRM+23, EDITPRM+24, EDITPRM+25, EDITPRM+27, EDITPRM+34, DELPMPKG+3~, DELPMPKG+8 , DELPMPKG+9, DELPMPKG+10, DELPMPKG+11, DELPMPKG+13, DELPMPKG+18, DELPMPKG+20, DELPMPKG+24, PKGSAVE+1~, CRTFLE+7, CRTFLE+8
>> POP	CRTFLE+4
POPERR	CRTFLE+1~, CRTFLE+2, CRTFLE+4, CRTFLE+5
PRMLNLP	INIT+1~
SELARY	SELPKG+19~, SELPKG+27*, SELPKG+29, PRECHK~, PRECHK+5, PRECHK+6, SETSELAY~, SPCPKGCK~
SELARY(	SELPKG+44, SETSELAY+5*, SPCPKGCK+2
SELARYCT	SPCPKGCK+1~, SPCPKGCK+2*, SPCPKGCK+3
SPCPAD	HDR+1~, HDR+2, HDR+7, HDR+8, HDR+9, HDR+11, HDR+12
SVEDT	EXIT+1~, EXIT+7*, EXIT+8
TEXT	MSG~, MSG+1, MSG+2
TXTCT	HELP+13*, HELP+19!
>> UNLKRSLT	PKGSAVE+32*, PKGSAVE+33, PKGSAVE+34, PKGSAVE+35
>> VALMBCK	HELP+18, EDITPRM+36, DELPMPKG+29, DELPMPKG+30, SAVPMPKG+13*
>> VALMCNT	INIT+7*, INIT+11, INIT+12, INIT+16
>> VALMHDR(1	HDR+4*
>> VALMHDR(2	HDR+5*
>> VALMHDR(3	HDR+8*
>> VALMHDR(4	HDR+12*
>> VALMQUIT	INIT+18, EDITPRM+37, DELPMPKG+30, SAVPMPKG+15
>> VALMSG	MSG+1, MSG+2
WNFILE	PKGSAVE+1~, PKGSAVE+10, PKGSAVE+11, PKGSAVE+12, PKGSAVE+13, PKGSAVE+15, PKGSAVE+27, PKGSAVE+31, PKGSAVE+35, CRTFLE~ , CRTFLE+13
WOFILE	PKGSAVE+1~, PKGSAVE+10, PKGSAVE+12, PKGSAVE+13, PKGSAVE+18
X	HELP+1, HELP+2, HELP+4, SELPKG+19~, SELPKG+44, PRECHK~, PRECHK+3, PRECHK+4, PRECHK+5, PRECHK+6 , SETADD~, SETADD+1, SETADD+2, SETADD+3, SETADD+4, SETADD+5, SETADD+6, SETADD+7, SETADD+8, SETADD+9 , SETADD+10
XTQVAR	HELP+10, HELP+11, HELP+12, HELP+13, HELP+14*, HELP+19!
>> XTVPSPRM	HDR+10, INIT+3, EXIT+2, EDITPRM+10, EDITPRM+31, DELPMPKG+5, DELPMPKG+12, DELPMPKG+14, DELPMPKG+22, DELPMPKG+27 , SAVPMPKG+5, PKGSAVE+20, PKGSAVE+24, PKGSAVE+25, PKGSAVE+26, PKGSAVE+32, CRTFLE+10*, CRTFLE+14
XTVSSAVX	PRECHK+1~, PRECHK+3*, PRECHK+6, SPCPKGCK~, SPCPKGCK+2, SPCPKGCK+3
XTX	HELP+13*, HELP+14, HELP+15, HELP+19!
Y	HELP+10, HELP+14, HELP+19!, SELPKG+19~

Marked Items

Name	Field # of Occurrence
$T(LPDCTXT+TXTCT^XTVSHLP1	HELP+13

Customize PDF page

Package: Toolkit