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

Package: Radiology Nuclear Medicine

Routine: RARTUVR3


Information

RARTUVR3 ;HISC/GJC-Unverified Reports ;8/19/97 11:28

Source Information

Source file <RARTUVR3.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Entry point for unverified reports option when sort is on
; Exam Date or Pri. Inter. Staff
; Data Storage:
; RABD="E":
; ^TMP($J,"RAUVR",Division,Xam Date/Time,Patient,Case #)=print set? (1:yes, 0:no)_^_Pat ID_^_0 node of exam
; RABD="S":
; ^TMP($J,"RAUVR",Pri. Staff,Xam Date/Time,Patient,Case #)=print set? (1:yes, 0:no)_^_Pat ID_^_0 node of exam
KILL ; cleanup symbol table
HDR ; header code
GETDATA ; get to the data
PRTDATA ; print the data
ZERO ; set division totals to zero

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?(IOM-$L(RANODATA)\2),RANODATA
  • Line Location: EN1+56
Function Call: WRITE
  • Prompt: !!?(IOM-$L(RANODATA)\2),RANODATA
  • Line Location: EN1+62
Function Call: WRITE
  • Prompt: !?(IOM-$L(RAHD)\2),RAHD
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,$S(RABD="S":"Primary Interpreting Staff: ",1:"Division: "),RA1
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?94,$$FMTE^XLFDT(DT,"1P")_" Page: "_RAPAGE
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?93,"Exam",?102,"Report",!,"Patient",?21,"Patient ID",?34,"Exam Date",?44,"Case",?61,"Procedure",?93,"Status",?102,"Entered",?112,"Pri. Int'g Staff"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,?87,"Exam",?96,"Report",!,"Patient",?21,"Patient ID",?38,"Exam Date",?48,"Case",?55,"Procedure",?87,"Status",?96,"Entered",?106,"Pri. Int'g Staff"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,RADASH
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!?(IOM-$L(X)\2),X
  • Line Location: GETDATA+6
Function Call: WRITE
  • Prompt: !,$E(RAPAT,1,20),?21,$P(RANODE,"^",2),?34,$$FMTE^XLFDT(RAEXDT,"2P"),?44,RACNDSP,?61,RAPRC,?93,RAXSTAT,?102,RARPTENT,?112,$E(RAPIS,1,19)
  • Line Location: PRTDATA+10
Function Call: WRITE
  • Prompt: !,$E(RAPAT,1,20),?21,$P(RANODE,"^",2),?38,$$FMTE^XLFDT(RAEXDT,"2P"),?48,RACSE,?55,RAPRC,?87,RAXSTAT,?96,RARPTENT,?106,$E(RAPIS,1,25)
  • Line Location: PRTDATA+11

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