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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: RARTE1

Package: Radiology Nuclear Medicine

Routine: RARTE1


Information

RARTE1 ;HISC/CAH,FPT,GJC AISC/MJK,RMO-Edit/Delete a Report ;6/10/98 16:08

Source Information

Source file <RARTE1.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Radiology Nuclear Medicine 10 RPT^RAHLRPC  SET^RAPSET1  (COPY,DEL17)^RARTE2  (CHK17,EN1)^RARTE3  MARKDEL^RARTE7  ^RARTR  UP1^RAUTL1  ($$LOCK,UNLOCK)^RAUTL12  
UPDTPNT^RAUTL9  ENKILL^RAXREF  
VA Fileman 5 ^DIC  DO^DIC1  ^DIE  ^DIK  ^DIR  
Uncategorized 1 (CREATE,DELETE)^WVRALINK  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Radiology Nuclear Medicine 7 RA DELETERPT  RA UNVERIFY  RAHLO1  RARTE  RARTE4  RARTE5  RARTVER  

Entry Points

Name Comments DBIA/ICR reference
STD
ASKPRT
UNVER(RAXRPT) ; unverify a report
; Input: if RAXRPT>0 then we know the report we wish to delete
; this requires no user interaction.
; RAXRPT=0 user is prompted for the report they wish to
; delete (interactive)
ASKDEL ; ask if deletion is appropriate
PACS
DXULOC ;unlock the correct RAD/NUC MED PATIENT sub-file
ASKBTCH
EDTRPT ; Called from 'RARTE4' and 'RARTVER'.
DICW ; Build DIC("W") string
Q ; Kill and quit
ASKSEL
DEL
COPYDX ;if we have a printset copy over the Dx code data (both primary & secondary)
AD2
END
DXLOC ;lock the correct RAD/NUC MED PATIENT sub-file
STD1
IMPRPT(Y) ; Does the report we are currently editing have either Report
; or Impression Text?
; Input : 'Y' - the ien of the report being edited
; Output: '1' - either impression or report text exists, '0' - neither
; report or impression text exists.
ASKADD

External References

Name Field # of Occurrence
^DIC DEL+5, UNVER+10, STD1
DO^DIC1 DICW+1
^DIE UNVER+20, EDTRPT+3, EDTRPT+4, EDTRPT+19, EDTRPT+26
^DIK UNVER+32
^DIR DEL+11
RPT^RAHLRPC PACS
SET^RAPSET1 DEL, UNVER+6
COPY^RARTE2 COPYDX+2
DEL17^RARTE2 ASKDEL+12
CHK17^RARTE3 DEL+13
EN1^RARTE3 UNVER+27
MARKDEL^RARTE7 AD2+1
^RARTR UNVER+27
UP1^RAUTL1 AD2+3, UNVER+30
$$LOCK^RAUTL12 DEL+15, UNVER+18, DXLOC+1, DXLOC+2
UNLOCK^RAUTL12 ASKDEL+3, AD2+5, UNVER+20, DXULOC+1, DXULOC+2
UPDTPNT^RAUTL9 AD2+4
ENKILL^RAXREF ASKDEL+16, UNVER+25, UNVER+26
CREATE^WVRALINK PACS+1
DELETE^WVRALINK AD2+6, UNVER+35

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"Cannot delete a report that is associated with an image."
  • Line Location: DEL+8
Function Call: WRITE
  • Prompt: !?5,"Contact your Imaging Coordinator for further assistance.",!
  • Line Location: DEL+9
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' to delete this report, or 'NO' not to."
  • Line Location: ASKDEL+6
Function Call: WRITE
  • Prompt: !?10,"...report deletion complete."
  • Line Location: AD2+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASKSEL+1
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' to select the '",$P(Y,"^",2),"' standard report, or 'NO' not to."
  • Line Location: ASKSEL+2
