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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RA27LIST

Package: Radiology Nuclear Medicine

Routine: RA27LIST


Information

RA27LIST ;HIRMFO/SWM - List data after RA27PST ;12/21/01 11:10

Source Information

Source file <RA27LIST.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 DD^%DT  $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
VERSION ;;5.0;Radiology/Nuclear Medicine;**27**;Mar 16, 1998
; Use this AFTER RA27PST has finished to
; list report-to-exam pointer problems, from ^XTMP("RA-RA27PST) :
; Orphan report's impression, report text
; Exam's report's impression, report text
EN
DEV
QOUT
START
1
GETDEM(X) ;

External References

Name Field # of Occurrence
DD^%DT EN+1
^%ZIS DEV+1
HOME^%ZIS DEV+7
^%ZISC QOUT+1
^%ZTLOAD DEV+5
$$GET1^DIQ GETDEM+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There's no data warning in ^XTMP(""RA-RA27PST"", -- nothing done --"
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !,"The post-install cleanup from patch RA*5.0*27 was tasked off ",!,"on "
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: " This routine reads the cleanup's results,",!,"which are stored in ^XTMP(""RA-RA27PST"". The results contain the report",!,"IDs for reports that couldn't have their duplicate Clinical History purged."
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"This routine outputs a listing of orphaned reports and the exams that",!,"they refer to. This listing may be used by the Radiology and IRM staff",!,"to determine if an orphan report is valid or not."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"The listing may be sent directly to the screen, or to a device.",!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !?2,"Request Queued, Task #: ",$G(ZTSK)
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: !
  • Line Location: QOUT+1
Function Call: WRITE
  • Prompt: !,"Patch RA*5*27's post-install routine that was run on ",RAY,!,"has found reports that are NOT linked to any exams."
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !!,"The following listing shows the orphan report (not linked to any exam),",!,"the clinical history of the exam that the orphan refers to, and the exam's",!,"currently linked report, if any.",!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,"============================================================================"
  • Line Location: 1+9
Function Call: WRITE
  • Prompt: !,"_____Orphan report_____ ",$P($G(^RARPT(A74,0)),"^"),": ",?60,"^RARPT(",A74
  • Line Location: 1+10
Function Call: WRITE
  • Prompt: !?2,"RptStatus=",$P(^RARPT(A74,0),"^",5)
  • Line Location: 1+12
Function Call: WRITE
  • Prompt: ", has Images"
  • Condition for execution: $D(^(2005))
  • Line Location: 1+12
Function Call: WRITE
  • Prompt: !?2,"Share rpt with case#: "
  • Line Location: 1+13
Function Call: WRITE
  • Prompt: $P(J,"-",2)
  • Line Location: 1+13
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: $O(^RARPT(A74,1,"B",J))
  • Line Location: 1+13
Function Call: WRITE
  • Prompt: !,"Orphan's report impression:"
  • Line Location: 1+14
Function Call: WRITE
  • Prompt: !?2,^(J,0)
  • Line Location: 1+15
Function Call: WRITE
  • Prompt: !,"Orphan's report text:"
  • Line Location: 1+16
Function Call: WRITE
  • Prompt: !?2,^(J,0)
  • Line Location: 1+17
Function Call: WRITE
  • Prompt: !,"_____Exam's report_____ ",$S(+B74:$P(^RARPT(B74,0),"^"),1:"**Exam is not linked to a report**"),": "
  • Line Location: 1+18
Function Call: WRITE
  • Prompt: ?60,"^RARPT(",B74
  • Condition for execution: +B74
  • Line Location: 1+18
Function Call: WRITE
  • Prompt: !?2,"RptStatus=",$P(^RARPT(B74,0),"^",5)
  • Line Location: 1+21
Function Call: WRITE
  • Prompt: ", has Images"
  • Condition for execution: $D(^(2005))
  • Line Location: 1+21
Function Call: WRITE
  • Prompt: !?2,"Share rpt with case#: "
  • Line Location: 1+22
Function Call: WRITE
  • Prompt: $P(J,"-",2)
  • Line Location: 1+22
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: $O(^RARPT(B74,1,"B",J))
  • Line Location: 1+22
Function Call: WRITE
  • Prompt: !,"Clinical History from exam:"
  • Line Location: 1+23
Function Call: WRITE
  • Prompt: !?2,@(HIST_J_",0)")
  • Line Location: 1+24
Function Call: WRITE
  • Prompt: !,"Exam's report impression:"
  • Line Location: 1+26
Function Call: WRITE
  • Prompt: !?2,^(J,0)
  • Line Location: 1+27
Function Call: WRITE
  • Prompt: !,"Exam's report text:"
  • Line Location: 1+28
Function Call: WRITE
  • Prompt: !?2,^(J,0)
  • Line Location: 1+29
Function Call: WRITE
  • Prompt: !,"Patient: ",RAPNAM," SSN: ",RAPSSN
  • Line Location: GETDEM+4
Function Call: WRITE
  • Prompt: " Exm D/T: ",$E(RADT,4,5),"/",$E(RADT,6,7),"/",$E(RADT,2,3),"@",$E(RADT,9,10),":",$E(RADT,11,12)
  • Line Location: GETDEM+5
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RADPT - [#70] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RARPT - [#74] 1+10, 1+12, 1+13, 1+15, 1+17, 1+18, 1+21, 1+22, 1+27, 1+29
, GETDEM+1, GETDEM+2
^XTMP("RA-RA27PST" EN, EN+1, 1, 1+3, 1+5

Label References

Name Line Occurrences
1 1+2, 1+3, 1+5, 1+30
GETDEM 1+11, 1+19
QOUT DEV+1, DEV+2
START DEV+2

Naked Globals

Name Field # of Occurrence
^( 1+3, 1+5, 1+15, 1+17, 1+27, 1+29
^(0 GETDEM+2
^(1 1+13, 1+22
^(2005 1+12, 1+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV!*
%ZIS("A" DEV*
>> A74 1+4*, 1+10, 1+11, 1+12, 1+13, 1+15, 1+17
>> B74 1+6*, 1+18, 1+19, 1+20, 1+21, 1+22, 1+25, 1+27, 1+29
>> HIST 1+8*, 1+24
>> I START+3*, 1*, 1+2, 1+3, 1+5*
>> I2 1+5*
IO START
IO("Q" DEV+2, DEV+7!
IOP DEV!
>> J 1+13*, 1+15*, 1+17*, 1+22*, 1+24*, 1+27*, 1+29*
>> POP DEV+1
>> RA7003 1+7*, 1+8
>> RADFN GETDEM+2*, GETDEM+3
>> RADT GETDEM+2*, GETDEM+5
>> RAPNAM GETDEM+2*, GETDEM+3*, GETDEM+4
>> RAPSSN GETDEM+2*, GETDEM+3*, GETDEM+4
>> RAY EN+1*, START+1
X GETDEM~, GETDEM+1, GETDEM+2
X1 1+1!, 1+3*, 1+4
X2 1+1!, 1+5*, 1+6, 1+7
>> Y EN+1*
>> ZTDESC DEV+4*
>> ZTQUEUED QOUT
>> ZTREQ QOUT*
>> ZTRTN DEV+3*
>> ZTSAVE("RAY" DEV+3*
>> ZTSK DEV+6
>> ZTSK("D" DEV+6
Info |  Source |  Call 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