IBECEA37 ;EDE/WCJ-Multi-site maintain UC VISIT TRACKING FILE (#351.82) - CALLER/REQUESTOR ; 2-DEC-19
Source file <IBECEA37.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
AWAY | ||
UPDATED | ; Get all in File that were UPDATED and not yet pushed out. They may have gotten to some sites but not all sites
; |
|
MULTI(IBINDEX,IBLOOKUP) | ;
; IBINDEX = a single regular fileman index ; IBLOOKUP = internal value for that index |
|
LOGRES(IBDFN,ERR,RESMESS) | ; log results
|
|
TFL(DFN,IBS,IBT) | ; returns treating facility list (pass IBT by reference)
; supported references ia #2990, value returned is count ; needed to N Y because VAFCTFU1 will kill it ; DFN - Patient IEN ; IBS - External site ; IBT - By reference for results |
|
ALERTSO | ; alert someone
; what is needed to actually be informative - maybe PATIENT NAME, FULL ICN (if available), RECEIVING SITE, ERROR MESSAGE ; screen out all but errors (get rid of 0's (info only) and 1's (successes)) |
|
REMOVE(IBIEN) | ; remove from UPDATED index - only called if sent to ALL other treating facilities successfully.
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^IBUC(351.82 - [#351.82] | FIND^DIC |