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

Package: IHS VA Utilities

Routine: XBPATSE


Information

XBPATSE ; IHS/ADC/GTH - SEARCH ROUTINES FOR PATCHES ; [ 10/29/2002 7:42 AM ]

Source Information

Source file <XBPATSE.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$REPEAT^XLFSTR  
IHS VA Utilities 2 $$DIR^XBDIR  ^XBKVAR  
VA Fileman 2 (NOW,YX)^%DTC  DT^DICRW  

Entry Points

Name Comments DBIA/ICR reference
HDR2 ;
HDR ;
HDR1 ;
SRCH ;
PRT ;
INIT ;
QUE ;
SCHDR ;
RSEL ;
DEVICE ;
EXIT ;
MAIN ;
SRCH2 ;
SRCH1 ;

External References

Name Field # of Occurrence
NOW^%DTC INIT+4
YX^%DTC QUE+14
^%ZIS DEVICE+3, PRT+4
HOME^%ZIS INIT+3, QUE+16
^%ZISC EXIT+1
^%ZTLOAD QUE+10
DT^DICRW INIT+3
$$DIR^XBDIR HDR+3
^XBKVAR INIT+3
$$REPEAT^XLFSTR HDR2+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Cannot Queue to HOME or CHARACTER Device",!
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !,"TASK not Queued with Task Manager",!
  • Line Location: QUE+11
Function Call: WRITE
  • Prompt: !,"TASK Queued with Task Manager: JOB # ",ZTSK," at ",Y,!
  • Line Location: QUE+15
Function Call: WRITE
  • Prompt: XB("ROU"),$J("",9-$L(XB("ROU")))
  • Line Location: SRCH1+3
Function Call: WRITE
  • Prompt: !,?IOM-$L(XB("HD1"))\2,XB("HD1"),!,?IOM-$L(XB("HD2"))\2,XB("HD2"),!
  • Line Location: SCHDR+1
Function Call: WRITE
  • Prompt: !!,"****",?5,"ROUTINES THAT ARE NOT IN PACKAGE FILE NAME-SPACE"
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: !?5,^TMP($J,"P",XB("NSP"),"%",0,.01)," TOTAL ROUTINE(s): "
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: ^TMP($J,"P",XB("NSP"),"%",0,.02)," PATCHE(s) in "
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: ^TMP($J,"P",XB("NSP"),"%",0,.03)," ROUTINE(s)",!
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: !!,XB("NSP"),?5,XB("NAM")," -- Version: ",XB("VER")
  • Line Location: PRT+23
Function Call: WRITE
  • Prompt: !?5,^TMP($J,"P",XB("NSP"),XB("NAM"),XB("VER"),.01)," TOTAL ROUTINE(s): "
  • Line Location: PRT+25
Function Call: WRITE
  • Prompt: ^TMP($J,"P",XB("NSP"),XB("NAM"),XB("VER"),.02)," PATCHE(s) in "
  • Line Location: PRT+26
Function Call: WRITE
  • Prompt: ^TMP($J,"P",XB("NSP"),XB("NAM"),XB("VER"),.03)," ROUTINE(s)",!
  • Line Location: PRT+27
Function Call: WRITE
  • Prompt: !,$J(XB("PNBR"),4),?5,XB("ROU"),?14,^TMP($J,"P",XB("NSP"),XB("NAM"),XB("VER"),XB("PNBR"),XB("ROU"))
  • Line Location: PRT+34
Function Call: WRITE
  • Prompt: !,?IOM-$L(XB("HD1"))\2,XB("HD1"),?(IOM-15),"PAGE: ",$J(XB("PAGE"),3)
  • Line Location: HDR2+2
Function Call: WRITE
  • Prompt: !,?IOM-$L(XB("HD2"))\2,XB("HD2")
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: !,"PATCH"
  • Line Location: HDR2+4
Function Call: WRITE
  • Prompt: !,"NMBR",?5,"ROUTINE",?14,"ROUTINE DESCRIPTION"
  • Line Location: HDR2+5
Function Call: WRITE
  • Prompt: !,"==== ======== ",$$REPEAT^XLFSTR("=",IOM-19)
  • Line Location: HDR2+6
