Routine: PXKMAIN1

Information

PXKMAIN1 ;ISL/JVS,ISA/Zoltan - Main Routine for Data Capture ;5/6/1999

Source Information

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	3	FILE^DICN ^DIE ^DIK
PCE Patient Care Encounter	2	UPD^PXKFVST (LOOP,UPD)^PXKMOD
Uncategorized	1	^@(

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
PCE Patient Care Encounter	1	PXKMAIN

Entry Points

Name	Comments	DBIA/ICR reference
AUD2	;--Set second audit fields
CLEAN	;--Clean out the PXKAV array
DIE	;+Lock global and invoke FM ^DIE call.
LOOP	;+Copy delimited strings into sub-arrays.
FILE	;+Create a new entry in file and get IEN
ERROR	;+Check for missing required fields
DUP	;+Code to check for duplicates
DRDIE	;--Set the DR string and DO DIE
ER	;--PXKERROR MAKING IF NOT POPULATED CORRECTLY
AUD12	;--Set both audit fields
DELETE	;+Use FM ^DIK call to delete entry identified by PXKPIEN.

Name	Field # of Occurrence
^@(	ERROR+3, ERROR+10, AUD12+7, AUD2+8, DRDIE+16, DUP+10, ER+14
FILE^DICN	FILE+7
^DIE	DIE+2
^DIK	DELETE+3
UPD^PXKFVST	DRDIE+1
LOOP^PXKMOD	LOOP+4
UPD^PXKMOD	DRDIE+14

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

Name	Line Occurrences (* Changed, ! Killed)
^TMP("PXK"	DRDIE+8, DRDIE+13

Name	Line Occurrences
DIE	DRDIE+12, DRDIE+27, DRDIE+28
ER	DRDIE+30

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	FILE+8, DELETE+1, ER+7, ER+19, ER+20, ER+21
DD	FILE+3!
DIC	FILE+4*, FILE+10!
DIC(0	FILE+5*, DRDIE+29!
DIE	DRDIE+2*, DRDIE+29!
DIK	DELETE+2*, DELETE+4!
DO	FILE+3!
DR	FILE+9, AUD12+1, AUD12+6, AUD12+7, AUD2+1, AUD2+6, AUD2+9, DRDIE+26, DRDIE+27, DIE+4! , DIE+5*
>> PX	DUP+14, DUP+15, DUP+18
>> PXFG	DUP+14, DUP+15, DUP+19
>> PXJ	ERROR+6, ERROR+7, DUP+17
PXJJ	ERROR+7, ERROR+8, ERROR+9, ERROR+14!, DUP+17, DUP+18
>> PXJJJ	DUP+9, DUP+16, DUP+18*, DUP+19
PXK	ERROR+14!
>> PXKAFT(	LOOP+1
>> PXKAUDIT	AUD12+2, AUD12+3, AUD12+4, AUD2+2, AUD2+3, AUD2+4
>> PXKAV(	LOOP+1*, ERROR+8, CLEAN+5!, DRDIE+5, DRDIE+15, DRDIE+24, DRDIE+25, DUP+18, ER+4, ER+6 , ER+10, ER+11, ER+18, ER+20
>> PXKAV(0	ERROR+1, FILE+6
>> PXKBEF(	LOOP+2
>> PXKBV(	LOOP+2*, CLEAN+2, CLEAN+4, CLEAN+5
>> PXKCAT	LOOP+4, ERROR+13, DRDIE+1, DRDIE+7, DRDIE+8, DRDIE+11, DRDIE+13, DUP+1, DUP+2, ER+8 , ER+13, ER+19, ER+20, ER+21
>> PXKER	ERROR+4, ERROR+5, ERROR+6, ERROR+7, AUD12+7, AUD2+9, DRDIE+17, DRDIE+18, DRDIE+19, DRDIE+20* , DRDIE+21, DRDIE+22, DRDIE+23, DRDIE+24, DRDIE+25, DRDIE+26, DUP+11, DUP+12*, DUP+13, DUP+17 , DUP+19
>> PXKERROR(	ERROR+13, ER+19, ER+20, ER+21
PXKFD	ERROR+11, ERROR+14!, ER+15
>> PXKFGAD	DRDIE+6, DRDIE+9, DRDIE+19, DRDIE+20
>> PXKFGED	DRDIE+10, DRDIE+21, DRDIE+22
PXKFLD	ERROR+11, ERROR+12, ERROR+13, ERROR+14!, ER+15, ER+16, ER+17, ER+19, ER+20, ER+21
>> PXKFVDLM	AUD12+8, AUD2+10
PXKI	LOOP+1, LOOP+2, LOOP+3!, CLEAN+3, CLEAN+4, CLEAN+5, CLEAN+6!
PXKJ	LOOP+3!, CLEAN+1, CLEAN+2, CLEAN+4, CLEAN+5, CLEAN+6!
PXKLR	DRDIE+3*, DRDIE+29!, DIE+1, DIE+3
PXKMOD	ER+1~, ER+2*
>> PXKN	ER+3, ER+4, ER+6, ER+8, ER+9, ER+10, ER+11, ER+12, ER+18, ER+20
>> PXKNOD	ERROR+2, ERROR+8, AUD12+5, AUD2+5, DRDIE+4, DRDIE+5, DRDIE+6, DRDIE+9, DRDIE+11, DRDIE+15 , DRDIE+24, DRDIE+25, DRDIE+26, DUP+5, ER+12*, ER+13
>> PXKP	ER+5, ER+6, ER+8, ER+10, ER+11, ER+12, ER+18, ER+20
>> PXKPCE	ERROR+2, ERROR+9, AUD12+7, AUD2+7, DRDIE+6, DRDIE+8, DRDIE+9, DRDIE+10, DRDIE+15, DRDIE+24 , DRDIE+25, DRDIE+26, DUP+6, ER+12, ER+13
PXKPIEN	FILE+8, DRDIE+8, DRDIE+25, DELETE+1, DUP+4~, DUP+18
PXKPTR	DRDIE+2!
PXKPTR(	DRDIE+25*
>> PXKRRT	ER+7, ER+8, ER+9*, ER+10
PXKRT	ER+1~
PXKRTN	ERROR+3, ERROR+10, AUD12+7, AUD2+8, DRDIE+16, DUP+3~, DUP+7*, DUP+10, ER+14
>> PXKSEQ	ERROR+13, DRDIE+8, DRDIE+13, ER+2, ER+19, ER+20, ER+21
>> PXKSORR	AUD12+3, AUD2+3
PXKSTR	ER+1~, ER+18, ER+20, ER+21
>> PXKSUB	LOOP+1, LOOP+2, LOOP+4
>> PXKVCAT	DUP+7
>> PXKVRTN	DUP+8*, DUP+15, DUP+18
>> PXKVST	DUP+15
X	FILE+6*, FILE+10!
Y	FILE+8, FILE+10!

Customize PDF page

Package: PCE Patient Care Encounter

Routine: PXKMAIN1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items