Function Call: READ
  • Prompt: "Do you want to add another standard to this report? No// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASKADD+0
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' to add another standard to this report, or 'NO' not to."
  • Line Location: ASKADD+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKADD+1
Function Call: WRITE
  • Prompt: !,$C(7),"You must enter a verifying Interpreting Physician to 'VERIFY' a report.",!?3,"...report status will now be changed to 'DRAFT'."
  • Line Location: EDTRPT+4
Function Call: READ
  • Prompt: "Do you want to batch print reports? Yes// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASKBTCH+0
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' to batch print reports, or 'NO' not to."
  • Line Location: ASKBTCH+0
Function Call: READ
  • Prompt: "Do you want to print batch now? No// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASKPRT+0
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' to print this batch, or 'NO' not to."
  • Line Location: ASKPRT+0
Routine Call
  • DIE
  • Line Location:
    • UNVER+20
    • EDTRPT+3
    • EDTRPT+4
    • EDTRPT+19
    • EDTRPT+26
Routine Call
  • DIC
  • Line Location:
    • DEL+5
    • UNVER+10
    • STD1
Routine Call
  • DIR
  • Line Location:
    • DEL+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RARPT - [#74] Classic Fileman Calls
^RA(74.1 - [#74.1] Classic Fileman Calls
^RABTCH(74.4 - [#74.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(72 - [#72] EDTRPT+12, EDTRPT+13, EDTRPT+18
^RA(74.1 - [#74.1] ASKSEL+4, ASKSEL+5
^RA(79.2 - [#79.2] EDTRPT+11
^RABTCH(74.4 - [#74.4] UNVER+30, UNVER+31
^RADPT - [#70] ASKDEL+13, ASKDEL+14, ASKDEL+18*, UNVER+30, EDTRPT+11, EDTRPT+20
^RARPT - [#74] DEL+7, UNVER+22, UNVER+23, UNVER+25*, UNVER+26*, UNVER+35, ASKSEL+3!, ASKSEL+4*, ASKSEL+5*, ASKADD+1*
, EDTRPT+1, EDTRPT+2, EDTRPT+4, PACS, PACS+1, IMPRPT+5
^TMP("RARPT-REC" UNVER+17

Label References

Name Line Occurrences
$$IMPRPT ASKSEL
AD2 ASKDEL+10, ASKDEL+14
ASKADD ASKADD
ASKBTCH ASKBTCH
ASKDEL ASKDEL+4
ASKPRT ASKPRT
ASKSEL ASKSEL+2
DEL ASKDEL+3
DICW UNVER+10
DXLOC EDTRPT+16
DXULOC EDTRPT+20, COPYDX+4
END DEL+5, DEL+7, DEL+14, DEL+16
PACS EDTRPT+8, EDTRPT+20
Q UNVER+6, UNVER+10, UNVER+19
STD1 ASKSEL+1, ASKADD+1

Naked Globals

Name Field # of Occurrence
^( EDTRPT+13
^("I" ASKSEL+3!
^("T" EDTRPT+2*
^(0 ASKSEL+4, ASKSEL+5, PACS

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!, Q+2!
%DT Q+2!
%W Q+2!
%Y END!, Q+2!
%Y1 Q+2!
C END+4!, Q+2!
D END+4!, Q+2!
D0 END!, Q+2!
D1 END+4!, Q+2!
DA DEL+6*, ASKDEL+16*, END!, UNVER+12*, UNVER+31*, Q+2!, EDTRPT+3*, EDTRPT+4*, EDTRPT+12*, EDTRPT+19!
, EDTRPT+24*, EDTRPT+26!
DA(1 ASKDEL+16*, EDTRPT+12*, EDTRPT+24*
DA(2 ASKDEL+16*, EDTRPT+12*
DDER END+4!
DDH END+4!, Q+4!
DE UNVER+20!, EDTRPT+3!, EDTRPT+4!, EDTRPT+19!, EDTRPT+26!
DFN END+4!, Q+1!
DI END+4!, Q+1!
DIC DEL+5*!, END!, UNVER+8*, UNVER+10!, Q+2!, STD1*
DIC("A" DEL+2*, STD1*!
DIC("S" DEL+4*, UNVER+8*
DIC("W" DEL+3*, DICW+2*
DIC(0 DEL+5*, UNVER+9*, STD1*
DIE END!, UNVER+17*, UNVER+20!, Q+2!, EDTRPT+3*, EDTRPT+12*, EDTRPT+19!, EDTRPT+24*, EDTRPT+26!
DIE("NO^" EDTRPT+18*
DIK END!, UNVER+32*, Q+2!
DIPGM Q+4!
DIR DEL+11!
DIR("A" DEL+10*
DIR(0 DEL+10*
DIRUT DEL+11!
DISYS END+4!, Q+4!
DIW Q+1!
DIWF END+4!, Q+1!
DIWI Q+1!
DIWL END+4!, Q+1!
DIWR END+4!
DIWT Q+1!
DIWTC Q+1!
DIWX Q+1!
DO DICW+1~
DQ END+4!, UNVER+20!, EDTRPT+3!, EDTRPT+4!, EDTRPT+19!, EDTRPT+26!
DR END+4!, UNVER+14*, UNVER+15*, UNVER+20!, Q+2!, EDTRPT+3*, EDTRPT+4*, EDTRPT+13*, EDTRPT+19!, EDTRPT+21*
, EDTRPT+26!
DR(2 UNVER+17*, EDTRPT+22*
DR(3 EDTRPT+23*
DTIME ASKDEL+1, ASKSEL+1, ASKADD, ASKBTCH, ASKPRT
DUOUT DEL+11!
DUZ UNVER+17
GMRAL END+4!
HLN END+4!
HLRESLT END+4!
HLSAN END+4!
I END+4!, Q+4!, ASKSEL+4*, ASKSEL+5*
RA Q+2!
RA(0 UNVER+22*
RA(10 UNVER+23*, UNVER+26
RA(5 UNVER+22*, UNVER+24
RA(7 UNVER+23*, UNVER+25
RA0 DEL+6*, END!
RA1 UNVER+21~*, UNVER+29
RA2 UNVER+21~*, UNVER+29
RA3 UNVER+21~*, UNVER+29
RA4 UNVER+21~*, UNVER+27, UNVER+29
RA74B4 UNVER+11*, Q+4!
RA791 END+3!
RAACNT Q+1!
RACANC END+3!
RACN ASKDEL+13, END!, UNVER+13*, UNVER+21, UNVER+29*, UNVER+30, Q+2!, EDTRPT+21
RACN0 END+3!
RACNI ASKDEL+13*, ASKDEL+14, ASKDEL+16, ASKDEL+18, AD2+6, END!, UNVER+30*, UNVER+35, Q+2!, EDTRPT+12
, EDTRPT+20, PACS+1, DXLOC+1, DXULOC+1
RACPT END+3!
RACPTNDE END+3!
>> RACT EDTRPT+1*, EDTRPT+4, EDTRPT+13, EDTRPT+18
RADATE END+2!, Q+2!
RADDEN UNVER+27~*
RADFN ASKDEL+13, ASKDEL+14, ASKDEL+16, ASKDEL+18, AD2+6, END!, UNVER+12*, UNVER+21, UNVER+29*, UNVER+30
, UNVER+35, Q+3!, EDTRPT+11, EDTRPT+12, EDTRPT+20, EDTRPT+24, PACS+1, DXLOC+1, DXLOC+2, DXULOC+1
, DXULOC+2
RADIV Q+3!
>> RADRS COPYDX+2*
RADTE END+2!, Q+3!
RADTI ASKDEL+13, ASKDEL+14, ASKDEL+16, ASKDEL+18, AD2+6, END!, UNVER+13*, UNVER+21, UNVER+29*, UNVER+30
, UNVER+35, Q+3!, EDTRPT+11, EDTRPT+12, EDTRPT+20, EDTRPT+24, PACS+1, DXLOC+1, DXLOC+2, DXULOC+1
, DXULOC+2
RADUZ END+1!, Q+4!
RAI END+3!
RAIEN DEL+6*, DEL+7, DEL+15, ASKDEL+3, ASKDEL+12, ASKDEL+16, AD2+4, AD2+5, END!
RAIMGTYI EDTRPT+11*, EDTRPT+12!
RAIMGTYJ EDTRPT+11*, EDTRPT+12!
RAJ Q+3!
RAJ1 END!
>> RALI STD*, ASKSEL+3, ASKSEL+5*, ASKADD+1*
>> RALR STD*, ASKSEL+3, ASKSEL+4*, ASKADD+1*
RAN END+3!
RANUM Q+1!
RAOBR4 END+3!
>> RAOK DEL+14, ASKDEL+10, AD2+3, AD2+6
>> RAONLINE EDTRPT+5
RAOR END!, Q+3!
RAORDIFN END+1!, Q+3!
RAPKG END+3!
RAPRCNDE END+3!
RAPRG74 DEL+1*, AD2*, END+1!
RAPROC END+3!
RAPROCIT END+3!
>> RAPRTSET COPYDX+2, DXLOC+1, DXLOC+2, DXULOC+1, DXULOC+2
RAPRV END+3!
>> RAQUIET UNVER+17
>> RARDX EDTRPT+5
RARPT UNVER+12*, UNVER+18, UNVER+20, UNVER+21, UNVER+22, UNVER+23, UNVER+25, UNVER+26, UNVER+29*, UNVER+30
, UNVER+31, UNVER+35, Q+3!, ASKSEL, ASKSEL+3, ASKSEL+4, ASKSEL+5, ASKADD+1, EDTRPT+1, EDTRPT+2
, EDTRPT+3, EDTRPT+4, PACS, PACS+1
RASET Q+3!
RASN END+1!, Q+3!
RAST Q+1!
RASTATX Q+3!
RASTI END+1!, Q+4!
>> RASUB UNVER+17
RASULT END+3!
RAUTOE UNVER+27~*
RAWHOVER Q+1!
RAXIT DEL+1*, DEL+15*, DEL+16!, AD2!, END+3!, UNVER+8*, UNVER+18*, UNVER+19, Q+4!, EDTRPT+1~
, EDTRPT+19, EDTRPT+20, EDTRPT+26, COPYDX+2*, DXLOC+1*, DXLOC+2*
RAXRPT UNVER~, UNVER+6, UNVER+7, UNVER+9, UNVER+14, UNVER+15
U UNVER+12, EDTRPT+11, EDTRPT+20, PACS, PACS+1
VA END+4!
VADM END+4!
VAERR END+4!
X ASKDEL+1*, ASKDEL+2*, ASKDEL+3, ASKDEL+4, ASKDEL+5, END+2!, UNVER+7~*, Q+4!, ASKSEL+1*, ASKSEL+2
, ASKADD*, EDTRPT+12*, EDTRPT+13, EDTRPT+18, ASKBTCH*, ASKPRT*
X0 END+4!
XQUIT DEL!, UNVER+6, Q+4!
Y DEL+5, DEL+6, END+1!, UNVER+10, UNVER+12, Q+4!, STD1, ASKSEL+1, ASKSEL+2, ASKSEL+4
, ASKSEL+5, EDTRPT+4, EDTRPT+8, EDTRPT+20, IMPRPT~, IMPRPT+5
Y(0 DEL+6, UNVER+11, UNVER+12, UNVER+13

Marked Items

Name Field # of Occurrence
$T(CREATE^WVRALINK PACS+1
$T(DELETE^WVRALINK AD2+6, UNVER+35
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All