Routine: RAPCE1

Package	Total	Call Graph
Radiology Nuclear Medicine	2	EN2^RAPCE FAILBUL^RAPCE2
PCE Patient Care Encounter	1	$$DELVFILE^PXAPI
VA Fileman	1	FILE^DIE

Package

Total

Call Graph

Radiology Nuclear Medicine

EN2^RAPCE FAILBUL^RAPCE2

PCE Patient Care Encounter

$$DELVFILE^PXAPI

VA Fileman

FILE^DIE

Package	Total	Caller Graph
Radiology Nuclear Medicine	3	RABWORD1 RAORDC RAPCE

Package

Total

Caller Graph

Radiology Nuclear Medicine

RABWORD1 RAORDC RAPCE

Entry Points

Name	Comments	DBIA/ICR reference
UNCOMPL(RADFN,RADTI,RACNI)	; When an exam backs out of a complete status
D1
DELVST	; Delete all Rad/Nuc Med pkg data from ; Visit file, other V-files for exam date/time ; lock at DT level due re-crediting all prev cmpltd exms for same dt/tm ; also, lock before deleting entire visit, in case can't delete ; cl.stp.rec and visit pointers from locked record
DUNL
CKDUP	; are there more than one procedure of same name ? ; return 0 if 1 or fewer completed procedure of the same name/dt/tm ; return 1 if more than 1 completed procedure of the same name/dt/tm ; as this case ; RAX(raprcien) = no. cases with this procedure ien
C9
D9
MULCS(RADFN,RADTI)	; Clear the 'Clinic Stop Recorded?' field for ea case ; in this exam set ; (subfile: 70.03 Field #: 23) ;credit recorded fld
C1
RESEND	; del and resend this dt/tm ; delete what was previously sent to PCE ; need to lock before finding RAVSIT because another case with same ; patient/procedure/dt/tm may be setting up the visit pointer ; for the first time for this dt/tm, at this moment
REPNT(RADFN,RADTI)	; Repopulate the visit field
DELVPTR(RADFN,RADTI)	; each case in this exmset: del case ptrs to Visit file ; (subfile: 70.03 Field #: 27) ;visit ptr fld

Name	Field # of Occurrence
FILE^DIE	DELVPTR+5, MULCS+6, REPNT+2
$$DELVFILE^PXAPI	DELVST+8
EN2^RAPCE	DELVST+15
FAILBUL^RAPCE2	DELVST+5, RESEND+5

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Credit cannot be deleted for this exam due to lock failure for this exam date." Line Location: DELVST+5
Routine Call	DIE Line Location: DELVPTR+5 MULCS+6 REPNT+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	UNCOMPL+21
^RA(72 - [#72]	C1+2
^RA(79.1 - [#79.1]	UNCOMPL+23
^RADPT - [#70]	UNCOMPL+14, UNCOMPL+16, DELVST+5, DELVST+17, DELVPTR+3, MULCS+4, CKDUP+6, C1, RESEND+5, D1+1 , DUNL
^TMP("RAPXAPI"	UNCOMPL+11!, UNCOMPL+26!

Name	Line Occurrences
C1	C1+2, C1+5
C9	C1
D1	D1+1
D9	D1
DELVPTR	DELVST+7
DELVST	UNCOMPL+25, D9+1
DUNL	D9
MULCS	DELVST+10

Name	Field # of Occurrence
^(	C1+1
^(0	C1+1, D1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DUZ	DELVST+5, RESEND+5
I	CKDUP+7~, CKDUP+8, C1, C1+1, C1+3, RESEND+6~, RESEND+7, D1, D1+1
J	CKDUP+7~, C1+1*, C1+4
K	CKDUP+7~, C1+1*, C1+2
RA7002	UNCOMPL+10~, UNCOMPL+14*, UNCOMPL+15, UNCOMPL+23
RA7003	UNCOMPL+10~, UNCOMPL+16*, UNCOMPL+20, CKDUP+8
RA71	DELVST+15~
>> RA791	UNCOMPL+23*
RABAD	DELVST+15~
RACNI	UNCOMPL~, UNCOMPL+16, DELVST+5, DELVPTR+2~, DELVPTR+3, DELVPTR+4, MULCS+3~, MULCS+4, MULCS+5, REPNT+1 , CKDUP+6, RESEND+5
RACNT	DELVST+15~*
>> RACOMIEN(	C1+3*, D1
RADA1	DELVPTR+2~, DELVPTR+6!
RADA1(	DELVPTR+4*
RADA2	MULCS+3~, MULCS+7!
RADA2(	MULCS+5*
RADFN	UNCOMPL~, UNCOMPL+14, UNCOMPL+16, DELVST+5, DELVST+7, DELVST+10, DELVST+17, DELVPTR~, DELVPTR+3, DELVPTR+4 , MULCS~, MULCS+4, MULCS+5, REPNT~, REPNT+1, CKDUP+6, C1, RESEND+5, D1+1, DUNL
>> RADTE	UNCOMPL+22*
RADTI	UNCOMPL~, UNCOMPL+14, UNCOMPL+16, UNCOMPL+22, DELVST+5, DELVST+7, DELVST+10, DELVST+17, DELVPTR~, DELVPTR+3 , DELVPTR+4, MULCS~, MULCS+4, MULCS+5, REPNT~, REPNT+1, CKDUP+6, C1, RESEND+5, D1+1 , DUNL
>> RADUPRC	DELVST+11, CKDUP+5, C9+1
>> RADUZ	DELVST+5, RESEND+5
RAEARRY	UNCOMPL+10~, UNCOMPL+24*~
RAFDA	REPNT+1~
RAFDA(	REPNT+1*
RALCKFAL	UNCOMPL+10~, UNCOMPL+12, DELVST+5, RESEND+5*
>> RAPKG	UNCOMPL+21*, DELVST+8
RAPRCIEN	CKDUP+7~, CKDUP+8*, C9
RARECMPL	UNCOMPL+10~, DELVST+15*
>> RASENT	D9+2
RASTAT	DELVST+15~
>> RASULT	DELVST+8*, DELVST+9
RAVSIT	UNCOMPL+10~, UNCOMPL+20, DELVST+8, DELVST+15!, REPNT+1, D1+2, D9
RAX	CKDUP+7~
RAX(	C1+4*, C9
RAXAMSET	UNCOMPL+10~, UNCOMPL+15, DELVST+12, DELVST+15
U	UNCOMPL+20, CKDUP+8, C1+1, C1+2, D1+1, D1+2
>> ZTQUEUED	DELVST+11, D9+2

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAPCE1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: