Routine: ACPTLEX

Package	Total	Call Graph
VA Fileman	5	^DIC FILE^DICN ^DIK $$GET1^DIQ EN^DIU2
CPT Files	1	START^ACPT23P2

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;EP; remove old field 405.3 which uses 81.02 subfile number
RESET	;EP; delete 60 multiple to start over
POST	;EP; build effective date multiple for ^ICPT global
ADD(IEN,DATE,STATUS)	; stuff effective date multiple ; IEN=CPT internal entry number ; DATE=effective date ; STATUS=1 for active, 0 for inactive
BUILD	;EP; build temp global for transport

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA GLOBAL FOUND!" Line Location: POST+1
Routine Call	DIC Line Location: POST+36

FileNo	Call Tags
^ICPT - [#81]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^ACPTEMP("ICPTE"	POST+3!, POST+8, POST+10, POST+17, POST+20, POST+21*
^ACPTMP(	POST+16, POST+27, POST+28, POST+29
^ACPTMP("B"	POST+9
^ACPTMP("ICPT"	BUILD+1!, BUILD+3*
^DD(81	POST+34, ADD+5
^ICPT - [#81]	BUILD+3, POST+6, POST+7, POST+13, POST+17, POST+40, RESET+2!

Name	Line Occurrences
ADD	POST+41, POST+42

Name	Field # of Occurrence
>> ACPTCD	POST+7*, POST+8, POST+9
>> ACPTCNT	POST+26, POST+27, POST+28, POST+29
>> ACPTEDT	POST+28*, POST+30
>> ACPTIEN	POST+9*, POST+10, POST+16, POST+27, POST+28, POST+29, POST+31, POST+32
>> ACPTSTA	POST+29*, POST+35
ADDDT	POST+4~, POST+42*
DA	PRE+3*, ADD+4~
DA(1	PRE+3, POST+31, ADD+7*
DATE	ADD~, ADD+8
DD	ADD+4~
DELDT	POST+4~, POST+41*
DIC	POST+32, ADD+4~, ADD+6
DIC("DR"	POST+35, ADD+9
DIC("P"	POST+34, ADD+5
DIC(0	POST+33, ADD+5
DIK	PRE+1~, PRE+3*, POST+45~
DIU	PRE+1~, PRE+2, POST+45~, POST+46
DIU(0	PRE+2, POST+46
DLAYGO	ADD+4~, ADD+5*
DO	ADD+4~
IEN	POST+4~, POST+5, POST+6, POST+7, POST+8, POST+10, POST+13, POST+17, POST+19, POST+20 , POST+21, POST+40, POST+41, POST+42, ADD~, ADD+6, ADD+7, RESET+1~, RESET+2*
INACTIVE	POST+4~, POST+19*, POST+20, POST+21, POST+41, POST+42
STATUS	ADD~, ADD+9
U	POST+16, POST+17, ADD+5
X	BUILD+2~, BUILD+3, POST+30, ADD+4~, ADD+8*
XCOD	POST+4~, POST+16*, POST+17