RA12PST2 ;HIRMFO/CRT - Post-init functions (patch seventeen) ;5/20/99
Source file <RA12PST2.m>
| Package | Total | Caller Graph | 
|---|---|---|
| Radiology Nuclear Medicine | 4 | RA12PST1 RA12PST3 RA12PST4 RA12PST5 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| TCP() | ; return 'TCP' for LLP TYPE (2) field in file 870 | |
| Y() | ; return 'YES', for PERSISTENT (400.04) field in file 870 | |
| CLIENT() | ; return 'CLIENT (SENDER)', for CLIENT/SERVER (400.03) field ; in file 870 | |
| ACKTO() | ; Return the ACK timeout for CLIENT(SENDER)s | |
| SLISTN() | ; return 'SINGLE LISTENER', for CLIENT/SERVER (400.03) field ; in file 870 | |
| TSTMP() | ; Timestamp the protocol entry point with current date/time (in $H format) | |
| N() | ; return 'NO', for various fields in file 101 | |
| PKG() | ; Return the name of the package | |
| VERSION | ;;5.0;Radiology/Nuclear Medicine;**17**;Mar 16, 1998 | |
| MSG(ENTRY,FILE,ERR) | ; display a status message pertaining to the addition ; of entries to files: 870 & 101. Display a status message ; when items are added to the Protocol (101) file. ; Variable list: ; ENTRY-> value of the .01 field for a particular file (60 chars max) ; FILE -> file # where the data will be added ; ERR -> err message? 1 if yes, else null | |
| DELITEM | ; Delete Item multiple from RA event driver protocols | |
| PROID() | ; Delete the Processing ID field | 
| FileNo | Call Tags | 
|---|---|
| ^ORD(101 - [#101] | FIND1^DIC, GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DIC - [#1] | MSG+10 | 
| ^ORD(101 - [#101] | DELITEM+12*, DELITEM+13, DELITEM+14 | 
| ^TMP("DIERR" | MSG+11 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> DIERR | MSG+11 | 
| ENTRY | MSG~, MSG+9 | 
| ERR | MSG~, MSG+8, MSG+11, MSG+12 | 
| FILE | MSG~, MSG+10 | 
| >> RA101( | DELITEM+18* | 
| RAA | DELITEM+1~, DELITEM+15*, DELITEM+17 | 
| RAB | DELITEM+1~, DELITEM+16*, DELITEM+17 | 
| RACNT | MSG+7~*, MSG+15* | 
| RARR | DELITEM+1~ | 
| RARR( | DELITEM+3*, DELITEM+4*, DELITEM+7*, DELITEM+10, DELITEM+11 | 
| RATXT | MSG+7~, MSG+18 | 
| RATXT( | MSG+7*, MSG+15* | 
| RAX | DELITEM+1~, DELITEM+2*, DELITEM+3, DELITEM+4, DELITEM+6*, DELITEM+7, DELITEM+10*, DELITEM+11 | 
| RAX1 | DELITEM+1~, DELITEM+11*, DELITEM+12, DELITEM+13, DELITEM+14, DELITEM+18 | 
| RAY | DELITEM+1~, DELITEM+13*, DELITEM+14, DELITEM+18 | 
| RAZ | DELITEM+1~, DELITEM+14*, DELITEM+15, DELITEM+16 | 
| STRING | MSG+7~, MSG+8*, MSG+9*, MSG+10*, MSG+11*, MSG+12*, MSG+13, MSG+14, MSG+15, MSG+16* | 
| WORDS | MSG+7~, MSG+14*, MSG+15, MSG+16 |