Routine: RAESR

Information

RAESR ;HISC/GJC AISC/RMO-Exam Statistics Rpt ;1/20/95 09:03

Source file <RAESR.m>

Package	Total	Call Graph
Radiology Nuclear Medicine	5	^RAESR1 PURGE^RAESR2 SETVARS^RAPSET1 (DATE,ZIS)^RAUTL $$DIVLOC^RAUTL7
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RA DAISTATS

Name	Comments	DBIA/ICR reference
SETGLO	; Location Statistics
SET	; Set variable
RADFN	; Set RADFN the internal file number in the patient file, and check if ; an Exam was registered on the specified date, RADTE ; if so set RADO to the value of the Exam Registration node(Visit) via ; the naked reference
DEV
ASK	; Entry point from RA DAISTATS (Examination Statistics) menu
START	; Set-up date variables for selected date range. ; NOTE: RADTE is the exam reg date/time, and RADTI is the ; internal date number
RACNI	; Set RACNI the internal file number for an exam, and check for all ; examinations performed during this patient visit ; ^(RACNI,0), if so, set RAP0 to the value of the Examination node via ; the naked reference
STATS	; Calculate statistics for # of Visits, # of Exams, # of complete ; Exams and Category

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DEV+0
Routine Call	DIR Line Location: ASK+9

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	RACNI+8
^RA(72 - [#72]	RACNI+6
^RA(79.1 - [#79.1]	RACNI+4
^RA(79.2 - [#79.2]	RACNI+5
^RADPT - [#70]	RADFN+4, RACNI+10
^RADPT("AR"	START+5, RADFN+4
^SC - [#44]	RACNI+4
^TMP($J	RAESR+4, RAESR+5, RAESR+7, RAESR+8, RACNI+9, SETGLO+1, SETGLO+2, SETGLO+4, SETGLO+5, SETGLO+7* , SETGLO+8, SETGLO+10, SETGLO+11*, ASK+1!

Name	Line Occurrences
RACNI	RADFN+4
RADFN	START+5
RAESR	ASK+13
SET	SETGLO+7, SETGLO+8, SETGLO+10, SETGLO+11
SETGLO	RACNI+10
STATS	SETGLO+1, SETGLO+2, SETGLO+4, SETGLO+5, SETGLO+7, SETGLO+8, SETGLO+10, SETGLO+11

Name	Field # of Occurrence
^(	RACNI+10, SETGLO+1, SETGLO+2, SETGLO+4, SETGLO+5, SETGLO+7, SETGLO+8, SETGLO+10*
^("RATOT"	SETGLO+11*
^(0	RADFN+4, RACNI+4, RACNI+5, RACNI+8, RACNI+10

Name	Field # of Occurrence
>> A	RAESR+3*, RAESR+4, RAESR+5, RAESR+6, RAESR+8
>> B	RAESR+5, RAESR+6, RAESR+7, RAESR+8
>> BEGDATE	RAESR+14, START+3
>> BEGDTX	RAESR+14*, RAESR+15
DIR	ASK+9!
DIR("?"	ASK+5, ASK+6, ASK+7, ASK+8, ASK+9*
DIR("A"	ASK+4*
DIR("B"	ASK+4*
DIR(0	ASK+3*
DIROUT	ASK+10!
DIRUT	ASK+10!
DTOUT	ASK+10!
DUOUT	ASK+10!
DUZ	RAESR+3, RAESR+6, RAESR+11, ASK+2
>> ENDDATE	RAESR+14, START+3
>> ENDDTX	RAESR+14*, RAESR+15
I	RAESR+12, SET+1, ASK+10!
IO	START+3
>> RABEG	START+3*, START+5
>> RACCESS(	RAESR+3, RAESR+6, RAESR+11!, ASK+2
>> RACMP	RACNI+6*, STATS+2
>> RACNB	START+4*
>> RACNI	RACNI+10*
>> RACTE	RACNI+10*, STATS+4
>> RAD0	RADFN+4*, RACNI+4, RACNI+5, RACNI+8
>> RADAT	START+5*, SETGLO+1, SETGLO+4, SETGLO+7, SETGLO+10
>> RADFN	RADFN+4*, RACNI+10
>> RADNM	RACNI+8*, RACNI+9, SETGLO+1, SETGLO+2, SETGLO+4, SETGLO+5, SETGLO+7, SETGLO+8
>> RADTE	START+5*, RADFN+4
>> RADTI	START+5*, RADFN+4, RACNI+10
>> RADU	START+4*, STATS+4
>> RAEND	START+3*, START+5
RAFLG	RACNI+10!, STATS+2*
>> RAINM	RACNI+5*, RACNI+6, RACNI+9, SETGLO+1, SETGLO+2, SETGLO+4, SETGLO+5
>> RALNM	RACNI+4*, SETGLO+1, SETGLO+2
>> RAP0	RACNI+10*, STATS+2
>> RAPOP	RAESR+13, DEV
RAPSTX	ASK+2*, ASK+10!
>> RARPT	ASK+11*
>> RATMEFRM	RAESR+15*
RATMP	RACNI+10!, SETGLO+7, SETGLO+8, SETGLO+10, SETGLO+11, STATS+2, STATS+4, SET+1
>> T	STATS+4*
>> X	ASK+12*, ASK+13
>> Y	SETGLO+1, SETGLO+2, SETGLO+4, SETGLO+5, SETGLO+7, SETGLO+8, SETGLO+10, SETGLO+11, SET+1*, ASK+11
>> ZTDESC	ASK+13*
>> ZTRTN	RAESR+11*
>> ZTSAVE(	RAESR+12*