SDES2REACTTCLIN ;ALB/TJB,MGD - VISTA SCHEDULING REACTIVATE CLINIC RPC in HOSPITAL LOCATION FILE 44 ;Mar 18, 2024
Source file <SDES2REACTTCLIN.m>
Package | Total | Call Graph |
---|---|---|
Scheduling | 4 | $$ISOTFM^SDAMUTDT (BUILDJSON,ERRLOG)^SDES2JSON $$GETRES^SDES2UTIL1 VALCONTEXT^SDES2VALCONTEXT |
VA FileMan | 3 | TURNON^DIAUTL FILE^DIE $$GET1^DIQ |
Kernel | 2 | $$FMTE^XLFDT $$TRIM^XLFSTR |
Name | Comments | DBIA/ICR reference |
---|---|---|
REACTIVATECLIN(RETURNJSON,SDCONTEXT,SDPARAM) | ;Entry point for SDES2 REACTIVATE CLINIC RPC
|
|
INITVAR | ;Initialize input parameter
|
|
REACTIVATE(RETURN,SDCLINICIEN,REACTIVATIONDATE) | ;Reactivate Clinic
|
|
UPDATECLNRES(SDCLINICIEN,REACTIVATIONDATE,SDDUZ) | ;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)
|
|
SETERRORRETURN(ERRORS,RETURNERROR,RETURNJSON) | ;
|
|
SETEMPTYOBJECT(RETURNERROR) | ;set the return object into null if an error occur
|
Name | Field # of Occurrence |
---|---|
TURNON^DIAUTL | REACTIVATECLIN+28 |
FILE^DIE | REACTIVATE+8, UPDATECLNRES+6 |
$$GET1^DIQ | REACTIVATE+4, REACTIVATE+5, REACTIVATE+6, VALCLNIENREACTDT+5, VALCLNIENREACTDT+7, VALCLNIENREACTDT+18, VALCLNIENREACTDT+19 |
$$ISOTFM^SDAMUTDT | REACTIVATECLIN+29, VALCLNIENREACTDT+15 |
BUILDJSON^SDES2JSON | REACTIVATECLIN+24, REACTIVATECLIN+33, SETERRORRETURN+3 |
ERRLOG^SDES2JSON | REACTIVATE+9, VALCLNIENREACTDT+2, VALCLNIENREACTDT+4, VALCLNIENREACTDT+5, VALCLNIENREACTDT+13, VALCLNIENREACTDT+16, VALCLNIENREACTDT+17, VALCLNIENREACTDT+20, VALCLNIENREACTDT+21, VALCLNIENREACTDT+22 , VALCLNIENREACTDT+24 |
$$GETRES^SDES2UTIL1 | UPDATECLNRES+2 |
VALCONTEXT^SDES2VALCONTEXT | REACTIVATECLIN+23 |
$$FMTE^XLFDT | REACTIVATE+11, VALCLNIENREACTDT+21, VALCLNIENREACTDT+22, VALCLNIENREACTDT+24 |
$$TRIM^XLFSTR | REACTIVATE+6, VALCLNIENREACTDT+11 |
RPC Name | Call Tags |
---|---|
SDES2 REACTIVATE CLINIC | REACTIVATECLIN |
FileNo | Call Tags |
---|---|
^SC - [#44] | GET1^DIQ, TURNON^DIAUTL |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^SC - [#44] | VALCLNIENREACTDT+4 |
^SC("B" | VALCLNIENREACTDT+12 |
Name | Line Occurrences |
---|---|
$$REACTIVATE | REACTIVATECLIN+30 |
INITVAR | REACTIVATECLIN+25 |
SETEMPTYOBJECT | SETERRORRETURN+2 |
SETERRORRETURN | REACTIVATECLIN+27, REACTIVATECLIN+31 |
UPDATECLNRES | REACTIVATECLIN+32 |
VALCLNIENREACTDT | REACTIVATECLIN+26 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CLINICIEN | VALCLNIENREACTDT~, VALCLNIENREACTDT+2, VALCLNIENREACTDT+3, VALCLNIENREACTDT+4, VALCLNIENREACTDT+5, VALCLNIENREACTDT+7, VALCLNIENREACTDT+15, VALCLNIENREACTDT+18, VALCLNIENREACTDT+19 |
DT | VALCLNIENREACTDT+22 |
DUZ | UPDATECLNRES+5 |
ERRORS | REACTIVATECLIN+18~, REACTIVATECLIN+23, REACTIVATECLIN+24, REACTIVATECLIN+26, REACTIVATECLIN+27, REACTIVATECLIN+31, REACTIVATE+9, VALCLNIENREACTDT~, VALCLNIENREACTDT+2, VALCLNIENREACTDT+4 , VALCLNIENREACTDT+5, VALCLNIENREACTDT+13, VALCLNIENREACTDT+16, VALCLNIENREACTDT+17, VALCLNIENREACTDT+20, VALCLNIENREACTDT+21, VALCLNIENREACTDT+22, VALCLNIENREACTDT+24, SETERRORRETURN~, SETERRORRETURN+1 |
ERRORS("Error" | REACTIVATECLIN+27, REACTIVATECLIN+31 |
ERRORS("ReactivateClinic" | REACTIVATECLIN+24* |
INACTDT | VALCLNIENREACTDT+1~, VALCLNIENREACTDT+18*, VALCLNIENREACTDT+20, VALCLNIENREACTDT+21, VALCLNIENREACTDT+23 |
ISFILED | REACTIVATE+1~, REACTIVATE+2*, REACTIVATE+9*, REACTIVATE+12*, REACTIVATE+13 |
ISREACTIVATED | REACTIVATECLIN+19~, REACTIVATECLIN+30*, REACTIVATECLIN+32 |
REACTDT | VALCLNIENREACTDT+1~, VALCLNIENREACTDT+19*, VALCLNIENREACTDT+23, VALCLNIENREACTDT+24 |
REACTIVATIONDATE | REACTIVATECLIN+26, REACTIVATECLIN+29*, REACTIVATECLIN+30, REACTIVATECLIN+32, INITVAR+2*, REACTIVATE~, REACTIVATE+4, REACTIVATE+7, REACTIVATE+11, UPDATECLNRES~ , UPDATECLNRES+4, VALCLNIENREACTDT~, VALCLNIENREACTDT+15*, VALCLNIENREACTDT+16, VALCLNIENREACTDT+17, VALCLNIENREACTDT+21, VALCLNIENREACTDT+22, VALCLNIENREACTDT+23 |
RETURN | REACTIVATECLIN+18~, REACTIVATECLIN+30, REACTIVATECLIN+33, REACTIVATE~ |
RETURN("ReactivateClinic" | REACTIVATE+10*, REACTIVATE+11* |
RETURNERROR | REACTIVATECLIN+18~, REACTIVATECLIN+27, REACTIVATECLIN+31, SETERRORRETURN~, SETERRORRETURN+1*, SETERRORRETURN+2, SETERRORRETURN+3, SETEMPTYOBJECT~ |
RETURNERROR("ReactivateClinic" | SETEMPTYOBJECT+1*, SETEMPTYOBJECT+2* |
RETURNJSON | REACTIVATECLIN~, REACTIVATECLIN+21!, REACTIVATECLIN+24, REACTIVATECLIN+27, REACTIVATECLIN+31, REACTIVATECLIN+33, SETERRORRETURN~, SETERRORRETURN+3 |
SDCLINICIEN | REACTIVATECLIN+26, REACTIVATECLIN+29, REACTIVATECLIN+30, REACTIVATECLIN+32, INITVAR+1*, REACTIVATE~, REACTIVATE+4, REACTIVATE+5, REACTIVATE+6, REACTIVATE+7 , REACTIVATE+10, 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+7*, VALCLNIENREACTDT+9, VALCLNIENREACTDT+11 |
SDCONTEXT | REACTIVATECLIN~, REACTIVATECLIN+23 |
SDCONTEXT("US | ER DUZ" , REACTIVATECLIN+32 |
SDDUZ | UPDATECLNRES~, UPDATECLNRES+5 |
SDERR | REACTIVATE+1~, REACTIVATE+9 |
SDFDA | REACTIVATE+1~ |
SDFDA(44 | REACTIVATE+6*, REACTIVATE+7* |
SDNEWNAME | VALCLNIENREACTDT+10~, VALCLNIENREACTDT+11*, VALCLNIENREACTDT+12 |
SDPARAM | REACTIVATECLIN~ |
SDPARAM("CLIN | IC IEN" , INITVAR+1 |
SDPARAM("REAC | TIVATION DATE" , INITVAR+2 |
SDRESFDA | UPDATECLNRES+1~ |
SDRESFDA( | UPDATECLNRES+4*, UPDATECLNRES+5* |
TEMPIEN | VALCLNIENREACTDT+10~*, VALCLNIENREACTDT+12*, VALCLNIENREACTDT+13 |