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 |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: YTRPWRP

Package: Mental Health

Routine: YTRPWRP


Information

YTRPWRP ;DALOI/YH - Report Calls ;Nov 13, 2023@09:16:25

Source Information

Source file <YTRPWRP.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ($$DEL,$$FTG)^%ZISH  $$FMTE^XLFDT  
Registration 1 (DEM,PID)^VADPT  
VA FileMan 1 DT^DICRW  

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

Package Total Caller Graph
Mental Health 4 YS60POST  YTQAPI8  YTQAPI9  YTRP INSTRUMENT REPORT  

Entry Points

Name Comments DBIA/ICR reference
INTRMNT(ROOT,YSDFN,YSXT) ; -- return report text
START(RM,GOTO) ;
HFS() ; -- get hfs file name
; -- need to define better unique algorithm
OPEN(YSRM,YSHFS,YSMODE,YSIO) ; -- open WORKSTATION device
; YSRM: right margin
; YSHFS: host file name
; YSMODE: open file in 'R'ead or 'W'rite mode
CLOSE(YSRM,YSHFS,YSSUB,YSIO) ; -- close WORKSTATION device
; YSSUB: unique subscript name for output
USEHFS ; -- use host file to build global array
INIT ; -- initialize counts and global section
STRIP ; -- strip off control chars
TESTCODE(ROOT) ;YTRP LIST TEST/CODE
TESTDES(ROOT) ;YTRP LIST TEST/DESC
TESTTL(ROOT) ;YTRP LIST TEST/TITLE
AL60193 ; strip control chars. from all entries in MH REPORT (#601.93)
RMVCC(YSIEN) ; remove control chars. from W-P field in MH REPORT (#601.93)
; entry should be LOCKed before call

External References

Name Field # of Occurrence
^%ZIS OPEN+7
^%ZISC CLOSE+2
$$DEL^%ZISH USEHFS+7
$$FTG^%ZISH USEHFS+4
DT^DICRW AL60193+2
DEM^VADPT INTRMNT+9
PID^VADPT INTRMNT+9
$$FMTE^XLFDT INTRMNT+8

Used in RPC

RPC Name Call Tags
YTRP INSTRUMENT REPORT INTRMNT

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP( INIT+2
^TMP("YSDATA" INTRMNT+20!, INTRMNT+21, START+4!, START+5
^YTT(601.93 - [#601.93] AL60193+4, AL60193+5, AL60193+6, RMVCC+4, RMVCC+12*, RMVCC+13*

Label References

Name Line Occurrences
$$HFS START+6
@( START+8
CLOSE START+9
INIT USEHFS+3
OPEN START+7
RMVCC AL60193+6
START INTRMNT+23, TESTCODE+2, TESTDES+2, TESTTL+2
STRIP USEHFS+5
USEHFS CLOSE+4

Naked Globals

Name Field # of Occurrence
^( STRIP+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % INTRMNT+8*
>> %Y INTRMNT+8*
%ZIS OPEN+8!
%ZIS("HFSMODE" OPEN+6*
%ZIS("HFSNAME" OPEN+6*
A TESTCODE+1~*, TESTDES+1~*, TESTTL+1~*
>> CNT INIT+1*
DFN INTRMNT+7~*
>> DILOCKTM AL60193+5
DT INTRMNT+19
FLAG RMVCC+5~
FLAG("BELL" RMVCC+10*
FLAG("BS" RMVCC+8*
FLAG("BSUN" RMVCC+7*
FLAG("FF" RMVCC+10*, RMVCC+13
GOTO START~, START+8
I STRIP+1~, STRIP+2*, STRIP+4*, STRIP+5*, STRIP+6, STRIP+7
>> INC INIT+1*
IO OPEN+9, OPEN+10, CLOSE+2, CLOSE+3, CLOSE+5, USEHFS+1~
IOP OPEN+5*, OPEN+8!
IOPAR OPEN+4!
J RMVCC+2~, RMVCC+3*, RMVCC+4*, RMVCC+12, RMVCC+13
LEN INTRMNT+7~
RM START~, START+2*, START+7
ROOT INTRMNT~, INTRMNT+21*, START+5*, USEHFS+4, INIT+2*, INIT+3, STRIP+2, STRIP+4*, STRIP+5*, STRIP+6
, STRIP+7, TESTCODE~, TESTDES~, TESTTL~
SECTION USEHFS+1~, USEHFS+2*, INIT+1*, INIT+2
U INTRMNT+11, INTRMNT+14, INTRMNT+16
>> VA("BID" INTRMNT+13
>> VADM(1 INTRMNT+10
>> VADM(14 INTRMNT+16
>> VADM(3 INTRMNT+11
>> VADM(4 INTRMNT+12
>> VADM(5 INTRMNT+14
X STRIP+1~, STRIP+2*, STRIP+3, STRIP+4*, STRIP+5*, STRIP+6, STRIP+7, RMVCC+2~, RMVCC+4*, RMVCC+11
Y INTRMNT+8*, RMVCC+2~, RMVCC+4*, RMVCC+6, RMVCC+7*, RMVCC+8*, RMVCC+10*, RMVCC+11, RMVCC+12
>> YSAGE INTRMNT+12*, INTRMNT+18
YSARR USEHFS+6~, USEHFS+7
YSARR( USEHFS+6*
YSBLNK INTRMNT+7~*, INTRMNT+17
YSDFN INTRMNT~, INTRMNT+7
>> YSDOB INTRMNT+11*
>> YSDT(0 INTRMNT+8*
YSED INTRMNT+7~
YSET INTRMNT+7~
>> YSHD INTRMNT+19*
>> YSHDR INTRMNT+17*, INTRMNT+18*
YSHFS START+3~, START+6*, START+7, START+9, OPEN~, OPEN+6, CLOSE~, USEHFS+4, USEHFS+6
YSI AL60193+3~*, AL60193+4*, AL60193+5, AL60193+6
YSIEN RMVCC~, RMVCC+4, RMVCC+12, RMVCC+13
YSIO START+3~, START+7, START+9, OPEN~, OPEN+10*, CLOSE~, CLOSE+2
YSMODE OPEN~, OPEN+6
YSN INTRMNT+7~*
>> YSNM INTRMNT+10*, INTRMNT+17
YSOK USEHFS+1~, USEHFS+4*, USEHFS+7*
>> YSPTD INTRMNT+8*
>> YSPTM INTRMNT+8*
YSRM START+9, OPEN~, OPEN+5, CLOSE~
YSROU INTRMNT+7~
>> YSSEX INTRMNT+14*, INTRMNT+15, INTRMNT+18
YSSIG INTRMNT+7~, INTRMNT+16*, INTRMNT+18
>> YSSSN INTRMNT+13*, INTRMNT+17
YSSUB START+3~, START+6*, START+9, CLOSE~, INIT+2
>> YSSX INTRMNT+15*
YSTEST INTRMNT+7~
YSTOUT INTRMNT+7~*
YSUOUT INTRMNT+7~*
YSXT INTRMNT~
ZTQUEUED START+3~, OPEN+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All