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 |  Caller 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: IBDF18C

Package: Automated Information Collection System

Routine: IBDF18C


Information

IBDF18C ;ALB/CJM/AAS - ENCOUNTER FORM - form ID utilities ;04-OCT-94

Source Information

Source file <IBDF18C.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 FILE^DICN  ^DIE  Y^DIQ  
Automated Information Collection System 1 LOGERR^IBDF18E2  
Kernel 1 $$FMTE^XLFDT  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Automated Information Collection System 11 IBDF18E  IBDF2A  IBDFBK1  IBDFBKR  IBDFDE1  IBDFDE6  IBDFDE7  IBDFDE8  
IBDFDEA  IBDFPCE  IBDFRPC4  

Entry Points

Name Comments DBIA/ICR reference
EXID(ID) ; -- converts external id format to internal id format
; -- we need to decide on external id format
INIDQ
FIDSTQ
FIDQ
FINDPT(FORMID) ;
; -- find patient from form id
; -- Output :Patient Name ^ PID ^ clinic Name ^ appt date/time (external)
; ^form ID ^ form status ^ DFN ^ clinic ien ^ appt date/time (fm format)
FINDIDQ
INID(ID) ; -- find internal id number from external format
; -- Input ID = form id in external format
; Output = form id in internal format or NULL if nonexistant
FSCND(ID,STAT,ERR) ; -- update form tracking file that
; -- Input ID = entry to flag as scanned (internal format)
; STAT = NEW status, 1=printed, 2=scanned,3=sent to pce okay,
; 4=pce returned err
; 11=pending pages, 12=input data error
; ERR = pce error message (required only if stat=4)
FIDST(ID) ; -- form id status
; -- Input ID = form id (internal entry number)
FID(DFN,APPT,SOURCE,FORMTYPE,CLIN) ; -- Form ID Tracking
; -- create record in the ENCOUNTER FORM TRACKING file
; and returned a unique FORM ID
; -- Input DFN = patient internal entry number
; APPT = appointment date time (fm format)
; SOURCE = the source of the form, ie
; IB = 1
; Pandas = 2
; Telefr = 3
; FORMTYPE = the package form definition ID - may have been exterally assigned
; CLIN = pointer to 44 (optional)
FINDPTQ
FINDID(DFN,APPT,FORM,DUP) ; -- Find a form id for a patient and appointment
; -- input DFN = patient
; APPT = appointment date time
; FORM = (Optional) type of form, pointer to 357.95 or field 10
; DUP = (Optional) if true, No duplicates of same form (357)
; returns last printing of same form with different
; form definitions, will also exclude nonscannable form
FSCNDQ

External References

