Routine: RGVCCMR1

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

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

Customize PDF page

Package: Clinical Information Resource Network

Routine: RGVCCMR1

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: