Routine: IBDFN

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
FileMan Files Accessed Via FileMan Db Call
Global Variables Directly Accessed
Label References
Local Variables

Information

IBDFN ;ALB/CJM - ENCOUNTER FORM - INTERFACE ROUTINES ;NOV 16,1992

Source Information

Source file <IBDFN.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Registration	2	$$GETSTAT^DGMSTAPI (DEM,ELIG,OPD,SVC)^VADPT
VA Fileman	2	DD^%DT $$GET1^DIQ
Automated Information Collection System	1	$$REQ^IBDFDE0
Scheduling	1	($$AO,$$EC,$$IR,$$MST,$$SC)^SDCO22

Entry Points

Name	Comments	DBIA/ICR reference
ELIG1	;for output of hidden service connected conditions
EMPLMNT	;returns patient's employment status
ELIG	;for output of eligibility information & service connected conditions
ELIG2Q
DATE(Y)	; Y=date in FM form, this function translates the date to its
LABELS	;returns NOTHING for printing labels only, ie, no data
ELIG1MST	;-- Similar to ELIG1 but adds MST indicator (if applicable) to hidden classification questions array
ELIG2	; -- for output of hidden classification questions
ELIG2MST	;-- Similar to ELIG2 but adds MST indicator (if applicable) to hidden classification questions array
BLANKS	;returns NOTHING for printing blank lines
VADPT	;returns patient demographic data
ELIGSET	;-- Checks for MST and adds MST question to hidden classification array
ELIGMST	;-- Adds the MST indicator to existing hidden classification questions ; (patch IBD336)
SETARY(ARY,CNT,TEXT)	; -- build array

External References

Name	Field # of Occurrence
DD^%DT	DATE+2
$$GETSTAT^DGMSTAPI	ELIGMST+7
$$GET1^DIQ	ELIG+9
$$REQ^IBDFDE0	ELIG2+2
$$AO^SDCO22	ELIG2+7
$$EC^SDCO22	ELIG+20, ELIG1+14, ELIG2+9
$$IR^SDCO22	ELIG2+8
$$MST^SDCO22	ELIGMST+6, ELIGSET+6
$$SC^SDCO22	ELIG2+6
DEM^VADPT	VADPT+4
ELIG^VADPT	ELIG+4, ELIG1+3
OPD^VADPT	EMPLMNT+2
SVC^VADPT	ELIG+15, ELIG1+7

FileNo	Call Tags
^DG(391 - [#391]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DIC(31 - [#31]	ELIG+10
^DPT - [#2]	VADPT+9, ELIG+8, ELIG+9, ELIG+10
^TMP("IB"	ELIG1MST+2!, ELIG1MST+3!, ELIG2MST+2!, ELIG2MST+3!

Name	Line Occurrences
ELIG	ELIGMST+4
ELIG1	ELIG1MST+4
ELIG2	ELIG2MST+4
ELIGSET	ELIG1MST+5, ELIG2MST+5
SETARY	ELIG2+6, ELIG2+7, ELIG2+8, ELIG2+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARY	VADPT+2~, VADPT+3, VADPT+5, VADPT+6, VADPT+7, VADPT+8, VADPT+9, ELIG+1~, ELIG+2, ELIG+7 , ELIG+8, ELIG+22, ELIG+30, ELIG+36, ELIG1+1~, ELIG1+2, ELIG1+4, ELIG1+9, ELIG1+10, ELIG1+14 , ELIG2+1~, ELIG2+4, ELIG2+6, ELIG2+7, ELIG2+8, ELIG2+9, SETARY~, SETARY+2, ELIGMST+3~, ELIGMST+5 , ELIGMST+8, ELIGMST+10, ELIGMST+11, ELIGMST+12, ELIGMST+16, ELIGSET+2~, ELIGSET+3*, ELIGSET+5, ELIGSET+7, ELIGSET+8
CNT	SETARY~, SETARY+1*, SETARY+2
COND	ELIG+1~, ELIG+9*, ELIG+10
COUNT	ELIG+1~, ELIG+9, ELIG+10, ELIG+12, ELIG1+1~, ELIG1+2, ELIG1+4, ELIG1+9, ELIG1+10, ELIG1+14* , ELIG2+1~, ELIG2+4, ELIG2+6, ELIG2+7, ELIG2+8, ELIG2+9, ELIGSET+2~, ELIGSET+4, ELIGSET+7, ELIGSET+8
DATA	ELIG+1~, ELIG+16, ELIG+17, ELIG+22, ELIG+27, ELIG+28, ELIG+29, ELIG+30, ELIG+33, ELIG+35* , ELIG+36, ELIGMST+3~, ELIGMST+12, ELIGMST+14, ELIGMST+15*, ELIGMST+16
DESCR	ELIG+1~, ELIG+10*, ELIG+12
>> DFN	VADPT+9, ELIG+8, ELIG+9, ELIG+10, ELIG+20, ELIG1+14, ELIG2+2, ELIG2+6, ELIG2+7, ELIG2+8 , ELIG2+9, ELIGMST+6, ELIGMST+7, ELIGSET+6
EC	ELIG+1~, ELIG+20*, ELIG+22, ELIG+33, ELIG+34, ELIG+35, ELIG1+1~
I	ELIG+1~, ELIG+5, ELIGSET+2~, ELIGSET+4, ELIGSET+7*
>> IBAPPT	ELIG2+2
>> IBARY	EMPLMNT+3, EMPLMNT+4, BLANKS+1, LABELS+1
>> IBCLINIC	ELIG2+2
MST	ELIGMST+3~, ELIGMST+6*, ELIGMST+13, ELIGMST+15
MSTSTAT	ELIGMST+3~, ELIGMST+7*, ELIGMST+8
NODE0	ELIG+1~, ELIG+10*, ELIG+11
PERC	ELIG+1~, ELIG+6, ELIG+7, ELIG+11, ELIG+12
SARY	ELIG+1~, ELIG+3*, ELIG+12
TEXT	SETARY~, SETARY+2
VA	VADPT+10!, EMPLMNT+5!
VA("PID"	VADPT+6
VADM	VADPT+10!
VADM(1	VADPT+6
VADM(10	VADPT+7
VADM(3	VADPT+6
VADM(4	VADPT+6
VADM(5	VADPT+6
VADM(8	VADPT+8
VAEL	VADPT+10!, EMPLMNT+5!, ELIG+1~, ELIG1+1~
VAEL(	ELIG+5*
VAEL(1	ELIG+7
VAEL(2	ELIG+7
VAEL(3	ELIG+6, ELIG+7, ELIG+8, ELIG+27, ELIG1+4
VAEL(4	ELIG+7, ELIG+9
VAEL(5	ELIG+7
VAEL(6	ELIG+7, ELIG+9
VAERR	VADPT+5, VADPT+10!, EMPLMNT+3, EMPLMNT+5!, ELIG+1~, ELIG+5, ELIG+16, ELIG1+1~, ELIG1+4, ELIG1+8
VAPD	EMPLMNT+5!
VAPD(7	EMPLMNT+4
VASV	ELIG+1~, ELIG1+1~
VASV(1	ELIG+17
VASV(2	ELIG+17, ELIG+28, ELIG+34, ELIG+35, ELIG1+9
VASV(3	ELIG+17, ELIG+29, ELIG+34, ELIG+35, ELIG1+10
VASV(4	ELIG+17
VASV(5	ELIG+17
Y	DATE~, DATE+3

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFN

Call Graph Total: 6