RAPCE1 ;HIRMFO/GJC-Interface with PCE APIs for workload, visits;6/4/96 15:03 ; Apr 28, 2022@08:43:27
Source file <RAPCE1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| UNCOMPL(RADFN,RADTI,RACNI) | ; When an exam backs out of a complete status
|
|
| 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 |
|
| DELVPTR(RADFN,RADTI) | ; each case in this exmset: del case ptrs to Visit file
; (subfile: 70.03 Field #: 27) ;visit ptr fld |
|
| MULCS(RADFN,RADTI) | ; Clear the 'Clinic Stop Recorded?' field for ea case
; in this exam set ; (subfile: 70.03 Field #: 23) ;credit recorded fld |
|
| REPNT(RADFN,RADTI) | ; Repopulate the visit field
|
|
| 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 |
|
| C1 | ||
| C9 | ||
| 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 |
|
| D1 | ||
| D9 | ||
| DUNL | ||
| RSCRFLR | ;p189/KLM Resend credit failure to PCE (PX211 work around)
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
