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

Package: Toolkit

Routine: XTVSLPDC


Information

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

Source Information

Source file <XTVSLPDC.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Toolkit 6 $$GET^XPAR  ^XTVSHLP1  ($$CHKPID,$$REQLOCK,$$UNLCKPFL,$$YNCHK,ADD,JUSTPAWS,LISTOUT,SPLITADD)^XTVSLAPI  ($$BLDNUM,$$VERNUM)^XTVSLM  ($$EDCHK,$$SETSTR,BEFORIMG,EDPKGPRM)^XTVSLPD1  EXIT^XTVSLPDC  
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:

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: 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(ADPKG) ; Select Package to Edit from ^TMP("XTVS PKG MGR PARAM CAP",$J)
; INPUT:
; ADPKG : 0 - Do not allow add new package [Default]
; : 1 - Allow add new package
CHKX(XADD) ;Check for Package
; INPUT:
; XADD : 0 - Do not allow add new package
; : 1 - Allow add new package
PKGLIST(X,LASTSPKG) ;List packages from user entry [to support 'XADD' mod in CHKX]
PKGHLP(PRNT) ; Package selection help
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

External References

Name Field # of Occurrence
$$DEL^%ZISH PKGSAVE+23, PKGSAVE+25
$$MV^%ZISH PKGSAVE+24
CLOSE^%ZISH CRTFLE+9
OPEN^%ZISH CRTFLE+3
^DIR SELPKG+12
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+23, 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+24, DELPMPKG+5, DELPMPKG+22, DELPMPKG+27, SAVPMPKG+5
$$REQLOCK^XTVSLAPI CRTFLE+14
$$UNLCKPFL^XTVSLAPI PKGSAVE+32
$$YNCHK^XTVSLAPI EXIT+7, CHKX+15, PKGHLP+7, DELPMPKG+15, PKGSAVE+11, PKGSAVE+12
ADD^XTVSLAPI INIT+11, INIT+12
JUSTPAWS^XTVSLAPI EXIT+9, EXIT+10, EXIT+15, PKGLIST+12, EDITPRM+27, DELPMPKG+24, SAVPMPKG+8, PKGSAVE+34, CRTFLE+15
LISTOUT^XTVSLAPI PKGLIST+8, PKGLIST+13, PKGHLP+14
SPLITADD^XTVSLAPI INIT+16
$$BLDNUM^XTVSLM HDR+5
$$VERNUM^XTVSLM HDR+5
$$EDCHK^XTVSLPD1 EDITPRM+18
$$SETSTR^XTVSLPD1 EDITPRM+19
BEFORIMG^XTVSLPD1 EDITPRM+15, DELPMPKG+18
EDPKGPRM^XTVSLPD1 EDITPRM+17
EXIT^XTVSLPDC INIT+18

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: X
  • Line Location: CHKX+10
Function Call: WRITE
  • Prompt: !,"Select a package. [Number 1 - "_ITEMNUM_"]"
  • Line Location: PKGLIST+10
Function Call: WRITE
  • Prompt: !,"??"
  • Line Location: PKGLIST+11
Function Call: WRITE
  • Prompt: " ",X
  • Line Location: PKGLIST+16
Function Call: WRITE
  • Prompt: !!," <* UNLOCK ERROR. Check LOCK file Integrity. *>"
  • Line Location: PKGSAVE+33
