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

Package: Radiology Nuclear Medicine

Routine: RAUTL16A


Information

RAUTL16A ;HISC/DAD-EXAM STATUS IMAGING TYPE INCONSISTENCIES REPORT (FULL FILE SCAN) ;1/26/95 10:23

Source Information

Source file <RAUTL16A.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$DT,$$FMTE)^XLFDT  
Registration 1 (DEM,KVA)^VADPT  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
SORT ;
PAUSE ;
MISSING ;
ENTSK ;
HEADER ;
EXIT ;
PRINT ;

External References

Name Field # of Occurrence
^%ZIS RAUTL16A+4
^%ZISC EXIT+1
^%ZTLOAD RAUTL16A+7
^DIR PAUSE+1
DEM^VADPT SORT+1
KVA^VADPT EXIT+1, SORT+1
$$DT^XLFDT ENTSK+21
$$FMTE^XLFDT ENTSK+21, SORT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This report requires a 132 column output device."
  • Line Location: RAUTL16A+3
Function Call: WRITE
  • Prompt: !
  • Line Location: RAUTL16A+4
Function Call: WRITE
  • Prompt: !!,"The imaging type of the visit matches the imaging type"
  • Line Location: ENTSK+25
Function Call: WRITE
  • Prompt: !,"of the exam status for all current incomplete exams."
  • Line Location: ENTSK+26
Function Call: WRITE
  • Prompt: !!,RADFN(0),?34,RASSN(0)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !?3,RAEXAMDT(0),?25,$J(RACASENO(0),5),?34,RAIMTYPE(0)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?68,RAEXAMST(0),?102,RAIMEXAM(0)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !?46,"EXAM STATUS IMAGING TYPE INCONSISTENCIES"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: ?102,"PAGE: ",RAPAGE,!?102,RATODAY
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,"PATIENT",?34,"SSN"
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,"PATIENT",?34,"HRCN"
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !?3,"EXAM DATE/TIME",?25,"CASE#",?34,"IMAGING TYPE OF VISIT"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: ?68,"EXAM STATUS",?102,"IMAGING TYPE OF EXAM STATUS",!,RAUNDL
  • Line Location: HEADER+8
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1
Routine Call
  • %ZIS
  • Line Location:
    • RAUTL16A+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(72 - [#72] ENTSK+15, MISSING+5, SORT+6
^RA(79.2 - [#79.2] SORT+5, SORT+7
^RADPT - [#70] ENTSK+3, ENTSK+4, ENTSK+6, ENTSK+7, ENTSK+11, ENTSK+12
^TMP("RAUTL16" ENTSK+1!, ENTSK+24, ENTSK+29, ENTSK+31, ENTSK+33, ENTSK+35, EXIT+4!, SORT+8*, PRINT+1

Label References

Name Line Occurrences
EXIT RAUTL16A+4, RAUTL16A+5, ENTSK+24
HEADER ENTSK+23, PRINT+9
MISSING ENTSK+9, ENTSK+14
PAUSE ENTSK+24, ENTSK+39, PRINT+9
PRINT ENTSK+35
SORT ENTSK+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS RAUTL16A+4!*, EXIT+2!
DFN EXIT+2!, SORT+1*
DIR EXIT+2!, PAUSE+1!
DIR(0 PAUSE+1*
DIROUT EXIT+2!
DTOUT EXIT+2!
DUOUT EXIT+2!
IO ENTSK+23
IO("Q" RAUTL16A+5
IOF HEADER+2
IOP RAUTL16A+4!
IOSL PRINT+9
IOST PAUSE+1, HEADER+2
POP RAUTL16A+4, EXIT+2!
RA ENTSK+7*, ENTSK+8, ENTSK+12*, ENTSK+13, EXIT+2!, SORT+3*, PRINT+1*, PRINT+2, PRINT+3, PRINT+4
, PRINT+5
RACASENO ENTSK+13*, ENTSK+14, ENTSK+34*, ENTSK+35*, EXIT+2!, MISSING+3*, SORT+8, PRINT+1
RACASENO(0 PRINT+3*, PRINT+7
RAD0 ENTSK+2*, ENTSK+3*, ENTSK+4, ENTSK+6, ENTSK+7, ENTSK+11, ENTSK+12, EXIT+2!, SORT+8, PRINT+5*
RAD1 ENTSK+5*, ENTSK+6*, ENTSK+7, ENTSK+11, ENTSK+12, EXIT+2!, SORT+8, PRINT+5*
RAD2 ENTSK+10*, ENTSK+11*, ENTSK+12, EXIT+2!, SORT+8, PRINT+5*
RADFN ENTSK+4*, ENTSK+28*, ENTSK+29*, ENTSK+31, ENTSK+33, ENTSK+35, EXIT+2!, SORT+1, PRINT+1
RADFN(0 SORT+3*, SORT+8, PRINT+2*, PRINT+6
RAEXAMDT ENTSK+8*, ENTSK+9, ENTSK+32*, ENTSK+33*, ENTSK+35, EXIT+3!, MISSING+1*, SORT+4, SORT+8, PRINT+1
RAEXAMDT(0 SORT+4*, SORT+8, PRINT+2*, PRINT+7
RAEXAMST ENTSK+13*, ENTSK+14, ENTSK+15, EXIT+3!, MISSING+4*, MISSING+5, SORT+6
RAEXAMST(0 SORT+6*, SORT+8, PRINT+4*, PRINT+8
RAEXIT ENTSK+21*, ENTSK+28*, ENTSK+29, ENTSK+31, ENTSK+33, ENTSK+35, ENTSK+39, EXIT+3!, PAUSE+1*, HEADER+1
RAIMAGE EXIT+3!
RAIMEXAM ENTSK+15*, ENTSK+16, EXIT+3!, MISSING+5*, SORT+7
RAIMEXAM(0 SORT+7*, SORT+8, PRINT+4*, PRINT+8
RAIMTYPE ENTSK+8*, ENTSK+9, ENTSK+16, EXIT+3!, MISSING+2*, SORT+5
RAIMTYPE(0 SORT+5*, SORT+8, PRINT+3*, PRINT+7
RAPAGE ENTSK+21*, EXIT+3!, HEADER+2, HEADER+4*
RASSN ENTSK+30*, ENTSK+31*, ENTSK+33, ENTSK+35, EXIT+3!, SORT+3*, SORT+8, PRINT+1
RASSN(0 SORT+3*, SORT+8, PRINT+2*, PRINT+6
RATODAY ENTSK+21*, EXIT+4!, HEADER+4
RAUNDL ENTSK+22!*, EXIT+4!, HEADER+8
U ENTSK+4, ENTSK+8, ENTSK+13, ENTSK+15, MISSING+5, SORT+3, SORT+5, SORT+6, SORT+7, SORT+8
, PRINT+2, PRINT+3, PRINT+4, PRINT+5
>> VA("PID" SORT+3
>> VADM(1 SORT+3
X EXIT+4!
Y EXIT+4!, PAUSE+1
ZTDESC RAUTL16A+6*, EXIT+4!
>> ZTQUEUED EXIT+1
>> ZTREQ EXIT+1*
ZTRTN RAUTL16A+7*, EXIT+4!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All