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

Package: Radiology Nuclear Medicine

Routine: RASTEXT


Information

RASTEXT ;HISC/CAH,FPT,GJC AISC/TMP,TAC,RMO-Called by Status Tracking display,edit. Allow selection/edit of case if called from edit option ;18 Dec 2017 12:39 PM

Source Information

Source file <RASTEXT.m>

Entry Points

Name Comments DBIA/ICR reference
EN1
START
GETCN
EXT ;p137/KLM - updated for printset SSAN display - use RACNI.
SCRN
WRT
HD
Q ; Kill and quit
LMAX() ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"Your access to Imaging Locations is nonexistent."
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: !?5,"Contact your ADPAC for further assistance."
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: !!?5,"Current Division: ",$P(^DIC(4,+RAMDIV,0),U,1)
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: !?5,"Current Imaging Type: ",RAIMGTY,!
  • Line Location: EN1+14
Function Call: WRITE
  • Prompt: *7,!,"No incomplete statuses on file"
  • Line Location: EN1+42
Function Call: WRITE
  • Prompt: @IOF,!?1,RAGENTXT,?39,RADIVHD
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !?1,"Date : ",$E(DT,4,5),"/",$E(DT,6,7),"/",$E(DT,2,3)," ",RATIME,?39,"Status : ",RASTOUT
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !?1,"Locations: "
  • Line Location: HD+8
Info |  Source |  Entry Points |  Interaction Calls