RGADTUT ;HIRMFO/GJC-utility; determine pat. subscriptions (A01/A03) ;09/21/99
Source file <RGADTUT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SHARE(RGZSTR) | ; determine if the patient is shared:
; a) If shared, return one to RGADT1 and call GENERATE^HLMA ; b) If not shared and the host facility is the CMOR, update ; host TFL record, do not call GENERATE^HLMA ; c) If not shared and the host facility is not the CMOR, add ; the CMOR to the subscription list, return one to RGADT1 ; and call GENERATE^HLMA |
|
| EXC(RGX) | ; log an exception because:
|
|
| TFL | ; update the Treating Facility List file on:
; an exception -or- no subscribers CMOR data missing -or- ; "MPI" node missing -or- no subscribers & host is the CMOR ; Note: RGZSF is global in scope |
