Routine: YS60PRE

Package	Total	Call Graph
Kernel	2	($$FMTE,$$H2F,$$NOW)^XLFDT MES^XPDUTL
VA FileMan	1	^DIK

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
ENTDEL	;file entry deletion
NOW()
CHKSUM(RTN)	; function, return routine Checksum
D60186	;Delete entries where SCALEGROUPNAME="RPCBroker1" in MH SCALEGROUPS file (601.86)
D60187	;Delete entries where SCALE NAME="R1 Scale" in MH SCALES file (601.87)

Name	Field # of Occurrence
^DIK	ENTDEL+11, D60186+6, D60187+6
$$FMTE^XLFDT	NOW
$$H2F^XLFDT	ENTDEL+19
$$NOW^XLFDT	NOW
MES^XPDUTL	ENTDEL+6, ENTDEL+10, ENTDEL+12, ENTDEL+22, ENTDEL+26, ENTDEL+31, D60186+9, D60187+9

FileNo	Call Tags
^YTT(601.86 - [#601.86]	Classic Fileman Calls
^YTT(601.87 - [#601.87]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RSUM1"	CHKSUM+2
^XTMP(	ENTDEL+23, ENTDEL+29
^YSG(	ENTDEL+21, ENTDEL+23, ENTDEL+25!
^YTT(601.86 - [#601.86]	D60186+4
^YTT(601.87 - [#601.87]	D60187+4

Name	Field # of Occurrence
^(0	ENTDEL+21

Name	Field # of Occurrence
%	CHKSUM+1~
%1	CHKSUM+1~
%2	CHKSUM+1~
%3	CHKSUM+1~
DA	ENTDEL+8!, ENTDEL+11, ENTDEL+33!, D60186+1~, D60186+5, D60187+1~, D60187+5*
DIK	ENTDEL+8!, ENTDEL+10, ENTDEL+11, ENTDEL+33!, D60186+1~, D60186+5, D60187+1~, D60187+5*
DIU	ENTDEL+8!, ENTDEL+33!
RTN	CHKSUM~, CHKSUM+1
U	ENTDEL+22, ENTDEL+29, D60186+4, D60187+4
X	ENTDEL+8!, ENTDEL+9, ENTDEL+10, ENTDEL+21, ENTDEL+22, ENTDEL+25, ENTDEL+33!, CHKSUM+1~, D60186+1~, D60186+8* , D60186+9, D60187+1~, D60187+8*, D60187+9
Y	ENTDEL+8!, ENTDEL+12, ENTDEL+22, ENTDEL+26, ENTDEL+33!, CHKSUM+1~, CHKSUM+2
YSC	D60186+1~, D60186+2, D60186+6, D60186+8, D60187+1~, D60187+2, D60187+6, D60187+8
YSCNT	ENTDEL+8!, ENTDEL+10, ENTDEL+11, ENTDEL+12, ENTDEL+33!
YSDA	ENTDEL+8!, ENTDEL+10, ENTDEL+11, ENTDEL+33!
YSDELDT	ENTDEL+8!, ENTDEL+19*, ENTDEL+29, ENTDEL+33!
YSDTAFND	ENTDEL+8!, ENTDEL+18, ENTDEL+25, ENTDEL+29, ENTDEL+33!
YSIEN	D60186+1~, D60186+3, D60186+4, D60186+5, D60187+1~, D60187+3, D60187+4, D60187+5
YSL	ENTDEL+8!, ENTDEL+9*, ENTDEL+33!
YSND	ENTDEL+8!, ENTDEL+18*, ENTDEL+22, ENTDEL+23, ENTDEL+29, ENTDEL+33!
YSNOW	ENTDEL+8!, ENTDEL+19*, ENTDEL+23, ENTDEL+29, ENTDEL+33!
YSUB	ENTDEL+8!, ENTDEL+20*, ENTDEL+21, ENTDEL+23, ENTDEL+25, ENTDEL+33!

Name	Field # of Occurrence
$T(ENTDEL+YSL	ENTDEL+9