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

Package: Clinical Information Resource Network

Routine: RGVCCMR1


Information

RGVCCMR1 ;GAI/TMG-CMOR ACTIVITY SCORE GENERATOR (PART 1) ;01/15/98

Source Information

Source file <RGVCCMR1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; this routine contains entry points to start/restart the batch cmor
; score initialization, flag a running
; initialization to stop, calculate and file an activity score for an
; individual patient, and display the status of the cmor initialization
START ; entry point to start or restart the cmor activity score initialization
STOP ; entry point to flag a running cmor score initialization to stop
INDIV ; entry point to allow a cmor score for an individual patient to be
; calculated and filed
DISPLAY ; displays the status of the background cmor score initialization
CHKSTAT
STATUS
INT ;Set status to INTERRUPTED for abnormally stopped jobs
TASK
QUIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"CMOR Patient Activity Score queued task #",ZTSK,!,"is waiting to run. Do not start another job at this time."
  • Line Location: START+14
Function Call: WRITE
  • Prompt: !!,"CMOR Patient Activity Score queued task #",ZTSK,!,"is currently running. Do not start another job at this time."
  • Line Location: START+15
Function Call: WRITE
  • Prompt: !!,"CMOR Patient Activity Score queued task #",ZTSK,!,"was interrupted abnormally, possibly from a system error."
  • Line Location: START+16
Function Call: WRITE
  • Prompt: $S(STATUS="SM":"STOPPED MANUALLY",1:"INTERRUPTED ABNORMALLY.")
  • Line Location: START+29
Function Call: WRITE
  • Prompt: " on ",STOPDT,"."
  • Line Location: START+29
Function Call: WRITE
  • Prompt: !,"The CMOR activity score generation is NOT running."
  • Line Location: STOP+3
Function Call: WRITE
  • Prompt: !,"This option will stop the CMOR patient activity score generation"
  • Line Location: STOP+4
Function Call: WRITE
  • Prompt: !,"after it has completed calculating and filing the score for the current"
  • Line Location: STOP+5
Function Call: WRITE
  • Prompt: !,"patient."
  • Line Location: STOP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+8
Function Call: WRITE
  • Prompt: !!,"This patient has an existing CMOR score of ",+CURSCORE," calculated on ",SCOREDT,".",!
  • Line Location: INDIV+10
Function Call: WRITE
  • Prompt: !!,"No Patient Activity in the Past Three Years - No Score Filed!"
  • Line Location: INDIV+14
Function Call: WRITE
  • Prompt: !,"The CMOR Activity Score Generator",!
  • Line Location: DISPLAY+1
Function Call: WRITE
  • Prompt: !,"..one moment please...",!
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !,"There are ",$P(^DPT(0),U,4)," records in your PATIENT file."
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: !,"The last record number is ",$P(^DPT(0),U,3),"."
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: !,"The CMOR Calculation has NEVER been run on your system."
  • Line Location: DISPLAY+12
Function Call: WRITE
  • Prompt: !,"Last Patient Processed: ",PTNAM," SSN: ",SSN," [RECORD# ",RGDFN,"]"
  • Line Location: STATUS+8
Function Call: WRITE
  • Prompt: !!,"The CMOR score initialization last started on ",OSTARTED,"."
  • Line Location: STATUS+9
Function Call: WRITE
  • Prompt: !,"Job was restarted on ",ORESTART,"."
  • Line Location: STATUS+10
Function Call: WRITE
  • Prompt: !,ODFNCT," patient records have been processed."
  • Line Location: STATUS+11
Function Call: WRITE
  • Prompt: !,"Status: ",STATUS
  • Line Location: STATUS+12
Function Call: WRITE
  • Prompt: " on ",OSTOPPED,"."
  • Line Location: STATUS+12
Function Call: WRITE
  • Prompt: !,"CMOR Score Count: ",CNT
  • Line Location: STATUS+13
Function Call: WRITE
  • Prompt: " Task#, ",ZTSK," queued"
  • Line Location: TASK+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call