Routine: IBDFDEA

Information

IBDFDEA ;ALB/AAS - AICS Data Entry API ; 19-JUN-96

Source Information

Source file <IBDFDEA.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Automated Information Collection System	5	$$FINDID^IBDF18C EN^IBDFDE ANYWAY^IBDFDE6 EXIT1^IBDFFT START^IBDFFT1
Registration	2	FULL^VALM1 EN^VALM2
VA Fileman	2	^DIK ^DIR
Kernel	1	HOME^%ZIS

Entry Points

Name	Comments	DBIA/ICR reference
EN1Q
DP1	; -- actual deletion of forms tracking entry
EN1(PXCA,IBDF)	; -- Procedure ; -- supported reference to process encounter form data. ; Packages that know patient, visit date/time, and clinic ; can call this api to use the AICS data entry system to prompt ; users for encounter data and subsequently store this data ; using the PCE device interface (this is done automatically using ; the aics parameters). ; D EN1^IBDFDEA(.RESULTS,.IBDF)
SCANFRM(X)	; is entry scannable
DELFT	; -- Delete forms Tracking Entry
DTQ
DTQ1

External References

Name	Field # of Occurrence
HOME^%ZIS	EN1+30
^DIK	DP1+2
^DIR	DELFT+15
$$FINDID^IBDF18C	EN1+36
EN^IBDFDE	EN1+41
ANYWAY^IBDFDE6	EN1+37
EXIT1^IBDFFT	DTQ+1
START^IBDFFT1	DTQ+1
FULL^VALM1	DELFT+3
EN^VALM2	DELFT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No Form Tracking record associated with entry #",IBD Line Location: DELFT+5
Function Call: WRITE	Prompt: !!,"*** Status indicates action has been taken on this entry #"_IBD_" ***" Line Location: DELFT+7
Function Call: WRITE	Prompt: !,"Entry #"_IBD_" - Nothing Deleted...This entry is associated with an appointment, and is the most current version of the form." Line Location: DELFT+12
Function Call: WRITE	Prompt: !,"Status indicates action taken on this entry, deletion not allowed." Line Location: DELFT+13
Function Call: WRITE	Prompt: ! Line Location: DELFT+14
Function Call: WRITE	Prompt: !,"Entry #",IBD," not Deleted!" Line Location: DELFT+15
Function Call: WRITE	Prompt: !,"Entry ",IBD," Deleted!" Line Location: DP1+3
Routine Call	%ZIS Line Location: EN1+30
Routine Call	DIR Line Location: DELFT+15

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)
^DPT - [#2]	DELFT+11
^IBD(357.95 - [#357.95]	SCANFRM+1, DELFT+12
^IBD(357.96 - [#357.96]	SCANFRM+1, DELFT+5
^IBE(357 - [#357]	SCANFRM+1
^TMP("CNT"	DTQ!
^TMP("FRM"	DTQ!
^TMP("FRMIDX"	DELFT+4, DTQ!
^TMP("FTRK"	DTQ!
^TMP("STAIDX"	DTQ!
^TMP("STATS"	DTQ!
^XUSEC("IBD MANAGER"	DELFT+6, DELFT+9

Label References

Name	Line Occurrences
DP1	DELFT+16
DTQ1	DELFT+18
EN1Q	EN1+31, EN1+32, EN1+39

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN1+26~
%H	EN1+26~
ADD	EN1+26~
ANS1	EN1+28~
APPT	DELFT+1~, DELFT+10*, DELFT+11
ASKOTHER	EN1+26~
AUPNDAYS	EN1+28~
AUPNDOB	EN1+28~
AUPNDOD	EN1+28~
AUPNPAT	EN1+28~
AUPNSEX	EN1+28~
C	EN1+26~
CLN	DELFT+1~, DELFT+10*, DELFT+11
CNT	EN1+26~
DA	EN1+26~, DP1+1~, DP1+2*
DEL	EN1+26~
DFN	EN1+26~, EN1+31, EN1+36, DELFT+1~, DELFT+10, DELFT+11
DIC	EN1+26~, DP1+1~
DIK	DP1+1~, DP1+2*
DIR	EN1+26~, DELFT+1~
DIR("A"	DELFT+14*
DIR("B"	DELFT+14*
DIR(0	DELFT+14*
DIRUT	EN1+26~, DELFT+1~, DELFT+3
DTOUT	EN1+26~
DUOUT	EN1+26~
DUZ	DELFT+6, DELFT+9
FORMID	DELFT+1~, DELFT+10*, DELFT+12
FORMLST	EN1+28~, EN1+36*, EN1+37, EN1+41
FRMDATA	EN1+26~
I	EN1+26~, DELFT+1~
IBD	DELFT+1~, DELFT+3*, DELFT+4, DELFT+5, DELFT+7, DELFT+8, DELFT+12, DELFT+14, DELFT+15, DP1+3
IBDASK	EN1+27~
IBDCLNME	EN1+27~
IBDCLNPH	EN1+27~
IBDCO	EN1+27~
IBDF	EN1~, DELFT+1~, DELFT+4*, DELFT+5, DP1+2
IBDF("APPT"	EN1+32, EN1+36
IBDF("CLINIC"	EN1+37
IBDF("DFN"	EN1+31
IBDF("FORM"	EN1+41*
IBDFMIDI	EN1+27~
IBDFMIEN	EN1+27~
IBDFMNME	EN1+27~
IBDFMSTE	EN1+27~
IBDFMSTI	EN1+27~
IBDNODE	DELFT+1~, DELFT+5*, DELFT+7, DELFT+10
IBDOBJ	EN1+26~
IBDOK	EN1+27~
IBDPI	EN1+27~, EN1+41!
IBDPID	EN1+27~
IBDPRE	EN1+27~
IBDPTDTE	EN1+27~
IBDPTDTI	EN1+26~
IBDPTNM	EN1+26~
IBDPTPRI	EN1+27~
IBDPTSTE	EN1+26~
IBDPTSTI	EN1+26~
IBDREDIT	EN1+27~
IBDSEL	EN1+27~, EN1+41!
>> IBDX	EN1+41*
IBFORM	EN1+27~
IBQUIT	EN1+26~, EN1+33, EN1+39, EN1+41, DELFT+1~, DELFT+12, DELFT+14, DELFT+15, DELFT+16, DELFT+17!
IBX	DELFT+1~, DELFT+7*, DELFT+8
IBY	EN1+26~
IOF	EN1+30
J	EN1+26~, DELFT+1~
POP	EN1+26~
PXCA	EN1~
PXCASTAT	EN1+27~
PXKNODA	EN1+27~
PXKNODB	EN1+27~
RTN	EN1+26~
SDCLST	EN1+27~
SEL	EN1+26~
>> VALMBCK	DTQ1*
VALMY	DELFT+1~, DELFT+3, DELFT+18
VALMY(	DELFT+3
X	EN1+26~, SCANFRM~, SCANFRM+1
>> XQORNOD(0	DELFT+2
Y	EN1+26~, DELFT+15

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFDEA

Call Graph Total: 10