©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
RAAIPST1 ;HIRMFO/GJC - Post-init number one (patch four) ;1/7/98 08:27
Source file <RAAIPST1.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | ($$DT,$$FMTH,$$NOW)^XLFDT (BMES,MES)^XPDUTL |
| Radiology Nuclear Medicine | 1 | (EN1,MSG)^RAAIPST2 |
| VA Fileman | 1 | (FILE,UPDATE)^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TCP() | ; return 'TCP' for LLP TYPE (.02) field in file 869.2
|
|
| Y() | ; return 'YES', for PERMANENT (400.04) field in file 869.2
|
|
| CLIENT() | ; return 'CLIENT (SENDER)', for CLIENT/SERVER (400.03) field
; in file 869.2 |
|
| US() | ; return 'US', for COUNTRY CODE (7) field in file 771
|
|
| SLISTN() | ; return 'SINGLE LISTENER', for CLIENT/SERVER (400.03) field
; in file 869.2 |
|
| N() | ; return 'NO', for various fields in file 101
|
|
| EN1 | ; Add entries to the HL LL Protocol Param (869.2) file, HL Logical
; Link (870) file, HL7 Application Param (771) and the Protocol (101) ; file. ; *** Add entries to HL LL Protocol Param (869.2) file *** |
|
| VERSION | ;;5.0;Radiology/Nuclear Medicine;**4**;Mar 16, 1998
|
|
| MSG(ENTRY,FILE,ERR) | ; display a status message pertaining to the addition
; of entries to files: 869.2, 870, 771 & 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 |
|
| ACTIVE() | ; return 'ACTIVE', for ACTIVE/INACTIVE (2) field in file
; 771 |
| Name | Field # of Occurrence |
|---|---|
| FILE^DIE | EN1+76, EN1+109 |
| UPDATE^DIE | EN1+9, EN1+17, EN1+26, EN1+32, EN1+42, EN1+49, EN1+73, EN1+106 |
| EN1^RAAIPST2 | EN1+120 |
| MSG^RAAIPST2 | EN1+9, EN1+10, EN1+17, EN1+18, EN1+26, EN1+27, EN1+32, EN1+33, EN1+42, EN1+43 , EN1+49, EN1+50, EN1+73, EN1+86, EN1+106, EN1+118 |
| $$DT^XLFDT | EN1+84, EN1+116 |
| $$FMTH^XLFDT | EN1+63, EN1+96 |
| $$NOW^XLFDT | EN1+63, EN1+96 |
| BMES^XPDUTL | EN1+21, EN1+36, EN1+53 |
| MES^XPDUTL | MSG+18 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC - [#1] | MSG+10 |
| ^HL(771 - [#771] | EN1+38, EN1+43, EN1+45, EN1+50 |
| ^HLCS(869.2 - [#869.2] | EN1+4, EN1+10, EN1+12, EN1+18 |
| ^HLCS(870 - [#870] | EN1+23, EN1+27, EN1+29, EN1+33 |
| ^ORD(101 - [#101] | EN1+55, EN1+74, EN1+75, EN1+77*, EN1+78*, EN1+79*, EN1+80*, EN1+81*, EN1+82*, EN1+83* , EN1+84*, EN1+88, EN1+107, EN1+108, EN1+110*, EN1+111*, EN1+112*, EN1+113*, EN1+114*, EN1+115* , EN1+116* |
| ^TMP("DIERR" | MSG+11 |
| Name | Line Occurrences |
|---|---|
| $$ACTIVE | EN1+40, EN1+47 |
| $$CLIENT | EN1+7 |
| $$N | EN1+71, EN1+72, EN1+104, EN1+105 |
| $$SLISTN | EN1+15 |
| $$TCP | EN1+6, EN1+14 |
| $$US | EN1+41, EN1+48 |
| $$Y | EN1+8, EN1+16, EN1+72, EN1+105 |
| >> | 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 | EN1+56~, EN1+75*, EN1+76, EN1+77, EN1+78, EN1+79, EN1+80, EN1+81, EN1+82, EN1+83 , EN1+84, EN1+89~, EN1+108*, EN1+109, EN1+110, EN1+111, EN1+112, EN1+113, EN1+114, EN1+115 , EN1+116 |
| RACNT | MSG+7~*, MSG+15* |
| RAFDA | EN1+5~, EN1+13~, EN1+24~, EN1+30~, EN1+39~, EN1+46~, EN1+56~, EN1+75!, EN1+89~, EN1+108! |
| RAFDA( | EN1+5*, EN1+6*, EN1+7*, EN1+8*, EN1+13*, EN1+14*, EN1+15*, EN1+16* |
| RAFDA(101 | EN1+57*, EN1+58*, EN1+59*, EN1+60*, EN1+61*, EN1+62*, EN1+63*, EN1+64*, EN1+65*, EN1+66* , EN1+67*, EN1+68*, EN1+69*, EN1+70*, EN1+71*, EN1+72*, EN1+76*, EN1+90*, EN1+91*, EN1+92* , EN1+93*, EN1+94*, EN1+95*, EN1+96*, EN1+97*, EN1+98*, EN1+99*, EN1+100*, EN1+101*, EN1+102* , EN1+103*, EN1+104*, EN1+105*, EN1+109* |
| RAFDA(771 | EN1+39*, EN1+40*, EN1+41*, EN1+46*, EN1+47*, EN1+48* |
| RAFDA(870 | EN1+24*, EN1+25*, EN1+30*, EN1+31* |
| RATXT | MSG+7~, MSG+18 |
| RATXT( | MSG+7*, MSG+15* |
| 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 |