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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RARTUVR1

Package: Radiology Nuclear Medicine

Routine: RARTUVR1


Information

RARTUVR1 ;HISC/FPT,SWM AISC/RMO-Unverified Reports ;8/19/97 11:16

Source Information

Source file <RARTUVR1.m>

Entry Points

Name Comments DBIA/ICR reference
BTG ; build tmp global
INC(RATYP) ; Increment count for Resident, Staff or Unknown
PHYS ;print other staff and residents
PHYS1
PHYS11
PHYS2
PHYS20
PHYS21
PHYS29
DIVSUM ;division summary -- skip if only one imaging type chosen for this div

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,RASTR,"; "
  • Line Location: PHYS11+2
Function Call: WRITE
  • Prompt: !,RASTR,"; "
  • Line Location: PHYS2+2
Function Call: WRITE
  • Prompt: !,RASTR
  • Line Location: PHYS20+0
Function Call: WRITE
  • Prompt: !,RASTR,"; "
  • Line Location: PHYS21+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: DIVSUM+4
Function Call: WRITE
  • Prompt: !?$S(IOM<81:20,1:IOM-90),">>>>> Unverified Reports (",$S(RABD="B":"brief",1:"detailed"),") <<<<<"
  • Line Location: DIVSUM+4
Function Call: WRITE
  • Prompt: ?$S(IOM<81:70,1:IOM-10),"Page: ",RAPAGE
  • Line Location: DIVSUM+4
Function Call: WRITE
  • Prompt: !,"Division: ",?10,RADIVNME,?$S(IOM<81:43,1:IOM-37),"Report Date Range:",?$S(IOM<81:62,1:IOM-18),$$FMTE^XLFDT(BEGDATE),!?$S(IOM<81:62,1:IOM-18),$$FMTE^XLFDT(ENDDATE)
  • Line Location: DIVSUM+5
Function Call: WRITE
  • Prompt: !,"Imaging Type(s): "
  • Line Location: DIVSUM+6
Function Call: WRITE
  • Prompt: !?17
  • Condition for execution: ($L(RA1)+3+$X)>IOM
  • Line Location: DIVSUM+7
Function Call: WRITE
  • Prompt: RA1," "
  • Line Location: DIVSUM+7
Function Call: WRITE
  • Prompt: !!,"Run Date: ",RARUNDAT
  • Line Location: DIVSUM+8
Function Call: WRITE
  • Prompt: !!!?26,"Division Summary",!?26,$E(RADASH,1,16)
  • Line Location: DIVSUM+9
Function Call: WRITE
  • Prompt: !!,"Total Unverified Reports: "
  • Line Location: DIVSUM+15
Function Call: WRITE
  • Prompt: ?29,$S($G(RA2ND(1)):$J(RA2ND(1),$L(RACUT(3))),1:$J(0,$L(RACUT(3)))),?39,$S($G(RA2ND(2)):$J(RA2ND(2),$L(RACUT(3))),1:$J(0,$L(RACUT(3))))
  • Line Location: DIVSUM+16
Function Call: WRITE
  • Prompt: ?49,$S($G(RA2ND(3)):$J(RA2ND(3),$L(RACUT(3))),1:$J(0,$L(RACUT(3)))),?59,$S($G(RA2ND(4)):$J(RA2ND(4),$L(RACUT(3))+2),1:$J(0,$L(RACUT(3))+2))
  • Line Location: DIVSUM+17
Function Call: WRITE
  • Prompt: !!,"Division Total: ",RA1,!!
  • Line Location: DIVSUM+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call