RAORD1A ;HISC/FPT-Request an Exam ;05/05/09 07:45
Source file <RAORD1A.m>
| 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 |
|
| FileNo | Call Tags |
|---|---|
| ^RAO(75.1 - [#75.1] | GET1^DIQ |
