©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
RAORD1A ;HISC/FPT-Request an Exam ; 06 Oct 2013 11:03 AM
Source file <RAORD1A.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 2 | WIN^DGPMDDCF DEM^VADPT |
| VA Fileman | 2 | $$GET1^DIQ ^DIR |
| Kernel | 1 | ($$DT,$$FMDIFF)^XLFDT |
| Radiology Nuclear Medicine | 1 | $$PRACTO^RAUTL8 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INIMOD(Y) | ; check if the user has selected the same
; modifier more than once when the order is requested. ; The 'Request an Exam' option. Called from MODS^RAORD1 ; Input: 'Y' the name of the procedure modifier ; Output: 'X' if the user has not entered this modifier in ; the past return one (1). Else return zero (0). |
|
| PREG(RADFN,RADT) | ; Subroutine will display the pregnancy prompt to the
; user if the patient is between the ages of 12 - 55 inclusive. ; Called from CREATE1^RAORD1. ; Input : RADFN - Patient, RADT - Today's date ; Output: Patient Pregnant? (yes, no, unknown or no default) ; Note: (may set RAOUT if the user times out or '^' out) |
|
| SCREENW(Y) | ; check the out-of-service field of the WARD LOCATION (#42) record.
|
|
| SCREEN(RAINPAT,RACPRS27) | ; screen for active clinics/wards
; This code is also called from RAORD1 (screen for the Patient Location ; prompt which is a pointer to the HOSPITAL LOCATION (#44) file.) ; We want to EXCLUDE from our selection the following types of ; hospital locations: |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^RAO(75.1 - [#75.1] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(42 - [#42] | SCREEN+24, SCREENW+7 |
| ^SC - [#44] | SCREEN+13, SCREEN+14, SCREEN+43, SCREENW+5 |
| Name | Line Occurrences |
|---|---|
| $$SCREENW | SCREEN+32 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| D0 | SCREENW+4~, SCREENW+5*, SCREENW+6, SCREENW+7 |
| DGPMOS | SCREENW+4~, SCREENW+18* |
| DIR | PREG+18~ |
| DIR("A" | PREG+18* |
| DIR(0 | PREG+18* |
| DIROUT | PREG+18~ |
| DIRUT | PREG+18~, PREG+19 |
| DT | SCREEN+46 |
| DTOUT | PREG+18~ |
| DUOUT | PREG+18~ |
| RA44 | SCREEN+14~*, SCREEN+15, SCREEN+22 |
| RA44(42 | SCREEN+14*, SCREEN+20, SCREEN+24 |
| RACNT | INIMOD+8~*, INIMOD+9* |
| RACPRS27 | SCREEN~, SCREEN+32, SCREEN+36 |
| RADAYS | PREG+12~, PREG+13*, PREG+14, PREG+15 |
| RADFN | PREG~, PREG+17 |
| RADT | PREG~, PREG+11*, PREG+13 |
| RAINPAT | SCREEN~, SCREEN+32, SCREEN+36 |
| >> RAMOD | INIMOD+6 |
| >> RAMOD( | INIMOD+9 |
| >> RAOPT("ADDEXAM" | PREG+17 |
| >> RAOUT | PREG+19* |
| RASCA | SCREEN+43~, SCREEN+44*, SCREEN+46 |
| RASCI | SCREEN+43~, SCREEN+44*, SCREEN+46 |
| RASCINDE | SCREEN+43~*, SCREEN+44 |
| >> RASEX | PREG+9 |
| RAWARD | SCREEN+18~*, SCREEN+20, SCREEN+22*, SCREEN+24*, SCREEN+26*, SCREEN+32 |
| >> RAWHEN | SCREENW+18 |
| U | SCREEN+14, SCREEN+15, SCREEN+22, SCREEN+24, SCREEN+44 |
| VADM | PREG+12~ |
| VADM(3 | PREG+13 |
| X | SCREENW+4~, SCREENW+20, INIMOD+8~*, INIMOD+9*, INIMOD+10 |
| Y | SCREEN+13, SCREEN+14, SCREEN+24, SCREEN+32, SCREEN+43, SCREENW~, SCREENW+5, PREG+20, INIMOD~, INIMOD+9 |