Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: IBDFDE3

Package: Automated Information Collection System

Routine: IBDFDE3


Information

IBDFDE3 ;ALB/AAS - AICS Manual Data Entry, process handprint fields ; 24-FEB-96

Source Information

Source file <IBDFDE3.m>

Entry Points

Name Comments DBIA/ICR reference
HNDPR(RESULT,IBDF) ; -- Procedure
; -- Manual Data entry routine for Hand Print Fields
; Input : Result := call by reference, used to output results
; IBDF("IEN") := pointer to hand print file (359.94)
; IBDF("PI") := pointer to input package interface
; IBDF("DFN") := pointer to patient
; IBDF("CLINIC") := pointer to hospital location
OVER ;
REV
VITALS ; -- if vitals, validate input
HPOVER
HPQ
DELETE ; -- delete old answer if changed
BP ; -- validate blood pressure
BPQ
WT ; -- validate body weight
WTQ
HT ; --validate body height
AG ; -- validate adominal girth
AUD ; -- validate audiometry
TMP ; -- validate temperature
FT ; -- validate fetal heart tones
FH ; -- validate fundal height
HC ; -- validate head circumference
HE ; -- validate hearing
PU ; -- validate pulse
RS ; -- validate respirations
TON ; -- validate tonometry
TONX
VC ; -- validate vision corrected
; same input as uncorrected
VU ; -- validate vision uncorrected

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " Deleted!"
  • Line Location: REV+3
Function Call: WRITE
  • Prompt: $E(X,$L(GOTO)+1,$L(X))
  • Line Location: REV+9
Function Call: WRITE
  • Prompt: !,HELP(IBDX)
  • Line Location: VITALS+7
Function Call: WRITE
  • Prompt: !,"Invalid format. Enter as SYSTOLIC/DIASTOLIC (120/80). SYSTOLIC must be",!,"between 20 and 275. DIASTOLIC must be between 20 and 200. SYSTOLIC must be",!,"greater than DIASTOLIC.",!
  • Line Location: BPQ+0
Function Call: WRITE
  • Prompt: !,"Enter a body weight, 1 decimal place allowed, between 2 and 750 lbs.",!
  • Line Location: WTQ+0
Function Call: WRITE
  • Prompt: !,"Enter the body height in inches, 1 decimal place allowed, between 10 and 80.",!
  • Line Location: HT+2
Function Call: WRITE
  • Prompt: !,"Enter the abdominal girth in inches, no decimal places, between 10 and 750.",!
  • Line Location: AG+2
Function Call: WRITE
  • Prompt: !,"Enter 8 readings for right ear followed by 8 readings for left ear,",!,"all followed by slashes (/). Values must be between 0 and 110.",!,"EXAMPLE: 100/100/100/95/90/90/85/80/105/105/105/105/100/100/95/90/",!
  • Line Location: AUD+4
Function Call: WRITE
  • Prompt: !,"Enter the body temperature in degrees fahrenheit, must be between 94 and 109.9.",!
  • Line Location: TMP+2
Function Call: WRITE
  • Prompt: !,"Enter Fetal Heart Tone. Must be in the range 50 -250.",!
  • Line Location: FT+2
Function Call: WRITE
  • Prompt: !,"Enter a fundal Height. Must be in the range 10 - 50",!
  • Line Location: FH+2
Function Call: WRITE
  • Prompt: !,"To enter head circumference in inches, enter the inches",!,"and decimal. Must be 10 - 30 inches and the fractional decimal part must",!,"be a multiple of 1/8 (.125)",!
  • Line Location: HC+2
Function Call: WRITE
  • Prompt: !,"Enter 'A' for abnormal, or 'N' for Normal.",!
  • Line Location: HE+3
Function Call: WRITE
  • Prompt: !,"Enter the patients 1 minute pulse, enter a number between 30 and 250.",!
  • Line Location: PU+2
Function Call: WRITE
  • Prompt: !,"Enter the patients 1 minute number of resperations, enter a number between 8 and 90.",!
  • Line Location: RS+2
Function Call: WRITE
  • Prompt: !,"Enter a reading for the RIGHT eye, followed by a SLASH, followed",!,"by the reading for the LEFT eye. The SLASH is required. Readings can be",!,"between 0 and 80. Examples: 18/18, /20, 18/, 10/13"
  • Line Location: TONX+0
Function Call: WRITE
  • Prompt: !,"Enter denominators only. The 20/ is assumed. Enter right eye",!,"/ left eye in form n/n (20/20). If right eye only enter n (20).",!,"If left eye only enter /n (/20). Must be between 10 and 999."
  • Line Location: VU+4
Info |  Source |  Entry Points |  Interaction Calls