SDESLOC ;ALB/ANU - VISTA SCHEDULING RPCS - USERS FOR HOSPITAL LOCATION ; May 09, 2022@15:20
Source file <SDESLOC.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 3 | UPDATE^DIE ^DIK $$GET1^DIQ |
| Scheduling | 2 | BUILDJSON^SDESBUILDJSON ERRLOG^SDESJSON |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| UPDPRIV(ELGRETURN,ADDFLAG,LOCIEN,USRIEN) | ;Update the list of privileged user for a hospital location
; This RPC adds privileged user to a hospital location. ; Input: ; ELGRETURN - [required] - Success or Error message ; ADDFLAG - [required] - 1 (Add User), 0 (Delete User) ; LOCIEN - [required] - The Hopspital Location IEN ; USRIEN - [required] - The New Person IEN |
|
| RMVALLUSR(ELGRETURN,LOCIEN) | ;Remove all privileged user for a hospital location
; This RPC removes privileged user to a hospital location. ; Input: ; ELGRETURN - [required] - Success or Error message ; LOCIEN - [required] - The Hopspital Location IEN |
|
| RTNALLUSR(ELGRETURN,LOCIEN) | ;Return all privileged user for a hospital location
; This RPC removes privileged user to a hospital location. ; Input: ; ELGRETURN - [required] - Success or Error message ; LOCIEN - [required] - The Hopspital Location IEN |
|
| VALIDATE(ERRORS,ADDFLAG,LOCIEN,USRIEN) | ; Validate Location IEN, User IEN
|
|
| VALIDATER(ERRORS,LOCIEN) | ; Validate Location IEN
|
|
| ADDUSR(ELGARRAY,LOCIEN,USRIEN) | ; Add User
|
|
| RMVUSR(ELGARRAY,LOCIEN,USRIEN) | ; Delete User
|
|
| RMVAUSR(ELGARRAY,LOCIEN) | ; Delete Users
|
|
| RTNAUSR(ELGARRAY,LOCIEN) | ; Return all Users
|
|
| EMPTYJSON(RETURN) | ;return an empty string JSON Format if an Error occur or no data found
|
|
| CLEANUP | ; Cleanup
|
| Name | Field # of Occurrence |
|---|---|
| UPDATE^DIE | ADDUSR+6 |
| ^DIK | RMVUSR+5, RMVAUSR+4 |
| $$GET1^DIQ | VALIDATE+11, VALIDATE+12, RTNAUSR+6 |
| BUILDJSON^SDESBUILDJSON | UPDPRIV+18, RMVALLUSR+14, RTNALLUSR+15 |
| ERRLOG^SDESJSON | VALIDATE+4, VALIDATE+6, VALIDATE+7, VALIDATE+9, VALIDATE+10, VALIDATE+11, VALIDATE+12, VALIDATER+4, VALIDATER+5 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SC - [#44] | VALIDATE+7, VALIDATER+5, RMVAUSR+4, RTNAUSR+3 |
| ^VA(200 - [#200] | VALIDATE+10 |
| Name | Line Occurrences |
|---|---|
| $$ADDUSR | UPDPRIV+14 |
| $$RMVAUSR | RMVALLUSR+11 |
| $$RMVUSR | UPDPRIV+15 |
| $$RTNAUSR | RTNALLUSR+11 |
| $$VALIDATE | UPDPRIV+11 |
| $$VALIDATER | RMVALLUSR+9, RTNALLUSR+9 |
| CLEANUP | UPDPRIV+19, RMVALLUSR+15, RTNALLUSR+16 |
| EMPTYJSON | RTNALLUSR+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADDFLAG | UPDPRIV~, UPDPRIV+11, UPDPRIV+14, UPDPRIV+15, VALIDATE~, VALIDATE+4, VALIDATE+11, VALIDATE+12 |
| CNT | ADDUSR+1~, ADDUSR+2*, ADDUSR+3, ADDUSR+4 |
| DA | RMVUSR+1~, RMVUSR+4*, RMVAUSR+1~, RMVAUSR+4*, CLEANUP+5! |
| DA(1 | RMVUSR+3*, RMVAUSR+3* |
| DIK | RMVUSR+1~, RMVUSR+2*, RMVAUSR+1~, RMVAUSR+2*, CLEANUP+5! |
| ELGARRAY | ADDUSR~, ADDUSR+10, RMVUSR~, RMVUSR+7, RMVAUSR~, RMVAUSR+6, RTNAUSR~, RTNAUSR+8 |
| ELGARRAY("Error" | ADDUSR+8*, RTNAUSR+7* |
| ELGARRAY("Pri | vileged User" , RTNAUSR+5*, RTNAUSR+6* |
| ELGARRAY("Success" | ADDUSR+9*, RMVUSR+6*, RMVAUSR+5* |
| ELGFIELDSARRAY | UPDPRIV+8~, UPDPRIV+9*, UPDPRIV+14, UPDPRIV+15, UPDPRIV+16, RMVALLUSR+6~, RMVALLUSR+7*, RMVALLUSR+11, RMVALLUSR+12, RTNALLUSR+6~ , RTNALLUSR+7*, RTNALLUSR+11, RTNALLUSR+12, CLEANUP+1! |
| ELGRETURN | UPDPRIV~, UPDPRIV+18, RMVALLUSR~, RMVALLUSR+14, RTNALLUSR~, RTNALLUSR+15 |
| ERR | ADDUSR+1~, ADDUSR+7, ADDUSR+9 |
| ERR("DIERR" | ADDUSR+8 |
| ERRORFLAG | VALIDATE+1~, VALIDATE+4*, VALIDATE+6*, VALIDATE+7*, VALIDATE+9*, VALIDATE+10*, VALIDATE+11*, VALIDATE+12*, VALIDATE+13, VALIDATER+1~ , VALIDATER+4*, VALIDATER+5*, VALIDATER+6, CLEANUP+2! |
| ERRORS | VALIDATE~, VALIDATE+4, VALIDATE+6, VALIDATE+7, VALIDATE+9, VALIDATE+10, VALIDATE+11, VALIDATE+12, VALIDATER~, VALIDATER+4 , VALIDATER+5 |
| FDA | ADDUSR+1~ |
| FDA( | ADDUSR+5* |
| HASDATA | ADDUSR+1~, ADDUSR+10*, ADDUSR+11, RMVUSR+7*, RMVUSR+8, RMVAUSR+6*, RMVAUSR+7, RTNAUSR+8*, RTNAUSR+9, CLEANUP+3! |
| HASFIELDS | UPDPRIV+8~, UPDPRIV+9*, UPDPRIV+14*, UPDPRIV+15*, UPDPRIV+16, RMVALLUSR+6~, RMVALLUSR+7*, RMVALLUSR+11*, RMVALLUSR+12, RTNALLUSR+6~ , RTNALLUSR+7*, RTNALLUSR+11*, RTNALLUSR+12, CLEANUP+1! |
| HASVLDERRORS | UPDPRIV+8~, UPDPRIV+11*, UPDPRIV+12, UPDPRIV+13, RMVALLUSR+6~, RMVALLUSR+9*, RMVALLUSR+10, RMVALLUSR+11, RTNALLUSR+6~, RTNALLUSR+9* , RTNALLUSR+10, RTNALLUSR+11, CLEANUP+1! |
| IEN | ADDUSR+1~, ADDUSR+4*, ADDUSR+5 |
| IENS | ADDUSR+1~ |
| IENS( | ADDUSR+3* |
| JSONERROR | CLEANUP+4! |
| LOCIEN | UPDPRIV~, UPDPRIV+11, UPDPRIV+14, UPDPRIV+15, RMVALLUSR~, RMVALLUSR+9, RMVALLUSR+11, RTNALLUSR~, RTNALLUSR+9, RTNALLUSR+11 , VALIDATE~, VALIDATE+6, VALIDATE+7, VALIDATE+11, VALIDATE+12, VALIDATER~, VALIDATER+4, VALIDATER+5, ADDUSR~, ADDUSR+5 , RMVUSR~, RMVUSR+2, RMVUSR+3, RMVAUSR~, RMVAUSR+2, RMVAUSR+3, RMVAUSR+4, RTNAUSR~, RTNAUSR+3, RTNAUSR+6 |
| RETURN | UPDPRIV+8~, UPDPRIV+9*, UPDPRIV+12*, UPDPRIV+16*, UPDPRIV+18, RMVALLUSR+6~, RMVALLUSR+7*, RMVALLUSR+10*, RMVALLUSR+12*, RMVALLUSR+14 , RTNALLUSR+6~, RTNALLUSR+7*, RTNALLUSR+10*, RTNALLUSR+12*, RTNALLUSR+14, RTNALLUSR+15, EMPTYJSON~, CLEANUP+1! |
| RETURN("Error" | EMPTYJSON+2 |
| RETURN("Privi | leged User" , EMPTYJSON+4*, EMPTYJSON+5* |
| RETURN("Success" | EMPTYJSON+2 |
| USRCNT | RTNAUSR+1~, RTNAUSR+2*, RTNAUSR+4*, RTNAUSR+5, RTNAUSR+6, RTNAUSR+7, EMPTYJSON+1~, EMPTYJSON+3*, EMPTYJSON+4, EMPTYJSON+5 |
| USRIEN | UPDPRIV~, UPDPRIV+11, UPDPRIV+14, UPDPRIV+15, VALIDATE~, VALIDATE+9, VALIDATE+10, VALIDATE+11, VALIDATE+12, ADDUSR~ , ADDUSR+3, ADDUSR+5, RMVUSR~, RMVUSR+4, RTNAUSR+1~, RTNAUSR+2*, RTNAUSR+3*, RTNAUSR+5, RTNAUSR+6 |
| USRNAME | RTNAUSR+1~ |
| VLDERRORS | UPDPRIV+8~, UPDPRIV+9*, UPDPRIV+11, UPDPRIV+12, RMVALLUSR+6~, RMVALLUSR+7*, RMVALLUSR+9, RMVALLUSR+10, RTNALLUSR+6~, RTNALLUSR+7* , RTNALLUSR+9, RTNALLUSR+10 |