Routine: RARTE2

Information

RARTE2 ;HISC/SWM,GJC-Edit/Delete a Report ; Feb 09, 2021@12:26:05

Source file <RARTE2.m>

Name	Comments	DBIA/ICR reference
PTR	; if the current study is the master study for ; the print set the accession of the master study ; is the .01 value of the master pset report record. ; All secondary studies will have their accession ; numbers filed in the OTHER CASE# multiple under ; that master pset report record.
PTR2	;find the descendent, if part of the pset build accession # into our result
PTR3	; -RAO1: reused for $O subscript (think RACNI) ; -RACCSTR: now represents the full accession # ; Ex: 141-040618-12345 -or- 040618-12345 ; -RARPT: record # of RIS report in file #74
INSERT	; add subrec to file #74's subfile #74.05
DEL17(RAIEN)	;del other print set members' pointer to #74
D18
COPY	;copy physicians and diagnoses
COPYLOOP
KIL3
COPY3
UP3	;
KIL4
COPY4
UP4	;
KIL5
COPY5
UP5	;
COPYREF	; clear out Fileman vars and quit
Q
SILENT()	;ask to include canceled cases if interactive
ASK()	;include canceled case in report?
OWNSKEY()	;does this user have the RA MGR key?

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"Missing data (routine RARTE2)",! Line Location: PTR+13
Function Call: WRITE	Prompt: !!,$C(7),"Error encountered while setting sub-records (routine RARTE2)",! Line Location: INSERT+6
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
Function Call: WRITE	Prompt: !!,RAX Line Location: ASK+7