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: RARTUVR2

Package: Radiology Nuclear Medicine

Routine: RARTUVR2


Information

RARTUVR2 ;HISC/FPT,SWM -Unverified Reports ;11/26/97 07:57

Source Information

Source file <RARTUVR2.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ; print entries
HDR ; header
NEGRPT ; negative reports
PRTB
PRTD
SETX
APPEND
HOURAGE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"* ",$P(RASTRING,U),": ",^TMP($J,RADIVNME,RAITNAME,$P(RASTRING,U,2))," *"
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?$S(IOM<81:20,1:IOM-90),">>>>> Unverified Reports ("_$S(RABD="B":"brief",1:"detailed")_") <<<<<"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: ?$S(IOM<81:70,1:IOM-10),"Page: ",RAPAGE
  • Line Location: HDR+1
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)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"Imaging Type: ",RAITNAME,?$S(IOM<81:62,1:IOM-18),$$FMTE^XLFDT(ENDDATE),!,"Run Date: ",RARUNDAT,?$S(IOM<81:45,1:IOM-35),"Total Unverified Reports: ",^TMP($J,"RAUVR",RADIVNME,RAITNAME),!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!?$S(IOM<81:26,1:IOM-84),"***************************"
  • Line Location: NEGRPT+1
Function Call: WRITE
  • Prompt: !?$S(IOM<81:26,1:IOM-84),"* No Unverified Reports *"
  • Line Location: NEGRPT+2
Function Call: WRITE
  • Prompt: !?$S(IOM<81:26,1:IOM-84),"***************************",!
  • Line Location: NEGRPT+3
Function Call: WRITE
  • Prompt: !,$J(^TMP($J,RADIVNME,RAITNAME,RARS,RAIPNAME),3)," "
  • Line Location: PRTB+5
Function Call: WRITE
  • Prompt: $E(RAIPNAME,1,20)
  • Line Location: PRTB+6
Function Call: WRITE
  • Prompt: ?29,$S($G(^TMP($J,RADIVNME,RAITNAME,RARS,RAIPNAME,"H",1)):$J(^(1),$L(RACUT(3))),1:$J(0,$L(RACUT(3)))),?39,$S($G(^(2)):$J(^(2),$L(RACUT(3))),1:$J(0,$L(RACUT(3))))
  • Line Location: PRTB+7
Function Call: WRITE
  • Prompt: ?49,$S($G(^(3)):$J(^(3),$L(RACUT(3))),1:$J(0,$L(RACUT(3)))),?59,$S($G(^(4)):$J(^(4),$L(RACUT(3))+2),1:$J(0,$L(RACUT(3))+2))
  • Line Location: PRTB+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTD+16
Function Call: WRITE
  • Prompt: !,"Transcrip: ",X,?27,"ID: ",$P(^TMP($J,"RA0",RA3),U),?47
  • Line Location: PRTD+19
Function Call: WRITE
  • Prompt: $S(X="D":"DRAFT",X="PD":"PROB/DRAFT",X="R":"RELEASE",X="V":"VERIFIED",1:"")
  • Line Location: PRTD+20
Function Call: WRITE
  • Prompt: ?58,"Pre-ver: ",$P(^(RA3),U,3)
  • Line Location: PRTD+21
Function Call: WRITE
  • Prompt: !,"Exam Date: ",$P(^TMP($J,"RA0",RA3),U,4),?31,"Order Date Desired: ",$P(^(RA3),U,5)
  • Line Location: PRTD+22
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<81
  • Line Location: PRTD+23
Function Call: WRITE
  • Prompt: ?$S(IOM<81:0,1:IOM-66),"Proc: ",$E($P($G(^RAMIS(71,$P(^(RA3),U,6),0)),U),1,60)
  • Line Location: PRTD+23
Function Call: WRITE
  • Prompt: !,"Hours (age of report)",?29,$J(RACUT(1),$L(RACUT(3))),?39,$J(RACUT(2),$L(RACUT(3))),?49,$J(RACUT(3),$L(RACUT(3))),?59,">",$J(RACUT(3),$L(RACUT(3))+1)
  • Line Location: HOURAGE+0
Function Call: WRITE
  • Prompt: !?29,$E(RADASH,1,$L(RACUT(3))),?39,$E(RADASH,1,$L(RACUT(3))),?49,$E(RADASH,1,$L(RACUT(3))),?59,$E(RADASH,1,$L(RACUT(3))+2)
  • Line Location: HOURAGE+1
Info |  Source |  Entry Points |  Interaction Calls