Routine Call
  • %ZIS
  • Line Location:
    • INIT+3
    • QUE+16
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+3
    • PRT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("LOAD" SRCH1+8
^%ZOSF("RSEL" RSEL+2
^%ZOSF("TEST" SRCH1+6
^%ZOSF("UCI" INIT+8
^%ZOSF("XY" HDR1+3
^DD("DD" INIT+6
^DIC(9.4 - [#9.4] SRCH+4, SRCH+5, SRCH+6, SRCH+7
^TMP($J INIT+2!, SRCH1+9, SRCH1+11, SRCH1+12, SRCH1+13, SRCH1+17*, SRCH1+18*, SRCH1+19*, SRCH1+20!, SRCH2+3
, SRCH2+4, SRCH2+5!, SRCH2+6*, SRCH2+7*, SRCH2+8*, PRT+8, PRT+10, PRT+13, PRT+14, PRT+15
, PRT+16, PRT+20, PRT+25, PRT+26, PRT+27, PRT+29, PRT+31, PRT+34, EXIT+2!
^UTILITY($J RSEL+3, SRCH+9, SRCH+10, SRCH+15, SRCH1+20!, EXIT+2!

Label References

Name Line Occurrences
DEVICE MAIN+5
EXIT MAIN+9
HDR PRT+7, PRT+21, PRT+32
INIT MAIN+2
PRT MAIN+8
QUE DEVICE+7
RSEL MAIN+4
SCHDR RSEL+1, SRCH+2
SRCH MAIN+7
SRCH1 SRCH+10, SRCH+17
SRCH2 SRCH+11, SRCH+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % INIT+5
>> %H QUE+13*
%ZIS DEVICE+1~, DEVICE+2*
DIF SRCH+1~, SRCH1+5*
DIRUT HDR+1~, HDR+4
DT MAIN+1~
DTIME MAIN+1~
DUOUT HDR+1~, HDR+4
DUZ MAIN+1~
>> DX HDR1+2*
>> DY HDR1+2*
IO MAIN+1~, QUE+2, PRT+6, HDR+2
IO("DOC" DEVICE+6
IO("Q" DEVICE+7, QUE+2
IO("S" HDR1+1
IO(0 QUE+2, HDR+2
IOBS MAIN+1~
IOF MAIN+1~, HDR1+5
IOM MAIN+1~, DEVICE+6, SCHDR+1, HDR2+2, HDR2+3, HDR2+6
ION DEVICE+6
>> IOP PRT+3*
IOSL MAIN+1~, DEVICE+6, PRT+21, PRT+32
IOST MAIN+1~, DEVICE+6, QUE+2, HDR+2, HDR1+5
IOXY MAIN+1~
POP MAIN+1~, DEVICE+4
U MAIN+1~, SRCH+6
X MAIN+1~, SRCH1+5*
XB MAIN+1~
XB("DESC" SRCH1+13*, SRCH1+14*, SRCH1+17
XB("DT" INIT+7*, INIT+11
XB("EIN" SRCH+5*, SRCH+6, SRCH+7
XB("END" MAIN+5, MAIN+7, MAIN+8, INIT+1*, RSEL+3*, DEVICE+4*, DEVICE+5, QUE+4*, QUE+6, QUE+11*
, QUE+12, QUE+17*, PRT+8, PRT+10, PRT+17*, PRT+18, PRT+20, PRT+22, PRT+29, PRT+31
, PRT+33, HDR+4*, HDR+6
XB("HD1" INIT+10*, SCHDR+1, HDR2+2
XB("HD2" INIT+11*, SCHDR+1, HDR2+3
XB("IOP" DEVICE+6*, QUE+7, PRT+3
XB("J" SRCH1+16*
XB("NAM" INIT+1*, SRCH+6*, SRCH+16*, SRCH+19*, SRCH1+11*, SRCH1+15, SRCH1+17, SRCH2+6, SRCH2+7, SRCH2+8
, PRT+9*, PRT+10*, PRT+11, PRT+16*, PRT+17, PRT+20, PRT+23, PRT+25, PRT+26, PRT+27
, PRT+29, PRT+31, PRT+34
XB("NSP" SRCH+3*, SRCH+4*, SRCH+5, SRCH+8, SRCH+10, SRCH+14*, SRCH1+17, SRCH2+6, SRCH2+7, SRCH2+8
, PRT+1*, PRT+8*, PRT+10, PRT+13, PRT+14, PRT+15, PRT+16, PRT+20, PRT+23, PRT+24
, PRT+25, PRT+26, PRT+27, PRT+29, PRT+31, PRT+34
XB("PAGE" PRT+1*, HDR+2, HDR1+1, HDR1+5, HDR2+1*, HDR2+2
XB("PKT" SRCH2+3*, SRCH2+7
XB("PNBR" INIT+1*, PRT+28*, PRT+29*, PRT+31, PRT+34
XB("PNR" SRCH1+16*, SRCH1+17, SRCH1+18, SRCH2+2*, SRCH2+3*
XB("PPC" SRCH1+9*, SRCH1+10, SRCH1+16
XB("PRK" SRCH2+4*, SRCH2+8
XB("Q" INIT+1*
XB("RKT" SRCH+10*, SRCH+11, SRCH+15*, SRCH+20, SRCH1+2, SRCH2+1, SRCH2+6
XB("ROU" SRCH+8*, SRCH+9*, SRCH+10*, SRCH+14*, SRCH+15*, SRCH1+3, SRCH1+5, SRCH1+9, SRCH1+11, SRCH1+12
, SRCH1+13, SRCH1+17, SRCH1+19, SRCH1+20, SRCH2+2*, SRCH2+4*, PRT+30*, PRT+31*, PRT+34
XB("UCI" INIT+9*, INIT+11
XB("VER" INIT+1*, SRCH+7*, SRCH+16*, SRCH+19*, SRCH1+12*, SRCH1+15, SRCH1+17, SRCH2+6, SRCH2+7, SRCH2+8
, PRT+19*, PRT+20*, PRT+23, PRT+25, PRT+26, PRT+27, PRT+29, PRT+31, PRT+34
XB("VOL" INIT+9*, INIT+11
XCNP SRCH+1~, SRCH1+5*
Y MAIN+1~, INIT+5*, INIT+7, INIT+9, QUE+15, HDR+3*
ZTDESC QUE+1~, QUE+7*, QUE+8*
ZTIO QUE+1~, QUE+7*
>> ZTQUEUED MAIN+3, INIT+3, SRCH+2, SRCH1+1, SRCH2+1, PRT+2
ZTRTN QUE+1~, QUE+7*
ZTSAVE QUE+1~
ZTSAVE("^UTILITY($J," QUE+9*
ZTSK QUE+1~, QUE+11, QUE+15
ZTSK("D" QUE+13

Marked Items

Name Field # of Occurrence
$T( INIT+10, QUE+7
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All