SDES2INACTCLIN ;ALB/TJB,MGD,TJB - Inactivate Clinic in HOSPITAL LOCATION FILE 44 ;Sep 19, 2024
Source file <SDES2INACTCLIN.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 5 | ($$FMTISO,$$ISOTFM)^SDAMUTDT (BUILDJSON,ENCODE,ERRLOG)^SDES2JSON $$GETRES^SDES2UTIL1 VALCLINIEN^SDES2VAL44 VALCONTEXT^SDES2VALCONTEXT |
| VA FileMan | 2 | (FILE,UPDATE)^DIE $$GET1^DIQ |
| Kernel | 1 | $$FMADD^XLFDT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SDINACTCLN(SDRETURN,SDCONTEXT,SDPARAM) | ;Inactivate Clinic
|
|
| INIT(SDPARAM,CLINICIEN,INACTDATE) | ; initialize values needed
|
|
| VALIDATE(ERRORS,INACTIVEDATE,CLINICIEN) | ; 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 |
|
| UPDATECLNRES(SDCLINICIEN,INACTIVATIONDATE,SDDUZ,ERRORS) | ;Update INACTIVATED DATE/TIME and INACTIVATED BY USER in SDEC RESOURCE File #409.831
|
| Name | Field # of Occurrence |
|---|---|
| FILE^DIE | UPDATECLNRES+11 |
| UPDATE^DIE | BLDCINREC+10 |
| $$GET1^DIQ | NOAPPOINTMENTS+6, BLDCINREC+4, BLDCINREC+6, UPDATECLNRES+5 |
| $$FMTISO^SDAMUTDT | INIT+4 |
| $$ISOTFM^SDAMUTDT | VALIDATE+3, NOAPPOINTMENTS+2, BLDCINREC+5, UPDATECLNRES+4 |
| BUILDJSON^SDES2JSON | SDINACTCLN+17, SDINACTCLN+19, SDINACTCLN+23, SDINACTCLN+28 |
| ENCODE^SDES2JSON | SDINACTCLN+29 |
| ERRLOG^SDES2JSON | VALIDATE+4, VALIDATE+5, VALIDATE+6, NOAPPOINTMENTS+7, BLDCINREC+11, UPDATECLNRES+12 |
| $$GETRES^SDES2UTIL1 | UPDATECLNRES+2 |
| VALCLINIEN^SDES2VAL44 | SDINACTCLN+18 |
| VALCONTEXT^SDES2VALCONTEXT | SDINACTCLN+16 |
| $$FMADD^XLFDT | VALIDATE+6 |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SC - [#44] | NOAPPOINTMENTS+5, NOAPPOINTMENTS+6 |
| Name | Line Occurrences |
|---|---|
| BLDCINREC | SDINACTCLN+25 |
| INIT | SDINACTCLN+20 |
| NOAPPOINTMENTS | SDINACTCLN+22 |
| UPDATECLNRES | SDINACTCLN+27 |
| VALIDATE | SDINACTCLN+21 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CLINICIEN | SDINACTCLN+14~, SDINACTCLN+20, SDINACTCLN+21, SDINACTCLN+22, SDINACTCLN+25, SDINACTCLN+27, INIT~, INIT+1*, VALIDATE~, NOAPPOINTMENTS~ , NOAPPOINTMENTS+3*, NOAPPOINTMENTS+5, NOAPPOINTMENTS+6, BLDCINREC~, BLDCINREC+4, BLDCINREC+6, BLDCINREC+7, BLDCINREC+9 |
| DATEIDX | NOAPPOINTMENTS+1~, NOAPPOINTMENTS+4*, NOAPPOINTMENTS+5*, NOAPPOINTMENTS+6 |
| DT | INIT+4, VALIDATE+5, VALIDATE+6 |
| DUZ | UPDATECLNRES+7 |
| ERRORS | SDINACTCLN+14~, SDINACTCLN+16, SDINACTCLN+17, SDINACTCLN+18, SDINACTCLN+19, SDINACTCLN+21, SDINACTCLN+22, SDINACTCLN+23, SDINACTCLN+25, SDINACTCLN+27 , SDINACTCLN+28, VALIDATE~, VALIDATE+4, VALIDATE+5, VALIDATE+6, NOAPPOINTMENTS~, NOAPPOINTMENTS+7, BLDCINREC~, BLDCINREC+11, UPDATECLNRES~ , UPDATECLNRES+12 |
| ERRORS("ClinicInactivate" | SDINACTCLN+17*, SDINACTCLN+19* |
| FMDATE | VALIDATE+1~, VALIDATE+3*, VALIDATE+4, VALIDATE+5, VALIDATE+6, NOAPPOINTMENTS+1~, NOAPPOINTMENTS+2*, NOAPPOINTMENTS+4, NOAPPOINTMENTS+5, NOAPPOINTMENTS+6* , BLDCINREC+2~, BLDCINREC+5*, BLDCINREC+7, BLDCINREC+8, UPDATECLNRES+1~, UPDATECLNRES+4*, UPDATECLNRES+6, UPDATECLNRES+8 |
| I1 | NOAPPOINTMENTS+1~, NOAPPOINTMENTS+6* |
| INACTDATE | SDINACTCLN+14~, SDINACTCLN+20, SDINACTCLN+21, SDINACTCLN+22, SDINACTCLN+25, SDINACTCLN+27, INIT~, INIT+2*, INIT+4*, NOAPPOINTMENTS~ , NOAPPOINTMENTS+2 |
| INACTIVATIONDATE | UPDATECLNRES~, UPDATECLNRES+4 |
| INACTIVEDATE | VALIDATE~, VALIDATE+3, BLDCINREC~, BLDCINREC+5 |
| LASTDATE | NOAPPOINTMENTS+1~, NOAPPOINTMENTS+4*, NOAPPOINTMENTS+5 |
| POP | NOAPPOINTMENTS+1~, NOAPPOINTMENTS+4*, NOAPPOINTMENTS+5, NOAPPOINTMENTS+6*, NOAPPOINTMENTS+7 |
| REACTDT | BLDCINREC+2~, BLDCINREC+4*, BLDCINREC+8, UPDATECLNRES+1~, UPDATECLNRES+5*, UPDATECLNRES+8 |
| RESULTS | SDINACTCLN+14~, SDINACTCLN+25, SDINACTCLN+29 |
| SDCINREC | BLDCINREC~ |
| SDCINREC("ClinicInactivate" | BLDCINREC+12* |
| SDCLINICIEN | UPDATECLNRES~, UPDATECLNRES+2 |
| SDCLINRES | UPDATECLNRES+1~, UPDATECLNRES+2*, UPDATECLNRES+3, UPDATECLNRES+5, UPDATECLNRES+6, UPDATECLNRES+7, UPDATECLNRES+9, UPDATECLNRES+10, UPDATECLNRES+12 |
| SDCLNNAME | BLDCINREC+2~, BLDCINREC+3*, BLDCINREC+6* |
| SDCONTEXT | SDINACTCLN~, SDINACTCLN+16 |
| SDCONTEXT("US | ER DUZ" , SDINACTCLN+27 |
| SDDUZ | UPDATECLNRES~, UPDATECLNRES+7 |
| SDERR | BLDCINREC+2~, BLDCINREC+11, UPDATECLNRES+1~, UPDATECLNRES+12 |
| SDFDA | BLDCINREC+2~ |
| SDFDA(44 | BLDCINREC+7*, BLDCINREC+9* |
| SDPARAM | SDINACTCLN~, SDINACTCLN+20, INIT~ |
| SDPARAM("CLIN | IC IEN" , SDINACTCLN+18, INIT+1 |
| SDPARAM("INAC | TIVATION DATE" , INIT+2 |
| SDRESFDA | UPDATECLNRES+1~ |
| SDRESFDA( | UPDATECLNRES+6*, UPDATECLNRES+7*, UPDATECLNRES+9*, UPDATECLNRES+10* |
| SDRETURN | SDINACTCLN~, SDINACTCLN+17, SDINACTCLN+19, SDINACTCLN+23, SDINACTCLN+28, SDINACTCLN+29 |
