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

Package: Radiology Nuclear Medicine

Routine: RARTR1


Information

RARTR1 ;HISC/FPT,GJC-Queue/print Radiology Reports (cont.) ; Sep 11, 2023@14:03:48

Source Information

Source file <RARTR1.m>

Entry Points

Name Comments DBIA/ICR reference
PRTDX ; print dx codes on report
WARNING ; this printed report should not be used for charting
SECRES ; Print from the secondary resident multiple
SECSTF ; Print from the secondary staff multiple

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?RATAB,"Primary Diagnostic Code: ",!?RATAB+4
  • Line Location: PRTDX+5
Function Call: WRITE
  • Prompt: $S($D(^RA(78.3,+RADXCODE,0)):$P(^(0),U,1),1:"")
  • Line Location: PRTDX+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTDX+21
Function Call: WRITE
  • Prompt: !!?RATAB,"Secondary Diagnostic Codes: "
  • Line Location: PRTDX+23
Function Call: WRITE
  • Prompt: !?RATAB+4,$P(^RA(78.3,RADXCODE,0),U,1)
  • Line Location: PRTDX+28
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTDX+33
Function Call: WRITE
  • Prompt: !?RAPOSITN-1,$$REPEAT^XLFSTR("*",$L(RARPTSTT)+2)
  • Line Location: WARNING+6
Function Call: WRITE
  • Prompt: !?(80-$L(RARPTSTT)\2)-1,"*"_RARPTSTT_"*",!?RAPOSITN-1,$$REPEAT^XLFSTR("*",$L(RARPTSTT)+2)
  • Line Location: WARNING+8

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