Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RARPTUT

Package: Radiology Nuclear Medicine

Routine: RARPTUT


Information

RARPTUT ;HISC/GJC - rad/nuc med report utilities ;04 Dec 2017 9:26 AM

Source Information

Source file <RARPTUT.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Radiology Nuclear Medicine 6 ($$DBS,$$ERROR,$$LOCKERR)^RAERR  RELEASE^RAHLRPC  GENACK^RAHLTCPB  ($$LOCKFM,UNLOCKFM)^RALOCK  REL^RARPTUT  UP1^RAUTL1  
VA FileMan 4 $$FIND1^DIC  (FILE,UPDATE,WP)^DIE  ($$IENS,CLEAN)^DILF  $$GET1^DIQ  
Kernel 1 $$NOW^XLFDT  
MailMan 1 ^XMD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Radiology Nuclear Medicine 2 RAHLO  RARPTUT  

Entry Points

Name Comments DBIA/ICR reference
REL(RARPT,RAERR) ;NTP II - mark a report as 'X' (Deleted) or null
CHKSTS ;In order to 'mark as deleted', NTP reports those reports must have a
IMG ;Can't 'mark as deleted' a report being held if images have been
REGEX ;lock at the REGISTERED EXAM (#70.02) record associated with this report
RPTXT ;delete the REPORT TEXT (70.03; #17) field value for a exam liked to
PIS ;delete the PRIMARY INTERPRETING STAFF (70.03; #15) field value
BATCH ;if the report does not have associated images check the REPORT BATCHES
RSTATUS ;1) set the REPORT STATUS for reports absent of images to 'X'
; (Deleted)
; 2) set the REPORT STATUS for reports w/images present to null
; (mimics 'images collected')
IMPRPTXT ;Delete the IMPRESSION TEXT (#300) and REPORT TEXT (#200)
ACTIVLOG ;update the activity log. If an error occurs here inform the mail group
MAIL ;Whether the event was a success of failure update the users in the RAD
RA742(RARPT) ;delete a report (without images) from the REPORT BATCHES (#74.2)
ACTLOG() ;update the Activity Log (#74.01) whenever a report is
ACTLOGX(RAIEN) ;update the lower level sub-files...
MM(RAY,RAX) ;call MailMan; let the members of the mail group know
GETEXM() ;return primary Resident, primary Dx Code & primary Staff data (if any) #70.03
SECRES ;return secondary Resident data (if any) #70.09 place in #74.19
SECDX ;return secondary Dx Code data (if any) #70.14 place in #74.16
SECSTF ;return secondary Staff data (if any) #70.11 place in #74.18
EN ;entry point called (from RAHLO) to trigger the logic that updates the

External References

Name Field # of Occurrence
$$FIND1^DIC ACTLOG+11
FILE^DIE RPTXT+13, PIS+14, RSTATUS+5, RA742+21
UPDATE^DIE ACTLOG+26, ACTLOGX+10
WP^DIE IMPRPTXT+3
$$IENS^DILF REGEX+6, RPTXT+9, PIS+10, RA742+8
CLEAN^DILF RPTXT+25, PIS+26, MAIL+11, RA742+32
$$GET1^DIQ MAIL+2
$$DBS^RAERR RPTXT+17, PIS+18, RSTATUS+9, RA742+26, ACTLOG+29, ACTLOGX+12
$$ERROR^RAERR CHKSTS+6
$$LOCKERR^RAERR REL+16, REGEX+8, RA742+10
RELEASE^RAHLRPC EN+7
GENACK^RAHLTCPB EN+27
$$LOCKFM^RALOCK REL+15, REGEX+7, RA742+9
UNLOCKFM^RALOCK CHKSTS+7, REGEX+11, RPTXT+18, RPTXT+19, PIS+19, PIS+20, RSTATUS+10, RSTATUS+11, ACTIVLOG+15, ACTIVLOG+16
, RA742+31
REL^RARPTUT EN+6
UP1^RAUTL1 EN+20
$$NOW^XLFDT ACTLOG+13
^XMD MM+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] FIND1^DIC
^RARPT - [#74] GET1^DIQ,  WP^DIE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RABTCH(74.2 - [#74.2] RA742+4, RA742+6, RA742+7
^RADPT - [#70] REGEX+5, RPTXT+6, RPTXT+7, PIS+7, PIS+8, GETEXM+3, SECRES+3, SECRES+4, SECDX+3, SECDX+4
, SECSTF+3, SECSTF+4
^RARPT - [#74] CHKSTS+4, IMG+5, ACTLOG+10

Label References

Name Line Occurrences
$$ACTLOG ACTIVLOG+6
$$ACTLOGX ACTIVLOG+11
$$GETEXM ACTLOG+12
MM REL+22, CHKSTS+9, REGEX+14, RPTXT+23, PIS+24, RSTATUS+14, MAIL+8, RA742+17, RA742+29, ACTLOG+32
, ACTLOGX+15
RA742 BATCH+6
SECDX ACTLOGX+7
SECRES ACTLOGX+7
SECSTF ACTLOGX+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C REL+12~
DA REGEX+4*, REGEX+6!, RPTXT+8*, RPTXT+9!, PIS+9*, PIS+10!, RA742+5!, RA742+8*!
DA(1 REGEX+4*, RPTXT+8*, PIS+9*, RA742+8*
DA(2 RPTXT+8*, PIS+9*
DIERR RPTXT+14, PIS+15, RSTATUS+6, RA742+23, ACTLOG+28, ACTLOGX+11, MM+5~
DUZ MM+5~*
RA RA742+5!*, RA742+17, RA742+29, RA742+32!, ACTLOG+32, ACTLOGX+4~, ACTLOGX+5*, ACTLOGX+15
RA7003 RPTXT+7*, RPTXT+13!, PIS+8*, PIS+14!
RACN REGEX+3~, REGEX+5*
RACNI REGEX+3~, REGEX+5*, GETEXM+3, SECRES+3, SECRES+4, SECDX+3, SECDX+4, SECSTF+3, SECSTF+4
RADA RPTXT+5*, RPTXT+6*, RPTXT+7, RPTXT+8, RPTXT+13!, PIS+6*, PIS+7*, PIS+8, PIS+9, PIS+14!
RADFN REGEX+3~, REGEX+4*, REGEX+5, RPTXT+6, RPTXT+7, RPTXT+8, PIS+7, PIS+8, PIS+9, GETEXM+3
, SECRES+3, SECRES+4, SECDX+3, SECDX+4, SECSTF+3, SECSTF+4
RADTI REGEX+3~, REGEX+4*, REGEX+5, RPTXT+6, RPTXT+7, RPTXT+8, PIS+7, PIS+8, PIS+9, GETEXM+3
, SECRES+3, SECRES+4, SECDX+3, SECDX+4, SECSTF+3, SECSTF+4
RAERR REL~, REL+11*, REL+15*, REL+16*, REL+19, REL+20, REL+21, CHKSTS+6*, CHKSTS+8, CHKSTS+9
, REGEX+7*, REGEX+8*, REGEX+10, REGEX+12, REGEX+13, RPTXT+17*, RPTXT+20, RPTXT+21, RPTXT+28, PIS+18*
, PIS+21, PIS+22, PIS+29, RSTATUS+9*, RSTATUS+12, RSTATUS+13, RSTATUS+16, ACTIVLOG+11*, MAIL+3, MAIL+4
, RA742+9*, RA742+10*, RA742+14, RA742+15, RA742+16, RA742+26*, RA742+27, RA742+28, ACTLOG+9~, ACTLOG+29*
, ACTLOG+30, ACTLOG+31, ACTLOG+34, ACTLOGX+4~, ACTLOGX+12*, ACTLOGX+13, ACTLOGX+14, ACTLOGX+17, EN+6, EN+8
, EN+26!
RAFDA RPTXT+13!, PIS+14!, RSTATUS+4!, RSTATUS+5!, RA742+5!, RA742+21!, ACTLOG+9~, ACTLOGX+4~, ACTLOGX+10
RAFDA( RPTXT+10*, RPTXT+12, PIS+11*, PIS+13, RA742+20*, ACTLOG+13*, ACTLOG+14*, ACTLOG+15*, ACTLOG+16*, ACTLOG+21*
, ACTLOG+22*, ACTLOG+23*, SECRES+5*, SECDX+5*, SECSTF+5*
RAFDA(74 RSTATUS+4*
RAIEN ACTIVLOG+6*, ACTIVLOG+11, MAIL+11!, ACTLOG+9~, ACTLOG+10*, ACTLOG+12, ACTLOG+34, ACTLOGX~, ACTLOGX+5, SECRES+2~
, SECRES+5*, SECDX+2~, SECDX+5*, SECSTF+2~, SECSTF+5*
RAIEN( ACTLOG+34
RAIEN70 REGEX+3~, REGEX+6*, REGEX+7, REGEX+12, RPTXT+18, PIS+19, RSTATUS+10, ACTIVLOG+15
RAIEN742 RA742+5!, RA742+8*, RA742+9, RA742+20, RA742+26, RA742+31, RA742+32!
RAIENS70 RPTXT+5~, RPTXT+9*, RPTXT+10, RPTXT+17, PIS+6~, PIS+10*, PIS+11, PIS+18
RAIENS74 ACTLOG+9~, ACTLOG+12*, ACTLOG+13, ACTLOG+14, ACTLOG+15, ACTLOG+16, ACTLOG+21, ACTLOG+22, ACTLOG+23, ACTLOG+29
, ACTLOGX+4~, ACTLOGX+5*, ACTLOGX+12, SECRES+5, SECDX+5, SECSTF+5
RAIMAGES IMG+5~*, RPTXT+3, BATCH+6, RSTATUS+4, IMPRPTXT+3, ACTIVLOG+11, ACTLOG+20
>> RAMDV EN+20
RAPARAMS REL+12~
RARPT REL~, REL+15, REL+20, CHKSTS+4, CHKSTS+6, CHKSTS+7, IMG+5, REGEX+11, RPTXT+7, RPTXT+19
, PIS+20, BATCH+6, RSTATUS+4, RSTATUS+9, RSTATUS+11, IMPRPTXT+3, ACTIVLOG+16, MAIL+2, RA742~, RA742+4
, RA742+6, RA742+7, RA742+15, ACTLOG+10, ACTLOG+12, ACTLOGX+5, EN+5, EN+6
RARPT(0 CHKSTS+4*, CHKSTS+5, REGEX+4, REGEX+5, MAIL+6
RARPTSTS MAIL+2*, MAIL+7, MAIL+8!
RARY MM+5~
RATIMOUT REL+12~*, REL+15, REGEX+7, RA742+9
RATXT REL+20~, REL+22, CHKSTS+8~, CHKSTS+9, REGEX+12~, REGEX+14, RPTXT+20~, RPTXT+23, PIS+21~, PIS+24
, RSTATUS+12~, RSTATUS+14, MAIL+8!, RA742+15~, RA742+17, RA742+27~, RA742+29, ACTLOG+30~, ACTLOG+32, ACTLOGX+13~
, ACTLOGX+15
RATXT(1 REL+20*, CHKSTS+8*, REGEX+12*, RPTXT+20*, PIS+21*, RSTATUS+12*, MAIL+5*, RA742+15*, RA742+27*, ACTLOG+30*
, ACTLOGX+13*
RATXT(2 REL+20*, CHKSTS+9*, REGEX+12*, RPTXT+21*, PIS+22*, RSTATUS+13*, MAIL+5*, RA742+15*, RA742+28*, ACTLOG+31*
, ACTLOGX+14*
RATXT(3 REL+21*, REGEX+13*, RPTXT+22*, PIS+23*, MAIL+6*, RA742+16*
RATXT(4 MAIL+7*
RAUSER ACTLOG+9~, ACTLOG+11*, ACTLOG+15
RAX REGEX+3~, MAIL+3*, MAIL+4*, MAIL+5, MAIL+8!, RA742+5!, RA742+32!, MM~, SECRES+2~*, SECRES+5
, SECRES+6*, SECDX+2~*, SECDX+5, SECDX+6*, SECSTF+2~*, SECSTF+5, SECSTF+6*
RAY MM~, MM+6, SECRES+2~*, SECRES+3*, SECRES+4, SECDX+2~*, SECDX+3*, SECDX+4, SECSTF+2~*, SECSTF+3*
, SECSTF+4
RAY1 RA742+5~*, RA742+6*, RA742+7, RA742+8
RAY2 RA742+5~, RA742+7*, RA742+8
RAY3 ACTLOG+9~, ACTLOG+12*, ACTLOG+21, ACTLOG+22, ACTLOG+23
RAZ SECRES+2~, SECRES+4*, SECRES+5, SECDX+2~, SECDX+4*, SECDX+5, SECSTF+2~, SECSTF+4*, SECSTF+5
U REL+11*, REL+20, REL+21, CHKSTS+5, CHKSTS+8, CHKSTS+9, REGEX+4, REGEX+5, REGEX+12, REGEX+13
, RPTXT+7, RPTXT+20, RPTXT+21, PIS+21, PIS+22, RSTATUS+12, RSTATUS+13, MAIL+6, RA742+15, RA742+16
, RA742+27, RA742+28, ACTLOG+21, ACTLOG+22, ACTLOG+23, ACTLOG+30, ACTLOG+31, ACTLOGX+13, ACTLOGX+14, GETEXM+4
, SECRES+5, SECDX+5, SECSTF+5
X REL+12~, MM+5~, GETEXM+3~*, GETEXM+4
XMDUN MM+5~
XMDUZ MM+5~*
XMMG MM+5~
>> XMSUB MM+6*
>> XMTEXT MM+7*
>> XMY("G.RAD HL 7 MESSAGES" , MM+7*
>> XMY("POSTMASTER" MM+7*
XMZ MM+5~
Y REL+12~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All