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

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) ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RADPT - [#70] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call