ISIDICR1 ; ISI/JHC - RPCs for Dictation ; 10/17/2022
Source file <ISIDICR1.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 |
| Package | Total | Caller Graph |
|---|---|---|
| Vendor - ISI | 4 | ISI GET RAD DX CODES ISIDICR1 ISIJ GET RAD TECHS ISIJ RAD EXAM UPDATE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETDXCOD(MAGRY) | ;[RPC: ISI GET RAD DX CODES]
|
|
| RADLST(RESULTS) | ; Returns list of all Rad Techs at logon Division
; RESULTS results returned here ; array: ; 1st entry = # lines below ^ code ~ message; code 0=normal result; 4=error ; 2:n entries = IEN ^ Tech Name --> from file 200 |
|
| SCRUSR(IEN,RADCLASS) | ; Screen logic function
; IEN -- entry in the NEW PERSON file (#200) ; Return Values: ; 0 Skip the record ; 1 Get the record |
|
| UPDEXAM(MAGRY,PARAMS) | ; Update exam record
; Input PARAMS: ; TX_CODE ^ Case ID | Tech-1 ^ Tech-2 ^ Tech_Comment (* Note pipe-delimiter) ; TX_CODE = 1 --> update Tech & Tech Comment ; Case ID: RADFN^RADTI^RACNI^RARPT ; Tech-1 - IEN for the Technologist, or nil--> at least one tech must be passed in ; Tech-2 - IEN for the Technologist, or nil ; Tech_Comment - entered text, or nil ; Return in @maggry: ; Code ~ Reply display text ; Reply Code-enumerated values: ; 0 - Normal result ; 4 - Error result; display Reply text in error message box |
|
| UPDEXAMZ | ;
|
|
| ERR | ;
|
|
| END | ;
|
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | UPDEXAM+52 |
| $$EC^%ZOSV | ERR+1 |
| LIST^DIC | RADLST+15 |
| DT^DICRW | GETDXCOD+3, UPDEXAM+17 |
| UPDATE^DIE | UPDEXAM+48, UPDEXAM+57 |
| $$GET1^DIQ | RADLST+11, SCRUSR+16, SCRUSR+19 |
| GETS^DIQ | SCRUSR+12 |
| $$SCRUSR^ISIDICR1 | UPDEXAM+39 |
| $$EXAMIENS^RAMAGU04 | UPDEXAM+42 |
| $$DT^XLFDT | RADLST+7, UPDEXAM+16 |
| RPC Name | Call Tags |
|---|---|
| ISI GET RAD DX CODES | GETDXCOD |
| ISIJ GET RAD TECHS | RADLST |
| ISIJ RAD EXAM UPDATE | UPDEXAM |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ, GETS^DIQ, LIST^DIC |
| ^DIC(4 - [#4] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("ERRTN" | ERR+2 |
| ^RA(78.3 - [#78.3] | GETDXCOD+7 |
| ^RADPT - [#70] | UPDEXAM+24 |
| ^TMP("ISIRSL" | RADLST+8 |
| ^TMP($J | GETDXCOD+5, UPDEXAM+18 |
| ^VA(200 - [#200] | SCRUSR+8, SCRUSR+9 |
| Name | Field # of Occurrence |
|---|---|
| ^( | GETDXCOD+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | UPDEXAM+53 |
| CASEID | UPDEXAM+15~, UPDEXAM+26*, UPDEXAM+42 |
| CMT | UPDEXAM+15~, UPDEXAM+30*, UPDEXAM+56 |
| CT | GETDXCOD+2~, GETDXCOD+4*, GETDXCOD+8*, GETDXCOD+10 |
| >> DIERR | UPDEXAM+49, UPDEXAM+58 |
| DIQUIET | GETDXCOD+3*, UPDEXAM+17~* |
| DISUSER | SCRUSR+5~, SCRUSR+19*, SCRUSR+20 |
| DIVNAME | RADLST+6~, RADLST+11*, RADLST+15 |
| DT | RADLST+7*, SCRUSR+17, UPDEXAM+16* |
| DUZ | UPDEXAM+55 |
| DUZ(2 | RADLST+11, SCRUSR+13 |
| I | RADLST+6~, RADLST+19*, RADLST+20*, RADLST+21, UPDEXAM+15~, UPDEXAM+31*, UPDEXAM+32, UPDEXAM+38* |
| ICNT | UPDEXAM+15~, UPDEXAM+45*, UPDEXAM+46 |
| IEN | GETDXCOD+2~, GETDXCOD+4*, GETDXCOD+7*, GETDXCOD+8, SCRUSR~, SCRUSR+8, SCRUSR+9, SCRUSR+12, SCRUSR+16, SCRUSR+19 |
| IEN1 | SCRUSR+5~, SCRUSR+7*, SCRUSR+8*, SCRUSR+9 |
| IENS | UPDEXAM+15~, UPDEXAM+46*, UPDEXAM+47, UPDEXAM+50*, UPDEXAM+53, UPDEXAM+54, UPDEXAM+55, UPDEXAM+56 |
| IENS7003 | UPDEXAM+15~, UPDEXAM+42*, UPDEXAM+46, UPDEXAM+50 |
| MAGLST | GETDXCOD+2~, GETDXCOD+4*, GETDXCOD+5, UPDEXAM+15~, UPDEXAM+18* |
| MAGMSG | RADLST+6~, SCRUSR+5~ |
| MAGRY | GETDXCOD~, GETDXCOD+5!*, GETDXCOD+8, GETDXCOD+10, UPDEXAM~, UPDEXAM+18*, UPDEXAMZ+1, ERR+1 |
| MAGTMP | RADLST+6~, RADLST+8*, RADLST+9, RADLST+15, RADLST+16, RADLST+20, RADLST+21, RADLST+29 |
| OK | SCRUSR+5~, SCRUSR+7*, SCRUSR+8, SCRUSR+9*, SCRUSR+10, SCRUSR+13*, SCRUSR+14, SCRUSR+21 |
| PARAMS | UPDEXAM~, UPDEXAM+22, UPDEXAM+25, UPDEXAM+28, UPDEXAM+29, UPDEXAM+35, UPDEXAM+40 |
| PIPE | UPDEXAM+15~, UPDEXAM+20*, UPDEXAM+22, UPDEXAM+29 |
| RACNI | UPDEXAM+15~, UPDEXAM+23*, UPDEXAM+24 |
| RADCLASS | RADLST+6~, RADLST+12*, SCRUSR~, SCRUSR+9 |
| RADFN | UPDEXAM+15~, UPDEXAM+23*, UPDEXAM+24 |
| RADTI | UPDEXAM+15~, UPDEXAM+23*, UPDEXAM+24 |
| RAFDA | UPDEXAM+15~, UPDEXAM+43!, UPDEXAM+51! |
| RAFDA( | UPDEXAM+47*, UPDEXAM+53*, UPDEXAM+54*, UPDEXAM+55*, UPDEXAM+56* |
| REPLY | GETDXCOD+2~, GETDXCOD+6*, GETDXCOD+9*, GETDXCOD+10, UPDEXAM+15~, UPDEXAM+21*, UPDEXAM+25*, UPDEXAM+28*, UPDEXAM+35*, UPDEXAM+38 , UPDEXAM+40*, UPDEXAM+49*, UPDEXAM+58*, UPDEXAM+59*, UPDEXAMZ+1 |
| RESULTS | RADLST~, RADLST+9! |
| RESULTS( | RADLST+26* |
| RESULTS(0 | RADLST+17*, RADLST+23*, RADLST+25*, RADLST+26, RADLST+27* |
| SS | SCRUSR+5~, SCRUSR+13* |
| >> T | UPDEXAM+32*, UPDEXAM+33, UPDEXAM+37*, UPDEXAM+38*, UPDEXAM+39, UPDEXAM+44*, UPDEXAM+45*, UPDEXAM+47 |
| TECHS | UPDEXAM+15~, UPDEXAM+34 |
| TECHS( | UPDEXAM+33*, UPDEXAM+38, UPDEXAM+45 |
| TERMDT | SCRUSR+5~, SCRUSR+16*, SCRUSR+17 |
| TMP | SCRUSR+5~ |
| TMP( | SCRUSR+13 |
| TNAM | RADLST+6~, RADLST+23*, RADLST+24*, RADLST+26 |
| TNAM( | RADLST+22*, RADLST+24, RADLST+26 |
| >> TXID | UPDEXAM+23*, UPDEXAM+27 |
| U | GETDXCOD+7, GETDXCOD+8, GETDXCOD+10, RADLST+22, RADLST+27, SCRUSR+9, UPDEXAM+23, UPDEXAM+26, UPDEXAM+30, UPDEXAM+32 |
| X | GETDXCOD+2~, GETDXCOD+7*, GETDXCOD+8*, RADLST+6~, RADLST+14*, RADLST+15, RADLST+16*, RADLST+17, RADLST+21*, RADLST+22 , UPDEXAM+15~, UPDEXAM+22*, UPDEXAM+23, UPDEXAM+26, UPDEXAM+29*, UPDEXAM+30, UPDEXAM+32 |
