RAAIPST2 ;HIRMFO/GJC - Post-init number two (patch four) ;4/29/98 15:18
Source file <RAAIPST2.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 2 | ($$DT,$$FMTH,$$NOW)^XLFDT MES^XPDUTL |
Radiology Nuclear Medicine | 1 | ($$N,$$Y)^RAAIPST1 |
VA Fileman | 1 | (FILE,UPDATE)^DIE |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN1 | ; *** Adding entries to the Protocol (101) 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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC - [#1] | MSG+10 |
^ORD(101 - [#101] | EN1+1, EN1+22, EN1+23, EN1+25*, EN1+26*, EN1+27*, EN1+28*, EN1+29*, EN1+30*, EN1+34 , EN1+48, EN1+49, EN1+51*, EN1+52*, EN1+53*, EN1+54*, EN1+55* |
^TMP("DIERR" | MSG+11 |
Name | Line Occurrences |
---|---|
MSG | EN1+21, EN1+32, EN1+47, EN1+57 |
>> | 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+2~, EN1+23*, EN1+24, EN1+25, EN1+26, EN1+27, EN1+28, EN1+29, EN1+30, EN1+35~ , EN1+49*, EN1+50, EN1+51, EN1+52, EN1+53, EN1+54, EN1+55 |
RACNT | MSG+7~*, MSG+15* |
RAFDA | EN1+2~, EN1+23!, EN1+35~, EN1+49! |
RAFDA( | EN1+46* |
RAFDA(101 | EN1+3*, EN1+4*, EN1+5*, EN1+6*, EN1+7*, EN1+8*, EN1+9*, EN1+10*, EN1+11*, EN1+12* , EN1+13*, EN1+14*, EN1+15*, EN1+16*, EN1+17*, EN1+18*, EN1+19*, EN1+20*, EN1+24*, EN1+36* , EN1+37*, EN1+38*, EN1+39*, EN1+40*, EN1+41*, EN1+42*, EN1+43*, EN1+44*, EN1+45*, EN1+50* |
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 |