SDESRTVCLN2 ;ALB/MGD,ANU,LAB,MGD,ANU,JAS,LAB,DJS,JAS,LAB,BWF - Get Clinic Info based on Clinic IEN ;DEC 5, 2023
Source file <SDESRTVCLN2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| JSONCLNINFO(RETSDCLNJSON,SDCLNIEN,SDEAS,HASHFLG) | ;Get Clinic info
|
|
| ADDHASH(CLIN,ELGFIELDSARRAY,SDCLNJSON,HASHFLG) | ;Add hash to output
|
|
| UPDATECLINICHASH(CLIN,HASH,HASHDATE,SDCLNJSON) | ;update clinic with new hash
|
|
| ADDHASH2CLIN(IEN) | ; add HASH to clinic after creation of clinic
|
|
| VALIDATECLINIC(ERRORS,CLINIC) | ;
|
|
| VALIDATEEAS(ERRORS,EAS) | ;
|
|
| VALIDATEHASHFLG(ERRORS,HASHFLG) | ;
|
|
| BLDCLNREC(SDCLNSREC,SDCLNIEN) | ;Get Clinic data
|
|
| CLEANUP | ; kill vars
|
| RPC Name | Call Tags |
|---|---|
| SDES GET CLINIC INFO2 | JSONCLNINFO |
| FileNo | Call Tags |
|---|---|
| ^DIC(40.7 - [#40.7] | GET1^DIQ |
| ^SDEC(409.831 - [#409.831] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ, GETS^DIQ |
| 44.04 | GET1^DIQ |
