Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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

Source Information

Source file <XDRDPRE1.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls