Routine: IBDFDE6

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
VA Fileman	5	^DIC DT^DICRW ^DIE Y^DIQ ^DIR
Automated Information Collection System	4	($$FID,$$FINDID)^IBDF18C $$FORMTYPE^IBDF18D EN^IBDFDE ($$MULT,ASKPT)^IBDFDE61
Kernel	3	HOME^%ZIS ($$FMADD,$$FMTE)^XLFDT $$UP^XLFSTR

Package	Total	Caller Graph
Automated Information Collection System	5	IBD MANUAL DATA ENTRY BY CLIN IBDFDE61 IBDFDE7 IBDFDE8 IBDFDEA
Integrated Billing	1	IBD MANUAL DATA ENTRY BY CLIN

Package

Total

Caller Graph

Automated Information Collection System

IBD MANUAL DATA ENTRY BY CLIN IBDFDE61 IBDFDE7 IBDFDE8 IBDFDEA

Integrated Billing

IBD MANUAL DATA ENTRY BY CLIN

Entry Points

Name	Comments	DBIA/ICR reference
HDR	; -- print Clinic header
OVER
SELAPQ
FIND	;find appropriate pt appt from array
ARRAY(ARRAY,ANS)	; -- bld array of multiple patients ; -- required variables: array = name x-ref; ans = name of selection
APPT
OTHFRM(IBFORM)	; -- if no form printed, add form tracking entry, ; -- compile form if necessary return form list
SELPT	; -- select patient(s) to process
SELCL()	; -- select clinic
END
ANYWAY	; -- if no forms available ask if want to enter form anyway ; all to use default form, clinic setup,or any form
STRTQ	;D PAUSE^IBDFDE
ONE(NODE,IBD1)	; -- write one line
BLD	; -- Find all appointments for a date
APDT	; -- list last 30 days appointment dates in clinic
SELAP(IBDF)	; -- select appointment date for a clinic
LIST	; -- print list of patients
STRT	; -- ask for Clinic, date then patient. ; Only list patients w/no data entry ; find all forms for appt., then go through 1 at a time
SELCLQ
ANYWAYQ
SELQ
OVERQ

External References

