RAPXRM ;HOIFO/SWM - API for Clinical Reminders ;10/1/03 09:33
Source file <RAPXRM.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 2 | $$NOW^XLFDT (BMES,MES)^XPDUTL |
VA Fileman | 2 | $$GET1^DID $$GET1^DIQ |
Clinical Reminders | 1 | (ADDERROR,COMMSG,DETIME,ERRMSG)^PXRMSXRM |
Radiology Nuclear Medicine | 1 | ($$RSTAT,$$UL)^RAO7PC1A |
Package | Total | Caller Graph |
---|---|---|
Radiology Nuclear Medicine | 3 | RACTEX19 RACTRG13 RACTTK18 |
Clinical Reminders | 1 | PXRMRAD |
Order Entry Results Reporting | 1 | ORWGAPIA |
Name | Comments | DBIA/ICR reference |
---|---|---|
SRAD(X,DA) | ;Set index for RAD/NUC MED PATIENT file.
|
|
RAD | ;Build the index for RAD/NUC MED PATIENT.
|
|
KRAD(X,DA) | ;Delete index for RAD/NUC MED PATIENT file.
|
|
EN1(RADAS,RARM) | ;retrieve data from Clin. Rem.'s new style index "ACR"
; Input: ; RADAS = last subscript of (required), for example: ; ^PXRMINDX(70,"IP",43,1,2,2920720.1049,"2;DT;7079279.895;P;3;0") ; ^PXRMINDX(70,"PI",9,3,45,2921204.155,"9;DT;7078795.8449;P;1;0") ; RARM = array name passed by reference (required) ; Output: ; RARM("aaa") = external value, eg.: ; RARM("EXAM D/T") = Exam Date and time in yyymmdd.hhmm format ; RARM("EXAM STATUS") = Exam Status name ; RARM("PROCEDURE") = Procedure name ; RARM("INTERPRETING PHYSICIAN") = Primary Staff; else Primary Resident ; If exam node doesn't exist, then RARM is undefined ; RARM("RPT STATUS") = Report status name |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^RADPT - [#70] | GET1^DID |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PXRMINDX(70 | RAD+4!, RAD+40*, RAD+41*, RAD+51*, RAD+52*, RAD+53*, KRAD+4!, KRAD+5!, SRAD+6*, SRAD+7* |
^RA(72 - [#72] | EN1+23 |
^RA(78.3 - [#78.3] | EN1+35, EN1+37 |
^RADPT - [#70] | EN1+20, EN1+37, RAD+15, RAD+21, RAD+26, RAD+27, RAD+33, RAD+34 |
^RADPT(0 | RAD+6 |
^RAMIS(71 - [#71] | EN1+24 |
Name | Field # of Occurrence |
---|---|
^( | EN1+37 |
^(0 | EN1+37 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
D0 | RAD+1~, RAD+14*, RAD+15*, RAD+21, RAD+23, RAD+26, RAD+27, RAD+28, RAD+33, RAD+34 |
D1 | RAD+1~, RAD+25*, RAD+26*, RAD+27, RAD+28, RAD+33, RAD+34 |
D2 | RAD+1~, RAD+32*, RAD+33*, RAD+34, RAD+35 |
DA | RAD+1~, RAD+28*, RAD+30, RAD+35, KRAD~, KRAD+3, SRAD~, SRAD+5 |
DA(1 | KRAD+2, KRAD+3, SRAD+4, SRAD+5 |
DA(2 | KRAD+3, KRAD+4, KRAD+5, SRAD+5, SRAD+6, SRAD+7 |
DAS | RAD+1~, RAD+35*, RAD+38, RAD+40, RAD+41, KRAD+1~, KRAD+3*, KRAD+4, KRAD+5, SRAD+3~ , SRAD+5*, SRAD+6, SRAD+7 |
DATE | RAD+27*, RAD+29, RAD+40, RAD+41, KRAD+1~, KRAD+2*, KRAD+4, KRAD+5, SRAD+3~, SRAD+4* , SRAD+6, SRAD+7 |
DFN | RAD+1~, RAD+21*, RAD+22, RAD+40, RAD+41 |
DUZ | RAD+52 |
END | RAD+1~, RAD+43*, RAD+46, RAD+50 |
ENTRIES | RAD+1~, RAD+6*, RAD+7, RAD+11 |
>> ETEXT | RAD+23*, RAD+24, RAD+30*, RAD+31, RAD+38*, RAD+39 |
GLOBAL | RAD+1~, RAD+5*, RAD+24, RAD+31, RAD+39, RAD+48, RAD+50 |
I | EN1+18~, EN1+36*, EN1+37* |
IND | RAD+1~, RAD+14*, RAD+16*, RAD+17, RAD+18, RAD+20 |
J | EN1+18~, EN1+37* |
NE | RAD+1~, RAD+14*, RAD+42*, RAD+44, RAD+50 |
NERROR | RAD+1~, RAD+14*, RAD+24, RAD+31, RAD+39, RAD+48, RAD+50 |
PROC | RAD+1~, RAD+36*, RAD+37, RAD+40, RAD+41 |
RA0 | EN1+18~, EN1+20*, EN1+21, EN1+23, EN1+24, EN1+25, EN1+34, EN1+35 |
RACNI | EN1+18~, EN1+19*, EN1+20, EN1+37 |
RADAS | EN1~, EN1+17, EN1+19 |
RADFN | EN1+18~, EN1+19*, EN1+20, EN1+37 |
RADTI | EN1+18~, EN1+19*, EN1+20, EN1+22, EN1+37 |
RARM | EN1~, EN1+15! |
RARM("EXAM D/ | T" , EN1+22* |
RARM("EXAM ST | ATUS" , EN1+23* |
RARM("INTERPR | ETING PHYSICIAN" , EN1+27* |
RARM("PDX" | EN1+35* |
RARM("PROCEDURE" | EN1+24* |
RARM("RPT STA | TUS" , EN1+34* |
RARM("SDX" | EN1+37* |
RARPT | EN1+18~, EN1+34* |
START | RAD+2~, RAD+13*, RAD+46, RAD+50 |
TEMP | RAD+2~, RAD+34*, RAD+36 |
TENP | RAD+2~, RAD+7*, RAD+8*, RAD+9*, RAD+17 |
TEXT | RAD+2~, RAD+11*, RAD+12, RAD+18*, RAD+19, RAD+44*, RAD+45 |
U | EN1+23, EN1+24, EN1+25, EN1+34, EN1+35, EN1+37, RAD+6, RAD+21, RAD+27, RAD+36 |
X | EN1+18~, EN1+25*, EN1+26*, EN1+27, KRAD~, SRAD~ |
X(1 | KRAD+4, KRAD+5, SRAD+6, SRAD+7 |