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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: YTSCOREV

Package: Mental Health

Routine: YTSCOREV


Information

YTSCOREV ;SLC/KCM - Update scores with revision change ; 9/15/2015

Source Information

Source file <YTSCOREV.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 6 HOME^%ZIS  $$EC^%ZOSV  UNWIND^%ZTER  ^%ZTLOAD  ($$FMADD,$$HADD,$$HDIFF,$$HTE,$$NOW)^XLFDT  MES^XPDUTL  
Mental Health 2 (LOADANSW,SCOREINS,UPDSCORE)^YTSCORE  FMDEL^YTXCHGU  
VA FileMan 2 BROWSE^DDBR  ^DIR  
Toolkit 1 ($$GET,EN)^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Mental Health 7 YS123 RESCORING MONITOR  YS123PST  YS142FIX  YS142PST  YS218PST  YS233PST  YTXCHGT  

Entry Points

Name Comments DBIA/ICR reference
RESCORE ; background task to ensure all results recorded for administrations
; expects: YSRSREV (revision identifier) to be passed in
; examples: "0~1" for all instruments, "142~2" for one instrument
; quit if re-scoring has been completed
DIRECT ; enter here to run interactively without tasking
; expects: YSRSREV (revision identifier) to be passed in
QTASK(YSRSREV,RESUME) ; Create background task for rescoring administrations
; YSRSREV: revision ID (for example: 0~1, 142~2)
; RESUME: $H start time for task
SCOREONE(YS123ADM) ; score one adminstration
DIFFREV(IEN71,YS123ADM) ; return true if different revision
DELRSLTS(YS123ADM) ; delete the current results of an administration
ERRHND ; Handle errors & clear stack
; Grab the error code
MONLOOP ; monitor re-scoring loop
SHOWPROG ; show progress of re-scoring process
; loop through revId's and show progress
SHOWERRS ; browse the errors
GETCMD() ; Get the next command
SEC2HMS(SS) ; return "#h #m #s" from seconds
LSTREV ; list revised instruments

External References

Name Field # of Occurrence
HOME^%ZIS MONLOOP+1
$$EC^%ZOSV ERRHND+2
UNWIND^%ZTER ERRHND+4, ERRHND+17
^%ZTLOAD QTASK+9
BROWSE^DDBR SHOWERRS+7
^DIR GETCMD+4
$$FMADD^XLFDT DIRECT+17, DIRECT+23, QTASK+11
$$HADD^XLFDT RESCORE+7
$$HDIFF^XLFDT DIRECT+30, DIRECT+37
$$HTE^XLFDT SHOWPROG+12, SHOWERRS+5
$$NOW^XLFDT DIRECT+23, DIRECT+38
$$GET^XPAR RESCORE+4, DIRECT+19, SHOWPROG+8
EN^XPAR DIRECT+28
MES^XPDUTL QTASK+10
LOADANSW^YTSCORE SCOREONE+11
SCOREINS^YTSCORE SCOREONE+12
UPDSCORE^YTSCORE SCOREONE+13
FMDEL^YTXCHGU DELRSLTS+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MONLOOP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOWPROG+22
Function Call: WRITE
  • Prompt: !,"Progress -- Rescore "_TSTNAM_" to revision "_REVNUM
  • Line Location: SHOWPROG+23
Function Call: WRITE
  • Prompt: !," Current Status: "_STS
  • Line Location: SHOWPROG+24
Function Call: WRITE
  • Prompt: !," Administrations: "_+EVAL_" evaluated of "_TOTL
  • Line Location: SHOWPROG+25
Function Call: WRITE
  • Prompt: !," Total Re-scored: "_SCRD
  • Line Location: SHOWPROG+26
Function Call: WRITE
  • Prompt: !," Elapsed Time: "_TIME_" (in "_SESS_" sessions)"
  • Line Location: SHOWPROG+27
Function Call: WRITE
  • Prompt: !!,"Errors Encountered: "_$G(^XTMP("YTS-RESCORE","ERRORS"),0),!
  • Line Location: SHOWPROG+29
Function Call: WRITE
  • Prompt: !,ADM,?10,$P(^YTT(601.71,TEST,0),U)
  • Line Location: LSTREV+6
Function Call: WRITE
  • Prompt: ?22,$P(^YTT(601.92,IEN,0),U,3)
  • Line Location: LSTREV+7
Function Call: WRITE
  • Prompt: ?47,"was ",$P(^YTT(601.92,IEN,1,1,0),U,3,6)
  • Line Location: LSTREV+8