Routine Call
  • DIR
  • Line Location:
    • SELPKG+12
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+15, EDITPRM+20!, EDITPRM+21, DELPMPKG+18, DELPMPKG+20!, DELPMPKG+21, CRTFLE+12!
^TMP("XTVS-PARAM-CAP" INIT+8, INIT+13, INIT+14, INIT+15, CHKX+11, CHKX+20*, CHKX+21*, CHKX+22*, CHKX+23*, CHKX+24*
, CHKX+25*, CHKX+26*, CHKX+27*, CHKX+28*, CHKX+29*, PKGLIST+3, PKGHLP+11, CRTFLE+8
^VA(200 - [#200] PKGSAVE+6

Label References

Name Line Occurrences
$$SELPKG EDITPRM+13, DELPMPKG+8
CRTFLE PKGSAVE+27, PKGSAVE+35
HDR HELP+17, EDITPRM+25, DELPMPKG+22, SAVPMPKG+11
INIT HELP+17, EDITPRM+25, DELPMPKG+22, SAVPMPKG+11
KILL INIT+5, EXIT+18
MSG HDR+13, EDITPRM+27, DELPMPKG+16, DELPMPKG+24, SAVPMPKG+8, SAVPMPKG+12
PKGLIST CHKX+12, CHKX+16, CHKX+18, CHKX+30
PKGSAVE EXIT+8, SAVPMPKG+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADPKG SELPKG~, SELPKG+6*, SELPKG+10
CAPARY EDITPRM+8~, EDITPRM+16*, EDITPRM+19, 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+21*, 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+23*
EDITPRM+24, 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*
DELPKG DELPMPKG+3~, DELPMPKG+15*, DELPMPKG+16, DELPMPKG+17
DELRSLT PKGSAVE+14~, PKGSAVE+17*, PKGSAVE+23*, PKGSAVE+24*, PKGSAVE+25*, PKGSAVE+30
DIR SELPKG+5~
DIR("?" SELPKG+11*
DIR("A" SELPKG+8*
DIR("PRE" SELPKG+10*
DIR(0 SELPKG+9*
DIRHEAD HDR+1~, HDR+6*, HDR+7, HDR+8, HDR+10*, HDR+11, HDR+12
DIRUT SELPKG+5~, SELPKG+14
DOADD CHKX+7~, CHKX+8*, CHKX+15*, CHKX+16, CHKX+17, CHKX+19
DTIME PKGLIST+9
DTOUT SELPKG+5~
DUOUT SELPKG+5~
DUZ PKGSAVE+6
EDITARY EDITPRM+8~
EDPKG EDITPRM+8~, EDITPRM+18*, EDITPRM+19, EDITPRM+20
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
INITIAL PKGSAVE+1~, PKGSAVE+6*, PKGSAVE+7*, PKGSAVE+15
IO CRTFLE+6
ITEMNUM CHKX+7~, PKGLIST+1*, PKGLIST+4*, PKGLIST+5, PKGLIST+6, PKGLIST+9, PKGLIST+10, PKGLIST+15, PKGLIST+16, PKGHLP+8~
, PKGHLP+9*, PKGHLP+12*, PKGHLP+13
LASTSPKG HDR+1~, INIT+1~, SELPKG+13*, CHKX+10, CHKX+12, CHKX+16, CHKX+18, CHKX+30, PKGLIST~, PKGLIST+16*
LCKCHK INIT+1~, INIT+3*, INIT+4, INIT+18, EXIT+2*, EXIT+3, EXIT+12, EXIT+15, EDITPRM+8~, EDITPRM+10*
EDITPRM+11, EDITPRM+24*, EDITPRM+25, EDITPRM+29, EDITPRM+30, 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~
NOWDT PKGSAVE+1~, PKGSAVE+2*, PKGSAVE+3*, PKGSAVE+4*, PKGSAVE+5*, PKGSAVE+15
OLDFNME PKGSAVE+19~, PKGSAVE+22*, PKGSAVE+23, PKGSAVE+24
PKG INIT+1~, INIT+6*, INIT+8*, INIT+13, INIT+14, INIT+15
PKGLP CHKX+7~, PKGLIST+2*, PKGLIST+3*, PKGLIST+5, PKGHLP+8~, PKGHLP+10*, PKGHLP+11*, PKGHLP+13
PKGNME SELPKG+5~, SELPKG+7*, SELPKG+14*, SELPKG+15, EDITPRM+8~, EDITPRM+13*, EDITPRM+14, EDITPRM+15, EDITPRM+16, EDITPRM+17
EDITPRM+18, EDITPRM+20, EDITPRM+27, 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~
PRNT PKGHLP~, PKGHLP+1, PKGHLP+2, PKGHLP+3, PKGHLP+4, PKGHLP+5, PKGHLP+6
SELARY CHKX+7~, PKGLIST+8, PKGLIST+13, PKGHLP+8~, PKGHLP+14
SELARY( PKGLIST+5*, PKGLIST+16, PKGHLP+13*
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+29*, 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+30*, 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+5~, SELPKG+13, CHKX+5, CHKX+10*, CHKX+11, CHKX+12, CHKX+13
, CHKX+14, CHKX+16, CHKX+17!, CHKX+18, CHKX+20, CHKX+21, CHKX+22, CHKX+23, CHKX+24, CHKX+25
, CHKX+26, CHKX+27, CHKX+28, CHKX+29, CHKX+30, PKGLIST~, PKGLIST+2, PKGLIST+3, PKGLIST+15!, PKGLIST+16*
XADD CHKX~, CHKX+9*, CHKX+12, CHKX+13, CHKX+30
XTQVAR HELP+10*, HELP+11, HELP+12*, HELP+13, HELP+14*, HELP+19!
>> XTVPSPRM HDR+10, INIT+3, EXIT+2, EDITPRM+10, EDITPRM+24, 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
XTX HELP+13*, HELP+14, HELP+15, HELP+19!
XVAL CHKX+7~, PKGLIST+7*, PKGLIST+9*, PKGLIST+10, PKGLIST+11, PKGLIST+15, PKGLIST+16
Y HELP+10, HELP+14, HELP+19!, SELPKG+5~, SELPKG+14

Marked Items

Name Field # of Occurrence
$T(LPDCTXT+TXTCT^XTVSHLP1 HELP+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All