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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RARTVER1

Package: Radiology Nuclear Medicine

Routine: RARTVER1


Information

RARTVER1 ;HISC/FPT AISC/MJK,RMO-On-Line Verify List/Select Reports ;11/19/97 13:49

Source Information

Source file <RARTVER1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Radiology Nuclear Medicine 4 RASET^RARTVER2  $$SSN^RAUTL  RASET^RAUTL2  EN2^RAUTL20  
VA FileMan 1 ^DIR  

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 RARTRPV  RARTVER  

Entry Points

Name Comments DBIA/ICR reference
HDR
RPTLP
Q
GETRPT
WRT ; used when user chooses SELECTED category
; the "xref" nodes store all cases ready to be selected by user
ASK
PARSE
CHK
PV ; keep pre-verified reports (status ='draft' or 'released/not verified')
DPDRNV ; keep reports with a status of 'draft', 'problem draft' or 'released/
; not verified"
SELRPT ; select reports to verify
ONERPT ; message when there is only one report to choose from
RLTV ; reports left to view
RLTV1 ; add'l reports left to be viewed
TALLY ; tally report counts by category
STAT ;keep only rpts with order of stat

External References

Name Field # of Occurrence
^DIR SELRPT+13, ONERPT+9
RASET^RARTVER2 GETRPT
$$SSN^RAUTL GETRPT
RASET^RAUTL2 TALLY+14
EN2^RAUTL20 WRT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"Case",!,?5,"No.",?12,"Procedure",?34,"Ex Date",?44,"Name",?66,"Pt ID"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: ?74,"ST",?78,"PV"
  • Condition for execution: $D(RASTATFG)
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,?5,"-----",?12,"---------",?34,"--------",?44,"-----------------",?66,"-----"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: ?74,"---",?78,"--"
  • Condition for execution: $D(RASTATFG)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,RACNT,?4,$S(RAPRTSET:"+",1:""),?5,RACN,?12,$E(RAPRC,1,20),?34,$E(RADTE,4,5),"-",$E(RADTE,6,7),"-",$E(RADTE,2,3),?44,$E(RANME,1,20),?66,RASSN
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: ?74,"("_$E($P($G(^RARPT(RARPT,0)),U,5),1)_")"
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: ?78,$S($P($G(^RARPT(RARPT,0)),U,12)]"":"Y",1:"N")
  • Line Location: WRT+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!?3,"Please enter a single number, individual numbers separated by commas,",!?3,"a range of numbers separated by a dash, or numbers separated by a",!?3,"combination of commas and dashes.",!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !?3,*7,"Item ",RASEL," is not a valid selection.",!
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !?3,*7,"Item ",RASEL," is not a valid selection.",!
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !?3,*7,"Item ",RASEL," was already selected.",!
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: !!,"Sorry, there are no Pre-Verified reports to review."
  • Line Location: PV+6
Function Call: WRITE
  • Prompt: !!,"Sorry, there are no "_$S(RASTATUS="R":"RELEASED/NOT VERIFIED",RASTATUS="PD":"PROBLEM DRAFT",1:"DRAFT")_" reports to review."
  • Line Location: DPDRNV+4
Function Call: WRITE
  • Prompt: !!!!!,"Select one of the following:",!
  • Line Location: SELRPT+2
Function Call: WRITE
  • Prompt: !,"There is only one report ("_RASTATUS_RAPREV_") to choose from."
  • Line Location: ONERPT+6
Function Call: WRITE
  • Prompt: !!,"Sorry, there are no STAT ordered reports to review."
  • Line Location: STAT+3
