Routine: SDES844P

Package	Total	Call Graph
Kernel	4	^%ZTLOAD $$DT^XLFDT MES^XPDUTL $$KSP^XUPARAM
VA FileMan	4	NOW^%DTC $$FIND1^DIC (,FILE)^DIE $$GET1^DIQ
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Entry point for the post-install routine
FIND	;FIND THE IEN FOR "VS GUI NATIONAL"
VERSION	;SET THE NEW VERSION UPDATE IN SDEC SETTING FILE #409.98 TO 1.7.42
NOFIND	;"VS GUI NATIONAL" NOT FOUND
TASK	;
DISP	; Disposition old OPEN Appointment Requests that have the STOP CODE "COMMUNITY CARE CONSULT"
MAIL	; ; Get Station Number

Name	Field # of Occurrence
NOW^%DTC	TASK+10
^%ZTLOAD	TASK+10
$$FIND1^DIC	DISP+5, DISP+12, DISP+19
^DIE	VERSION+1, VERSION+4
FILE^DIE	DISP+39
$$GET1^DIQ	MAIL+5
$$DT^XLFDT	DISP+34
^XMD	MAIL+13
MES^XPDUTL	FIND+2, FIND+3, NOFIND+1, TASK+1, TASK+2, TASK+3, TASK+4, TASK+5, TASK+6, TASK+7 , TASK+12, TASK+13, TASK+15, TASK+16
$$KSP^XUPARAM	MAIL+4

Name	Line Occurrences (* Changed, ! Killed)
^SDEC(409.85 - [#409.85]	DISP+29, DISP+31
^SDEC(409.98 - [#409.98]	FIND+4, VERSION+3

Name	Field # of Occurrence
CLNIEN	DISP+2~, DISP+5*, DISP+6, DISP+32
DA	VERSION+1, VERSION+2!, VERSION+4, VERSION+5!
DIE	VERSION+1, VERSION+2!, VERSION+4, VERSION+5!
DIFROM	MAIL+3~
DISPIEN	DISP+1~, DISP+12*, DISP+13, DISP+36
DR	VERSION+1, VERSION+2!, VERSION+4, VERSION+5!
DT	VERSION+1, VERSION+4
DUZ	MAIL+9, MAIL+12
ERCNT	DISP+1~, DISP+3, DISP+41, DISP+44, DISP+45, DISP+47, DISP+51
ERCNT(	DISP+41*, DISP+53
ERR84	DISP+40, DISP+42!
FDA	DISP+1~, DISP+42!
FDA(	DISP+34, DISP+35, DISP+36, DISP+37, DISP+38*
FLD85	DISP+2~, DISP+31*, DISP+32
FLD86	DISP+2~, DISP+31*, DISP+32
I	DISP+1~, DISP+53*
MESS1	MAIL+3~, MAIL+6*, MAIL+11
PMIEN	DISP+2~, DISP+19*, DISP+20, DISP+35
SDECDA	FIND+1~, FIND+4*, VERSION+1
SDECDA1	FIND+1~, VERSION+3*, VERSION+4
SDIEN	DISP+2~, DISP+27, DISP+29, DISP+31, DISP+34, DISP+35, DISP+36, DISP+37, DISP+38, DISP+41
STANUM	MAIL+3~, MAIL+4, MAIL+5, MAIL+6
TCNT	DISP+1~, DISP+3, DISP+40, DISP+46
TEXT	MAIL+14!
TEXT(1	DISP+7, DISP+14, DISP+21, DISP+43
TEXT(2	DISP+8, DISP+15, DISP+22, DISP+44, DISP+45*
TEXT(3	DISP+9, DISP+16, DISP+23, DISP+46
TEXT(4	DISP+48*
TEXT(5	DISP+49*
TEXT(6	DISP+50*
TEXT(7	DISP+51*
TEXT(8	DISP+52, DISP+53
U	DISP+29, DISP+31
X	TASK+8~, TASK+10
XMDUZ	MAIL+3~, MAIL+9, MAIL+12
XMSUB	MAIL+3~, MAIL+11*
XMTEXT	MAIL+3~, MAIL+10*
XMY	MAIL+3~
XMY(	MAIL+12*
ZN	DISP+1~, DISP+29*, DISP+31
ZTDESC	TASK+8~, TASK+9*
ZTDTH	TASK+8~, TASK+10*
ZTIO	TASK+8~, TASK+10*
ZTRTN	TASK+8~, TASK+10*
ZTSAVE	TASK+8~
ZTSAVE("*"	TASK+10*
ZTSK	TASK+8~, TASK+11, TASK+12, TASK+14