Routine: IBDFDE8

Package	Total	Call Graph
Automated Information Collection System	4	$$FINDID^IBDF18C EN^IBDFDE ($$ASKDT,$$ASKYN)^IBDFDE0 ($$SELCL,ANYWAY)^IBDFDE6
VA Fileman	3	DT^DICRW Y^DIQ ^DIR
Kernel	2	HOME^%ZIS ($$DOW,$$FMADD,$$FMTE)^XLFDT

Package

Total

Call Graph

Automated Information Collection System

$$FINDID^IBDF18C EN^IBDFDE ($$ASKDT,$$ASKYN)^IBDFDE0 ($$SELCL,ANYWAY)^IBDFDE6

VA Fileman

DT^DICRW Y^DIQ ^DIR

Kernel

HOME^%ZIS ($$DOW,$$FMADD,$$FMTE)^XLFDT

Package	Total	Caller Graph
Automated Information Collection System	1	IBD MANUAL DATA ENTRY PRE
Integrated Billing	1	IBD MANUAL DATA ENTRY PRE

Package

Total

Caller Graph

Automated Information Collection System

IBD MANUAL DATA ENTRY PRE

Integrated Billing

IBD MANUAL DATA ENTRY PRE

Name	Comments	DBIA/ICR reference
LSTAP	; -- list appointments for date range
END
STRT	; -- ask for form id
CLINIC	; -- select clinic
LISTONE	; -- List appointments for one date
STRTQ
FRMSTAT	; -- count forms and form status for appointments

External References

Name	Field # of Occurrence
HOME^%ZIS	%+4
DT^DICRW	%+3
Y^DIQ	FRMSTAT+4
^DIR	STRT+5
$$FINDID^IBDF18C	CLINIC+23, FRMSTAT+2
EN^IBDFDE	CLINIC+28
$$ASKDT^IBDFDE0	CLINIC+11
$$ASKYN^IBDFDE0	CLINIC+17, CLINIC+18
$$SELCL^IBDFDE6	CLINIC+3
ANYWAY^IBDFDE6	CLINIC+24
$$DOW^XLFDT	LSTAP+4
$$FMADD^XLFDT	LSTAP+6, LSTAP+7
$$FMTE^XLFDT	CLINIC+17, LISTONE+9, LISTONE+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Data Entry Pre-Printed form, No appointment",! Line Location: IBDFDE8+8
Function Call: WRITE	Prompt: ! Line Location: STRT+3
Function Call: WRITE	Prompt: ! Line Location: CLINIC+1
Function Call: WRITE	Prompt: ! Line Location: CLINIC+10
Function Call: WRITE	Prompt: ! Line Location: CLINIC+14
Function Call: WRITE	Prompt: ! Line Location: CLINIC+14
Function Call: WRITE	Prompt: ! Line Location: CLINIC+19
Function Call: WRITE	Prompt: ! Line Location: LSTAP+3
Function Call: WRITE	Prompt: !,"Patient has the following appointments: " Line Location: LISTONE+8
Function Call: WRITE	Prompt: !,"No appointments for Patient found on ",$$FMTE^XLFDT($E(IBDF("APPT"),1,7)) Line Location: LISTONE+11
Function Call: WRITE	Prompt: ?50,$E($G(STATUS),1,25),?76,"("_CNT_")" Line Location: FRMSTAT+5
Routine Call	%ZIS Line Location: %+4
Routine Call	DIR Line Location: STRT+5

