Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls