Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZISC  (,STAT)^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 2 ^DIC  ^DIR  
Clinical Information Resource Network 1 CALCI^RGVCCMR2  
Master Patient Index VistA 1 $$MPINODE^MPIFAPI  

Entry Points

Name Comments DBIA/ICR reference
STATUS
QUIT
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
INT ;Set status to INTERRUPTED for abnormally stopped jobs
CHKSTAT
STOP ; entry point to flag a running cmor score initialization to stop
START ; entry point to start or restart the cmor activity score initialization
TASK
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

External References

Name Field # of Occurrence
^%ZISC TASK+5
^%ZTLOAD TASK+3
STAT^%ZTLOAD START+12, STATUS+4
^DIC INDIV+4
^DIR START+22, START+23, START+33, START+36, START+39, START+40, STOP+7, STOP+8, INDIV+11
$$MPINODE^MPIFAPI INDIV+6
CALCI^RGVCCMR2 INDIV+13
$$FMTE^XLFDT START+19, START+27, INDIV+9, CHKSTAT+5, CHKSTAT+7, CHKSTAT+9

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
Routine Call
  • DIC
  • Line Location:
    • INDIV+4
Routine Call
  • DIR
  • Line Location:
    • START+22
    • START+23
    • START+33
    • START+36
    • START+39
    • START+40
    • STOP+7
    • STOP+8
    • INDIV+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] START+31, CHKSTAT+2
^DPT("ACMORS" DISPLAY+5, DISPLAY+6
^DPT(0 DISPLAY+8, DISPLAY+9
^RGSITE(991.8 - [#991.8] START+3, STOP+2, STOP+11*, DISPLAY+10, DISPLAY+11, CHKSTAT, INT+1*, TASK+4*
^XTMP("RGVCCMR" CHKSTAT+8, CHKSTAT+11

Label References

Name Line Occurrences
CHKSTAT DISPLAY+10
INT START+11, START+13, START+16, STATUS+5
QUIT START+4, START+8, START+41, STOP+3, STOP+15, INDIV+16, DISPLAY+13, STATUS+15
TASK START+6, START+24, START+36, START+40

Naked Globals

Name Field # of Occurrence
^(0 START+31, CHKSTAT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT QUIT+1!
APSTDT QUIT+4!
CNT DISPLAY+4*, DISPLAY+7*, STATUS+13, QUIT+2!
CURSCORE INDIV+10*, QUIT+2!
DA QUIT+4!
DIC INDIV+4*!, QUIT!
DIC(0 INDIV+4*
DIE QUIT+4!
DIR STOP+7!, QUIT!
DIR("A" START+22*, START+23*, START+33*, START+35*, START+38*, START+40*, STOP+7*, STOP+8*, INDIV+11*
DIR("B" START+22*, START+23*, START+33*, START+36*, START+39*, START+40*, STOP+7*, STOP+8*, INDIV+11*
DIR(0 START+22*, START+23*, START+33*, START+35*, START+38*, START+40*, STOP+7*, STOP+8*, INDIV+11*
DR QUIT+4!
FILE INDIV+5*, INDIV+8*, INDIV+11*, INDIV+12, QUIT!
FILEFLG INDIV+13*, INDIV+14, QUIT+2!
LASTDFN START+31*, START+32, START+36, QUIT!
LASTPT START+31*, START+32, QUIT!
LASTSSN START+31*, START+32, QUIT!
LRCODE QUIT+4!
LRSCORE QUIT+4!
MNODE INDIV+2~, INDIV+6*, INDIV+7, INDIV+9, INDIV+10
NODE START+3*, START+4, START+7, START+10, START+18, START+26, START+30, START+31, STOP+2*, STOP+3
, CHKSTAT*, CHKSTAT+2, CHKSTAT+4, CHKSTAT+5, CHKSTAT+6, CHKSTAT+7, STATUS, STATUS+3, QUIT+2!
NXPC QUIT+4!
NXPTF QUIT+4!
NXRX QUIT+4!
NXSCE QUIT+4!
NXXR QUIT+4!
ODFNCT CHKSTAT+10*, CHKSTAT+11*, STATUS+11, QUIT!
ORESTART CHKSTAT+8*, CHKSTAT+9*, STATUS+10, QUIT!
OSTARTED CHKSTAT+4*, CHKSTAT+5*, STATUS+9, QUIT!
OSTOPPED CHKSTAT+6*, CHKSTAT+7*, STATUS+12, QUIT+1!
PCCODE QUIT+4!
PSOVER QUIT+4!
PTF0 QUIT+4!
PTNAM INDIV+5*, INDIV+15, CHKSTAT+1*, CHKSTAT+3*, STATUS+8, QUIT+1!
RGDFN START+6*, START+24*, START+36*, START+40*, INDIV+4*, INDIV+6, DISPLAY+6*, CHKSTAT+2*, STATUS+8, QUIT!
, QUIT+2!
RGY START+1~, START+22*, START+23*, START+24, START+33*, START+34, START+37, STOP+7*, STOP+8*, STOP+10
RUN START+8, START+9*, START+14*, START+15*, QUIT+2!
RUNTYPE START+6*, START+24*, START+36*, START+40*, QUIT+1!
RXDT QUIT+4!
SCORE INDIV+15, DISPLAY+4*, DISPLAY+5*, DISPLAY+6, QUIT+1!, QUIT+2!
SCOREDT INDIV+9*, INDIV+10, QUIT+2!
SSN INDIV+5*, INDIV+15, CHKSTAT+1*, CHKSTAT+3*, STATUS+8, QUIT+1!
ST STATUS*, STATUS+2, STATUS+5*, STATUS+6, STATUS+12, QUIT+1!
STATUS START+7*, START+8, START+17, START+25, START+29, STATUS+6*, STATUS+12, INT+2*, QUIT+1!
STDT QUIT+4!
STOPDT START+18*, START+19*, START+20, START+26*, START+27*, START+29, QUIT+2!
U START+2*, START+4, START+7, START+10, START+18, START+26, START+30, START+31, STOP+1*, STOP+3
, STOP+11, INDIV+3*, INDIV+7, INDIV+9, INDIV+10, DISPLAY+8, DISPLAY+9, DISPLAY+10, DISPLAY+11, CHKSTAT+3
, CHKSTAT+4, CHKSTAT+5, CHKSTAT+6, CHKSTAT+7, STATUS, STATUS+3, TASK+4
X QUIT+1!
XRCODE QUIT+4!
XRSTDT QUIT+4!
Y START+22, START+23, START+33, START+36, START+39, START+40, STOP+7, STOP+8, INDIV+4, INDIV+11
, QUIT+1!
Y(0 INDIV+5
YR QUIT+4!
ZTDESC TASK*, QUIT+1!
ZTIO TASK*, QUIT+1!
ZTRTN TASK*, QUIT+1!
ZTSAVE QUIT+1!
ZTSAVE("RGDFN" TASK+1*
ZTSAVE("RUNTYPE" TASK+1*
ZTSK START+10*, START+11, START+14, START+15, START+16, STATUS+3*, TASK+4, QUIT+1!
ZTSK(1 START+13, START+14, START+15, START+16, STATUS+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All