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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RAORDP

Package: Radiology Nuclear Medicine

Routine: RAORDP


Information

RAORDP ;HISC/CAH,FPT,AISC/DMK - Log of Pending/Hold Requests ; Feb 28, 2024@06:25:27

Source Information

Source file <RAORDP.m>

Entry Points

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

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: RAORDP+15
Function Call: WRITE
  • Prompt: !!,"This report requires a 132 column output device."
  • Line Location: RAORDP+18
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+4
Function Call: WRITE
  • Prompt: !?2,"No requests "_$S(RAREQSTA=5:"pending",1:"on hold")_" for "_RAOBEG("X")_" to "_RAOEND("X")_".",!
  • Line Location: CONT2+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(RAORDT,"@")
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: ?67,$P(RADD,"@")
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: ?67,Y
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: ?81,$S(RAREQSTA=3:RALADTX,1:$E($$GET1^DIQ(200,RAOPHY,.01),1,19))
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: ?95,$E($$GET1^DIQ(75.2,RAOREA,.01),1,28)
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: ?102,$E(RALOCN,1,28)
  • Line Location: WRT+8
Function Call: WRITE
  • Prompt: !?36,"Requesting Loc: ",RARLOCN
  • Line Location: WRT+9
Function Call: WRITE
  • Prompt: !?(80-$L(RAHDR)/2),RAHDR
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?19,"Includes requests from ",RAOBEG("X")," to ",RAOEND("X")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?21,"SSN",?27,"PROCEDURE",?53,"DATE ORDERED",?67,"DATE DESIRED"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?81,$S(RAREQSTA=3:"HOLD DATE",1:"ORDERING PROVIDER")
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?95,"HOLD REASON",!,QQ,!!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: ?102,"PT LOC",!,QQ,!!
  • Line Location: HDR+9
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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^RA(75.2 - [#75.2] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call