Routine: SR220UTL

Information

SR220UTL ;HDSO/NMG - YEARLY CPT EXCLUSION UPDATES; Jun 18, 2025@11:23

Source file <SR220UTL.m>

Package	Total	Call Graph
Kernel	3	$$FMADD^XLFDT $$CJ^XLFSTR BMES^XPDUTL
VA FileMan	3	FILE^DICN ^DIK ^DIR

Name	Comments	DBIA/ICR reference
ENV	;
PRE	;
POST	; -- post-install process
BACK	; -- rollback
DISP	;display one-line text either interactively or within KIDS installation
DELETES	;
ADDS	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Backup file has not been set yet or was set and was deleted after six months." Line Location: BACK+4
Function Call: WRITE	Prompt: !,"File #137 hasn't been set up yet, so no data to delete." Line Location: BACK+6
Function Call: WRITE	Prompt: !,"Restoring file 137 from the backup..." Line Location: BACK+9
Function Call: WRITE	Prompt: !!,"Rollback completed." Line Location: BACK+15
Function Call: WRITE	Prompt: !!?5,SRTXT Line Location: DISP+1
Routine Call	DIR Line Location: ENV+10

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

Name	Line Occurrences (* Changed, ! Killed)
^ICPT("B"	POST+4, POST+5, POST+9, POST+10
^SRO(137 - [#137]	PRE+9, POST+7, POST+12, BACK+5, BACK+8, BACK+10!, BACK+11, BACK+12
^XTMP(	ENV+2, ENV+14!, PRE+4, PRE+7, PRE+9, BACK+3, BACK+12, BACK+14!

Name	Line Occurrences
DISP	BACK+8

Name	Field # of Occurrence
DA	POST+1~, POST+7*, POST+13!
DD	POST+13!
DIC	POST+13!, POST+14*
DIC(0	POST+14*
DIK	POST+1~, POST+2*
DINUM	POST+13!*
DIR	ENV+4~
DIR("A"	ENV+6, ENV+7, ENV+8, ENV+9
DIR("B"	ENV+5*
DIR(0	ENV+5*
DO	POST+13!
DT	PRE+7, PRE+9
DTOUT	ENV+4~, ENV+11
DUOUT	ENV+4~, ENV+11
SRBACKUP	ENV+1, ENV+2, ENV+14, PRE+1~, PRE+2, PRE+4, PRE+7, PRE+8, PRE+9, BACK+1~ , BACK+2*, BACK+3, BACK+12, BACK+14
SRI	POST+1~, POST+4, POST+9
SRJ	POST+1~, POST+3, POST+8
SRLIST	POST+1~, POST+3, POST+4, POST+8, POST+9
SRTXT	BACK+1~, BACK+7*, DISP+1, DISP+2
SRX	POST+1~, POST+4, POST+5, POST+9, POST+10
SRY	POST+1~, POST+5, POST+7, POST+10, POST+12, POST+13
X	POST+1~, POST+13*
>> XPDABORT	ENV+12*
>> XPDNM	DISP+1
>> Y	ENV+11