Routine: RA27LIST

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

Entry Points

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 RA5.027 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 RA527'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+7
Routine Call	%ZIS Line Location: DEV+1

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

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

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

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RA27LIST

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
EN
DEV
1
START
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
QOUT
GETDEM(X)	;

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