Routine: ADEUPD25

Information

ADEUPD25 ;IHS/OIT/GAB - ADE6.0 PATCH 25 [ 11/17/2013 14:05 PM ]

Package	Total	Call Graph
VA Fileman	1	(,UPDATE,WP)^DIE

Package	Total	Caller Graph
IHS Dental System	3	ADE6P251 ADE6P252 ADE6P253

Name	Comments	DBIA/ICR reference
FILE	;EP
DELETES(ADETGRTN,ADESETX,ADEDIK)
SETFDA	;EP ; Corresponds to values in X: the first is the field that is set with the first piece, etc. If a value isn't used to set a field ; nothing should be entered for that piece; should be left empty e.g. ".01,02,,.09"
UPDATE(ADEFILE,ADEFLDS,ADEWPFLD,ADEIENST,ADETGRTN,ADESETX)	;EP

Name	Field # of Occurrence
ADECURX	UPDATE+9!
ADEDIK	DELETES~, DELETES+3
ADEDONE	UPDATE+2, UPDATE+3, UPDATE+4, UPDATE+9!
ADEEMSG	FILE+2!, FILE+5!
ADEEND	UPDATE+9!
ADEFDA	UPDATE+1~, FILE+2!
ADEFDA(	SETFDA+3*
ADEFILE	UPDATE~, SETFDA+3, FILE+4
>> ADEFLD	SETFDA+3*
ADEFLDS	UPDATE~, UPDATE+2, SETFDA+3
ADEI	UPDATE+3, UPDATE+9!, DELETES+1
ADEI1	UPDATE+9!, SETFDA+3*
ADEIEN	FILE+5!
ADEIEN(1	FILE+4
ADEIENST	UPDATE~, SETFDA+3
ADELSTN	UPDATE+6*, UPDATE+9!
ADEN	UPDATE+2, UPDATE+6, UPDATE+9!, SETFDA+4
ADENFLDS	UPDATE+2*, UPDATE+9!, SETFDA+3
ADERPEAT	UPDATE+2*, UPDATE+5, UPDATE+9!
ADESETX	UPDATE~, UPDATE+6, DELETES~, DELETES+2
ADESTART	UPDATE+9!
ADESVX	UPDATE+9!
ADETEXT	UPDATE+4!, UPDATE+9!
ADETEXT(	UPDATE+8*
ADETEXT(1	FILE+4
ADETGRTN	UPDATE~, DELETES~
ADETXT	UPDATE+2, UPDATE+4, UPDATE+8*, UPDATE+9!
ADEWPFLD	UPDATE~, UPDATE+7, FILE+4
ADEX	UPDATE+3, UPDATE+4, UPDATE+8, UPDATE+9!, SETFDA+3, SETFDA+4, DELETES+1, DELETES+3
ADEX1	UPDATE+9!, SETFDA+3*
>> DA	DELETES+3*
>> DIE	DELETES+3*
>> DR	DELETES+3*
U	UPDATE+4, SETFDA+3, SETFDA+4

Name	Field # of Occurrence
$T(@$PIECE^2;4(3)+ADEI^@$PIECE^2;4(5)	UPDATE+3, DELETES+1