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 |
Package | Total | Caller Graph |
---|---|---|
Scheduling | 3 | SDES SDES846P SDESCLINICSET2 |
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 |