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 |  All
Print Page as PDF
Routine: XDRDPRE1

Package: Toolkit

Routine: XDRDPRE1


Information

XDRDPRE1 ;SF-IRMFO.SEA/JLI - GENERATE LISTS OF PATIENTS IDENTIFIED BY THE PRELIMINARY SCAN ;02/23/2000 08:48 [ 04/02/2003 8:47 AM ]

Source Information

Source file <XDRDPRE1.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$HDIFF)^XLFDT  
Toolkit 2 $$FILE^XDRDPICK  ^XDRDPREL  
VA Fileman 2 EN^DIQ1  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
EN ;
HEADER ;
EXIT ;
DQ ;
SELECT ;
SIZE ;

External References

Name Field # of Occurrence
^%ZIS EN+12
^%ZISC DQ+24
^%ZTLOAD EN+13
EN^DIQ1 DQ+15, SIZE+6
^DIR DQ+10, SELECT+6
$$FILE^XDRDPICK EN+1
^XDRDPREL EN+9
$$FMTE^XLFDT DQ+22
$$HDIFF^XLFDT EN+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There appears to be a job already running. You may either"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"view those data or check back in about 5 minutes.",!!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,$C(7),"There is no available data to generate a list from. You will need to accumulate",!,"the data.",!!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ+1
Function Call: WRITE
  • Prompt: @IOF,!!
  • Line Location: DQ+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+10
Function Call: WRITE
  • Prompt: !,$J(XDRDA,10)
  • Line Location: DQ+11
Function Call: WRITE
  • Prompt: " ",$E(X,1,28),?40
  • Line Location: DQ+18
Function Call: WRITE
  • Prompt: $J(X,N)
  • Line Location: DQ+22
Function Call: WRITE
  • Prompt: $J(X,N)
  • Line Location: DQ+23
Function Call: WRITE
  • Prompt: "LISTING OF ENTRIES IN FILE ",XDRFL," WITH IDENTIFIER OR OTHER PROBLEMS"
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: ?10,"SELECTED LISTING: ",XDRSELEC
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !!!,"DATA LISTED ACROSS THE PAGE IN THE FOLLOWING ORDER:",!!,"INTERNAL ENTRY NUMBER"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,$P(^DD(XDRFL,I,0),U)
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !!,"XXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXX",?40
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: $J(X,NSIZE(I)+2)
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !!,"Enter the number of the desired list to output:",!
  • Line Location: SELECT+4
Function Call: WRITE
  • Prompt: !,$J(I,2)," ",XDRX(I)
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: SELECT+6
Routine Call
  • DIR
  • Line Location:
    • DQ+10
    • SELECT+6
Routine Call
  • %ZIS
  • Line Location:
    • EN+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( DQ+5, DQ+20, HEADER+5, HEADER+8
^DIC - [#1] EN+1, DQ+3
^XTMP("XDRDPREL" EN+2, EN+3, EN+4, SELECT+3

Label References

Name Line Occurrences
EXIT EN+1
HEADER DQ+7
SELECT EN+11
SIZE DQ+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS EN+12*
DA DQ+14*, SIZE+1~, SIZE+5*
DIC DQ+14*, SIZE+1~, SIZE+5*
DIQ DQ+14*, SIZE+1~, SIZE+5*
DIQ(0 DQ+14*, SIZE+5*
DIR SELECT+1~
DIR("A" SELECT+6*
DIR(0 DQ+10*, SELECT+6*
>> DIRUT DQ+8, DQ+9
DR DQ+13*, SIZE+1~, SIZE+4*
I DQ+19*, DQ+20, DQ+21, DQ+23, SIZE+1~, SIZE+7*, SIZE+8, HEADER+5*, HEADER+7*, HEADER+8
, HEADER+9, HEADER+10, SELECT+1~, SELECT+5*
IO DQ+1
IO("Q" EN+13
IOF DQ+1, DQ+9
ION EN+13
IOSL DQ+9
IOST DQ+9
L SIZE+1~, SIZE+8*
N DQ+22*, DQ+23*, SELECT+1~, SELECT+3*
NC SIZE+1~, SIZE+2*, SIZE+3*, SELECT+1~, SELECT+2*, SELECT+3*, SELECT+6
>> NSIZE( DQ+23, SIZE+8*, HEADER+5, HEADER+7, HEADER+8*, HEADER+9, HEADER+10
>> POP EN+12
U EN+1, DQ+20, HEADER+5, HEADER+8
>> X DQ+16*, DQ+17*, DQ+18, DQ+21*, DQ+22*, DQ+23, HEADER+8*, HEADER+9*, HEADER+10
XDRDA DQ+8*, DQ+11, DQ+14, DQ+16, DQ+19, DQ+21, SIZE+1~, SIZE+3*, SIZE+5, SIZE+7
, SIZE+8
>> XDRDR DQ+4*, DQ+5*, DQ+13, SIZE+4
>> XDRFL EN+1*, EN+2, EN+3, EN+4, EN+7*, EN+10*, DQ+3, DQ+5, DQ+14, DQ+16
, DQ+19, DQ+20, DQ+21, SIZE+5, SIZE+7, SIZE+8, HEADER+1, HEADER+5, HEADER+8, SELECT+3
>> XDRFNAM EN+1*
>> XDRGLB DQ+3*, SIZE+3
>> XDRI DQ+5*
>> XDRSELEC EN+11, DQ+6, DQ+12, HEADER+2, HEADER+4, SELECT+7*, SELECT+8*
>> XDRTMP DQ+2*, DQ+8
XDRX DQ+14!, SIZE+5!, SELECT+1~
XDRX( DQ+16, DQ+19, DQ+21, SIZE+7, SIZE+8, SELECT+3*, SELECT+5, SELECT+8
Y DQ+20*, DQ+22, DQ+23, SELECT+1~, SELECT+8
>> ZTDESC EN+13*
>> ZTIO EN+13*
>> ZTRTN EN+13*
>> ZTSAVE("XDRFL" EN+13*
>> ZTSAVE("XDRSELEC" EN+13*
>> ZTSK EN+13
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All