©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
RAIPST5 ;HIRMFO/GJC - Post-init number five ;11/23/97 13:23
Source file <RAIPST5.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | ($$DT,$$FMTH,$$NOW)^XLFDT MES^XPDUTL |
| Radiology Nuclear Medicine | 1 | EN1^RAIPST6 |
| VA Fileman | 1 | (FILE,UPDATE)^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TSTMP() | ; Timestamp the protocol entry with current date/time (in $H format)
|
|
| RPT | ; RA RPT protocol
|
|
| RECEIVE | ; RA RECEIVE protocol
|
|
| PKG() | ; Return the name of the package
|
|
| REG | ; RA REG protocol
|
|
| ERR(X) | ; Display an error message if the protocol does not get filed into 101.
|
|
| EXAMINE | ; RA EXAMINED protocol
|
|
| VERSION | ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
|
|
| PROID() | ; Return the Processing ID data
|
|
| MSG(X) | ; Display to the user the protocol being added to file 101
|
|
| PRO101 | ; Add the following protocols to file 101 iff they are new
; to the Protocol (101) file: RA EXAMINED, RA RECEIVE, RA REG & RA RPT. ; RA SEND ORM, RA SEND ORU, RA CANCEL & RA EVSEND OR handled in RAIPST6 ; Updates in accordance with DBIA: 872 ; Note: The third subscript of RAFDA is the field number in file 101. ; Consult a data dictionary for further information. |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ORD(101 - [#101] | EXAMINE+1, EXAMINE+16, EXAMINE+17, EXAMINE+19*, EXAMINE+20*, EXAMINE+21*, EXAMINE+22*, EXAMINE+23*, EXAMINE+24*, EXAMINE+25* , RECEIVE+1, REG+1, REG+16, REG+17, REG+19*, REG+20*, REG+21*, REG+22*, REG+23*, REG+24* , RPT+1, RPT+16, RPT+17, RPT+19*, RPT+20*, RPT+21*, RPT+22*, RPT+23*, RPT+24*, RPT+25* |
| Name | Line Occurrences |
|---|---|
| $$PKG | EXAMINE+5, RECEIVE+6, REG+5, RPT+5 |
| $$PROID | EXAMINE+10, REG+10, RPT+10 |
| $$TSTMP | EXAMINE+12, RECEIVE+9, REG+12, RPT+12 |
| ERR | EXAMINE+27, REG+26, RPT+27 |
| MSG | EXAMINE+14, RECEIVE+10, REG+14, RPT+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| RA101 | EXAMINE+2~, EXAMINE+17*, EXAMINE+18, EXAMINE+19, EXAMINE+20, EXAMINE+21, EXAMINE+22, EXAMINE+23, EXAMINE+24, EXAMINE+25 , RECEIVE+2~, REG+2~, REG+17*, REG+18, REG+19, REG+20, REG+21, REG+22, REG+23, REG+24 , RPT+2~, RPT+17*, RPT+18, RPT+19, RPT+20, RPT+21, RPT+22, RPT+23, RPT+24, RPT+25 |
| RAFDA | EXAMINE+2~, EXAMINE+18!, RECEIVE+2~, REG+2~, REG+18!, RPT+2~, RPT+18! |
| RAFDA( | EXAMINE+7*, REG+7*, RPT+7* |
| RAFDA(101 | EXAMINE+3*, EXAMINE+4*, EXAMINE+5*, EXAMINE+6*, EXAMINE+8*, EXAMINE+9*, EXAMINE+10*, EXAMINE+11*, EXAMINE+12*, EXAMINE+13* , EXAMINE+18*, RECEIVE+4*, RECEIVE+5*, RECEIVE+6*, RECEIVE+7*, RECEIVE+8*, RECEIVE+9*, REG+3*, REG+4*, REG+5* , REG+6*, REG+8*, REG+9*, REG+10*, REG+11*, REG+12*, REG+13*, REG+18*, RPT+3*, RPT+4* , RPT+5*, RPT+6*, RPT+8*, RPT+9*, RPT+10*, RPT+11*, RPT+12*, RPT+13*, RPT+18* |
| RATXT | MSG+1~, MSG+2 |
| RATXT(1 | MSG+1* |
| RATXT(2 | MSG+1* |
| TXT | ERR+1~, ERR+2 |
| TXT(1 | ERR+1* |
| TXT(2 | ERR+1* |
| TXT(3 | ERR+2* |
| X | ERR~, ERR+1, MSG~, MSG+1 |