Routine: SR215UTL

Information

SR215UTL ;HPS/JSG - SR*3*215 UTILITY ROUTINE; Apr 3, 2024@11:40

Source file <SR215UTL.m>

Name	Comments	DBIA/ICR reference
PRE	; -- pre-install process for SR3215
BACK	; -- rollback PRE 2024-UPDATE BACKUP OF 137 from ^XTMP
POST	; -- post-install process for SR3215 ; -- check if already run
EC	; -- Exclude CODES that start with alphabetic characters:
AC	; -- Add back CODES With alpha characters that are included in 2024:
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: !,"Backup does not exist." Line Location: BACK+1
Function Call: WRITE	Prompt: !!,"Rollback completed." Line Location: BACK+5
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"	EC+8
^%ZOSF("TEST"	EC+7
^ICPT("B"	POST+9, POST+15, POST+16, POST+17, POST+18, POST+19, POST+20, POST+21, POST+22, POST+23 , POST+24, POST+25, POST+26, POST+27, POST+28, POST+29, POST+30, POST+31, EC+2, INT
^JSG(	LINES+3
^JSGL(	LINES+4*
^SRO(137 - [#137]	PRE+9, BACK+3, DATDEL+3, DATDEL+5, DATDEL+8!, DATDEL+9
^XTMP("PRE 2024-UPDATE BACKUP OF 137"	PRE+1, PRE+4!, PRE+7, PRE+9, BACK+1, BACK+3, BACK+4!, POST+2

Name	Line Occurrences
AC	EC+1
DATDEL	PRE+12, BACK+2
DISP	DATDEL+3, DATDEL+5, DATDEL+7
INT	POST+9, POST+15, POST+16, POST+17, POST+18, POST+19, POST+20, POST+21, POST+22, POST+23 , POST+24, POST+25, POST+26, POST+27, POST+28, POST+29, POST+30, POST+31, EC+2

Name	Field # of Occurrence
C	LINES+1~, LINES+3*
DA	EC+9!, INT+1!
DD	EC+9!, INT+1!
DIC	EC+9!, INT+1!*
DIC(0	INT+1*
DINUM	EC+9!, INT+1!*
DO	EC+9!, INT+1!
DT	PRE+6, PRE+7, PRE+9
I	POST+7~, AC+2, LINES+1~, LINES+3
L	LINES+1~, LINES+2, LINES+3, LINES+4*
LC	LINES+1~, LINES+2, LINES+4
NC	LINES+1~, LINES+2, LINES+3, LINES+4*
SRABC	POST+7~
SRABC(	EC+2, AC+2*
SRI	POST+7~, POST+9*
SRJ	POST+7~, POST+9*
SRL	POST+7~
SRLIST	POST+7~, POST+9*
SRTXT	DATDEL+1~, DATDEL+2, DATDEL+4, DATDEL+6*, DISP+1, DISP+2
SRX	POST+7~, POST+9, POST+15, POST+16, POST+17, POST+18, POST+19, POST+20, POST+21, POST+22* , POST+23, POST+24, POST+25, POST+26, POST+27, POST+28, POST+29, POST+30, POST+31, EC+1 , EC+2*, INT
SRY	POST+7~, INT*, INT+1
X	PRE+5~, PRE+7, POST+7~, EC+7, EC+8, EC+9!, INT+1
X1	PRE+5~, PRE+6*
X2	PRE+5~, PRE+6*
>> XPDNM	DISP+1

Name	Field # of Occurrence
$T(AC+1	AC+2
$T(LIST+SRJ	POST+9