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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RAORDP

Package: Radiology Nuclear Medicine

Routine: RAORDP


Information

RAORDP ;HISC/CAH,FPT AISC/DMK-Log of Pending/Hold Requests ;4/17/96 11:28

Source Information

Source file <RAORDP.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Radiology Nuclear Medicine 4 (CLOSE,D,DATE,ZIS)^RAUTL  (IPOP,OMA)^RAUTL13  $$EOS^RAUTL5  STOPCHK^RAUTL9  
VA Fileman 2 (,DD)^%DT  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RA ORDERPENDING  

Entry Points

Name Comments DBIA/ICR reference
SETTMP ; set-up ^TMP($J
CONT ;
HDR ; header
EOS ; end of screen
START ; start report processing
WRT ;
KILL
DATE ; Output 'Desired Date'
MORE

External References

Name Field # of Occurrence
^%DT START+4
DD^%DT WRT+2, DATE+1
^DIR RAORDP+8
CLOSE^RAUTL KILL+5
D^RAUTL START+4
DATE^RAUTL RAORDP+12
ZIS^RAUTL RAORDP+13
IPOP^RAUTL13 MORE+3
OMA^RAUTL13 RAORDP+11
$$EOS^RAUTL5 EOS+1
STOPCHK^RAUTL9 HDR+6, SETTMP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will generate a list of requests for a selected date",!,"range with the status of 'PENDING' or 'HOLD'",!
  • Line Location: RAORDP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: RAORDP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: KILL+0
Function Call: WRITE
  • Prompt: !?2,"No requests "_$S(RAREQSTA=5:"pending",1:"on hold")_" for "_RAOBEG("X")_" to "_RAOEND("X")_".",!
  • Line Location: CONT+3
Function Call: WRITE
  • Prompt: !,$S($D(^DPT(RADFN,0)):$E($P(^(0),"^"),1,19)_" -"_$E($P(^(0),"^",9),6,9),1:"Unknown"),?26,$S($D(^RAMIS(71,RAPR,0)):$E($P(^(0),"^"),1,24),1:"Unknown"),?52,$E(RALOCN,1,14)
  • Line Location: WRT+1
Function Call: WRITE
  • Prompt: ?67,Y
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: !?36,"Requesting Loc: ",RARLOCN
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !?(80-$L(RAHDR)/2),RAHDR
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?14,"Includes requests scheduled from ",RAOBEG("X")," to ",RAOEND("X")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?30,"PROCEDURE",?52,"PT LOC",?67,"DATE ORDERED",!,QQ,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!?(80-X/2),"Desired Date (Time optional): ",Y,!?(80-X/2)
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: DATE+1
Routine Call
  • DIR
  • Line Location:
    • RAORDP+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] WRT+1
