©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
RAPCE1 ;HIRMFO/GJC-Interface with PCE APIs for workload, visits;6/4/96 15:03 ;5/28/97 12:59
Source file <RAPCE1.m>
| 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 | Caller Graph |
|---|---|---|
| Radiology Nuclear Medicine | 3 | RABWORD1 RAORDC RAPCE |
| 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 | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| 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 |
| >> | 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 |