Routine: SD53MY21

Information

SD53MY21 ;ALB/TXH - FY21 MID-YEAR STOP CODE UPDATES; SEP 22, 2020@10:40

Source file <SD53MY21.m>

Package	Total	Call Graph
VA FileMan	2	$$FIND1^DIC FILE^DIE
Kernel	1	(BMES,MES)^XPDUTL

Name	Comments	DBIA/ICR reference
POST	; Update stop codes in Clinic Stop file 40.7
REACT	; Reactivate code ; SDREC is in format: ;;code #^
CHGNM	; Change code names ; SDREC is in format: ;;code name^code #^^new code name
ACT	; Code to be reactivated - ;;number^
CHG	; Code name changes - ;;code name^code #^^new code name

Name	Field # of Occurrence
$$FIND1^DIC	CHGNM+12
FILE^DIE	REACT+13, CHGNM+33
BMES^XPDUTL	POST+2, POST+5, REACT+4, REACT+15, REACT+17, REACT+21, CHGNM+4, CHGNM+16, CHGNM+24, CHGNM+36 , CHGNM+42, CHGNM+45, CHGNM+47
MES^XPDUTL	POST+6, REACT+18, REACT+19, CHGNM+17, CHGNM+18, CHGNM+25, CHGNM+37, CHGNM+38, CHGNM+43, CHGNM+48

FileNo	Call Tags
^DIC(40.7 - [#40.7]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	REACT+8, REACT+10, REACT+15, CHGNM+28, CHGNM+30

Name	Line Occurrences
CHGNM	POST+4
REACT	POST+3

Name	Field # of Occurrence
^(0	CHGNM+28

Name	Field # of Occurrence
%H	POST+7!
%I	POST+7!
DA	REACT+3~, REACT+7!
DD	REACT+7!
DIC	POST+7!
DIE	REACT+3~
DO	REACT+7!
DR	REACT+3~
SDCHGERR	CHGNM+3~, CHGNM+15, CHGNM+20!, CHGNM+35, CHGNM+40!, CHGNM+41
SDCHGERR("DIERR"	CHGNM+17, CHGNM+37
SDCODE	CHGNM+3~, CHGNM+8*, CHGNM+12, CHGNM+16, CHGNM+24, CHGNM+36, CHGNM+42, CHGNM+45
SDDA	REACT+3~, REACT+8*, REACT+10, REACT+12, REACT+15, REACT+17
SDERR	REACT+3~, REACT+15, REACT+16, REACT+20!
SDERR("DIERR"	REACT+18
SDFDA	REACT+11!, CHGNM+31!
SDFDA(	REACT+12, CHGNM+32
SDI	CHGNM+3~, CHGNM+7*
SDIEN	POST+7!, CHGNM+3~, CHGNM+12*, CHGNM+23, CHGNM+28, CHGNM+30, CHGNM+32
SDNEWNM	CHGNM+3~, CHGNM+9*, CHGNM+32, CHGNM+43, CHGNM+44
SDNM	CHGNM+3~, CHGNM+30*, CHGNM+42, CHGNM+44
SDREC	CHGNM+3~, CHGNM+7*, CHGNM+8, CHGNM+9
SDX	REACT+3~, REACT+7*
SDXX	REACT+3~, REACT+7*, REACT+8, REACT+15
U	REACT+10, CHGNM+8, CHGNM+9, CHGNM+28, CHGNM+30
X	POST+7!
Y	POST+7!