Routine: IBDFDE3

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

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFDE3

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items