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

Package: Record Tracking

Routine: RTSM4


Information

RTSM4 ;MJK/TROY ISC;Site Manager's Menu(cont); ; 5/15/87 9:01 AM ;

Source Information

Source file <RTSM4.m>

Entry Points

Name Comments DBIA/ICR reference
CHK ;H 3 K I S:$D(^UTILITY("RTDPTSORT","START")) I=$P(^("START"),"^",2) G CHKQ:'$D(I)
CHKQ
XMES ;W !!?3,"Outpatient labels cannot be created until ^UTILITY(""RTDPTSORT"")",!?3,"is totally compiled." Q
MES
16 ;;Initialize Request By Clinics
START
Q16
APP
RTQ
REQ
ONETIM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Global compilation seems to be progressing in an ordering fashion.",!?40,"[Current DFN being processed: ",I,"]"
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: " cannot be created until the RECORD TRACKING SORT GLOBAL"
  • Line Location: MES+1
Function Call: WRITE
  • Prompt: !?2,"is totally compiled."
  • Line Location: MES+2
Function Call: WRITE
  • Prompt: @IOF,!,"Clinic Record Requests Initialization Program",!!,"Start Time: ",Y
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !!,"Number of requests made or reaffirmed:"
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !?3,Y," = ",$E(RTSCOUNT(RTMASS,Z)_" ",1,6)_$S($D(RTSCOUNT(RTRAD,Z)):" X-ray Requests = "_RTSCOUNT(RTRAD,Z),1:"")
  • Line Location: START+6
Function Call: WRITE
  • Prompt: " 0"
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !!,"Finished Time: ",Y
  • Line Location: START+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: RTQ+0
Function Call: WRITE
  • Prompt: DFN," "
  • Line Location: ONETIM+6
Info |  Source |  Entry Points |  Interaction Calls