Function Call: WRITE
  • Prompt: ?62,"now ",$P(^YTT(601.92,IEN,0),U,4,7)
  • Line Location: LSTREV+9
Function Call: WRITE
  • Prompt: !!,"Admin Total: ",CNT
  • Line Location: LSTREV+10
Routine Call
  • %ZIS
  • Line Location:
    • MONLOOP+1
Routine Call
  • DIR
  • Line Location:
    • GETCMD+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("YTS123BR" SHOWERRS+2!, SHOWERRS+6*, SHOWERRS+7, SHOWERRS+8!
^TMP($J SCOREONE+2!, SCOREONE+15!
^XTMP("YTS-RESCORE" RESCORE+5*, DIRECT+16*, DIRECT+17*, DIRECT+22, DIRECT+24, DIRECT+30*, DIRECT+31, DIRECT+32*, DIRECT+37*, DIRECT+39
, DIRECT+41, DIRECT+42*, DIRECT+43*, DIRECT+48, DIRECT+49*, DIRECT+50*, DIRECT+52, DIRECT+53*, QTASK+11*, QTASK+12*
, ERRHND+13*, ERRHND+14, ERRHND+15*, SHOWPROG+3, SHOWPROG+10, SHOWPROG+11, SHOWPROG+15, SHOWPROG+16, SHOWPROG+17, SHOWPROG+18
, SHOWPROG+20, SHOWPROG+29, SHOWERRS+3, SHOWERRS+4
^YTT(601.71 - [#601.71] SCOREONE+7, SCOREONE+9, DIFFREV+2, SHOWPROG+4, LSTREV+6
^YTT(601.84 - [#601.84] DIRECT+25, DIRECT+43, DIRECT+45, SCOREONE+5, SCOREONE+9, DIFFREV+3, SHOWPROG+14, LSTREV+5
^YTT(601.92 - [#601.92] DELRSLTS+3, DELRSLTS+5, LSTREV+2, LSTREV+3, LSTREV+4, LSTREV+7, LSTREV+8, LSTREV+9

Label References

Name Line Occurrences
$$DIFFREV SCOREONE+10
$$GETCMD MONLOOP+6
$$SCOREONE DIRECT+47
$$SEC2HMS SHOWPROG+19
DELRSLTS SCOREONE+9
QTASK RESCORE+7
SHOWERRS MONLOOP+5
SHOWPROG MONLOOP+4

Naked Globals

Name Field # of Occurrence
^("ELAPSED" DIRECT+31, DIRECT+41, SHOWPROG+18
^("RESCORED" DIRECT+48*
^("SESSIONS" DIRECT+52*
^("TOTTIME" DIRECT+31*, DIRECT+41*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTION MONLOOP+2~, MONLOOP+3*, MONLOOP+4, MONLOOP+5, MONLOOP+6*
ADM SHOWERRS+1~, SHOWERRS+5*, SHOWERRS+6, LSTREV+1~, LSTREV+4*, LSTREV+5, LSTREV+6
CNT LSTREV+1~, LSTREV+2*, LSTREV+4*, LSTREV+10
DIR GETCMD+1~
DIR("B" GETCMD+3*
DIR(0 GETCMD+2*
DIROUT GETCMD+1~, GETCMD+5
DIRUT GETCMD+1~, GETCMD+5
DT DIRECT+17, QTASK+11
DTOUT GETCMD+1~
DUOUT GETCMD+1~
ERR SHOWERRS+1~, SHOWERRS+5*, SHOWERRS+6
ERRNUM ERRHND+14~*, ERRHND+15
ERROR ERRHND+2~*, ERRHND+4, ERRHND+15
EVAL SHOWPROG+2~, SHOWPROG+15*, SHOWPROG+25
HH SEC2HMS+1~, SEC2HMS+2*, SEC2HMS+4
I SHOWERRS+1~, SHOWERRS+3*, SHOWERRS+4, SHOWERRS+6
IEN DELRSLTS+1~, DELRSLTS+3*, DELRSLTS+4*, DELRSLTS+5, DELRSLTS+6, LSTREV+1~, LSTREV+2*, LSTREV+3, LSTREV+4, LSTREV+7
, LSTREV+8, LSTREV+9
IEN71 SCOREONE+3~, SCOREONE+5*, SCOREONE+7, SCOREONE+9, SCOREONE+10, SCOREONE+12, DIFFREV~, DIFFREV+2
MM SEC2HMS+1~, SEC2HMS+3*, SEC2HMS+4
RESUME QTASK~, QTASK+7, QTASK+12
REVID SHOWPROG+2~, SHOWPROG+3*, SHOWPROG+4, SHOWPROG+5, SHOWPROG+8, SHOWPROG+10, SHOWPROG+11, SHOWPROG+15, SHOWPROG+16, SHOWPROG+17
, SHOWPROG+18, SHOWPROG+20
REVNUM SHOWPROG+2~, SHOWPROG+5*, SHOWPROG+23
REVSCR71 DIFFREV+1~, DIFFREV+2*, DIFFREV+4
REVSCR84 DIFFREV+1~, DIFFREV+3*, DIFFREV+4
RLST DELRSLTS+1~
RLST( DELRSLTS+3*, DELRSLTS+4
SCRD SHOWPROG+2~, SHOWPROG+16*, SHOWPROG+26
SESS SHOWPROG+2~, SHOWPROG+17*, SHOWPROG+20*, SHOWPROG+27
SS SEC2HMS~, SEC2HMS+2*, SEC2HMS+3*, SEC2HMS+4
STS SHOWPROG+2~, SHOWPROG+7*, SHOWPROG+8*, SHOWPROG+9, SHOWPROG+10*, SHOWPROG+12*, SHOWPROG+24
TEST LSTREV+1~, LSTREV+5*, LSTREV+6
TIME SHOWPROG+2~, SHOWPROG+18*, SHOWPROG+19*, SHOWPROG+27
TM SHOWERRS+1~, SHOWERRS+5*, SHOWERRS+6
TOTL SHOWPROG+2~, SHOWPROG+14*, SHOWPROG+25
TSTNAM SHOWPROG+2~, SHOWPROG+4*, SHOWPROG+23
U DIRECT+17, DIRECT+45, QTASK+11, QTASK+12, SCOREONE+5, SCOREONE+7, SCOREONE+9, DIFFREV+2, DIFFREV+3, DELRSLTS+5
, ERRHND+15, SHOWPROG+4, SHOWPROG+12, SHOWPROG+14, SHOWERRS+5, LSTREV+4, LSTREV+5, LSTREV+6, LSTREV+7, LSTREV+8
, LSTREV+9
X SHOWPROG+11~*, SHOWPROG+12, SHOWERRS+1~, SHOWERRS+4*, SHOWERRS+5, GETCMD+1~
Y GETCMD+1~, GETCMD+5*, GETCMD+6
YS SCOREONE+3~, SCOREONE+11, SCOREONE+13
YS("AD" SCOREONE+4*
YS123ADM DIRECT+18~, DIRECT+24*, DIRECT+25*, DIRECT+27, DIRECT+43, DIRECT+45, DIRECT+47, DIRECT+49, SCOREONE~, SCOREONE+4
, SCOREONE+5, SCOREONE+9, SCOREONE+10, DIFFREV~, DIFFREV+3, DELRSLTS~, DELRSLTS+3, DELRSLTS+5, ERRHND+15
YS123CNT DIRECT+18~, DIRECT+22*, DIRECT+34*, DIRECT+35, DIRECT+50
YS123HRS DIRECT+18~, DIRECT+19*, DIRECT+20*, DIRECT+23
YS123LIM DIRECT+18~, DIRECT+23*, DIRECT+38
YS123NEW DIRECT+18~, DIRECT+47*, DIRECT+48, SCOREONE+3~, SCOREONE+4*, SCOREONE+14*, SCOREONE+16
YS123OUT DIRECT+18~, DIRECT+21*, DIRECT+25, DIRECT+29*, DIRECT+35, DIRECT+38*, DIRECT+39*, DIRECT+40
YS123TS DIRECT+18~, DIRECT+21*, DIRECT+30, DIRECT+37
YSAD SCOREONE+3~
YSDATA SCOREONE+3~, SCOREONE+11, SCOREONE+12, SCOREONE+13
YSRSREV RESCORE+4, RESCORE+5, RESCORE+7, DIRECT+16, DIRECT+22, DIRECT+24, DIRECT+28, DIRECT+30, DIRECT+31, DIRECT+32
, DIRECT+37, DIRECT+41, DIRECT+42, DIRECT+43, DIRECT+45, DIRECT+48, DIRECT+49, DIRECT+50, DIRECT+52, DIRECT+53
, QTASK~, QTASK+12
ZTDESC QTASK+3~, QTASK+6*
ZTDTH QTASK+3~, QTASK+7*
ZTIO QTASK+3~, QTASK+4*
>> ZTQUEUED DIRECT+51
>> ZTREQ DIRECT+51*
ZTRTN QTASK+3~, QTASK+5*
ZTSAVE QTASK+3~
ZTSAVE("YSRSREV" QTASK+8*
ZTSK QTASK+3~, QTASK+10, QTASK+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All