Routine: PXKMAIN1

Package	Total	Call Graph
PCE Patient Care Encounter	4	UPDATE900^PXKFPOV UPD^PXKFVST (CLEAN,DIE,ER)^PXKIMM (LOOP,UPD)^PXKMOD
VA FileMan	3	FILE^DICN ^DIE (,IX1)^DIK
Kernel	1	$$NOW^XLFDT
Uncategorized	1	^@(

Package	Total	Caller Graph
PCE Patient Care Encounter	1	PXKMAIN

Name	Comments	DBIA/ICR reference
LOOP	;+Copy delimited strings into sub-arrays. PXKSUB is the node.
ERROR	;+Check for missing required fields
CLEAN	;--Clean out the PXKAV array
FILE	;+Create a new entry in file and get IEN
AUD12	;--Set both audit fields
AUD2	;--Set second audit fields
TMSTAMP	; set Timestamp
DRDIE	;--Set the DR string and DO DIE
DIE	;Invoke FM ^DIE call.
DELETE	;+Use FM ^DIK call to delete entry identified by PXKPIEN.
COPYDEL	; Make a copy of entry
DUP	;+Code to check for duplicates
CPTMOD(VCPTIEN,MODIEN)	;
ER	;--PXKERROR MAKING IF NOT POPULATED CORRECTLY

Name	Field # of Occurrence
^@(	ERROR+3, ERROR+11, AUD12+7, AUD2+8, TMSTAMP+4, DRDIE+23, DUP+11, ER+16
FILE^DICN	FILE+7, COPYDEL+17
^DIE	DIE+1
^DIK	DELETE+7
IX1^DIK	COPYDEL+28
UPDATE900^PXKFPOV	DRDIE+21
UPD^PXKFVST	DRDIE+1
CLEAN^PXKIMM	CLEAN+4
DIE^PXKIMM	DRDIE+18
ER^PXKIMM	ER+5
LOOP^PXKMOD	LOOP+11
UPD^PXKMOD	DRDIE+16
$$NOW^XLFDT	TMSTAMP+1, COPYDEL+25

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This is not an entry point" Line Location: PXKMAIN1+24
Routine Call	DIE Line Location: DIE+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVCPT - [#9000010.18]	CPTMOD+2
^TMP("PXK"	DRDIE+10

Name	Line Occurrences
$$CPTMOD	ER+10
COPYDEL	DELETE+3
DIE	DRDIE+14, DRDIE+34, DRDIE+35
ER	DRDIE+37
TMSTAMP	AUD12+8, AUD2+10

Name	Field # of Occurrence
DA	FILE+8, DELETE+5, COPYDEL+2~, COPYDEL+27*, ER+9, ER+21, ER+22, ER+23
DD	FILE+3!
DIC	FILE+4, FILE+10!, COPYDEL+2~, COPYDEL+12
DIC(0	FILE+5, DRDIE+36!, COPYDEL+13
DIE	DRDIE+3*, DRDIE+36!
DIK	DELETE+6, DELETE+8!, COPYDEL+2~, COPYDEL+26
>> DILOCKTM	COPYDEL+14, COPYDEL+23
DINUM	COPYDEL+2~, COPYDEL+16*
DO	FILE+3!, COPYDEL+2~
DR	FILE+9, AUD12+1, AUD12+6, AUD12+7, AUD2+1, AUD2+6, AUD2+9, TMSTAMP+5, DRDIE+33, DRDIE+34 , DIE+2!, DIE+3
DUZ	COPYDEL+25
IND	CPTMOD+1~, CPTMOD+2, CPTMOD+3, CPTMOD+4
MODIEN	CPTMOD~, CPTMOD+2
>> PX	DUP+15, DUP+16, DUP+19
PXDELGBL	COPYDEL+2~, COPYDEL+4*, COPYDEL+5, COPYDEL+12, COPYDEL+14, COPYDEL+16, COPYDEL+18, COPYDEL+23, COPYDEL+24, COPYDEL+25 , COPYDEL+26, COPYDEL+29
>> PXFG	DUP+15, DUP+16, DUP+20
PXGBL	COPYDEL+2~, COPYDEL+6*, COPYDEL+9, COPYDEL+24
PXJ	ERROR+6~, ERROR+7, ERROR+8, DUP+18
>> PXJJ	ERROR+8, ERROR+9, ERROR+10, DUP+18, DUP+19
>> PXJJJ	DUP+10, DUP+17, DUP+19*, DUP+20
>> PXKAFT(	LOOP+4, LOOP+6
>> PXKAFT(900	LOOP+2
>> PXKAUDIT	AUD12+2, AUD12+3, AUD12+4, AUD2+2, AUD2+3, AUD2+4
>> PXKAV	DRDIE+21
>> PXKAV(	LOOP+6*, ERROR+9, CLEAN+7!, DRDIE+7, DRDIE+22, DRDIE+31, DRDIE+32, DUP+19, ER+4, ER+7 , ER+10, ER+12, ER+13, ER+20, ER+22
>> PXKAV(0	ERROR+1, FILE+6
>> PXKAV(900	LOOP+2*
>> PXKBEF(	LOOP+7, LOOP+9
>> PXKBEF(900	LOOP+2
>> PXKBV(	LOOP+9*, CLEAN+2, CLEAN+6, CLEAN+7
>> PXKBV(900	LOOP+2*, LOOP+3!
>> PXKCAT	LOOP+1, LOOP+11, ERROR+14, CLEAN+3, CLEAN+4, FILE+11, AUD12+8, AUD2+10, DRDIE+1, DRDIE+9 , DRDIE+10, DRDIE+13, DRDIE+18, DRDIE+20, DRDIE+21, DUP+1, DUP+2, DUP+3, ER+5, ER+8 , ER+10, ER+15, ER+21, ER+22, ER+23
>> PXKER	ERROR+4, ERROR+5, ERROR+7, ERROR+8, AUD12+7, AUD2+9, TMSTAMP+5, DRDIE+24, DRDIE+25, DRDIE+26 , DRDIE+27, DRDIE+28, DRDIE+29, DRDIE+30, DRDIE+31, DRDIE+32, DRDIE+33, DUP+12, DUP+13, DUP+14 , DUP+18, DUP+20
>> PXKERROR(	ERROR+14, ER+21, ER+22, ER+23
PXKFD	ERROR+6~, ERROR+12, ER+17
>> PXKFGAD	DRDIE+8, DRDIE+11, DRDIE+26, DRDIE+27
>> PXKFGED	DRDIE+12, DRDIE+28, DRDIE+29
PXKFLD	ERROR+6~, ERROR+12, ERROR+13, ERROR+14, ER+17, ER+18, ER+19, ER+21, ER+22, ER+23
>> PXKFVDLM	AUD12+9, AUD2+11
PXKI	LOOP+4, LOOP+6, LOOP+7, LOOP+9, LOOP+10!, CLEAN+5, CLEAN+6, CLEAN+7, CLEAN+8!
PXKJ	LOOP+10!, CLEAN+1, CLEAN+2, CLEAN+3, CLEAN+4, CLEAN+6, CLEAN+7, CLEAN+8!
PXKLR	DRDIE+4*, DRDIE+36!
PXKMOD	ER+1~, ER+2*
>> PXKN	ER+3, ER+4, ER+5, ER+7, ER+8, ER+10, ER+11, ER+12, ER+13, ER+14 , ER+20, ER+22
>> PXKNOD	ERROR+2, ERROR+9, AUD12+5, AUD2+5, TMSTAMP+2, DRDIE+6, DRDIE+7, DRDIE+8, DRDIE+11, DRDIE+13 , DRDIE+18, DRDIE+20, DRDIE+21, DRDIE+22, DRDIE+31, DRDIE+32, DRDIE+33, DUP+6, ER+14, ER+15
>> PXKNOW	TMSTAMP+1*
>> PXKP	ER+6, ER+7, ER+10, ER+12, ER+13, ER+14, ER+20, ER+22
>> PXKPCE	ERROR+2, ERROR+10, AUD12+7, AUD2+7, TMSTAMP+3, DRDIE+8, DRDIE+10, DRDIE+11, DRDIE+12, DRDIE+22 , DRDIE+31, DRDIE+32, DRDIE+33, DUP+7, ER+14, ER+15*
PXKPDELIEN	COPYDEL+2~, COPYDEL+21*, COPYDEL+22, COPYDEL+23, COPYDEL+24, COPYDEL+25, COPYDEL+27, COPYDEL+29
PXKPIEN	FILE+8, FILE+11, DRDIE+10, DRDIE+16, DRDIE+21, DRDIE+32, DELETE+5, COPYDEL+9, COPYDEL+14, COPYDEL+16 , COPYDEL+18, COPYDEL+24, DUP+5~, DUP+19, ER+10
PXKPTR	DRDIE+3!
PXKPTR(	DRDIE+32*
>> PXKRRT	ER+9, ER+10, ER+11*, ER+12
PXKRT	ER+1~
PXKRTN	ERROR+3, ERROR+11, AUD12+7, AUD2+8, TMSTAMP+4, DRDIE+23, DUP+4~, DUP+8*, DUP+11, ER+16
>> PXKSEQ	ERROR+14, DRDIE+10, ER+2, ER+21, ER+22, ER+23
>> PXKSORR	AUD12+3, AUD2+3
PXKSTR	ER+1~, ER+20, ER+22, ER+23
>> PXKSUB	LOOP+1, LOOP+4, LOOP+6, LOOP+7, LOOP+9, LOOP+11
>> PXKVCAT	DUP+8
>> PXKVRTN	DUP+9*, DUP+16, DUP+19
>> PXKVST	DUP+16
PXTMP	COPYDEL+2~, COPYDEL+9*, COPYDEL+10, COPYDEL+11
>> PXVNEWDA	FILE+11*
>> PXVNEWIM	FILE+11*
U	COPYDEL+10, COPYDEL+11, COPYDEL+21, COPYDEL+25
VCPTE	CPTMOD+1~, CPTMOD+4*, CPTMOD+5
VCPTIEN	CPTMOD~, CPTMOD+2, CPTMOD+4
X	FILE+6, FILE+10!, COPYDEL+2~, COPYDEL+11
Y	FILE+8, FILE+10!, COPYDEL+2~, COPYDEL+21

Name

Field # of Occurrence

DA

FILE+8*, DELETE+5*, COPYDEL+2~, COPYDEL+27*, ER+9, ER+21, ER+22, ER+23

DD

FILE+3!

DIC

FILE+4*, FILE+10!, COPYDEL+2~, COPYDEL+12*

DIC(0

FILE+5*, DRDIE+36!, COPYDEL+13*

DIE

DRDIE+3*, DRDIE+36!