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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBDFN

Package: Automated Information Collection System

Routine: IBDFN


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 IBD*3*36)
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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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!

Label References

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
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All