Routine: RAPCE

Information

RAPCE ;HIRMFO/GJC-Interface with PCE APIs for wrkload, visits ; Sep 22, 2020@09:27:59

Package	Total	Call Graph
Radiology Nuclear Medicine	5	GETDEPT^RABWIBB (DX,PROCDX)^RABWPCE ($$ACTCODE,$$BASICMOD)^RACPTMSC (CKDUP,RESEND)^RAPCE1 FAILBUL^RAPCE2
Integrated Billing	1	$$SWSTAT^IBBAPI
Kernel	1	$$FMADD^XLFDT
PCE Patient Care Encounter	1	$$DATA2PCE^PXAPI
VA FileMan	1	FILE^DIE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

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

Entry Points

Name	Comments	DBIA/ICR reference
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
EN2	;check i-loc's credit method quit if 'no credit'
LON	; lock at P level
NONSET	; non-exam sets
KOUT
ENC(X)	; Set up the '"RAPXAPI",$J,"ENCOUNTER"' nodes
PCE(RADFN,RADTI,RACNI)	; Pass on the information to the PCE software
MULCS(RADFN,RADTI)	; Update the 'Credit recorded' field and the Visit
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
RECDCS(RADFN,RADTI,RACNI)	; Set 'Clinic Stop Recorded' to yes ; (70.03, fld 23)
SETUP	; Setup examination data node information ; If no provider, or inactive CPT, fail
VISIT(RADFN,RADTI,RACNI,RAVSIT)	; Stuff the Visit file pointer passed back ; from $$DATA2PCE^PXAPI() into the Visit field (70.02, fld 6)
CPTMOD(X3)	;CPT Modifiers ; CPT Mods for dupl. procedure+provider will be accounted for ; however, same CPT Mod will overwrite previous CPT Mod
OUTSIDE()	;is this study tied to an outside report? ; input: none (vars RADFN,RADTI,RACNI must exist)

External References

