Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
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>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Automated Information Collection System 3 ^IBDFDE  $$ASKDT^IBDFDE0  OBJLST^IBDFRPC1  
General Medical Record - Vitals 1 ($$RATECHK,HELP,RATECHK)^GMRVPCE0  
Kernel 1 $$UP^XLFSTR  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
TMP ; -- validate temperature
FT ; -- validate fetal heart tones
OVER ;
REV
HT ; --validate body height
BPQ
WT ; -- validate body weight
TON ; -- validate tonometry
FH ; -- validate fundal height
HC ; -- validate head circumference
HE ; -- validate hearing
WTQ
PU ; -- validate pulse
VC ; -- validate vision corrected
; same input as uncorrected
AUD ; -- validate audiometry
AG ; -- validate adominal girth
HPQ
VU ; -- validate vision uncorrected
VITALS ; -- if vitals, validate input
TONX
HPOVER
RS ; -- validate respirations
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
BP ; -- validate blood pressure
DELETE ; -- delete old answer if changed

External References

Name Field # of Occurrence
^DIR OVER+8
$$RATECHK^GMRVPCE0 VITALS+4
HELP^GMRVPCE0 VITALS+6
RATECHK^GMRVPCE0 VITALS+3
^IBDFDE %
$$ASKDT^IBDFDE0 OVER+7
OBJLST^IBDFRPC1 HNDPR+22
$$UP^XLFSTR HNDPR+25, REV+1, REV+6, HE+1

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
Routine Call
  • DIR
  • Line Location:
    • OVER+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(357.6 - [#357.6] HNDPR+26
^TMP("IBD-ASK" HNDPR+25*, REV+8, REV+9

Label References

Name Line Occurrences
@( VITALS+9
BPQ BP+2
DELETE REV+3, VITALS+12
HPOVER REV+5, VITALS+2
HPQ HNDPR+23, REV, REV+3, REV+4, REV+11
OVER HPOVER
REV OVER+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%AUI AUD+1~, AUD+3*
%AUX AUD+1~, AUD+3*
ANS HNDPR+20~, HNDPR+21*, REV+1*, REV+3, REV+4, REV+5, REV+6, VITALS+4, VITALS+8!, VITALS+12
, VITALS+14, VITALS+16, DELETE+1, BP+2!, BP+3, BP+4!, BP+5!, WT+1!, HT+1!, AG+1!
, AUD+2!, AUD+3!, TMP+1!, FT+1!, FH+1!, HC+1!, HE+1*, HE+2!, PU+1!, RS+1!
, TON+2!, TON+3, TON+4, TON+5!, TON+6!, VU+1!, VU+2!, VU+3!
AUTONL TON+1~, TON+4*, TON+6
AUTONR TON+1~, TON+3*, TON+5
CHOICE HNDPR+20~, HNDPR+22
CHOICE(0 HNDPR+23
CHOICE(1 HNDPR+24, HNDPR+26, OVER+4, OVER+6, VITALS+4, VITALS+16
D BP+1~, BP+3*, BP+4, BP+5
DIR HNDPR+20~, OVER+1!, REV+2!
DIR("?" OVER+3*
DIR("A" OVER+6*, OVER+7
DIR("B" OVER+5*, OVER+7, REV
DIR(0 OVER+4*
DIRUT HNDPR+20~, OVER+1!, REV+11
DISPTXT HNDPR+20~
DTOUT HNDPR+20~, OVER+1!
DUOUT HNDPR+20~, OVER+1!
>> GOTO REV+6*, REV+7, REV+8, REV+9
HDR HNDPR+20~
HELP VITALS+8!
HELP( VITALS+7
I HNDPR+20~
>> IBDASK HNDPR+24*, HNDPR+25
IBDF HNDPR~, HNDPR+22
IBDF("APPT" OVER+7
IBDF("ASKDATE" OVER+7
IBDF("DEFLT" OVER+7
IBDF("GOTO" REV+9*
IBDF("IBDF" HNDPR+25
IBDF("IEN" VITALS+16
IBDF("PI" HNDPR+26, OVER+5, VITALS+16, VITALS+17, VITALS+18, DELETE+2, DELETE+3
IBDF("VITAL" VITALS+16
>> IBDFMIEN HNDPR+25, REV+8, REV+9
>> IBDPI( OVER+5, VITALS+17*, VITALS+18*, DELETE+2, DELETE+3!
IBDPRE HNDPR+20~, REV*, REV+3, VITALS+12, DELETE+1
>> IBDREDIT REV, REV+3, REV+9*, VITALS+12, DELETE+1
>> IBDSEL( VITALS+17
IBDX HNDPR+20~, VITALS+7*
>> IBQUIT HNDPR+21*, REV+10*, REV+11*
J HNDPR+20~
OVER HNDPR+20~, HNDPR+21*, OVER+2*, REV+7*, VITALS+1*, VITALS+2, VITALS+4*, VITALS+5, HPOVER, BP+2*
, BP+4*, BP+5*, BPQ, WT+1*, WTQ, HT+1*, HT+2, AG+1*, AG+2, AUD+2*
, AUD+3*, AUD+4, TMP+1*, TMP+2, FT+1*, FT+2, FH+1*, FH+2, HC+1*, HC+2
, HE+2*, HE+3, PU+1*, PU+2, RS+1*, RS+2, TON+2*, TON+5*, TON+6*, TONX
, VU+1*, VU+2*, VU+3*, VU+4
QLFR HNDPR+20~, HNDPR+21*, HNDPR+26*, OVER+5, VITALS+2, VITALS+4, VITALS+6, VITALS+9, VITALS+16, VITALS+17
, VITALS+18, DELETE+2, DELETE+3
RESULT HNDPR~
RESULT( VITALS+16*, DELETE+3!
RESULT(0 VITALS+15*, VITALS+16, VITALS+17, VITALS+18, DELETE+4*
S BP+1~, BP+3*, BP+4, BP+5
>> SEL DELETE+2*, DELETE+3
X HNDPR+20~, OVER+1!, REV+8*, REV+9, AUD+3
Y HNDPR+20~, OVER+1!, OVER+7*, REV, REV+1

Marked Items

Name Field # of Occurrence
$T(@(1) VITALS+9
$T(RATECHK^GMRVPCE0 VITALS+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All