Name Field # of Occurrence
FILE^DICN FID+33
^DIE FID+42, FSCND+17
Y^DIQ FINDPT+12
LOGERR^IBDF18E2 FID+37
DEM^VADPT FINDPT+11
$$FMTE^XLFDT FINDPT+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBD(357.96 - [#357.96] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(357.96 FINDPT+12
^DPT - [#2] FINDID+16
^IBD(357.95 - [#357.95] FID+24, FINDID+24, FINDID+26, FINDPT+13
^IBD(357.96 - [#357.96] FID+27, FID+33, FID+42, INID+5, FIDST+12, FINDID+18, FINDID+19, FINDID+21, FINDID+23, FINDID+24
, FINDID+25, FINDID+26, FINDID+29, FINDID+30, FINDID+32, FINDPT+8
^IBD(357.97 - [#357.97] FID+31, FID+32, FID+34*, FID+35
^IBE(357 - [#357] FINDID+24, FINDPT+14
^SC - [#44] FINDPT+16
^TMP("IBD-FINDID" FINDID+29
^TMP($J FINDID+15!, FINDID+28*, FINDID+31*, FINDID+33, FINDIDQ!

Label References

Name Line Occurrences
$$EXID FID+39
$$FINDID FID+27
FIDQ FID+17, FID+27, FID+37
FIDSTQ FIDST+11, FIDST+12
FINDIDQ FINDID+14
FINDPTQ FINDPT+7, FINDPT+9
FSCNDQ FSCND+11, FSCND+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% FID+43!
%H FID+43!
%I FID+43!
APPT FID~, FID+17, FID+21, FID+27, FINDID~, FINDID+14, FINDID+16, FINDID+18, FINDID+23
>> C FINDPT+12*
CLIN FID~
CLN FID+14~, FINDID+16*, FINDID+19, FINDID+25
D0 FID+28!
DA FID+14~, FID+28!, FID+40*, FID+43!, FSCND+9~, FSCND+16*
DD FID+28!
DFN FID~, FID+17, FID+27, FINDID~, FINDID+14, FINDID+16, FINDID+18, FINDID+23, FINDPT+5~, FINDPT+10*
, FINDPT+16
DIC FID+14~, FID+28!, FID+29*, FID+43!, FSCND+9~
DIC(0 FID+29*
DIE FID+14~, FID+40*, FID+43!, FSCND+9~, FSCND+16*
DINUM FID+14~, FID+28!, FID+29*, FID+33*, FID+43!
DLAYGO FID+14~, FID+29*, FID+43!
DO FID+28!
DR FID+14~, FID+41*, FID+43!, FSCND+9~, FSCND+16*
DUP FINDID~, FINDID+18, FINDID+23, FINDID+33
ERR FSCND~, FSCND+12
EXID FID+14~, FID+15*, FID+27*, FID+39*, FIDQ, INID+4~, INID+5*, INIDQ
FORM FINDID~, FINDID+20, FINDID+21, FINDID+27, FINDID+32, FINDID+33, FINDPT+5~, FINDPT+13*, FINDPT+14, FINDPT+17
FORMID FID+14~, FID+37, FINDPT~, FINDPT+7, FINDPT+8, FINDPT+19
FORMID("APPT" FID+21*
FORMID("SOURCE" FID+21*
FORMNM FINDPT+5~, FINDPT+14*, FINDPT+17
FORMTYPE FID~, FID+20*, FID+24, FID+27
I FID+14~, FSCND+9~, FIDST+9~, FINDID+12~, FINDID+21*, FINDID+32*, FINDPT+5~
IBI FSCND+9~
IBNODE FINDPT+5~, FINDPT+8*, FINDPT+9, FINDPT+10, FINDPT+12, FINDPT+13, FINDPT+16, FINDPT+17, FINDPT+19
IBXX FINDPT+5~, FINDPT+6*, FINDPT+16*, FINDPT+17*, FINDPT+19*, FINDPTQ
ID FID+14~, FID+15*, FID+27*, FID+29, FID+32*, FID+33*, FID+34, FID+37*, FID+38, FID+39
, FID+40, FID+42, FIDQ, EXID~, EXID+2, INID~, INID+5, FSCND~, FSCND+11, FSCND+16
, FIDST~, FIDST+11, FIDST+12, FINDID+12~, FINDID+13*, FINDID+20*, FINDID+21*, FINDID+32*, FINDID+33*, FINDIDQ+1
INTERNAL FID+14~, FID+24*
J FID+14~, FSCND+9~, FIDST+9~, FINDID+12~, FINDPT+5~
NEWDATE FINDID+12~, FINDID+30*, FINDID+31
NODE FID+14~
OLDDATE FINDID+12~, FINDID+29*, FINDID+31
ORIGIN FINDID+12~, FINDID+26*, FINDID+28, FINDID+29, FINDID+31, FINDID+33*
SOURCE FID~, FID+17, FID+24
STAT FSCND~, FSCND+12
STATNM FINDPT+5~, FINDPT+12*, FINDPT+17
STATUS FIDST+9~, FIDST+10*, FIDST+13*, FIDST+14*, FIDSTQ
SUCCESS FSCND+9~, FSCND+10*, FSCND+18*, FSCNDQ
VA FINDPT+5~
VA("PID" FINDPT+16
VADM FINDPT+5~
VADM(1 FINDPT+16
VAERR FINDPT+5~
X FID+14~, FID+29*, FID+33*, FSCND+9~, FIDST+9~, FIDST+12*, FIDST+13, FIDST+14, FINDID+12~, FINDID+18*
, FINDID+19, FINDID+20, FINDID+21, FINDID+23*, FINDID+24, FINDID+25, FINDID+26, FINDID+28, FINDID+30, FINDID+31
, FINDID+32, FINDPT+5~
Y FID+14~, FID+33, FID+37, FSCND+9~, FIDST+9~, FINDPT+5~, FINDPT+12*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All