Name	Field # of Occurrence
FILE^DIE	RECDCS+3, VISIT+3
$$SWSTAT^IBBAPI	EN2+6
$$DATA2PCE^PXAPI	PCE+3, PCE+7
GETDEPT^RABWIBB	PROC+20
DX^RABWPCE	LON+10, NONSET+6
PROCDX^RABWPCE	PROC+22
$$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+20, PCE+22
$$FMADD^XLFDT	PROC+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	COMPLETE+20
^RA(72 - [#72]	LON+7, MULCS+4
^RA(79.1 - [#79.1]	EN2+1, ENC+4, ENC+5
^RADPT - [#70]	COMPLETE+22, LON+1, LON+6, LON+7, LON+17, NONSET+1, KOUT+1, PCE+22, MULCS+3, MULCS+4 , SETUP+2, SETUP+10, OUTSIDE+7
^RAMIS(71 - [#71]	SETUP+8
^RARPT - [#74]	ENC+3, SETUP+7, OUTSIDE+11
^TMP("DIERR"	COMPLETE+13!
^TMP("RAPXAPI"	COMPLETE+13!, 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, PROC+17, PROC+18, CPTMOD+3* , CPTMOD+5*

Label References

Name	Line Occurrences
$$OUTSIDE	COMPLETE+7
CPTMOD	PROC+6, PROC+21
ENC	LON+9, NONSET+6
KOUT	LON+18, NONSET+3
MULCS	PCE+14
NONSET	LON+2
PCE	LON+14, NONSET+6
PROC	LON+11, NONSET+6
RECDCS	PCE+13, MULCS+5
SETUP	LON+8, NONSET+5
VISIT	PCE+12, 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+20, PCE+22
RA	COMPLETE+14~, SETUP+10, CPTMOD+4, CPTMOD+5*
RA1	COMPLETE+14~, SETUP+10*
RA17	ENC+1~, ENC+2*, ENC+3
RA7002	COMPLETE+14~, COMPLETE+22*, COMPLETE+23, EN2+1, ENC+5, SETUP+10, SETUP+12
RA7003	COMPLETE+14~, 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, PROC+17, SETUP+3*, SETUP+7
RA7003(14	PROC+14, SETUP+4*
RA7003(15	PROC+4, PROC+13, PROC+17, SETUP+5*, SETUP+7
RA71	COMPLETE+14~, PROC+4, PROC+11, PROC+12, SETUP+8*, SETUP+12
RA791	COMPLETE+14~, EN2+1*, EN2+2
RABAD	COMPLETE+14~, LON+6, LON+8, LON+14, LON+16, NONSET+6, NONSET+7, ENC+6, SETUP+7, SETUP+12*
RACCOUNT	EN2+6~, PCE+7
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+12, PCE+13, PCE+20, PCE+22, MULCS+2~, MULCS+3* , MULCS+4, MULCS+5, MULCS+6, PROC+15, RECDCS~, RECDCS+2, SETUP+2, SETUP+10, VISIT~, VISIT+2 , OUTSIDE+5, OUTSIDE+7
RACNISAV	COMPLETE+14~, LON+4*, LON+13
RACNT	COMPLETE+14~, COMPLETE+21, LON+8, LON+9, LON+11, NONSET+4*, NONSET+6
RACOMIEN	COMPLETE+15~
RACPTM	COMPLETE+14~, SETUP+10!
RACPTM(	SETUP+10*, CPTMOD+5
RADFN	COMPLETE~, COMPLETE+22, LON+1, LON+6, LON+7, LON+14, LON+17, NONSET+1, NONSET+6, NONSET+7 , KOUT+1, ENC+7, PCE~, PCE+12, PCE+13, PCE+14, PCE+20, PCE+22, MULCS~, MULCS+3 , MULCS+4, MULCS+5, MULCS+6, RECDCS~, RECDCS+2, SETUP+2, SETUP+10, VISIT~, VISIT+2, OUTSIDE+5 , OUTSIDE+7
RADTE	COMPLETE+14~, COMPLETE+21*, ENC+8, PROC+15
RADTI	COMPLETE~, COMPLETE+21, COMPLETE+22, LON+1, LON+6, LON+7, LON+14, LON+17, NONSET+1, NONSET+6 , NONSET+7, KOUT+1, PCE~, PCE+12, PCE+13, PCE+14, PCE+20, PCE+22, MULCS~, MULCS+3 , MULCS+4, MULCS+5, MULCS+6, RECDCS~, RECDCS+2, SETUP+2, SETUP+10, VISIT~, VISIT+2, OUTSIDE+5 , OUTSIDE+7
RADUP	PROC+4~, PROC+7*, PROC+9
RADUPRC	COMPLETE+15~, NONSET+3
>> RADUZ	LON+1, LON+17, NONSET+7, PCE+20, PCE+22
RAEARRY	COMPLETE+14~, EN2+7*~, PCE+3, PCE+7
RAFDA	RECDCS+2~, VISIT+2~
RAFDA(	RECDCS+2, VISIT+2
RAIMGLOC	ENC+1~, ENC+4, ENC+5, ENC+6, ENC+9
RALCKFAL	COMPLETE+15~, COMPLETE+16, LON+1
RAPFSW	EN2+6~*, PCE+3, PCE+5, PROC+20
RAPKG	COMPLETE+14~, COMPLETE+20*, PCE+3, PCE+7
RARECMPL	COMPLETE+14~, LON+16, NONSET+7, PCE+11, PCE+19
RARPT	OUTSIDE+6~, OUTSIDE+10*, OUTSIDE+11
RARPT(0	OUTSIDE+11*, OUTSIDE+14
RARPTLOC	ENC+1~, ENC+3*, ENC+4
RASENT	COMPLETE+15~, PCE+15*
RASTAT	COMPLETE+14~
RASULT	PCE+1~, PCE+3, PCE+7
RAVSIT	COMPLETE+14~, PCE+3, PCE+7, PCE+10, PCE+12, MULCS+6, VISIT~, VISIT+2
RAWHOERR	PCE+18~*
>> RAXAMSET	COMPLETE+23*, LON+2, PCE+12, PCE+13, PCE+14, PCE+20, PCE+21
RAY3	OUTSIDE+6~, OUTSIDE+7*, OUTSIDE+10
U	LON+7, LON+10, NONSET+6, ENC+2, ENC+3, MULCS+4, SETUP+7, OUTSIDE+10, OUTSIDE+14
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+17, PROC+18, PROC+21, PROC+22
X1	PROC+4~*, PROC+5, PROC+6
X2	PROC+4~*
X3	PROC+4~, CPTMOD~, CPTMOD+3, CPTMOD+5
>> ZTQUEUED	LON+16, NONSET+7, PCE+11, PCE+19

Customize PDF page

Package: Radiology Nuclear Medicine