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

Package: Radiology Nuclear Medicine

Routine: RARTST2A


Information

RARTST2A ;HISC/CAH,FPT,GJC AISC/MJK,RMO-Reports Distribution ;11/24/97 12:12

Source Information

Source file <RARTST2A.m>

Entry Points

Name Comments DBIA/ICR reference
DIV ; Division selection
; save all Med Center Divisions (40.8) by pntr to file 4
IMAG ;imaging type selection
SORT
LOC
PRINT
DATE
RPTST(RARPT) ; Report's Print Status, called from 8^RARTST1.
; This code replaces the call to the compiled template routine.
; Input: RARPT -> ien of the Report in file 74

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Division Selection:",!,"-------------------"
  • Line Location: DIV+17
Function Call: WRITE
  • Prompt: !!,"Imaging Type Selection:",!,"-----------------------"
  • Line Location: IMAG+8
Function Call: WRITE
  • Prompt: !!,"Sort Sequence Selection:",!,"------------------------"
  • Line Location: SORT+0
Function Call: WRITE
  • Prompt: !!,"First Sort Selection:",!,"---------------------"
  • Line Location: LOC+1
Function Call: WRITE
  • Prompt: !!,"Print/Reprint Reports Selection:",!,"--------------------------------"
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !!,"Date Range Selection:",!,"---------------------"
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",IOM),!!
  • Line Location: RPTST+3
Function Call: WRITE
  • Prompt: "Report : ",$P(RA74(0),"^")
  • Line Location: RPTST+4
Function Call: WRITE
  • Prompt: ?30,"Patient: ",$E(Y,1,25)
  • Line Location: RPTST+6
Function Call: WRITE
  • Prompt: ?65,$$SSN^RAUTL(X)
  • Condition for execution: X
  • Line Location: RPTST+6
Function Call: WRITE
  • Prompt: !,"Procedure: ",$E(X,1,30)
  • Line Location: RPTST+9
Function Call: WRITE
  • Prompt: ?45,"Verified: ",$$FMTE^XLFDT($P(RA74(0),"^",7),"1P")
  • Line Location: RPTST+10
Function Call: WRITE
  • Prompt: !!?4,"Routing Queue",?24,"Date Printed",?44,"Printed By",?62,"Ward/Clinic"
  • Line Location: RPTST+11
Function Call: WRITE
  • Prompt: !?4,"-------------",?24,"------------",?44,"----------",?62,"-----------"
  • Line Location: RPTST+12
Function Call: WRITE
  • Prompt: !,$E(Y,1,20),?24,$E($$FMTE^XLFDT($P(X,"^",4),1),1,18)
  • Line Location: RPTST+16
Function Call: WRITE
  • Prompt: ?44,$E(Y,1,17),?62
  • Line Location: RPTST+18
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("=",IOM),!
  • Line Location: RPTST+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] Classic Fileman Calls
^DG(40.8 - [#40.8] LIST^DIC
^DIC(42 - [#42] GET1^DIQ
^SC - [#44] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call