Name	Line Occurrences (* Changed, ! Killed)
^DD(357.96	FRMSTAT+4
^DPT - [#2]	LISTONE+4, LISTONE+6
^IBD(357.96 - [#357.96]	FRMSTAT+4
^SC - [#44]	CLINIC+6, LISTONE+9
^SD(409.95 - [#409.95]	CLINIC+7
^TMP("IBD-ASK"	END+1!
^TMP("IBD-LCODE"	END+1!
^TMP("IBD-LST"	END+1!
^TMP("IBD-LTEXT"	END+1!
^TMP("IBD-OBJ"	END+1!

Name	Line Occurrences
CLINIC	CLINIC+12, CLINIC+20
END	STRT+1, STRT+6
FRMSTAT	LISTONE+10
LISTONE	CLINIC+14, LSTAP+7
STRT	CLINIC+5, STRTQ+1
STRTQ	CLINIC+3, CLINIC+4, CLINIC+11, CLINIC+20, CLINIC+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	%~
%H	%~
ADD	%~
ASKOTHER	%~
BEGIN	LSTAP+1~, LSTAP+6*, LSTAP+7
C	%~, FRMSTAT+1~, FRMSTAT+4*
CHOICE	END!
>> CLNAME	CLINIC+6*
>> CLSETUP	CLINIC+7*
CNT	%~, LSTAP+1~, LSTAP+2, LSTAP+8, LISTONE+3, LISTONE+5, LISTONE+8, LISTONE+11, FRMSTAT+1~, FRMSTAT+3 , FRMSTAT+5
DA	%~, STRT+5!, END!
DEL	%~
DFN	%~, STRT+7*, CLINIC+23, LISTONE+4, LISTONE+6, FRMSTAT+2
DIC	%~, STRT+5!, END!
DIE	END!
DIR	%~, STRT+5!, END!
DIR("?"	STRT+4*
DIR("A"	STRT+5*
DIR(0	STRT+5*
DIRUT	%~, STRT+6, END!
DOW	LSTAP+1~, LSTAP+4*, LSTAP+5
DR	STRT+5!, END!
DT	%+3, CLINIC+11, LSTAP+4, LSTAP+6
DTOUT	%~, END!
DUOUT	%~, END!
FORM	FRMSTAT+1~, FRMSTAT+2*, FRMSTAT+3, FRMSTAT+4
>> FORMLST	CLINIC+23*, CLINIC+24, CLINIC+28
FRMDATA	%~
HELP	LSTAP+1~, LSTAP+2*, LISTONE+3, LISTONE+11
I	%~, END!
IBD	%~
IBDAPPT	%+1~, CLINIC+17, CLINIC+18, LISTONE+2, LISTONE+7
IBDASK	%+1~
IBDCKOUT	%~
IBDCLNME	%+1~
IBDCLNPH	%+1~
IBDCO	%+1~, END!
IBDF	%~, END!
IBDF("APPT"	CLINIC+11, CLINIC+12, CLINIC+17, CLINIC+23, LSTAP+7, LISTONE+2, LISTONE+4, LISTONE+7, LISTONE+11
IBDF("CLINIC"	CLINIC+3*, CLINIC+4, CLINIC+5, CLINIC+6, CLINIC+7, LISTONE+7
IBDF("DFN"	STRT+7*
IBDF("FORM"	CLINIC+28*
IBDFMIDI	%+1~
IBDFMIEN	%+1~
IBDFMNME	%+1~
IBDFMSTE	%+1~
IBDFMSTI	%+1~
IBDI	LSTAP+1~, LSTAP+7*
IBDOBJ	%~
IBDPI	%+1~, CLINIC+28!, END!
IBDPID	%+1~
IBDPRE	%+1~
IBDPTDTE	%+1~
IBDPTDTI	%~
IBDPTNM	%~
IBDPTPRI	%+1~
IBDPTSTE	%~
IBDPTSTI	%~
IBDREDIT	%+1~
IBDSAEOK	%+1~, CLINIC+2, CLINIC+17, CLINIC+18*, CLINIC+20, CLINIC+28, STRTQ!
IBDSEL	%+1~, CLINIC+28!, END!
>> IBDX	CLINIC+28*
IBFORM	%+1~
IBJ	FRMSTAT+1~, FRMSTAT+3*
IBQUIT	%~, STRT+2*, CLINIC+3, CLINIC+11, CLINIC+20, CLINIC+26, CLINIC+28, STRTQ+1
IBY	%~
J	%~, END!
NEXT	LISTONE+1~, LISTONE+2, LISTONE+4, LISTONE+6, LISTONE+7, LISTONE+9, FRMSTAT+2
NODAYS	LSTAP+1~, LSTAP+5*, LSTAP+6, LSTAP+7
NODE	LISTONE+1~, LISTONE+6*, LISTONE+7, LISTONE+9
POP	%~
PXCA	%+1~
PXCASTAT	%+1~
PXKNODA	%+1~
PXKNODB	%+1~
RESULT	END!
RTN	%~
SDCLST	%+1~
SEL	%~
STATUS	FRMSTAT+1~, FRMSTAT+2, FRMSTAT+4, FRMSTAT+5
TEXT	END!
TEXTU	END!
X	%~, END!, FRMSTAT+1~, FRMSTAT+3*
Y	%~, STRT+7, END!, FRMSTAT+1~, FRMSTAT+4*

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFDE8

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: