ISIDICR1 ; ISI/JHC - RPCs for Dictation ; 10/17/2022
Source file <ISIDICR1.m>
| 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 | ;
|
| 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 |
