©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
SCUTBK3 ;MJK/ALB - RPC Broker Utilities ; SEP 99
Source file <SCUTBK3.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | (BLD,MSG)^DIALOG (FILE,UPDATE)^DIE FDA^DILF |
| Kernel | 2 | GETENV^%ZOSV $$PATCH^XPDUTL |
| Scheduling | 2 | ($$CLNLST,$$DISCLNTS,$$UPCLNLST)^SCMCUT SECKEY^SCUTBK11 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VPATCH(SCX) | ; check server version
; ; input SCX := server^client (versions) |
|
| SETDEF(SCDATA,SCDUZ,SCQRY) | ; -- set user's default query
; input: SCDUZ -> user's id (DUZ) ; SCQRY ->query ien |
|
| GETUSER(SCDATA,SCDUZ) | ; -- get user data
|
|
| VAPVER(SCX) | ; check client RPCVersion
; ; input SCX := client RPCVersion(server XWBAPVER) ; ; output := RpcTimeLimit |
|
| SETDEFQ | ||
| SETPROC(SCDATA,SCPROC) | ; -- set process name for error list
|
|
| VERPAT(SCRESULT,SCPATCH) | ;
; for rpc SCMC VERIFY C/S SYNC ; input := ServerPatch^ClientVersion ; output := SCRESULT: 0 = Not Continue ; 1 = Continue (pre SD*5.3*204) ; n = RpcTimeLimit (after SD*5.3*204) |
|
| DEFAULT(SCDUZ) | ; -- get default query for user
|
|
| ERRCHK(SCDATA,SCERR,SCPROC) | ; -- process fileman dbs errors
|
|
| VPROGMR() | ; check if user is programmer
|
|
| HDREC(SCDATA,SCER,SCPROC) | ; -- build zeroth of SCDATA array
|
|
| VCLIENT(SCX) | ; check executable version/update if new
; ; input SCX := server^client (versions) |
| Name | Field # of Occurrence |
|---|---|
| GETENV^%ZOSV | GETUSER+17 |
| BLD^DIALOG | GETUSER+21 |
| MSG^DIALOG | ERRCHK+3 |
| FILE^DIE | SETDEF+25 |
| UPDATE^DIE | SETDEF+17 |
| FDA^DILF | SETDEF+15, SETDEF+24 |
| $$CLNLST^SCMCUT | VCLIENT+11, VCLIENT+16 |
| $$DISCLNTS^SCMCUT | VERPAT+10 |
| $$UPCLNLST^SCMCUT | VCLIENT+20 |
| SECKEY^SCUTBK11 | VPROGMR+2 |
| $$PATCH^XPDUTL | VPATCH+2 |
| RPC Name | Call Tags |
|---|---|
| SCUT GET USER RECORD | GETUSER |
| SCUT SET USER QUERY DEFAULT | SETDEF |
| SCMC VERIFY C/S SYNC | VERPAT |
| FileNo | Call Tags |
|---|---|
| ^SCRS(403.35 - [#403.35] | FDA^DILF |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(4 - [#4] | GETUSER+18 |
| ^SCRS(403.35 - [#403.35] | DEFAULT+2, SETDEF+14 |
| ^SCTM(404.44 - [#404.44] | VAPVER+4, VAPVER+6 |
| ^SD(404.95 - [#404.95] | DEFAULT+3, DEFAULT+4 |
| ^VA(200 - [#200] | GETUSER+13 |
| Name | Line Occurrences |
|---|---|
| $$DEFAULT | GETUSER+16 |
| $$VAPVER | VERPAT+14 |
| $$VCLIENT | VERPAT+23 |
| $$VPATCH | VERPAT+20 |
| $$VPROGMR | VERPAT+17 |
| ERRCHK | SETDEF+18, SETDEF+26 |
| HDREC | GETUSER+22, ERRCHK+4 |
| SETDEFQ | SETDEF+14 |
| SETPROC | HDREC+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIERR | GETUSER+11~, GETUSER+22, SETDEF+10~ |
| DUZ | GETUSER+12 |
| DUZ(2 | GETUSER+18 |
| SC1 | VCLIENT+10~, VCLIENT+11*, VCLIENT+12 |
| SC1LIST | VCLIENT+10~ |
| SC1LIST( | VCLIENT+12 |
| SC2 | VCLIENT+15~, VCLIENT+16*, VCLIENT+17 |
| SC2LIST | VCLIENT+15~ |
| SC2LIST( | VCLIENT+17 |
| SCCLI | VCLIENT+3~, VCLIENT+6*, VCLIENT+7, VCLIENT+12, VCLIENT+17 |
| SCDATA | GETUSER~, GETUSER+22, SETDEF~, SETDEF+18, SETDEF+26, HDREC~, HDREC+3, SETPROC~, ERRCHK~, ERRCHK+3 , ERRCHK+4 |
| SCDATA(0 | GETUSER+16*, GETUSER+18*, SETDEF+14, HDREC+2*, HDREC+5*, SETPROC+1* |
| SCDUZ | GETUSER~, GETUSER+12*, GETUSER+13, GETUSER+16, GETUSER+20, DEFAULT~, DEFAULT+2, SETDEF~, SETDEF+14, SETDEF+15 , SETDEF+16, SETDEF+24 |
| SCER | HDREC~, HDREC+1, HDREC+2 |
| SCERR | SETDEF+10~, SETDEF+12*, SETDEF+15, SETDEF+17, SETDEF+18, SETDEF+21!, SETDEF+22*, SETDEF+24, SETDEF+25, SETDEF+26 , ERRCHK~, ERRCHK+3 |
| SCERR("DIERR" | ERRCHK+2 |
| SCERS | ERRCHK+1~, ERRCHK+2*, ERRCHK+3, ERRCHK+4 |
| SCFDA | SETDEF+10~, SETDEF+12*, SETDEF+15, SETDEF+17, SETDEF+21!, SETDEF+22*, SETDEF+24, SETDEF+25 |
| SCIENS | SETDEF+10~, SETDEF+12*, SETDEF+17, SETDEF+21!, SETDEF+22* |
| SCIENS(1 | SETDEF+16* |
| SCPARM | GETUSER+11~, GETUSER+21 |
| SCPARM("USER | ID" , GETUSER+20* |
| SCPATCH | VERPAT~, VERPAT+20, VERPAT+23 |
| SCPROC | SETDEF+10~, SETDEF+11*, SETDEF+18, HDREC~, HDREC+3, SETPROC~, SETPROC+1, ERRCHK~, ERRCHK+4 |
| SCQRY | SETDEF~, SETDEF+23 |
| SCRESULT | VERPAT~, VERPAT+10*, VERPAT+11, VERPAT+14*, VERPAT+20*, VERPAT+23* |
| SCSER | VCLIENT+3~, VCLIENT+4*, VCLIENT+5, VCLIENT+11, VCLIENT+16 |
| SCVAL | SETDEF+10~, SETDEF+21!, SETDEF+23*, SETDEF+24 |
| SCX | VERPAT+7~, VPROGMR+1~, VPROGMR+2, VPROGMR+3, VAPVER~, VAPVER+3, VAPVER+4*, VAPVER+5, VAPVER+6*, VAPVER+7 , VCLIENT~, VCLIENT+4, VCLIENT+6, VCLIENT+20, VPATCH~, VPATCH+2 |
| U | GETUSER+16, GETUSER+18, DEFAULT+2, DEFAULT+4, VAPVER+6, VCLIENT+4, VCLIENT+6, VPATCH+2, HDREC+2, HDREC+5 , SETPROC+1 |
| X | GETUSER+11~, GETUSER+13*, GETUSER+14, GETUSER+16, DEFAULT+1~, DEFAULT+2*, DEFAULT+3*, DEFAULT+4*, DEFAULT+5 |
| >> XWBAPVER | VERPAT+14 |
| Y | GETUSER+15~, GETUSER+18 |