Name	Field # of Occurrence
HOME^%ZIS	%+4
^DIC	ANYWAY+23
DT^DICRW	%+3
^DIE	OTHFRM+13
Y^DIQ	ONE+6
^DIR	ANYWAY+9, SELCL+6, SELAP+9, SELPT+6
$$FID^IBDF18C	OTHFRM+12
$$FINDID^IBDF18C	OVER+6, ONE+4
$$FORMTYPE^IBDF18D	OTHFRM+7
EN^IBDFDE	OVER+10
$$MULT^IBDFDE61	FIND+4
ASKPT^IBDFDE61	LIST+3
$$FMADD^XLFDT	APDT+1
$$FMTE^XLFDT	ONE+7, APDT+6, APDT+7, APDT+8, APDT+9, HDR+4
$$UP^XLFSTR	SELPT+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Data Entry of Encounter Forms (by Clinic)",!! Line Location: IBDFDE6+8
Function Call: WRITE	Prompt: ! Line Location: APPT+0
Function Call: WRITE	Prompt: !! Line Location: APPT+1
Function Call: WRITE	Prompt: !!,"No appointments on that Date!",!! Line Location: APPT+4
Function Call: WRITE	Prompt: !! Line Location: OVER+1
Function Call: WRITE	Prompt: !,"No forms Printed for Patient" Line Location: OVER+8
Function Call: WRITE	Prompt: !! Line Location: OVER+11
Function Call: WRITE	Prompt: !,"No Forms Defined for Clinic" Line Location: ANYWAY+8
Function Call: WRITE	Prompt: ! Line Location: ANYWAY+29
Function Call: WRITE	Prompt: !!,"No forms defined for clinic" Line Location: ANYWAY+30
Function Call: WRITE	Prompt: "." Line Location: OTHFRM+7
Function Call: WRITE	Prompt: "." Line Location: OTHFRM+8
Function Call: WRITE	Prompt: " ",$P($G(^DPT(+RESULT,0)),"^") Line Location: SELPT+11
Function Call: WRITE	Prompt: " ",$E($P($G(^DPT(+RESULT,0)),"^"),($L(ANS)+1),999) Line Location: FIND+2
Function Call: WRITE	Prompt: $C(7)," ?? Not Found" Line Location: FIND+6
Function Call: WRITE	Prompt: !?2,IBD1,?5,$E($P(^DPT(DFN,0),"^"),1,18),?26,$P($G(^DPT(DFN,.36)),"^",4),?32,$$FMTE^XLFDT(+APPT),?52,$E($G(STATUS),1,24),?77,"("_CNT_")" Line Location: ONE+7
Function Call: WRITE	Prompt: !!,"The following are valid Appointment dates in the past 60 days:" Line Location: APDT+5
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !," Clinic: ",$E(CLNAME,1,25) Line Location: HDR+4
Function Call: WRITE	Prompt: ?40," Date: ",$$FMTE^XLFDT(IBDFDT) Line Location: HDR+4
Function Call: WRITE	Prompt: !," Basic Form: ",$E(IBDFMNME,1,25) Line Location: HDR+6
Function Call: WRITE	Prompt: ?40," Active Forms: ",CNT Line Location: HDR+6
Function Call: WRITE	Prompt: !,"Appointments: ",$O(^TMP("IBD-PL",$J,IBDF("CLINIC"),""),-1) Line Location: HDR+7
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","=") Line Location: HDR+8
Routine Call	%ZIS Line Location: %+4
Routine Call	DIE Line Location: OTHFRM+13
Routine Call	DIC Line Location: ANYWAY+23
Routine Call	DIR Line Location: ANYWAY+9 SELCL+6 SELAP+9 SELPT+6

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(357.96	ONE+6
^DPT - [#2]	SELPT+11, FIND+2, FIND+3, FIND+5, BLD+7, BLD+13, BLD+14, BLD+15, ONE+7
^IBD(357.09 - [#357.09]	ANYWAY+16
^IBD(357.95 - [#357.95]	OTHFRM+8*
^IBD(357.96 - [#357.96]	OVER+7, ONE+6
^IBE(357 - [#357]	ANYWAY+17, OTHFRM+3, OTHFRM+6, OTHFRM+9, OTHFRM+10, OTHFRM+11, HDR+5
^SC - [#44]	STRT+8, ANYWAY+7, BLD+4, BLD+5, BLD+6, APDT+2
^SD(409.95 - [#409.95]	STRT+9, ANYWAY+7
^TMP(	SELPT+11, SELPT+16, FIND+1, ARRAY+2
^TMP("IBD-ASK"	END+2!
^TMP("IBD-LCODE"	END+2!
^TMP("IBD-LST"	END+2!
^TMP("IBD-LTEXT"	END+2!
^TMP("IBD-MORE"	END+1!
^TMP("IBD-OBJ"	END+2!
^TMP("IBD-PL"	APPT+4, BLD+1!, BLD+12*, LIST+3, HDR+7, END+1!
^TMP("IBD-PL4"	BLD+15*, END+1!
^TMP("IBD-PLB"	BLD+14*, END+1!
^TMP("IBD-PLCHK"	END+1!
^TMP("IBD-PLN"	BLD+1!, BLD+13*, END+1!

Label References

Name	Line Occurrences
$$OTHFRM	ANYWAY+18, ANYWAY+25, ANYWAY+29
$$SELAP	APPT
$$SELCL	STRT+6
ANYWAY	OVER+8
ANYWAYQ	ANYWAY+10, ANYWAY+11, ANYWAY+13, ANYWAY+15, ANYWAY+21, ANYWAY+28
APPT	APPT+4, OVER+3, STRTQ+2
ARRAY	SELPT+13, SELPT+14, SELPT+15, SELPT+16
BLD	APPT+3
END	STRT+4, STRTQ+1
FIND	SELPT+13, SELPT+14, SELPT+15
HDR	OVER
ONE	LIST+3
OVER	OVERQ
OVERQ	OVER+4, OVER+9
SELAPQ	SELAP+10, SELAP+11
SELCLQ	SELCL+7, SELCL+8
SELPT	OVER+1
SELQ	SELPT+7, SELPT+9, SELPT+10, SELPT+11, SELPT+17, FIND+1
STRT	APPT+1
STRTQ	STRT+6, STRT+7, APPT, OVER+1, OVER+8

Name	Field # of Occurrence
^(	SELPT+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	%~
%H	%~
>> A	ARRAY+2*
ADD	%~
ANS	%+1~, ANYWAY+12, ANYWAY+13, ANYWAY+15, ANYWAY+21, ANYWAY+28, SELCL+2~, SELCL+3, SELCL+9, SELCLQ , SELAP+2~, SELAP+3, SELAP+12, SELAPQ, SELPT+2, SELPT+8*, SELPT+9, SELPT+11, SELPT+13, SELPT+14 , SELPT+15, SELPT+16, FIND+2, ARRAY~, ARRAY+2
>> APPT	ONE+3*, ONE+4, ONE+7
ARRAY	SELPT+1~, SELPT+2, SELPT+11, SELPT+13, SELPT+14, SELPT+15*, SELPT+16, FIND+1, FIND+2, ARRAY~ , ARRAY+2
ASKOTHER	%~
C	%~, ONE+1~, ONE+6*
CHOICE	END!
CLNAME	%+1~, STRT+8, ANYWAY+7, HDR+4
CLSETUP	%+1~, STRT+9, ANYWAY+7, ANYWAY+8, ANYWAY+29, HDR+3, HDR+5
CNT	%~, SELPT+1~, SELPT+2, FIND+1, FIND+4, ARRAY+2, BLD+3, BLD+11, BLD+12, BLD+13 , BLD+14, BLD+15, LIST+1~, ONE+1~, ONE+5, ONE+7, APDT+1, APDT+4, APDT+5, APDT+6 , APDT+7, APDT+8, APDT+9, HDR+1~, HDR+2, HDR+3*, HDR+6
DA	%~, OTHFRM+13*!, SELCL+2~, SELCL+6!, SELAP+2~, END!
DEL	%~
DFN	%~, OVER+5, OVER+6, OTHFRM+12, BLD+10, BLD+12, BLD+13, BLD+14, BLD+15, ONE+3* , ONE+4, ONE+7
DIC	%~, ANYWAY+23*!, OTHFRM+13!, SELCL+2~, SELCL+6!, SELAP+2~, END!
DIC("S"	ANYWAY+22*
DIC(0	ANYWAY+23*
DIE	OTHFRM+13*!, SELCL+2~, SELAP+2~, END!
DIR	%~, ANYWAY+3~, ANYWAY+9!, SELCL+2~, SELCL+6!, SELAP+2~, SELAP+9!, SELPT+6!, END!
DIR("?"	ANYWAY+4, SELCL+4, SELAP+7, SELPT+3
DIR("??"	SELAP+8, SELPT+4
DIR("A"	ANYWAY+5, SELCL+6, SELAP+6, SELPT+5
DIR("B"	ANYWAY+6, ANYWAY+8
DIR("S"	SELCL+5*
DIR(0	ANYWAY+6, SELCL+6, SELAP+6, SELPT+5
DIRUT	%~, ANYWAY+3~, ANYWAY+11, SELCL+2~, SELCL+8, SELAP+2~, SELAP+11, SELPT+10, END!
DR	OTHFRM+13*!, SELCL+2~, SELCL+6!, SELAP+2~, END!
DT	%+3, APDT+1, APDT+2
DTOUT	%~, ANYWAY+10, SELCL+7, SELAP+10, SELPT+7, END!
DUOUT	%~, ANYWAY+10, SELCL+7, SELAP+10, SELPT+7, END!
FORM	%+1~, LIST+1~, ONE+4, ONE+5, ONE+6, HDR+5
FORMID	OTHFRM+2~, OTHFRM+3, OTHFRM+4, OTHFRM+7, OTHFRM+8, OTHFRM+9, OTHFRM+12
FORMLST	%+1~, OVER+6, OVER+7, OVER+8, OVER+9, OVER+10, ANYWAY+18, ANYWAY+25, ANYWAY+29, ANYWAY+30 , OTHFRM+2~, OTHFRM+12, OTHFRM+13, OTHFRM+15
FRMDATA	%~
I	%~, END!
IBD	%~, %+1~, ANYWAY+29, SELPT+1~, FIND+4, BLD+2~, BLD+3, BLD+4, BLD+5, BLD+6 , BLD+7, BLD+12, BLD+13, BLD+14, BLD+15, LIST+1~, LIST+3, HDR+1~, HDR+3*
IBD(	FIND+1, ARRAY+2*
IBD1	BLD+2~, BLD+5, BLD+6, ONE~, ONE+7, HDR+1~, HDR+3
IBDASK	%+1~
IBDCKOUT	%~
IBDCLIN	SELPT+1*!
IBDCLNME	%+1~
IBDCLNPH	%+1~
IBDCO	%+1~, END!
IBDF	%~, APPT, SELAP~, SELPT+1!, END!
IBDF("APPT"	OVER+5*, OVER+6, OTHFRM+12
IBDF("CLINIC"	STRT+6, APPT+4, OVER+7, ANYWAY+7, OTHFRM+12, SELPT+1, SELPT+11, SELPT+16, FIND+1, ARRAY+2 , BLD+3, LIST+3, APDT+2, HDR+7
IBDF("DFN"	OVER+5, BLD+10
IBDF("FORM"	OVER+10*
IBDF("OPTION"	OVER+2*
IBDFDT	%+1~, APPT*, APPT+1, BLD+3, BLD+4, HDR+4
IBDFMIDI	%+1~
IBDFMIEN	%+1~
IBDFMNME	%+1~, HDR+5*, HDR+6
IBDFMSTE	%+1~
IBDFMSTI	%+1~
IBDOBJ	%~
IBDPI	%+1~, OVER+10!, END!
IBDPID	%+1~
IBDPRE	%+1~
IBDPTDTE	%+1~
IBDPTDTI	%~
IBDPTNM	%~
IBDPTPRI	%+1~
IBDPTSTE	%~
IBDPTSTI	%~
IBDREDIT	%+1~
IBDSC	%+1~, STRT+6*, STRT+7, STRT+8, STRT+9
IBDSEL	%+1~, OVER+10!, END!
IBDX	%+1~, OVER+10*
IBFORM	%+1~, ANYWAY+16, ANYWAY+17, ANYWAY+18, ANYWAY+24, ANYWAY+25, ANYWAY+29, OTHFRM~, OTHFRM+3, OTHFRM+6 , OTHFRM+8, OTHFRM+9, OTHFRM+10, OTHFRM+11
IBJ	LIST+1~, ONE+5*
IBQUIT	%~, STRT+5, STRT+6, STRT+7, APPT, OVER+1, OVER+8, OVER+10, STRTQ+1, ANYWAY+10* , SELCL+1, SELCL+7, SELAP+1, SELAP+10, SELPT+2, SELPT+7, SELPT+10, LIST+1~, LIST+2, LIST+3
IBY	%~
IOF	HDR+1
IOM	HDR+8
J	%~, END!
>> NAME	SELPT+16*
NODE	BLD+2~, BLD+6, BLD+7, BLD+10, LIST+3, ONE~, ONE+2, ONE+3
POP	%~
PXCA	%+1~, SELPT+1!
PXCASTAT	%+1~
PXKNODA	%+1~
PXKNODB	%+1~
RESULT	OVER+3, OVER+4, OVER+5, SELPT+2, SELPT+11, FIND+1, FIND+2, FIND+3, FIND+4, FIND+5 , FIND+6*, END!
RTN	%~
SC	BLD+2~, BLD+3*, BLD+4, BLD+5, BLD+6, BLD+12, BLD+13, BLD+14, BLD+15
SDCLST	%+1~
SEL	%~, SELPT+1!
SNODE	BLD+2~, BLD+7*, BLD+8, BLD+12, BLD+13, BLD+14, BLD+15
STATUS	LIST+1~, ONE+4, ONE+6, ONE+7
TEXT	END!
TEXTU	END!
X	%~, ANYWAY+3~, SELCL+2~, SELAP+2~, BLD+8, BLD+9, LIST+1~, ONE+5, APDT+1, APDT+2 , APDT+3, APDT+4, END!
Y	%~, ANYWAY+3~, ANYWAY+12, ANYWAY+23, ANYWAY+24, SELCL+2~, SELCL+9, SELAP+2~, SELAP+12, SELPT+8 , ONE+6, APDT+1, APDT+3, APDT+4*, APDT+6, APDT+7, APDT+8, APDT+9, END!

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFDE6

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: