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

Package: IHS VA Utilities

Routine: XBVLINE


Information

XBVLINE ; IHS/ADC/GTH - SET LINE TWO OF SELECTED ROUTINES ; [ 10/29/2002 7:42 AM ]

Source Information

Source file <XBVLINE.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS VA Utilities 2 $$DIR^XBDIR  ^XBKVAR  
VA Fileman 1 DD^%DT  

Entry Points

Name Comments DBIA/ICR reference
EOJ ;
LINE5 ;;K %,XBVLINE,DTOUT,DUOUT,DIRUT,DIROUT,X,Y,Z,^UTILITY($J)
LINE4 ;;W !,X S DIR(0)="S^R:Replace;I:Insert;S:Skip",DIR("B")="R",DIR("?")="Replace the line; Insert before the line; Skip the routine" D ^DIR K DIR ZL @RTN ZR:Y="R" +2 S:$D(DIRUT) Y="S",QUIT=1 S X=Y'="S"
LINE3 ;;S X=$P(X," ",2,99),X=X?1.2";".1"V"1.N.E ZR:X +2 S X=1
LINE2 ;;S QUIT=0,RTN=0 F S RTN=$O(^UTILITY($J,RTN)) Q:RTN="" W !,RTN ZL @RTN X XBVLINE(6) ZR @Y ZI X S X=$T(+2),Z=$P(X," ")_XBVLINE X XBVLINE(3):'ASK,XBVLINE(4):ASK Q:QUIT I X ZI Z:+1 ZS
LINE1 ;;X XBVLINE(2),XBVLINE(5)
START ;
LINE6 ;;S X=$T(+1),X=$P(X,"["),Y=$L(X,";") S Y=$P(X,$S(X?1.8U1"(".E:"(",1:" "),1)

External References

Name Field # of Occurrence
DD^%DT START+20
$$DIR^XBDIR START+8, START+10, START+12, START+17, START+22
^XBKVAR START+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Can't do ^XBVLINE. Deleting."
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,"Can't do ^XB. Deleting."
  • Line Location: START+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RSEL" START+4
^UTILITY($J START+2!, START+5!, START+6!, START+7, EOJ+1!

Label References

Name Line Occurrences
EOJ START+7, START+9, START+11, START+13, START+19, START+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% START+24*, START+25!, EOJ+1!
ASK START+1~, START+22*
DIROUT EOJ+1!
DIRUT START+9, START+11, START+19, START+23, EOJ+1!
DTOUT START+13, EOJ+1!
DUOUT START+13, EOJ+1!
QUIT START+1~
RTN START+1~
X START+12*, START+14, START+24*, START+25!, EOJ+1!
XBVLINE START+8*, START+10*, START+14*, START+21*, EOJ+1!
XBVLINE(1 START+26
Y START+17*, START+21, START+25!, EOJ+1!

Marked Items

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