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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ZIBVKIL

Package: IHS VA %Utilities

Routine: ZIBVKIL


Information

ZIBVKIL ; IHS/ADC/GTH - BUILD A KILL VARIABLE ROUTINE ; [ 11/04/97 10:26 AM ]

Source Information

Source file <ZIBVKIL.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 HOME^%ZIS  KILL^XUSCLEAN  
IHS VA Utilities 1 ^XBVCHV  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
PKGVAR ;
5 ;;S XBNUM=XBNUM+1 S X=" D ^"_XBNS_"VKL"_XBNUM ZI X ZS @XBROU W !,XBROU," Saved",!!
3 ;;S XBVAR=XBNS,XBHD=" K ",X=" K " F S XBVAR=$O(^XBVROU($J,"V",XBVAR)) Q:$E(XBVAR,1,XBLNS)'=XBNS I '$D(XBVPKG(XBVAR)) S X=X_XBVAR_"," S XBLX=$L(X) I XBLX>235 S X=$E(X,1,XBLX-1) ZI X S X=" K " X ^%ZOSF("SIZE") I Y>3000 X XBLD(5),XBLD(2)
1 ;;S XBNUM=0 X XBLD(2),XBLD(3),XBLD(4),XBLD(6) ZS @XBROU W !,XBROU," Saved ",!!
S ;
KROU ;
EXIT ;
4 ;;S XBLX=$L(X) I XBLX>3 S X=$E(X,1,XBLX-1) ZI X
6 ;;I $D(XBKROU) S X=XBKROU ZI X W !,"ADDING ",X,!
2 ;;ZR S XBROU=XBNS_"VKL"_XBNUM,X=XBROU_" ; - kill variables",XBLNS=$L(XBNS) ZI X S X=" ;;" ZI X
NS ;

External References

Name Field # of Occurrence
HOME^%ZIS ZIBVKIL+18
^DIR NS+3, PKGVAR+3, KROU+3
^XBVCHV KROU+10
KILL^XUSCLEAN EXIT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,"OPERATING SYSTEM '",$P(^%ZOSF("OS"),"-",1),"' NOT SUPPORTED."
  • Line Location: ZIBVKIL+15
Function Call: WRITE
  • Prompt: !,*7,"OPERATING SYSTEM '",$P(^%ZOSF("OS"),"^",1),"' NOT SUPPORTED."
  • Line Location: ZIBVKIL+16
Function Call: WRITE
  • Prompt: !,"NO PACKAGE ??",!
  • Line Location: NS+6
Function Call: WRITE
  • Prompt: !,XBROU," error in list >> ",Y
  • Line Location: KROU+5
Function Call: WRITE
  • Prompt: !,X," error in list >> ",Y
  • Line Location: KROU+7
Function Call: WRITE
  • Prompt: !,"NO FILE ??",!
  • Line Location: KROU+11
Function Call: WRITE
  • Prompt: !,"REMEMBER TO EDIT THE TOP LINES OF THE ROUTINES CREATED !",!!
  • Line Location: EXIT+3
Function Call: WRITE
  • Prompt: !,XBROU," Saved ",!!
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: !,XBROU," Saved",!!
  • Line Location: 5+0
Function Call: WRITE
  • Prompt: !,"ADDING ",X,!
  • Line Location: 6+0
Routine Call
  • %ZIS
  • Line Location:
    • ZIBVKIL+18
Routine Call
  • DIR
  • Line Location:
    • NS+3
    • PKGVAR+3
    • KROU+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("OS" ZIBVKIL+16
^%ZOSF("TEST" KROU+6
^DIC(9.4 - [#9.4] NS+6
^XBVROU($J KROU+11, EXIT+2!

Label References

Name Line Occurrences
EXIT NS+4
KROU KROU+5, KROU+7
NS NS+5, NS+6, KROU+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR NS+1!, PKGVAR+1!, KROU+1!
DIR("?" PKGVAR+2*, KROU+2*
DIR("A" NS+2*, PKGVAR+2*, KROU+2*
DIR(0 NS+2*, PKGVAR+2*, KROU+2*
>> I S+1*
>> X NS+4, PKGVAR+4*, KROU+4*, KROU+5, KROU+7
>> XBI PKGVAR+4*, KROU+4*
XBKROU KROU+9*, EXIT+2!
XBLD EXIT+2!
XBLD( S+1*
XBLD(1 S+2
XBNS ZIBVKIL+19~, NS+7*
>> XBROU KROU+4*, KROU+5
>> XBVPKG( PKGVAR+4*
>> Y NS+5, NS+6, NS+7, PKGVAR+4, KROU+4, KROU+5, KROU+7, KROU+9

Marked Items

Name Field # of Occurrence
$T(@I S+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All