^RA(79.1 - [#79.1] START+6, HDR+4
^RAMIS(71 - [#71] WRT+1
^RAO(75.1 - [#75.1] START+8, START+9, START+10, MORE+1
^SC - [#44] HDR+4
^TMP($J KILL+1!, CONT+5, MORE, SETTMP+2*

Label References

Name Line Occurrences
CONT START+15
DATE CONT+5
EOS CONT+1, CONT+3, WRT+5
HDR CONT+2, WRT+5
KILL RAORDP+9, RAORDP+11, RAORDP+12, RAORDP+13, START+13
MORE CONT+5
SETTMP START+11, START+12
WRT MORE+4

Naked Globals

Name Field # of Occurrence
^( MORE
^(0 START+10, WRT+1, HDR+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT START+4*!
BEGDATE RAORDP+12!, KILL+3!
CNT KILL+2!
DDH KILL+6!
DFN KILL+6!
DIC KILL+2!
DIR RAORDP+8!
DIR("A" RAORDP+8*
DIR("B" RAORDP+8*
DIR(0 RAORDP+8*
DIROUT KILL+2!
DIRUT RAORDP+9, KILL+2!
DISYS KILL+6!
DTOUT KILL+2!
DUOUT KILL+2!
ENDDATE RAORDP+12!, KILL+3!
I KILL+2!
IO START+1
IOF HDR+1
IOSL WRT+5
IOST CONT+1, CONT+3
POP KILL+6!
QQ START+1*, KILL+2!, HDR+5
RA791IEN START+6*, START+7!
RACNT START+15*, KILL+2!, MORE+1*, WRT+5
RADDT RAORDP+12*!, KILL+2!
RADFN START+7*, START+8*, START+9, KILL+2!, CONT+5*, MORE, WRT+1, SETTMP+2
RADLOCS KILL+2!
RADT KILL+2!, CONT+5*, MORE, DATE+1
RAEOS START+8, START+9, START+13, START+15, KILL+2!, CONT+1, CONT+2, CONT+3, CONT+5, MORE
, WRT+5, HDR+6*, SETTMP+1*, EOS+2*
RAHDR START+1*, KILL+2!, HDR+2
RAHDRDSH START+1*, KILL+2!
RAILOC START+10*, START+11, START+12, START+14*, START+15*, KILL+2!, CONT+1, CONT+3, CONT+4, CONT+5
, MORE, WRT+4, WRT+5, HDR+4, SETTMP+2, SETTMP+3, SETTMP+4
RAIMTYP START+10*, START+12, KILL+2!
RALOC KILL+2!
RALOC( START+6
RALOC(0 RAORDP+11
RALOC1 KILL+2!
RALOC1( START+6*, START+11, START+15, CONT+3, CONT+4, WRT+5, SETTMP+4*
RALOC1("UNKNOWN" SETTMP+3*
RALOCIT KILL+2!
RALOCIT( START+6*, START+12
RALOCN KILL+3!, MORE+2!, WRT+1
RALOCNM START+1*, START+6*, START+7!
RALOCS KILL+3!
RALOCSAV KILL+3!
RAMES KILL+4!
RANOSCRN RAORDP+11*!
RAO KILL+3!, MORE*, MORE+1
RAO(0 START+10*, SETTMP+2
RAOBEG RAORDP+12*, START+2, KILL+3!, SETTMP+2
RAOBEG("X" START+2*, CONT+3, HDR+3
RAODT START+10*, KILL+3!, SETTMP+2
RAOEND RAORDP+12*, START+3, KILL+3!, SETTMP+2
RAOEND("X" START+3*, CONT+3, HDR+3
RAOIFN START+9*, START+10, KILL+3!, SETTMP+2
RAOLOC START+1*, KILL+3!, CONT+1, CONT+4*, WRT+4*, WRT+5*
RAOLOC(0 CONT+4*!, WRT+5*!
RAORD0 KILL+3!, MORE+1*
RAPOP RAORDP+12, RAORDP+13, KILL+3!
RAPR KILL+3!, MORE*, WRT+1
RAQUIT RAORDP+11, KILL+3!
RARDT KILL+3!, MORE*, WRT+2
RAREQSTA RAORDP+10*, START+1, START+9, KILL+3!, CONT+3
RARLOCN MORE+2!, WRT+3
RARUNDTE START+4*, KILL+3!, HDR+4
VAERR KILL+6!
X START+4*, KILL+4!, DATE+1*, EOS+1*, EOS+2
Y RAORDP+10, START+4, KILL+4!, WRT+2*, DATE+1*
ZTDESC KILL+4!
>> ZTQUEUED START+5, HDR+6, SETTMP+1
>> ZTREQ START+5*
ZTRTN RAORDP+13*, KILL+4!
ZTSAVE KILL+4!
ZTSAVE("RALOC(" RAORDP+13*
ZTSAVE("RAOBEG" RAORDP+13*
ZTSAVE("RAOEND" RAORDP+13*
ZTSAVE("RAREQSTA" RAORDP+13*
>> ZTSTOP HDR+6, SETTMP+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All