Routine Call
  • DIR
  • Line Location:
    • SELRPT+13
    • ONERPT+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RAO(75.1 - [#75.1] TALLY+16
^RARPT - [#74] WRT+4, WRT+5, WRT+7, PV+3, DPDRNV+3, ONERPT+3, TALLY+7
^TMP($J RPTLP, Q!, GETRPTWRT+7*, CHK+2, CHK+4, PV+2, PV+5!, DPDRNV+3!, ONERPT+1
ONERPT+2, ONERPT+10!, RLTV+2, RLTV1+2, TALLY+6, TALLY+17*, STAT+2

Label References

Name Line Occurrences
ASK WRT+7, ASK+1, PARSE+2
CHK PARSEPARSE+1
GETRPT RPTLP
PARSE PARSE+2
WRT GETRPT

Naked Globals

Name Field # of Occurrence
^( STAT+2!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR SELRPT+1!, SELRPT+15!, ONERPT+7!, ONERPT+11!
DIR("A" SELRPT+3*, SELRPT+4*, SELRPT+5*, SELRPT+6*, SELRPT+7*, SELRPT+8*, SELRPT+9*, SELRPT+10*, SELRPT+12*, ONERPT+8*
DIR("B" ONERPT+9*
DIR(0 SELRPT+11*, ONERPT+8*
DIROUT SELRPT+1!, SELRPT+15!, ONERPT+11!
DIRUT SELRPT+1!, SELRPT+14, SELRPT+15!, ONERPT+10, ONERPT+11!
DTIME ASK
DTOUT SELRPT+1!, SELRPT+15!, ONERPT+11!
DUOUT SELRPT+1!, SELRPT+15!, ONERPT+11!
I Q!
RACN Q!, WRT+3
RACNT HDR*, Q!, WRT+3*, WRT+7, ASK
RADASH Q!, PARSE*, PARSE+1, PARSE+2!, CHK
>> RADFN GETRPT
>> RADTE WRT+3
RADUP Q!, ASK!
RADUP( CHK+3, CHK+4*
>> RAERR ASK*, PARSEPARSE+2, CHK*, CHK+1*, CHK+2*, CHK+3*
RAFST Q!
RAI Q!, ASK*, PARSE*, TALLY+2*, TALLY+19!
RALST Q!
RAMEMARR HDR+2~, WRT+2
RANME Q!, WRT+3
>> RANUM ASK*, CHK+4*
RAOUT HDR!, ASK*
RAPAR Q!, PARSE*, PARSE+1, CHK
RAPRC Q!, WRT+3
RAPREV ONERPT+5*, ONERPT+6, ONERPT+7!
RAPREVER TALLY+9*, TALLY+13, TALLY+19!
RAPRTSET HDR+2~, WRT+3
>> RARLTV RLTV+1*, RLTV+2*, RLTV1+1*, RLTV1+2*
>> RARLTV(1 RLTV+1*, RLTV+2*, RLTV1+1*, RLTV1+2*
>> RARLTV(2 RLTV+2*, RLTV1+2*
RARPT Q!, GETRPT*, WRT+4, WRT+5, WRT+7, PV+2*, PV+3, PV+5, DPDRNV+3*, ONERPT+2*
ONERPT+3, TALLY+6*, TALLY+7, TALLY+14, TALLY+17, STAT+2*
RARPT(0 TALLY+7*, TALLY+8, TALLY+9, TALLY+19!
RARPT0 ONERPT+3*, ONERPT+5, ONERPT+7!
RARPTX ASK!
RARPTX( CHK+4*
RARSEL HDR!, RPTLP, Q!, GETRPT*, ASK*, CHK+4*
RARTDT RPTLP*, Q!, GETRPTWRT+7, PV+1*, PV+2*, PV+5, DPDRNV+2*, DPDRNV+3*, ONERPT+1*
ONERPT+2, TALLY+3*, TALLY+6*, TALLY+17, STAT+1*, STAT+2*
RASEL Q!, PARSE*, PARSE+1*, CHK+1, CHK+2, CHK+3, CHK+4
RASSN Q!, GETRPT*, WRT+3
>> RASTATFG HDRHDR+1, WRT+4, WRT+5
RASTATUS DPDRNV+3, DPDRNV+4, DPDRNV+5!, ONERPT+3*, ONERPT+4*, ONERPT+6, ONERPT+7!, TALLY+8*, TALLY+10, TALLY+11
TALLY+12, TALLY+13, TALLY+19!
>> RATOT WRT+7, PV+5*, PV+6, DPDRNV+3*, DPDRNV+4, SELRPT+7, SELRPT+8, STAT+2*, STAT+3
RATOTAL SELRPT+15!, TALLY+1!
RATOTAL( TALLY+2*
RATOTAL(1 SELRPT+3, TALLY+13*
RATOTAL(2 SELRPT+4, TALLY+12*
RATOTAL(3 SELRPT+5, TALLY+10*
RATOTAL(4 SELRPT+6, TALLY+11*
RATOTAL(7 SELRPT+9, TALLY+17*
U WRT+4, WRT+5, WRT+7, PV+4, DPDRNV+3, ONERPT+3, ONERPT+5, TALLY+8, TALLY+9, TALLY+15
TALLY+16
>> X ASK*, ASK+1, PARSEPV+3*, PV+4
>> Y GETRPTSELRPT+14*, ONERPT+10, TALLY+14*, TALLY+15*, TALLY+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All