Routine: RAPCE

Package	Total	Call Graph
Radiology Nuclear Medicine	4	(DX,PROCDX)^RABWPCE ($$ACTCODE,$$BASICMOD)^RACPTMSC (CKDUP,RESEND)^RAPCE1 FAILBUL^RAPCE2
PCE Patient Care Encounter	1	$$DATA2PCE^PXAPI
VA Fileman	1	FILE^DIE

Package	Total	Caller Graph
Radiology Nuclear Medicine	4	RABWORD1 RAKRDIT RAORDU RAPCE1

Entry Points

Name	Comments	DBIA/ICR reference
CPTMOD(X3)	;CPT Modifiers ; CPT Mods for dupl. procedure+provider will be accounted for ; however, same CPT Mod will overwrite previous CPT Mod
PROC(X)	; Set up the other '"RAPXAPI",$J,"PROCEDURE"' nodes for this case ; If same procedure repeated in exam set, add to qty of existing ; 'procedure' node. Else, if different provider, create new ; separate 'procedure' nodes
VISIT(RADFN,RADTI,RACNI,RAVSIT)	; Stuff the Visit file pointer passed back ; from $$DATA2PCE^PXAPI() into the Visit field (70.02, fld 6)
SETUP	; Setup examination data node information ; If no provider, or inactive CPT, fail
LON	; lock at P level
KOUT
ENC(X)	; Set up the '"RAPXAPI",$J,"ENCOUNTER"' nodes
RECDCS(RADFN,RADTI,RACNI)	; Set 'Clinic Stop Recorded' to yes ; (70.03, fld 23)
EN2
COMPLETE(RADFN,RADTI,RACNI)	; When an exam status changes to 'complete' ; Input: RADFN-> Patient DFN, RADTI-> Exam Timestamp, RACNI-> Case IEN ; NOTE: RACNI input param is ignored for exam sets (all cases under ; an exam set are processed at once when order is complete) ; $$DATA2PCE^PXAPI returns: 1 if no errors, else error condition
MULCS(RADFN,RADTI)	; Update the 'Credit recorded' field and the Visit
PCE(RADFN,RADTI,RACNI)	; Pass on the information to the PCE software
NONSET	; non-exam sets

External References

