MAGJUTL5 ;WOIFO/JHC,DAC,GXT - VistARad RPCs ; May 19, 2020@13:22:53
Source file <MAGJUTL5.m>
| 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 |
|---|---|---|
| GETVER(SVRVER,SVRTVER,ALLOWCL,VIXVER) | ;
; The Server Version SVRVER is hardcoded to match the Client ; so this Routine must be edited/distributed with a new Client ; released Client will have the T version that the server expects |
|
| CHKVER(MAGRY,CLVER,PLC,SVERSION) | ;
; Input CLVER is the version of the Client ; format: Major.Minor.Patch.Build# [|VIX] -- eg 3.0.115.4|VIX ; Build # = T-version; VIX string only appears if a VIX session ; 3 possible return codes in MAGRY: ; 2^n~msg : Client displays a message and continues ; 1^1~msg : Client continues without displaying a message ; 0^n~msg : Client displays a message then Aborts ; PLC returns 2006.1 pointer |
|
| P32STOP(RET) | ; logic to indicate P32 should no longer function, once the RELEASED P76 is installed
; This is invoked from magjutl3, P76 version, if a P32 client is launched ; RET=1/0 ^ text -- 0 = OK to run P32; 1 = Not OK |
|
| VERSTAT(MAGRY,MAGVER) | ;
; Returns the status of an Imaging Version ; Input: ; MAGVER - Version number in format MAG*3.0*59 or 3.0.59 ; Return: MAGRY = 0/1/2 -- see below; 0: abort; else, OK to proceed |
|
| END | ;
|
| FileNo | Call Tags |
|---|---|
| ^XPD(9.6 - [#9.6] | FIND1^DIC, GET1^DIQ |
| Name | Line Occurrences |
|---|---|
| GETVER | CHKVER+27, P32STOP+5 |
| VERSTAT | CHKVER+31, P32STOP+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ALLOWCL | GETVER~, GETVER+9*, GETVER+19* |
| ALLOWV | CHKVER+11~, CHKVER+27, CHKVER+38, P32STOP+3~, P32STOP+5 |
| CLVER | CHKVER~, CHKVER+10*, CHKVER+21, CHKVER+28*, CHKVER+29, CHKVER+39, CHKVER+41, CHKVER+42, CHKVER+43, CHKVER+49 , CHKVER+52, CHKVER+55 |
| CP | CHKVER+11~, CHKVER+29* |
| CT | CHKVER+11~, CHKVER+29*, CHKVER+48, CHKVER+50 |
| CV | CHKVER+11~, CHKVER+29*, CHKVER+37, CHKVER+38 |
| DUZ(2 | CHKVER+23 |
| MAGERR | VERSTAT+6~ |
| >> MAGJOB("VIX" | GETVER+18, CHKVER+21* |
| MAGRY | CHKVER~, CHKVER+10*, CHKVER+25*, CHKVER+32*, CHKVER+39*, CHKVER+41*, CHKVER+42*, CHKVER+43*, CHKVER+49*, CHKVER+50* , CHKVER+51*, CHKVER+52*, CHKVER+55*, VERSTAT~, VERSTAT+9*, VERSTAT+12*, VERSTAT+13*, VERSTAT+14* |
| MAGVER | VERSTAT~, VERSTAT+7*, VERSTAT+8 |
| PLC | CHKVER~, CHKVER+10*, CHKVER+23*, CHKVER+25 |
| RELEASED | P32STOP+3~, P32STOP+8*, P32STOP+9 |
| RET | P32STOP~, P32STOP+4*, P32STOP+7*, P32STOP+9* |
| ST | CHKVER+11~, CHKVER+27, CHKVER+35, CHKVER+48, CHKVER+50, P32STOP+3~, P32STOP+5 |
| SV | CHKVER+11~, CHKVER+27, CHKVER+31, CHKVER+34, CHKVER+35, CHKVER+37, P32STOP+3~, P32STOP+5, P32STOP+6, P32STOP+9 |
| SVERSION | CHKVER~, CHKVER+34*, CHKVER+35*, CHKVER+39, CHKVER+41, CHKVER+42, CHKVER+43, CHKVER+49, CHKVER+52, CHKVER+55 |
| SVRTVER | GETVER~, GETVER+7* |
| SVRVER | GETVER~, GETVER+7* |
| SVSTAT | CHKVER+11~, CHKVER+31, CHKVER+32, CHKVER+33, P32STOP+3~, P32STOP+6, P32STOP+7, P32STOP+8 |
| T | GETVER+16~, GETVER+18*, GETVER+19 |
| TESTFLAG | CHKVER+11~, CHKVER+33*, CHKVER+35, CHKVER+41, CHKVER+49 |
| TVER | VERSTAT+6~, VERSTAT+11*, VERSTAT+12, VERSTAT+13 |
| VERI | VERSTAT+6~, VERSTAT+8*, VERSTAT+9, VERSTAT+11 |
| VIXVER | GETVER~, GETVER+10*, GETVER+19*, CHKVER+11~, CHKVER+27, CHKVER+42 |
| VIXVERS | GETVER+16~, GETVER+17*, GETVER+19 |
