SDES2INACTCLIN ;ALB/TJB,MGD,TJB,TJB,JAS,TJB,MCB - Inactivate Clinic in HOSPITAL LOCATION FILE 44 ;May 7, 2025
Source file <SDES2INACTCLIN.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SDINACTCLN(SDRETURN,SDCONTEXT,SDPARAM) | ;Inactivate Clinic
|
|
| INIT(SDPARAM,CLINICIEN,INACTDATE) | ; initialize values needed
|
|
| VALPARAM(ERRORS,PARAMS,DELINACT) | ; Check if we are doing a delete inactivation date
|
|
| VALIDATE(ERRORS,SDPARAM,INACTIVEDATE,CLINICIEN,DELINACT) | ; validate incoming parameters
|
|
| NOAPPOINTMENTS(CLINICIEN,INACTDATE,ERRORS) | ;
|
|
| BLDCINREC(SDCINREC,CLINICIEN,INACTIVEDATE,ERRORS) | ;Inactivate Clinic
; If the inactivation was filed in FILEMAN, no errors recorded, otherwise populate ERRORS |
|
| REMVTX(SCLIN,SDDATE) | ; Remove T0 to T6 patterns
|
|
| REMPROV(CLINIEN) | ;Remove Providers from Clinic
|
|
| UPDATECLNRES(SDCLINICIEN,INACTIVATIONDATE,SDDUZ,ERRORS) | ;Update INACTIVATED DATE/TIME and INACTIVATED BY USER in SDEC RESOURCE File #409.831
|
|
| DELETEINACTIVE(RESULTS,SDPARAM,SDDUZ) | ;
|
| RPC Name | Call Tags |
|---|---|
| SDES2 INACTIVATE CLINIC | SDINACTCLN |
| FileNo | Call Tags |
|---|---|
| ^SDEC(409.831 - [#409.831] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
| 44.003 | GET1^DIQ |