Name	Field # of Occurrence
FILE^DIE	RECDCS+3, VISIT+3
$$DATA2PCE^PXAPI	PCE+7, PCE+11
DX^RABWPCE	LON+10, NONSET+6
PROCDX^RABWPCE	PROC+21
$$ACTCODE^RACPTMSC	SETUP+12
$$BASICMOD^RACPTMSC	SETUP+10
CKDUP^RAPCE1	NONSET+2
RESEND^RAPCE1	NONSET+3
FAILBUL^RAPCE2	LON+1, LON+17, NONSET+7, PCE+23, PCE+25

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	COMPLETE+13
^RA(72 - [#72]	LON+7, MULCS+4
^RA(79.1 - [#79.1]	EN2, ENC+4, ENC+5
^RADPT - [#70]	COMPLETE+15, LON+1, LON+6, LON+7, LON+17, NONSET+1, KOUT+1, PCE+25, MULCS+3, MULCS+4 , SETUP+2, SETUP+10
^RAMIS(71 - [#71]	SETUP+8
^RARPT - [#74]	ENC+3, SETUP+7
^TMP("DIERR"	COMPLETE+6!
^TMP("RAPXAPI"	COMPLETE+6!, LON+9, LON+14, KOUT!, ENC+7, ENC+8, ENC+9, ENC+10, ENC+11, PROC+4 , PROC+5, PROC+10, PROC+11, PROC+12, PROC+13, PROC+14, PROC+15, CPTMOD+3, CPTMOD+5

Label References

Name	Line Occurrences
CPTMOD	PROC+6, PROC+20
ENC	LON+9, NONSET+6
KOUT	LON+18, NONSET+3
MULCS	PCE+17
NONSET	LON+2
PCE	LON+14, NONSET+6
PROC	LON+11, NONSET+6
RECDCS	PCE+16, MULCS+5
SETUP	LON+8, NONSET+5
VISIT	PCE+15, MULCS+6

Naked Globals

Name	Field # of Occurrence
^(	SETUP+10
^("ENC PROVIDER"	PROC+4
^("QTY"	PROC+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DUZ	LON+1, LON+17, NONSET+7, PCE+23, PCE+25
RA	COMPLETE+7~, SETUP+10, CPTMOD+4, CPTMOD+5*
RA1	COMPLETE+7~, SETUP+10*
RA17	ENC+1~, ENC+2*, ENC+3
RA7002	COMPLETE+7~, COMPLETE+15*, COMPLETE+16, EN2, ENC+5, SETUP+10, SETUP+12
RA7003	COMPLETE+7~, LON+7, LON+10, NONSET+1, NONSET+6, ENC+2, SETUP+2*, SETUP+3, SETUP+4, SETUP+5 , SETUP+7, SETUP+8
RA7003(12	PROC+4, PROC+13, SETUP+3*, SETUP+7
RA7003(14	PROC+14, SETUP+4*
RA7003(15	PROC+4, PROC+13, SETUP+5*, SETUP+7
RA71	COMPLETE+7~, PROC+4, PROC+11, PROC+12, SETUP+8*, SETUP+12
RA791	COMPLETE+7~, EN2*, EN2+6
RABAD	COMPLETE+7~, LON+6, LON+8, LON+14, LON+16, NONSET+6, NONSET+7, ENC+6, SETUP+7, SETUP+12*
>> RACCOUNT	PCE+11
RACNI	COMPLETE~, LON+1, LON+4, LON+5, LON+6, LON+7, LON+13, LON+14, LON+17, NONSET+1 , NONSET+6, NONSET+7, KOUT+1, PCE~, PCE+15, PCE+16, PCE+23, PCE+25, MULCS+2~, MULCS+3* , MULCS+4, MULCS+5, MULCS+6, RECDCS~, RECDCS+2, SETUP+2, SETUP+10, VISIT~, VISIT+2
RACNISAV	COMPLETE+7~, LON+4*, LON+13
RACNT	COMPLETE+7~, COMPLETE+14, LON+8, LON+9, LON+11, NONSET+4*, NONSET+6
RACOMIEN	COMPLETE+8~
RACPTM	COMPLETE+7~, SETUP+10!
RACPTM(	SETUP+10*, CPTMOD+5
RADFN	COMPLETE~, COMPLETE+15, LON+1, LON+6, LON+7, LON+14, LON+17, NONSET+1, NONSET+6, NONSET+7 , KOUT+1, ENC+7, PCE~, PCE+15, PCE+16, PCE+17, PCE+23, PCE+25, MULCS~, MULCS+3 , MULCS+4, MULCS+5, MULCS+6, RECDCS~, RECDCS+2, SETUP+2, SETUP+10, VISIT~, VISIT+2
RADTE	COMPLETE+7~, COMPLETE+14*, ENC+8, PROC+15
RADTI	COMPLETE~, COMPLETE+14, COMPLETE+15, LON+1, LON+6, LON+7, LON+14, LON+17, NONSET+1, NONSET+6 , NONSET+7, KOUT+1, PCE~, PCE+15, PCE+16, PCE+17, PCE+23, PCE+25, MULCS~, MULCS+3 , MULCS+4, MULCS+5, MULCS+6, RECDCS~, RECDCS+2, SETUP+2, SETUP+10, VISIT~, VISIT+2
RADUP	PROC+4~, PROC+7*, PROC+9
RADUPRC	COMPLETE+8~, NONSET+3
>> RADUZ	LON+1, LON+17, NONSET+7, PCE+23, PCE+25
RAEARRY	COMPLETE+7~, EN2+7*~, PCE+7, PCE+11
RAFDA	RECDCS+2~, VISIT+2~
RAFDA(	RECDCS+2, VISIT+2
RAIMGLOC	ENC+1~, ENC+4, ENC+5, ENC+6, ENC+9
RALCKFAL	COMPLETE+8~, COMPLETE+9, LON+1
RAPFSW	EN2+4~*, PCE+7, PCE+9
RAPKG	COMPLETE+7~, COMPLETE+13*, PCE+7, PCE+11
RARECMPL	COMPLETE+7~, LON+16, NONSET+7, PCE+14, PCE+22
RARPTLOC	ENC+1~, ENC+3*, ENC+4
RASENT	COMPLETE+8~, PCE+18*
RASTAT	COMPLETE+7~
RASULT	PCE+5~, PCE+7, PCE+11, PCE+13
RAVSIT	COMPLETE+7~, PCE+7, PCE+11, PCE+15, MULCS+6, VISIT~, VISIT+2
RAWHOERR	PCE+21~*
>> RAXAMSET	COMPLETE+16*, LON+2, PCE+15, PCE+16, PCE+17, PCE+23, PCE+24
U	LON+7, LON+10, NONSET+6, ENC+2, ENC+3, MULCS+4, SETUP+7
X	ENC~, ENC+7, ENC+8, ENC+9, ENC+10, ENC+11, PROC~, PROC+4, PROC+10, PROC+11 , PROC+12, PROC+13, PROC+14, PROC+15, PROC+20, PROC+21
X1	PROC+4~*, PROC+5, PROC+6
X2	PROC+4~*
X3	PROC+4~, CPTMOD~, CPTMOD+3, CPTMOD+5
>> ZTQUEUED	LON+16, NONSET+7, PCE+14, PCE+22

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAPCE

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: