Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RAPCE

Package: Radiology Nuclear Medicine

Routine: RAPCE


Information

RAPCE ;HIRMFO/GJC-Interface with PCE APIs for wrkload, visits ;27 Nov 2018 11:42 AM

Source Information

Source file <RAPCE.m>

Call Graph

Call Graph

Call Graph Total: 9

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:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

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
; an exam set are processed at once when order is complete)
; $$DATA2PCE^PXAPI returns: 1 if no errors, else error condition
EN2
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

External References

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

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+21, 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+18
ENC LON+9, NONSET+6
KOUT LON+18, NONSET+3
MULCS PCE+13
NONSET LON+2
PCE LON+14, NONSET+6
PROC LON+11, NONSET+6
RECDCS PCE+12, MULCS+5
SETUP LON+8, NONSET+5
VISIT PCE+11, 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+19, PCE+21
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+3
RABAD COMPLETE+7~, LON+6, LON+8, LON+14, LON+16, NONSET+6, NONSET+7, ENC+6*, SETUP+7*, SETUP+12*
RACCOUNT EN2+2~, 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+11, PCE+12, PCE+19, PCE+21*, MULCS+2~*, MULCS+3*
, MULCS+4, MULCS+5, MULCS+6, PROC+15, 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+11, PCE+12, PCE+13, PCE+19, PCE+21, 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+11, PCE+12, PCE+13, PCE+19, PCE+21, 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+19, PCE+21
RAEARRY COMPLETE+7~, EN2+4*~, 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+8~, COMPLETE+9*, LON+1*
RAPFSW EN2+2~*, PCE+3, PCE+5, PROC+17
RAPKG COMPLETE+7~, COMPLETE+13*, PCE+3, PCE+7
RARECMPL COMPLETE+7~, LON+16, NONSET+7, PCE+10, PCE+18
RARPTLOC ENC+1~, ENC+3*, ENC+4
RASENT COMPLETE+8~, PCE+14*
RASTAT COMPLETE+7~
RASULT PCE+1~, PCE+3*, PCE+7*, PCE+9
RAVSIT COMPLETE+7~, PCE+3, PCE+7, PCE+11, MULCS+6, VISIT~, VISIT+2
RAWHOERR PCE+17~*
>> RAXAMSET COMPLETE+16*, LON+2, PCE+11, PCE+12, PCE+13, PCE+19, PCE+20
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+18, PROC+19
X1 PROC+4~*, PROC+5, PROC+6
X2 PROC+4~*
X3 PROC+4~, CPTMOD~, CPTMOD+3, CPTMOD+5
>> ZTQUEUED LON+16, NONSET+7, PCE+10, PCE+18
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All