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

Package: Record Tracking

Routine: RTSM3


Information

RTSM3 ;MJK,PKE/TROY ISC;Site Manager's Menu(cont); ; 5/18/87 10:20 AM ;

Source Information

Source file <RTSM3.m>

Entry Points

Name Comments DBIA/ICR reference
9 ;;Initialize Records
NUM
Q9
10 ;;Patient Record Labels
ASK
ASK1
Q10
LOAD
PAT ;Patient Label Creation
PAT0
PAT1
LB
LBL
11 ;;Inpatient Labels
IN ;Inpatient Label
DFN
PRT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"This option will use the patients in the",$S(RADPT:" RADIOLOGY",1:"")," PATIENT file"
  • Line Location: 9+2
Function Call: WRITE
  • Prompt: !?5,"as a base to create the necessary ",$S(RADPT:"film jacket",1:"folder")," entries in the"
  • Line Location: 9+3
Function Call: WRITE
  • Prompt: !?5,"RECORDS file. <This option does not print barcode labels.>"
  • Line Location: 9+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: NUM+0
Function Call: WRITE
  • Prompt: !!,*7,"The ^UTILITY(""RTDPTSORT"") global does NOT exist."
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !!,*7,"The ^UTILITY(""RTDPTSORT"") global is currently being compiled."
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: "needs to be compiled"
  • Line Location: ASK+12
Function Call: WRITE
  • Prompt: "is currently being compiled"
  • Line Location: ASK+14
Function Call: WRITE
  • Prompt: "needs additional compiling"
  • Line Location: ASK+15
Function Call: WRITE
  • Prompt: !!,"Printing Labels..."
  • Line Location: IN+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^%ZIS(1 - [#3.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call