RAO7PC1A ;HISC/GJC-Procedure Call utilities (cont) ;1/22/03 12:41
Source file <RAO7PC1A.m>
| 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 |
