Routine: RARTRPV1

Package	Total	Call Graph
Radiology Nuclear Medicine	8	ELOC^RABWRTE RPT^RAHLRPC COPY^RARTE2 Q^RARTR GETRPT^RARTRPV (RESTORE,SAVE)^RARTVER2 ($$LOCK,UNLOCK)^RAUTL12 EN2^RAUTL20
VA Fileman	1	^DIE

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RARTRPV

Entry Points

Name	Comments	DBIA/ICR reference
PDX	; primary diagnostic code
PSTAFF	; primary staff
NOEDIT	; pre-verify a report only, no report text edit
SDX	; secondary diagnostic code
NEXT	; copy dx & phys, then return to RARTRPV and get next report ; rpt exists & locked, thus no need to lock at "DT" level because users ; can only use 'report entry/edit' option to enter dx's for printsets
SSTAFF	; secondary staff
EDTRPT	; edit report text and pre-verify

Name	Field # of Occurrence
^DIE	EDTRPT+4, NOEDIT+2, PDX+4, SDX+6, PSTAFF+4, SSTAFF+6
ELOC^RABWRTE	NOEDIT+10
RPT^RAHLRPC	NEXT+10
COPY^RARTE2	NEXT+6, NEXT+7
Q^RARTR	NEXT+17
GETRPT^RARTRPV	NEXT+20
RESTORE^RARTVER2	NEXT+17
SAVE^RARTVER2	NEXT+13
$$LOCK^RAUTL12	PDX+3, SDX+5, PSTAFF+3, SSTAFF+5
UNLOCK^RAUTL12	PDX+4, SDX+6, PSTAFF+4, SSTAFF+6
EN2^RAUTL20	NEXT+4

FileNo	Call Tags
^RARPT - [#74]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^RADPT - [#70]	NOEDIT+6, NOEDIT+9
^RARPT - [#74]	EDTRPT+1, EDTRPT+2, NEXT+10
^TMP($J	NEXT+11!

Name	Field # of Occurrence
^("T"	EDTRPT+2*

Name	Field # of Occurrence
>> %ZIS("B"	NEXT+16*!, NEXT+18!
DA	EDTRPT+3, NOEDIT+1, PDX+1, PDX+3, PDX+4!, SDX+4, SDX+5, SDX+6!, PSTAFF+1, PSTAFF+3 , PSTAFF+4!, SSTAFF+4, SSTAFF+5, SSTAFF+6!
DA(1	PDX+1, PDX+2, SDX+4, PSTAFF+1, PSTAFF+2, SSTAFF+4
DA(2	PDX+1, PDX+2, PSTAFF+1, PSTAFF+2
DE	EDTRPT+4!, NOEDIT+2!, PDX+4!, SDX+6!, PSTAFF+4!, SSTAFF+6!
DIE	EDTRPT+3, NOEDIT+1, NOEDIT+2!, PDX+2, PDX+3, PDX+4!, SDX+4, SDX+5, SDX+6!, PSTAFF+2* , PSTAFF+3, PSTAFF+4!, SSTAFF+4*, SSTAFF+5, SSTAFF+6!
DIE("NO^"	NOEDIT+1*
DQ	EDTRPT+4!, NOEDIT+2!, PDX+4!, SDX+6!, PSTAFF+4!, SSTAFF+6!
DR	EDTRPT+3, EDTRPT+4!, NOEDIT+1, NOEDIT+2!, PDX+2, PDX+4!, SDX+1, SDX+6!, PSTAFF+2, PSTAFF+4! , SSTAFF+1, SSTAFF+6!
DR(2	SDX+2, SSTAFF+2
DR(3	SDX+3, SSTAFF+3
>> DTOUT	NOEDIT+4, NOEDIT+5, NOEDIT+7, NOEDIT+8, NEXT+11, NEXT+12
>> DUOUT	EDTRPT+5, NOEDIT+3, NOEDIT+4, NOEDIT+5, NOEDIT+7, NOEDIT+8
>> RACN	SDX+1, SSTAFF+1
>> RACNI	NOEDIT+6, NOEDIT+9, PDX+1, PSTAFF+1
>> RACT	EDTRPT+1*
>> RADFN	NOEDIT+6, NOEDIT+9, PDX+1, SDX+4, PSTAFF+1, SSTAFF+4
>> RADRS	NEXT+6, NEXT+7
>> RADTI	NOEDIT+6, NOEDIT+9, PDX+1, SDX+4, PSTAFF+1, SSTAFF+4
RAMEMARR	NEXT+3~, NEXT+4
>> RAMLC	NEXT+16
RAPRTSET	NEXT+3~, NEXT+5
>> RARDX	NEXT+12
>> RARPT	EDTRPT+1, EDTRPT+2, EDTRPT+3, NOEDIT+1, NEXT+10
RAXIT	NOEDIT+5, NOEDIT+7, NOEDIT+8, NEXT+5, NEXT+9!, PDX+3, PDX+4, SDX+5, SDX+6, PSTAFF+3 , PSTAFF+4, SSTAFF+5*, SSTAFF+6
U	NOEDIT+6, NOEDIT+9, NEXT+10
>> Y	EDTRPT+5, NOEDIT+3