Routine: RARTE2

Information

RARTE2 ;HISC/SWM-Edit/Delete a Report ;7/16/01 14:05

Source Information

Source file <RARTE2.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Radiology Nuclear Medicine	3	EN3^RAUTL20 $$EOS^RAUTL5 ENKILL^RAXREF
VA Fileman	3	YN^DICN (,UPDATE)^DIE ^DIK

Caller Graph

Caller Graph Total: 11

Package	Total	Caller Graph
Radiology Nuclear Medicine	11	RAHLO1 RAREG1 RAREG2 RARIC RART RARTE RARTE1 RARTE4 RARTE5 RARTRPV1 RAUTL15

Entry Points

Name	Field # of Occurrence
YN^DICN	ASK+4
^DIE	COPYLOOP+7, COPYLOOP+15
UPDATE^DIE	INSERT+4, UP3+2, UP4+2, UP5+2
^DIK	KIL3+3, KIL4+3, KIL5+3
EN3^RAUTL20	DEL17+2
$$EOS^RAUTL5	PTR+6, INSERT+7
ENKILL^RAXREF	D18+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"Missing data (routine RARTE2)",! Line Location: PTR+6
Function Call: WRITE	Prompt: !!,"Case ",RA1," of this print set has been cancelled." Line Location: ASK+2
Function Call: WRITE	Prompt: !,"Do you want to include it in the report anyway" Line Location: ASK+3
Function Call: WRITE	Prompt: !!,$C(7),"Error encountered while setting sub-records (routine RARTE2)",! Line Location: INSERT+7
Function Call: WRITE	Prompt: !!,"... now copying ",$S(RADRS=1:"Diagnostic Codes",1:"Staff & Resident data")," to other cases in this print set ...",! Line Location: COPY+2
Function Call: WRITE	Prompt: !!,$C(7),"Error encountered while in adding rec ",RA3," to sub-file 70.09" Line Location: UP3+3
Function Call: WRITE	Prompt: !!,$C(7),"Error encountered while in adding rec ",RA3," to sub-file 70.11" Line Location: UP4+3
Function Call: WRITE	Prompt: !!,$C(7),"Error encountered while in adding rec ",RA3," to sub-file 70.14" Line Location: UP5+3
Routine Call	DIE Line Location: INSERT+4 UP3+2 UP4+2 UP5+2
Routine Call	DIE Line Location: COPYLOOP+7 COPYLOOP+15

