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 |