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 |