RAORD1A ;HISC/FPT-Request an Exam ;05/05/09 07:45
Source file <RAORD1A.m>
| 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 |
|---|---|---|
| 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: |
|
| SCREENW(Y) | ; check the out-of-service field of the WARD LOCATION (#42) record.
|
|
| 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) |
|
| 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). |
| 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+14~ |
| DIR("A" | PREG+14* |
| DIR(0 | PREG+14* |
| DIROUT | PREG+14~ |
| DIRUT | PREG+14~, PREG+15 |
| DT | SCREEN+46 |
| DTOUT | PREG+14~ |
| DUOUT | PREG+14~ |
| 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+8~, PREG+9*, PREG+10, PREG+11 |
| RADFN | PREG~, PREG+13 |
| RADT | PREG~, PREG+7*, PREG+9 |
| RAINPAT | SCREEN~, SCREEN+32, SCREEN+36 |
| >> RAMOD | INIMOD+6 |
| >> RAMOD( | INIMOD+9 |
| >> RAOPT("ADDEXAM" | PREG+13 |
| >> RAOUT | PREG+15* |
| RASCA | SCREEN+43~, SCREEN+44*, SCREEN+46 |
| RASCI | SCREEN+43~, SCREEN+44*, SCREEN+46 |
| RASCINDE | SCREEN+43~*, SCREEN+44 |
| >> RASEX | PREG+6 |
| 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+8~ |
| VADM(3 | PREG+9 |
| 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+16, INIMOD~, INIMOD+9 |
