SDES2REACTTCLIN2 ;ALB/JAS,TJB,TAW - VISTA SCHEDULING REACTIVATE CLINIC RPC 2 in HOSPITAL LOCATION FILE 44 ;AUG 25, 2025
Source file <SDES2REACTTCLIN2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| REACTIVATECLIN(RETURNJSON,SDCONTEXT,SDPARAM) | ;Entry point for SDES2 REACTIVATE CLINIC RPC
|
|
| INITVAR(SDPARAM,SDCLINICIEN,REACTIVATIONDATE,PROVIDERS) | ;Initialize input parameter
|
|
| REACTIVATE(RETURN,SDCLINICIEN,REACTIVATIONDATE,PROVIDERS) | ;Reactivate Clinic
|
|
| UPDATECLNRES(SDCLINICIEN,REACTIVATIONDATE) | ;Update REACTIVATED DATE/TIME and REACTIVATED BY USER in SDEC RESOURCE File #409.831
|
|
| VALCLNIENREACTDT(ERRORS,CLINICIEN,REACTIVATIONDATE) | ;validate Clinic IEN and Reactivation Date (they need to go hand in hand together)
|
|
| VALPROVLST(ERRORS,CLINICIEN,PROVIDERS) | ;validate provider list
|
|
| SETERRORRETURN(ERRORS,RETURNERROR,RETURNJSON) | ;
|
|
| SETEMPTYOBJECT(RETURNERROR) | ;set the return object into null if an error occur
|
|
| CHECKSTOP(ERRORS,STOPCODE,SKIPPROV) | ;
|
| Name | Field # of Occurrence |
|---|---|
| TURNON^DIAUTL | REACTIVATECLIN+35 |
| FIND^DIC | CHECKSTOP+2 |
| FILE^DIE | REACTIVATE+8, UPDATECLNRES+6 |
| UPDATE^DIE | REACTIVATE+21 |
| $$GET1^DIQ | REACTIVATE+4, REACTIVATE+5, REACTIVATE+6, VALCLNIENREACTDT+5, VALCLNIENREACTDT+9, VALCLNIENREACTDT+20, VALCLNIENREACTDT+21 |
| $$ISOTFM^SDAMUTDT | REACTIVATECLIN+36, VALCLNIENREACTDT+17 |
| BUILDJSON^SDES2JSON | REACTIVATECLIN+27, REACTIVATECLIN+40, SETERRORRETURN+3 |
| ERRLOG^SDES2JSON | REACTIVATE+9, VALCLNIENREACTDT+2, VALCLNIENREACTDT+4, VALCLNIENREACTDT+5, VALCLNIENREACTDT+15, VALCLNIENREACTDT+18, VALCLNIENREACTDT+19, VALCLNIENREACTDT+22, VALCLNIENREACTDT+23, VALCLNIENREACTDT+24 , VALCLNIENREACTDT+26, VALPROVLST+5, VALPROVLST+11, VALPROVLST+12, VALPROVLST+14, CHECKSTOP+5 |
| $$GETRES^SDES2UTIL1 | UPDATECLNRES+2 |
| VALCONTEXT^SDES2VALCONTEXT | REACTIVATECLIN+26 |
| $$FMTE^XLFDT | REACTIVATE+11, VALCLNIENREACTDT+23, VALCLNIENREACTDT+24, VALCLNIENREACTDT+26 |
| $$TRIM^XLFSTR | REACTIVATE+6, VALCLNIENREACTDT+13 |
| DUZ^XUP | REACTIVATECLIN+28 |
| RPC Name | Call Tags |
|---|---|
| SDES2 REACTIVATE CLINIC 2 | REACTIVATECLIN |
| FileNo | Call Tags |
|---|---|
| ^DIC(40.7 - [#40.7] | FIND^DIC |
| ^SC - [#44] | GET1^DIQ, TURNON^DIAUTL |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SC - [#44] | REACTIVATE+18, VALCLNIENREACTDT+4, VALPROVLST+2, VALPROVLST+5 |
| ^SC("B" | VALCLNIENREACTDT+14 |
| ^VA(200 - [#200] | VALPROVLST+12 |
| Name | Line Occurrences |
|---|---|
| $$REACTIVATE | REACTIVATECLIN+37 |
| CHECKSTOP | VALPROVLST+4 |
| INITVAR | REACTIVATECLIN+29 |
| SETEMPTYOBJECT | SETERRORRETURN+2 |
| SETERRORRETURN | REACTIVATECLIN+31, REACTIVATECLIN+33, REACTIVATECLIN+38 |
| UPDATECLNRES | REACTIVATECLIN+39 |
| VALCLNIENREACTDT | REACTIVATECLIN+30 |
| VALPROVLST | REACTIVATECLIN+32 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CLIN | REACTIVATECLIN+22~ |
| CLINICIEN | VALCLNIENREACTDT~, VALCLNIENREACTDT+2, VALCLNIENREACTDT+3, VALCLNIENREACTDT+4, VALCLNIENREACTDT+5, VALCLNIENREACTDT+9, VALCLNIENREACTDT+17, VALCLNIENREACTDT+20, VALCLNIENREACTDT+21, VALPROVLST~ , VALPROVLST+2, VALPROVLST+5 |
| DT | VALCLNIENREACTDT+24 |
| DUZ | REACTIVATECLIN+28~, UPDATECLNRES+5 |
| ERROR | CHECKSTOP+1~, CHECKSTOP+2!, CHECKSTOP+3, CHECKSTOP+5 |
| ERRORS | REACTIVATECLIN+20~, REACTIVATECLIN+26, REACTIVATECLIN+27, REACTIVATECLIN+30, REACTIVATECLIN+31, REACTIVATECLIN+32, REACTIVATECLIN+33, REACTIVATECLIN+38, REACTIVATE+9, VALCLNIENREACTDT~ , VALCLNIENREACTDT+2, VALCLNIENREACTDT+4, VALCLNIENREACTDT+5, VALCLNIENREACTDT+15, VALCLNIENREACTDT+18, VALCLNIENREACTDT+19, VALCLNIENREACTDT+22, VALCLNIENREACTDT+23, VALCLNIENREACTDT+24, VALCLNIENREACTDT+26 , VALPROVLST~, VALPROVLST+4, VALPROVLST+5, VALPROVLST+11, VALPROVLST+12, VALPROVLST+14, SETERRORRETURN~, SETERRORRETURN+1, CHECKSTOP~, CHECKSTOP+5 |
| ERRORS("Error" | REACTIVATECLIN+31, REACTIVATECLIN+33, REACTIVATECLIN+38, VALCLNIENREACTDT+7 |
| ERRORS("ReactivateClinic" | REACTIVATECLIN+27* |
| IEN | REACTIVATECLIN+22~ |
| INACTDT | VALCLNIENREACTDT+1~, VALCLNIENREACTDT+20*, VALCLNIENREACTDT+22, VALCLNIENREACTDT+23, VALCLNIENREACTDT+25 |
| INDEX | CHECKSTOP+1~, CHECKSTOP+4* |
| ISFILED | REACTIVATE+1~, REACTIVATE+2*, REACTIVATE+9*, REACTIVATE+22*, REACTIVATE+23 |
| ISREACTIVATED | REACTIVATECLIN+21~, REACTIVATECLIN+37*, REACTIVATECLIN+39 |
| OUT | CHECKSTOP+1~, CHECKSTOP+2! |
| OUT("DILIST" | CHECKSTOP+4 |
| PROVDA | REACTIVATE+14~*, REACTIVATE+15*, REACTIVATE+16, REACTIVATE+17, VALPROVLST+7~, VALPROVLST+8*, VALPROVLST+9*, VALPROVLST+10, VALPROVLST+13 |
| PROVDEF | REACTIVATE+14~, REACTIVATE+17*, REACTIVATE+20, VALPROVLST+7~, VALPROVLST+13*, VALPROVLST+14 |
| PROVDUZ | REACTIVATECLIN+22~, REACTIVATE+14~, REACTIVATE+16*, REACTIVATE+18, REACTIVATE+19, VALPROVLST+7~, VALPROVLST+10*, VALPROVLST+11, VALPROVLST+12 |
| PROVIDERS | REACTIVATECLIN+21~, REACTIVATECLIN+29, REACTIVATECLIN+37, INITVAR~, INITVAR+3*, REACTIVATE~, REACTIVATE+13, VALPROVLST~ |
| PROVIDERS( | REACTIVATE+15, REACTIVATE+16, REACTIVATE+17 |
| PROVIDERS("PROVIDER" | VALPROVLST+5, VALPROVLST+6, VALPROVLST+9, VALPROVLST+10, VALPROVLST+13 |
| REACTDT | VALCLNIENREACTDT+1~, VALCLNIENREACTDT+21*, VALCLNIENREACTDT+25, VALCLNIENREACTDT+26 |
| REACTIVATIONDATE | REACTIVATECLIN+21~, REACTIVATECLIN+29, REACTIVATECLIN+30, REACTIVATECLIN+36*, REACTIVATECLIN+37, REACTIVATECLIN+39, INITVAR~, INITVAR+2*, REACTIVATE~, REACTIVATE+4 , REACTIVATE+7, REACTIVATE+11, UPDATECLNRES~, UPDATECLNRES+4, VALCLNIENREACTDT~, VALCLNIENREACTDT+17*, VALCLNIENREACTDT+18, VALCLNIENREACTDT+19, VALCLNIENREACTDT+23, VALCLNIENREACTDT+24 , VALCLNIENREACTDT+25 |
| RETURN | REACTIVATECLIN+20~, REACTIVATECLIN+37, REACTIVATECLIN+40, REACTIVATE~ |
| RETURN("ReactivateClinic" | REACTIVATE+10*, REACTIVATE+11* |
| RETURNERROR | REACTIVATECLIN+20~, REACTIVATECLIN+31, REACTIVATECLIN+33, REACTIVATECLIN+38, SETERRORRETURN~, SETERRORRETURN+1*, SETERRORRETURN+2, SETERRORRETURN+3, SETEMPTYOBJECT~ |
| RETURNERROR("ReactivateClinic" | SETEMPTYOBJECT+1*, SETEMPTYOBJECT+2* |
| RETURNJSON | REACTIVATECLIN~, REACTIVATECLIN+24!, REACTIVATECLIN+27, REACTIVATECLIN+31, REACTIVATECLIN+33, REACTIVATECLIN+38, REACTIVATECLIN+40, SETERRORRETURN~, SETERRORRETURN+3 |
| SDCLINICIEN | REACTIVATECLIN+21~, REACTIVATECLIN+29, REACTIVATECLIN+30, REACTIVATECLIN+32, REACTIVATECLIN+36, REACTIVATECLIN+37, REACTIVATECLIN+39, INITVAR~, INITVAR+1*, REACTIVATE~ , REACTIVATE+4, REACTIVATE+5, REACTIVATE+6, REACTIVATE+7, REACTIVATE+10, REACTIVATE+18, REACTIVATE+19, REACTIVATE+20, UPDATECLNRES~, UPDATECLNRES+2 |
| SDCLINNAME | VALCLNIENREACTDT+1~ |
| SDCLINRES | UPDATECLNRES+1~, UPDATECLNRES+2*, UPDATECLNRES+3, UPDATECLNRES+4, UPDATECLNRES+5 |
| SDCLNNAME | REACTIVATE+1~, REACTIVATE+5*, REACTIVATE+6, VALCLNIENREACTDT+1~, VALCLNIENREACTDT+9*, VALCLNIENREACTDT+11, VALCLNIENREACTDT+13 |
| SDCONTEXT | REACTIVATECLIN~, REACTIVATECLIN+26 |
| SDCONTEXT("US | ER DUZ" , REACTIVATECLIN+28 |
| SDERR | REACTIVATE+1~, REACTIVATE+9 |
| SDERR("DIERR" | REACTIVATE+9 |
| SDFDA | REACTIVATE+1~, REACTIVATE+14~, REACTIVATE+21! |
| SDFDA( | REACTIVATE+19*, REACTIVATE+20* |
| SDFDA(44 | REACTIVATE+6*, REACTIVATE+7* |
| SDNEWNAME | VALCLNIENREACTDT+12~, VALCLNIENREACTDT+13*, VALCLNIENREACTDT+14 |
| SDPARAM | REACTIVATECLIN~, REACTIVATECLIN+29, REACTIVATECLIN+32, INITVAR~ |
| SDPARAM("CLIN | IC IEN" , INITVAR+1 |
| SDPARAM("PROVIDER" | INITVAR+3 |
| SDPARAM("REAC | TIVATION DATE" , INITVAR+2 |
| SDRESFDA | UPDATECLNRES+1~ |
| SDRESFDA( | UPDATECLNRES+4*, UPDATECLNRES+5* |
| SKIPPROV | VALPROVLST+1~, VALPROVLST+3*, VALPROVLST+4, VALPROVLST+5, CHECKSTOP~, CHECKSTOP+4* |
| STOPARR | VALPROVLST+1~ |
| STOPCODE | VALPROVLST+1~, VALPROVLST+2*, VALPROVLST+4, CHECKSTOP~, CHECKSTOP+4 |
| TEMPIEN | VALCLNIENREACTDT+12~*, VALCLNIENREACTDT+14*, VALCLNIENREACTDT+15 |
| U | VALPROVLST+2 |
