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 |  FileMan Files Accessed Via FileMan Db Call |  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 ; Jun 30, 2021@10:04:45

Source Information

Source file <RAORDP.m>

Call Graph

Call Graph

Call Graph Total: 7

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RA ORDERPENDING  

Entry Points

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

External References

Name Field # of Occurrence
^%DT START+4
DD^%DT WRT+1, WRT+3
$$GET1^DIQ WRT+4, WRT+5
^DIR RAORDP+8
CLOSE^RAUTL KILL+5
D^RAUTL START+4
DATE^RAUTL RAORDP+12
ZIS^RAUTL RAORDP+14
IPOP^RAUTL13 MORE+8
OMA^RAUTL13 RAORDP+11
$$EOS^RAUTL5 EOS+1
STOPCHK^RAUTL9 HDR+9, 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: !!,"This report requires a 132 column output device."
  • Line Location: RAORDP+14
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),1:"Unknown"),?21,$E($P(^DPT(RADFN,0),"^",9),6,9),?27,$S($D(^RAMIS(71,RAPR,0)):$E($P(^(0),"^"),1,24),1:"Unknown"),?53,$P(RADD,"@")
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: ?67,Y
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: ?81,$S(RAREQSTA=3:RALADTX,1:$E($$GET1^DIQ(200,RAOPHY,.01),1,19))
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: ?95,$E($$GET1^DIQ(75.2,RAOREA,.01),1,28)
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: ?102,$E(RALOCN,1,28)
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: !?36,"Requesting Loc: ",RARLOCN
  • Line Location: WRT+7
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",?21,"SSN",?27,"PROCEDURE",?53,"DATE DESIRED",?67,"DATE ORDERED"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?81,$S(RAREQSTA=3:"HOLD DATE",1:"ORDERING PROVIDER")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?95,"HOLD REASON",!,QQ,!!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?102,"PT LOC",!,QQ,!!
  • Line Location: HDR+8
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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^RA(75.2 - [#75.2] GET1^DIQ

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name Field # of Occurrence
^( MORE+2
^(0 START+10, WRT+2, 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+9
IOST CONT+1, CONT+3
POP KILL+6!
QQ START+1*, KILL+2!, HDR+7, HDR+8
RA791IEN START+6*, START+7!
RACNT START+15*, KILL+2!, MORE+6*, WRT+9
RADD KILL+4!, WRT+1*, WRT+2
RADDT RAORDP+12*!, KILL+2!
RADFN START+7*, START+8*, START+9, KILL+2!, CONT+5*, MORE+1, MORE+2, MORE+4, MORE+5, WRT+2
SETTMP+2
RADLOCS KILL+2!
RADT KILL+2!, CONT+5*, MORE+1, MORE+2, MORE+4, MORE+5, WRT+1
RAEOS START+8, START+9, START+13, START+15, KILL+2!, CONT+1, CONT+2, CONT+3, CONT+5, MORE+1
MORE+2, MORE+4, WRT+9, HDR+9*, 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+1, MORE+2, MORE+4, MORE+5, WRT+8, WRT+9, HDR+4, SETTMP+2, SETTMP+3, SETTMP+4
RAIMTYP START+10*, START+12, KILL+2!
RALADT START+10*, KILL+4!, MORE+2*, MORE+4, MORE+5, WRT+1, SETTMP+2
RALADTX KILL+4!, WRT+1*, WRT+4
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+9, SETTMP+4*
RALOC1("UNKNOWN" SETTMP+3*
RALOCIT KILL+2!
RALOCIT( START+6*, START+12
RALOCN KILL+3!, MORE+7!, WRT+6
RALOCNM START+1*, START+6*, START+7!
RALOCS KILL+3!
RALOCSAV KILL+3!
RAMES KILL+4!
RANOSCRN RAORDP+11*!
RAO KILL+3!, MORE+4*, MORE+5, MORE+6
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+8*, WRT+9*
RAOLOC(0 CONT+4*!, WRT+9*!
RAOPHY START+10*, KILL+4!, MORE+2*, MORE+4, MORE+5, WRT+4, SETTMP+2
RAORD0 KILL+3!, MORE+6*
RAOREA START+10*, KILL+4!, MORE+5~*, WRT+5, SETTMP+2
RAPOP RAORDP+12, RAORDP+14, KILL+3!
RAPR KILL+3!, MORE+1*, MORE+2, MORE+4, MORE+5, WRT+2
RAQUIT RAORDP+11, KILL+3!
RARDT KILL+3!, MORE+1*, MORE+2, MORE+4, MORE+5, WRT+3
RAREQSTA RAORDP+10*, START+1, START+9, KILL+3!, CONT+3, WRT+4, WRT+5, HDR+6, HDR+7
RARLOCN MORE+7!
RARUNDTE START+4*, KILL+3!, HDR+4
VAERR KILL+6!
X START+4*, KILL+4!, EOS+1*, EOS+2
Y RAORDP+10, START+4, KILL+4!, WRT+1*, WRT+3*
ZTDESC KILL+4!
>> ZTQUEUED START+5, HDR+9, 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+9, SETTMP+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All