RAO7PC1A ;HISC/GJC-Procedure Call utilities (cont) ;1/22/03 12:41
Source file <RAO7PC1A.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 2 | ($$DT,$$FMADD)^XLFDT ($$LOW,$$UP)^XLFSTR |
Radiology Nuclear Medicine | 1 | ($$BASICMOD,$$NAMCODE)^RACPTMSC |
VA FileMan | 1 | $$GET1^DIQ |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
SETDATA | ; Called from within the EN1 subroutine of RAO7PC1
; Sets the ^TMP($J,"RAE1",patient ien,Exam ID) node. ; See EN1^RAO7PC1 for further explanation. |
|
CASE | ; Return the case numbers and the total number of case numbers
; associated with a particular order. Called from CASE^RAO7PC1. ; Sets RARRAY(case #)="" for all cases associated with an order. ; Sets first piece of RATTL to the number of cases found for an ; order, and the second piece is PRINTSET if the report covers ; multiple cases. See CASE^RAO7PC1 for more information. |
|
EN2 | ; IA: 2012, Return last 7 days of non-cancelled exams
; Required: RADFN (valid patient ien) called from EN2^RAO7PC1 ; Output: ; ^TMP($J,"RAE7",Patient IEN,Exam ID)=procedure name^case number^ ; report status^imaging location IEN^imaging location name^ ; contrast medium or media used ; Note: Single characters in parenthesis indicate contrast ; involvement: (I)=Iodinated ionic; (N)=Iodinated non-ionic; ; (L)=Gadolinium; (C)=Oral Cholecystographic; (G)=Gastrografin; ; (B)=Barium; (M)=unspecified contrast media |
|
CPTMOD | ;extract cpt modifiers if any
|
|
RSTAT() | ; Get report status name from GET1^DIQ
; RARPT is IEN of file 74 |
|
UL(R) | ;Upper and Lower case
|
|
UPQ |
FileNo | Call Tags |
---|---|
^RARPT - [#74] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^RA(72 - [#72] | SETDATA+18, SETDATA+20, SETDATA+29, SETDATA+35, CASE+17, EN2+29 |
^RA(78.3 - [#78.3] | SETDATA+39, SETDATA+48, SETDATA+51, SETDATA+55 |
^RA(79 - [#79] | SETDATA+37 |
^RA(79.1 - [#79.1] | SETDATA+10, EN2+21 |
^RA(79.2 - [#79.2] | SETDATA+11 |
^RADPT - [#70] | SETDATA+8, SETDATA+12, SETDATA+13, SETDATA+46, SETDATA+47, SETDATA+69, SETDATA+79, CASE+16, EN2+19, EN2+20 , EN2+23, EN2+24, EN2+30, CPTMOD+2, CPTMOD+4, CPTMOD+5 |
^RADPT("AO" | CASE+7, CASE+11, CASE+13, CASE+15 |
^RAMIS(71 - [#71] | SETDATA+23, SETDATA+71, EN2+27 |
^RAO(75.1 - [#75.1] | SETDATA+18, SETDATA+19, SETDATA+71, CASE+6 |
^RARPT - [#74] | SETDATA+60 |
^SC - [#44] | SETDATA+10, EN2+22 |
^TMP($J | SETDATA+59*, SETDATA+60*, SETDATA+73*, EN2+13!, EN2+33*, CPTMOD+7* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DIERR | RSTAT+2~ |
DT | SETDATA+25, EN2+16 |
I | EN2+14~, EN2+30* |
L | UL+3~, UL+5*, UL+6, UL+7*, UL+8 |
R | RSTAT+2~, RSTAT+3*, RSTAT+4*, RSTAT+5, UL~, UL+4 |
R2 | UL+3~, UL+4*, UL+5, UL+6*, UL+7, UL+8*, UPQ |
RA | SETDATA+7~, CPTMOD+3*, CPTMOD+4*, CPTMOD+5 |
RA1 | SETDATA+7~, CPTMOD+3*, CPTMOD+7* |
RA2 | SETDATA+7~, CPTMOD+5*, CPTMOD+6*, CPTMOD+7 |
RA3 | SETDATA+7~, SETDATA+71*, SETDATA+72*, SETDATA+73 |
RABDT | EN2+14~, EN2+17*, EN2+18 |
>> RABNOR | SETDATA+39*, SETDATA+45, SETDATA+46, SETDATA+48*, SETDATA+50*, SETDATA+59 |
>> RABNORMR | SETDATA+51*, SETDATA+55*, SETDATA+57*, SETDATA+59 |
>> RACINC | SETDATA+29, SETDATA+35 |
RACMEDIA | EN2+14~, EN2+30*, EN2+33 |
RACNI | CASE+10~, CASE+14*, CASE+15*, CASE+16 |
RACNST | EN2+14~, EN2+16*, EN2+18 |
>> RACNT | SETDATA+62*, SETDATA+69*, SETDATA+76 |
>> RACPT | SETDATA+24*, SETDATA+25*, SETDATA+26*, SETDATA+59 |
RACSE | SETDATA+22*, SETDATA+59, EN2+14~, EN2+26*, EN2+33 |
RADFN | SETDATA+8, SETDATA+12, SETDATA+13, SETDATA+46, SETDATA+47, SETDATA+59, SETDATA+60, SETDATA+69, SETDATA+73, SETDATA+79 , CASE+10~*, CASE+11*, CASE+13, CASE+15, CASE+16, EN2+13, EN2+19, EN2+20, EN2+23, EN2+24 , EN2+30, EN2+33, CPTMOD+2, CPTMOD+4, CPTMOD+5, CPTMOD+7 |
>> RADIAG | SETDATA+30*, SETDATA+39, SETDATA+51 |
RADIAG2 | SETDATA+44~, SETDATA+47*, SETDATA+48, SETDATA+55 |
RADT | EN2+14~, EN2+16*, EN2+17 |
RADTI | CASE+10~, CASE+12*, CASE+13*, CASE+15, CASE+16 |
RADX | SETDATA+44~, SETDATA+46*, SETDATA+47 |
RAEDT | EN2+14~, EN2+17*, EN2+18 |
RAEXAM | CASE+10~, CASE+16*, CASE+17, CASE+18, CASE+23 |
>> RAEXN | SETDATA+76 |
>> RAEXNP | SETDATA+68, SETDATA+79 |
RAIBDT | SETDATA+8, SETDATA+12, SETDATA+13, SETDATA+21, SETDATA+46, SETDATA+47, SETDATA+69, SETDATA+79, EN2+14~, EN2+18* , EN2+19*, EN2+20, EN2+23, EN2+24, EN2+25, EN2+30, CPTMOD+2, CPTMOD+4, CPTMOD+5 |
RAIEDT | EN2+14~, EN2+18*, EN2+19 |
RAILOC | SETDATA+9*, SETDATA+10*, SETDATA+59, SETDATA+82! |
RAITY | SETDATA+9*, SETDATA+11, SETDATA+82! |
RAITY(0 | SETDATA+11*, SETDATA+59 |
RALOC | EN2+14~, EN2+21*, EN2+22*, EN2+33 |
RALOC(0 | EN2+21*, EN2+22, EN2+33 |
RANO | SETDATA+8*, SETDATA+12*, SETDATA+13, SETDATA+21, SETDATA+46, SETDATA+47, SETDATA+69, SETDATA+79, EN2+14~, EN2+20* , EN2+23*, EN2+24, EN2+25, EN2+30, CPTMOD+2, CPTMOD+4, CPTMOD+5 |
>> RAOIFN | CASE+6, CASE+7, CASE+11, CASE+13, CASE+15 |
RAORDER | SETDATA+15*, SETDATA+18, SETDATA+19, SETDATA+71, SETDATA+80! |
RAORDER(7 | SETDATA+19*, SETDATA+59 |
RAPRC | SETDATA+23*, SETDATA+24, SETDATA+27*, SETDATA+59, EN2+15~, EN2+27*, EN2+28*, EN2+33 |
RAREX | EN2+15~ |
RAREX(0 | SETDATA+8*, SETDATA+9, SETDATA+37, EN2+20*, EN2+21, CPTMOD+6 |
RARPT | SETDATA+30*, SETDATA+37, SETDATA+59, SETDATA+60, EN2+15~, EN2+31*, RSTAT+3 |
RARPTST | SETDATA+58*, SETDATA+59, EN2+15~, EN2+32*, EN2+33 |
>> RARRAY | CASE+18 |
>> RASHOCAN | SETDATA+35, SETDATA+36*, SETDATA+37* |
>> RATTL | CASE+6*, CASE+8*, CASE+18*, CASE+22*, CASE+23* |
RAXAM | EN2+15~ |
RAXAM(0 | SETDATA+13*, SETDATA+14, SETDATA+15, SETDATA+18, SETDATA+20, SETDATA+22, SETDATA+23, SETDATA+29, SETDATA+30, SETDATA+35 , SETDATA+69, SETDATA+70, SETDATA+73, EN2+24*, EN2+26, EN2+27, EN2+29, EN2+31 |
RAXID | SETDATA+21*, SETDATA+59, SETDATA+60, SETDATA+73, EN2+15~, EN2+25*, EN2+33, CPTMOD+7 |
>> RAXIT | SETDATA+12, SETDATA+76*, SETDATA+79* |
RAXSTAT | SETDATA+20*, SETDATA+80!, EN2+15~ |
RAXSTAT(0 | SETDATA+20*, SETDATA+59 |
U | SETDATA+18, SETDATA+22, SETDATA+23, SETDATA+27, SETDATA+30, SETDATA+39, SETDATA+48, SETDATA+51, SETDATA+55, SETDATA+59 , SETDATA+60, SETDATA+69, SETDATA+70, SETDATA+71, SETDATA+73, EN2+21, EN2+26, EN2+27, EN2+28, EN2+30 , EN2+31, EN2+33 |