Routine: SR210UTL

Information

SR210UTL ;HPS/JSG - SR*3*210 UTILITY ROUTINE; Mar 28, 2023@09:52

Source file <SR210UTL.m>

Name	Comments	DBIA/ICR reference
PRE	; -- pre-install process for SR3202
POST	; -- post-install process for SR3210 ; -- populate the CPT EXCLUSIONS file (#137)
INT
DATDEL	; Delete all data from file #137
DISP	;display one-line text either interactively or within KIDS installation
LINES	;Create n lines each with 13 codes
LIST	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,SRTXT Line Location: DISP+1

FileNo	Call Tags
^SRO(137 - [#137]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("DEL"	POST+34
^%ZOSF("TEST"	POST+33
^ICPT("B"	POST+4, POST+10, POST+11, POST+12, POST+13, POST+14, POST+15, POST+16, POST+17, POST+18 , POST+19, POST+20, POST+21, POST+22, POST+23, POST+24, POST+25, POST+28, INT
^JSG(	LINES+2
^JSGL(	LINES+3*
^SRO(137 - [#137]	PRE+6, DATDEL+3, DATDEL+5, DATDEL+8!, DATDEL+9*
^XTMP("PRE 2023-UPDATE BACKUP OF 137"	PRE+1, PRE+4, PRE+6

Name	Line Occurrences
DATDEL	PRE+9
DISP	DATDEL+3, DATDEL+5, DATDEL+7
INT	POST+4, POST+10, POST+11, POST+12, POST+13, POST+14, POST+15, POST+16, POST+17, POST+18 , POST+19, POST+20, POST+21, POST+22, POST+23, POST+24, POST+25, POST+28

Name	Field # of Occurrence
>> C	LINES+2*
DA	POST+35!, INT+1!
DD	POST+35!, INT+1!
DIC	POST+35!, INT+1!*
DIC(0	INT+1*
DINUM	POST+35!, INT+1!*
DO	POST+35!, INT+1!
DT	PRE+3, PRE+4
>> I	LINES+2*
>> L	LINES+1, LINES+2, LINES+3*
>> LC	LINES+1, LINES+3
>> NC	LINES+1, LINES+2, LINES+3*
SRI	POST+2~, POST+4*
SRJ	POST+2~, POST+4*
SRL	POST+2~
SRLIST	POST+2~, POST+4*
SRTXT	DATDEL+1~, DATDEL+2, DATDEL+4, DATDEL+6*, DISP+1, DISP+2
SRX	POST+2~, POST+4, POST+10, POST+11, POST+12, POST+13, POST+14, POST+15, POST+16, POST+17* , POST+18, POST+19, POST+20, POST+21, POST+22, POST+23, POST+24, POST+25, POST+28*, INT
SRY	POST+2~, INT*, INT+1
X	PRE+2~, PRE+4, POST+2~, POST+33, POST+34, POST+35!, INT+1
X1	PRE+2~, PRE+3*
X2	PRE+2~, PRE+3*
>> XPDNM	DISP+1

Name	Field # of Occurrence
$T(LIST+SRJ	POST+4