Routine: XUPCSRVR

Entry Points

Name	Comments	DBIA/ICR reference
610	;
DEF1(XUI)	; Update definition for single entry XUI
745	;
DEL(XUIEN)
S1	;get data from email; this starting point for SERVER OPTION. [XUPCSRVR] UPDATE PERSON CLASS SERVER
GETDEF	; get definitions
609	;
DEFI(XUIEN)	;
GETDES(XUI,XUY)	; get single entry definition
CRMG	;CREATE MAIL GROUP
ADD(XUDATA)	; add or update a single entry
SEND(XUKIND)	; Send to sites
POST	;
DEF	; Update definitions

Name	Line Occurrences
Function Call: WRITE	Prompt: !,XUI," ;" Line Location: GETDES+2
Function Call: WRITE	Prompt: !," ;;",$G(^USC(8932.1,XUI,11,XUA,0)) Line Location: GETDES+3
Function Call: WRITE	Prompt: !," ;;END" Line Location: GETDES+4
Routine Call	DIE Line Location: ADD+16
Routine Call	DIE Line Location: DEFI+3 DEF1+6

Name	Line Occurrences (* Changed, ! Killed)
^TMP("PSC DATA"	S1+1!, S1+10*, SEND+1, SEND+6!
^TMP("XUBA"	S1+2!, S1+12*, DEFI+4!
^TMP($J	DEF1+2!, DEF1+4*, DEF1+7!
^USC(8932.1 - [#8932.1]	ADD+14, ADD+17, GETDEF+3, GETDES+3
^XMB(3.9 - [#3.9]	S1+5, S1+6, S1+7

Name	Field # of Occurrence
DA	DEL+1~, DEL+2*
DIK	DEL+1~, DEL+3*
>> DILOCKTM	ADD+14
DIR	DEL+1~
DT	SEND+3
DUZ	SEND+2*, SEND+5
FDA	ADD+1~
FDA(	ADD+4, ADD+5, ADD+6, ADD+7, ADD+8, ADD+9, ADD+10, ADD+11, ADD+12*
FDAIEN	ADD+1~
FDAIEN(1	ADD+3*, ADD+14, ADD+17
MSG	SEND+1*, SEND+5, SEND+6!
MSGSBJ	SEND+3*, SEND+5, SEND+6!
ODUZ	SEND+1~, SEND+2*
>> WHO	SEND+4, SEND+5
>> WHO("G.PERSON	CLASS UPDATE" , SEND+4*
XMDESC	CRMG+2~, CRMG+3
XMDESC(1	CRMG+2*
>> XQMSG	S1+5, S1+6, S1+7
XQMSGP	S1+16!
XUA	GETDES+1~, GETDES+3*
XUB	GETDES+1~
XUD	ADD+1~, ADD+2*, ADD+3, ADD+4, ADD+5, ADD+6, ADD+7, ADD+8, ADD+9, ADD+10 , ADD+11, ADD+12
XUDATA	S1+3~, S1+7, S1+8, S1+9, S1+10, S1+11, S1+12, S1+13, ADD~, ADD+2 , ADD+15, DEF1+1~, DEF1+3, DEF1+4
XUI	S1+3~, S1+6, S1+7, S1+10, DEFI+1~, DEFI+2, DEFI+3, DEF+1~, DEF+2~, DEF+3~ , DEF1~, DEF1+4, DEF1+5, GETDEF+1~, GETDEF+2*, GETDEF+3, GETDEF+4, GETDES~, GETDES+2, GETDES+3
XUI1	DEF1+1~, DEF1+5*, DEF1+6
XUIEN	S1+3~, S1+8, S1+11, S1+12, S1+13, DEL~, DEL+2, DEFI~, DEFI+2, CRMG+3~
XUKIND	SEND~, SEND+3
XUSBJ	S1+3~, S1+5*
XUY	S1+3~, S1+4, S1+12, S1+13, DEF1+1~, DEF1+3, DEF1+4, GETDEF+1~, GETDEF+3*, GETDEF+4 , GETDES~, GETDES+3

Name	Field # of Occurrence
$T(@XUI+XUY	DEF1+3