RAUTL14 ;HISC/GJC - Utilities for message display. ; Mar 07, 2024@13:17:03
Source file <RAUTL14.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 |
|---|---|---|
| Radiology Nuclear Medicine | 3 | ^RA(79.1 ^RAMIS(71 ^RAMRPF(71.11 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1 | ; Message display. Called from the input transform of the
|
|
| EN2 | ; Message display. Called from input transform of the
|
|
| UNI30(RADA,RAX) | ; Determines if the 1st 30 chars of a procedure name are unique.
; If not, do not allow the user to add or alter the current procedure. ; Don't allow characters ; ^ ; Called from the input transform in ^DD(71,.01,0) ; Pass back 1 if unique, 0 if a conflict. ; 'RA' ---> temporary variable to hold data ; 'RAX' ---> Input user wishes to enter/edit in ^RAMIS(71 ; 'RADA' ---> IEN of the current entry in ^RAMIS(71, ; The first 30 do not match any other entries first 30 |
|
| CHKPTYPE(OPTYP,APTYP) | ;check the procedure type to ensure BROAD/PARENT procedures
; remain BROAD/PARENT procedures after editing the TYPE OF PROCEDURE ; (#6) field. ; Input: OPTYP = original procedure type value ; APTYP = after edit procedure type value ; Return: 0 if the procedure type value did not change ; 1 if there was a change in procedure type value |
|
| RSETPTYP(RAPIEN,OPTYP) | ;PARENT and BROAD procedures cannot have their procedure
; types changed. Change the procedure back to the appropriate procedure ; type: PARENT (P) or BROAD (B). Called from the RA PROCEDURE EDIT input ; template. |
| FileNo | Call Tags |
|---|---|
| ^RAMIS(71 - [#71] | EXTERNAL^DILFD |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RA(79.1 - [#79.1] | EN2+3 |
| ^RA(79.2 - [#79.2] | EN1+14 |
| ^RAMIS(71 - [#71] | UNI30+18, UNI30+25, UNI30+35, RSETPTYP+11, RSETPTYP+25* |
| ^RAMIS(71.3 - [#71.3] | EN2+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APTYP | CHKPTYPE~, CHKPTYPE+7 |
| >> D0 | EN2+11 |
| DIR | EN1+3~ |
| DIR("?" | EN1+11* |
| DIR("A" | EN1+10* |
| DIR(0 | EN1+9* |
| DIROUT | EN1+3~ |
| DIRUT | EN1+3~ |
| DTOUT | EN1+3~ |
| DUOUT | EN1+3~ |
| OPTYP | CHKPTYPE~, CHKPTYPE+7, RSETPTYP~, RSETPTYP+14, RSETPTYP+18, RSETPTYP+23, RSETPTYP+25, RSETPTYP+26 |
| RA1 | UNI30+9~, UNI30+18*, UNI30+23 |
| RA2 | UNI30+9~, UNI30+25*, UNI30+26 |
| RABEG | UNI30+9~ |
| RAD0 | EN2+10~, EN2+11* |
| RADA | UNI30~, UNI30+33, UNI30+35, UNI30+36 |
| RAEND | UNI30+9~ |
| RAERR | RSETPTYP+23~, RSETPTYP+25 |
| RAFDA | RSETPTYP+23~ |
| RAFDA(71 | RSETPTYP+23* |
| RAFLG1 | UNI30+9~, UNI30+10*, UNI30+23*, UNI30+33, UNI30+40 |
| RAFLG2 | UNI30+9~, UNI30+10*, UNI30+26*, UNI30+33, UNI30+40 |
| RALEN | UNI30+9~ |
| RALST | UNI30+9~ |
| RAMSG | RSETPTYP+9~, RSETPTYP+22 |
| RAMSG(1 | RSETPTYP+20*, RSETPTYP+21* |
| RAMSG(2 | RSETPTYP+21* |
| RAPCE | UNI30+9~, UNI30+35*, UNI30+36 |
| RAPIEN | RSETPTYP~, RSETPTYP+11, RSETPTYP+23, RSETPTYP+25 |
| RAPTYNOW | RSETPTYP+9~, RSETPTYP+11*, RSETPTYP+14, RSETPTYP+19 |
| RASEQ | EN2+10~, EN2+11*, EN2+12 |
| RASTR | RSETPTYP+9~, RSETPTYP+18*, RSETPTYP+20 |
| RATMP | RSETPTYP+17~, RSETPTYP+19*, RSETPTYP+20 |
| RATXT | EN1+3~, EN1+9, EN1+14!, EN1+18, EN2+4~, EN2+8, EN2+13~, EN2+19 |
| RATXT(1 | EN1+4*, EN1+15*, EN2+4*, EN2+13* |
| RATXT(2 | EN1+5*, EN1+16*, EN2+5*, EN2+14* |
| RATXT(3 | EN1+6*, EN1+17*, EN2+6*, EN2+15* |
| RATXT(4 | EN1+7*, EN2+7*, EN2+16* |
| RATXT(5 | EN1+8*, EN2+8*, EN2+17* |
| RATXT(6 | EN1+9*, EN2+18* |
| RATXT(7 | EN2+19* |
| RAX | EN1+3~, EN1+4*, EN1+13, UNI30~, UNI30+15, UNI30+18, UNI30+23, UNI30+25, UNI30+26, UNI30+36 |
| RAY | EN1+3~, EN1+4*, EN1+13 |
| RAYN | EN1+3~, EN1+12*, EN1+13 |
| U | EN2+11, RSETPTYP+11, RSETPTYP+25 |
| X | EN1+4!, EN1+12!, EN1+13*!, EN2+4~, EN2+12!, EN2+13~ |
| Y | EN1+4!, EN1+12!, EN1+13*, EN1+14, EN2+3, EN2+4~, EN2+13~ |
