Routine: SD53P177

Information

SD53P177 ;BP-CIOFO/KEITH - Patch SD*5.3*177 utility routine ; 8/27/99 3:28pm

Source file <SD53P177.m>

Package	Total	Call Graph
Kernel	3	^%ZTLOAD ($$LKOPT,RENAME)^XPDMENU (BMES,MES)^XPDUTL
VA FileMan	3	$$FIND1^DIC (,FILE)^DIE (,ENALL)^DIK
Scheduling	2	ENMAIN^SCMCCV3 MAIL^SCRPV1
Registration	1	$$SITE^VASITE

Name	Comments	DBIA/ICR reference
ENV	;environment check point.
PRE	;Pre-init
DFILE	;Delete file #409.92 entries prior to install
OPT	;Rename PCMM GUI option so pre-patch177 clients may not access
POST	;Post-init
ERMT	;Edit report menu text values for GUI selection
PROGCHK(XPDABORT)	;checks for necessary programmer variables
DOMNCHK(XPDABORT)	;checks for the new Austin q-domain
SITE	;Put local site number in HL7 APPLICATION PARAMETER file (#771).
XREF	;Queue reindexing of 404.43, field .03.
XREF1	;Reindex 404.43, field .03.

Name	Field # of Occurrence
^%ZTLOAD	XREF+10
$$FIND1^DIC	DOMNCHK+2
^DIE	ERMT+10
FILE^DIE	SITE+8
^DIK	DFILE+4
ENALL^DIK	XREF1+4
ENMAIN^SCMCCV3	POST+1
MAIL^SCRPV1	XREF1+6
$$SITE^VASITE	SITE+2
$$LKOPT^XPDMENU	OPT+10
RENAME^XPDMENU	OPT+13
BMES^XPDUTL	DFILE+3, OPT+15, ERMT+2, PROGCHK+3, DOMNCHK+3
MES^XPDUTL	PROGCHK+4, PROGCHK+5, PROGCHK+6, DOMNCHK+4, DOMNCHK+5, DOMNCHK+6, XREF+12, XREF+14, XREF+15

Name	Line Occurrences (* Changed, ! Killed)
^HL(771 - [#771]	SITE+4
^SCPT(404.43 - [#404.43]	XREF+1
^SD(409.92 - [#409.92]	DFILE+1, DFILE+4
^TMP("DIERR"	DOMNCHK+8!

Name	Field # of Occurrence
DA	DFILE+2~, DFILE+4, ERMT+3~, ERMT+9, ERMT+10
DIE	ERMT+3~, ERMT+9*
DIK	DFILE+2~, XREF1+1~, XREF1+2
DIK(1	XREF1+3*
DR	ERMT+3~, ERMT+9*
DT	PROGCHK+2
DUZ	PROGCHK+2, XREF+4
DUZ(0	PROGCHK+2
FAC	SITE+1~, SITE+2*, SITE+3, SITE+7
NEW	OPT+5~, OPT+6*, OPT+10, OPT+13
OLD	OPT+5~, OPT+7*, OPT+13
SCDUZ	XREF+3~, XREF+4*, XREF1+6
SCERR	SITE+1~
SCFDA	SITE+1~
SCFDA(771	SITE+7*
SCIENS	SITE+1~, SITE+4, SITE+5, SITE+6, SITE+7
SCX	ERMT+3~, ERMT+10*
SCX(	ERMT+10
SCX(1	ERMT+4*
SCX(2	ERMT+5*
SCX(6	ERMT+6*
SCX(7	ERMT+7*
SCX(8	ERMT+8*
U	PROGCHK+2
XPDABORT	ENV+2, ENV+3, ENV+4, ENV+5!, PROGCHK~, PROGCHK+7, DOMNCHK~, DOMNCHK+7*
ZTDESC	XREF+3~, XREF+9*
ZTDTH	XREF+3~, XREF+5*
ZTIO	XREF+3~, XREF+6*
ZTRTN	XREF+3~, XREF+7*
>> ZTSAVE("SCDUZ"	XREF+8*
>> ZTSK	XREF+11