Name	Line Occurrences (* Changed, ! Killed)
^RA(72 - [#72]	ASK+1
^RADPT - [#70]	PTR2, UPD*, D18+4, D18+7, COPY+9, COPY+11, COPY+13, COPY+15, KIL3, KIL4 , KIL5

Label References

Name	Line Occurrences
ASK	ASK+1
COPY3	KIL3, UP3+2
COPY4	KIL4, UP4+2
COPY5	KIL5, UP5+2
COPYLOOP	COPYLOOP, COPYLOOP+23
COPYREF	COPYLOOP
D18	D18+4, D18+8
INSERT	UPD+1
KIL3	COPYLOOP+20, KIL3+4
KIL4	COPYLOOP+21, KIL4+4
KIL5	COPYLOOP+22, KIL5+4
PTR2	PTR2, PTR2+1, ASK+1, UPD+2
Q	COPYLOOP+20, COPYLOOP+21, COPYLOOP+22
UPD	ASK

Name	Field # of Occurrence
^(	PTR2, COPY+11, COPY+13, COPY+15
^(0	PTR2, D18+7*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ASK+1, ASK+4*, ASK+5
DA	D18+2, D18+5, COPYLOOP+4, COPYLOOP+7!, COPYLOOP+12, COPYLOOP+15!, KIL3+1, KIL4+1, KIL5+1, COPYREF+1! , Q!
DA(1	D18+2, COPYLOOP+4, COPYLOOP+5, COPYLOOP+12, COPYLOOP+13, COPYLOOP+19, KIL3+2, KIL4+2, KIL5+2
DA(2	D18+2, COPYLOOP+4, COPYLOOP+5, COPYLOOP+12, COPYLOOP+13, COPYLOOP+19, KIL3+2, KIL4+2, KIL5+2
DA(3	COPYLOOP+19*, KIL3+2, KIL4+2, KIL5+2
DIE	COPYLOOP+5, COPYLOOP+7!, COPYLOOP+13, COPYLOOP+15!
DIK	KIL3+2, KIL4+2, KIL5+2*, COPYREF+1!
DR	COPYLOOP+6, COPYLOOP+7!, COPYLOOP+14, COPYLOOP+15!
RA1	PTR+9~, PTR+10, PTR2, ASK+2, ASK+5, INSERT+2, INSERT+3, DEL17+2~, DEL17+4, D18 , D18+2, D18+4, D18+7, COPY+3~, COPY+9, COPY+11, COPY+13, COPY+15, COPY+17, COPYLOOP , COPYLOOP+4, COPYLOOP+12, COPYLOOP+18, COPYLOOP+19, KIL3, KIL4, KIL5
RA1PD	COPY+6~, COPY+9*, COPYLOOP+14
RA1PR	COPY+4~, COPY+9*, COPYLOOP+6
RA1PS	COPY+4~, COPY+9*, COPYLOOP+6
RA1SD	COPY+6~
RA1SD(	COPY+15*, COPY5, UP5+1
RA1SR	COPY+5~
RA1SR(	COPY+11*, COPY3, UP3+1
RA1SS	COPY+5~
RA1SS(	COPY+13*, COPY4, UP4+1
RA2	PTR+9~, PTR2, PTR2+1, UPD, COPY+3~, COPYLOOP+18, UP3+1, UP4+1, UP5+1
RA3	PTR+9~, PTR2, ASK+1, COPY+3~, COPYLOOP+20, COPYLOOP+21, COPYLOOP+22, KIL3, KIL3+1, COPY3 , UP3+1, UP3+3, KIL4, KIL4+1, COPY4, UP4+1, UP4+3, KIL5, KIL5+1, COPY5 , UP5+1, UP5+3
RA4	DEL17+2~
RA4(	D18
RA4(0	DEL17+3
>> RACNI	PTR+4, PTR2+1, COPY+1, COPY+9, COPY+11, COPY+13, COPY+15, COPYLOOP
>> RADFN	PTR+4, PTR2, UPD, DEL17+1, D18+2, D18+4, D18+7, COPY+1, COPY+9, COPY+11 , COPY+13, COPY+15, COPYLOOP+4, COPYLOOP+12, COPYLOOP+18, COPYLOOP+19, KIL3, KIL4, KIL5
>> RADRS	COPY+1, COPY+2, COPY+9, COPY+11, COPY+13, COPY+15, COPYLOOP+3, COPYLOOP+11, COPYLOOP+20, COPYLOOP+21 , COPYLOOP+22
>> RADTI	PTR+4, PTR2, UPD, DEL17+1, D18+2, D18+4, D18+7, COPY+1, COPY+9, COPY+11 , COPY+13, COPY+15, COPYLOOP+4, COPYLOOP+12, COPYLOOP+18, COPYLOOP+19, KIL3, KIL4, KIL5
>> RAERR	PTR+7, INSERT+8
RAFDA	PTR+9~, PTR2+2!, COPY+7~, COPY3!, COPY4!, COPY5!
RAFDA(	INSERT+2, INSERT+3, UP3+1, UP4+1, UP5+1*
RAIEN	PTR+9~, PTR2+2!, DEL17~, D18+4, D18+5, COPY+7~, COPY3!, COPY4!, COPY5!
>> RAMEMARR	COPY+1
>> RAMEMARR(	COPYLOOP
RAMSG	PTR+9~, PTR2+2!, INSERT+5, COPY+7~, COPY3!, UP3+2, COPY4!, UP4+2, COPY5!, UP5+2
>> RAOUT	PTR+6, INSERT+7
>> RAQUIET	PTR+6, ASK, INSERT+7
>> RARIC	PTR+5, ASK, INSERT+6
>> RARPT	PTR+4, UPD, INSERT+2, INSERT+3
>> RARPTN	PTR+4, INSERT+2, INSERT+3
>> RAXIT	PTR+3, PTR+5, UPD+2, INSERT+6, COPYLOOP+20, COPYLOOP+21, COPYLOOP+22, COPY3, UP3+3, COPY4 , UP4+3, COPY5, UP5+3
U	UPD

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RARTE2

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
INSERT	; add subrec to file #74's subfile #74.05 ; P47 - if SSAN in use set OTHER CASES in Printset to SSAN format
COPY3
UP5	;
D18
UPD
KIL3
PTR2
KIL5
UP3	;
COPY5
COPYREF	; clear out Fileman vars and quit
Q
COPYLOOP
ASK
COPY4
UP4	;
COPY	;copy physicians and diagnoses
KIL4
PTR	; if current ^RADPT() rec is a PRINT SET, ; then for other ^RADPT() recs of the same PRINT SET, ; create its corresponding subrec in ^RARPT()
DEL17(RAIEN)	;del other print set members' pointer to #74