Routine: IBDFDE7

Information

IBDFDE7 ;ALB/AAS - AICS Manual Data Entry, Entry point for Group Clinics ; 29-APR-96

Source Information

Source file <IBDFDE7.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Automated Information Collection System	6	($$FID,$$FINDID)^IBDF18C (EN,PAUSE)^IBDFDE CHKOUT^IBDFDE0 (DISP,ERR,MAKAPPT)^IBDFDE1 ($$SELCL,ANYWAY,HDR,LIST)^IBDFDE6 SEND^IBDFRPC4
VA Fileman	3	DT^DICRW Y^DIQ ^DIR
Kernel	2	HOME^%ZIS ($$FMADD,$$FMTE)^XLFDT

Caller Graph

Caller Graph Total: 2

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

Entry Points

Name	Comments	DBIA/ICR reference
END
SCRN	; -- input transform logic for selecting an appointment date/time
APDT	; -- list last 30 days appointment dates in clinic
SELAPT(IBDF)	; -- select appointment date/time for a clinic
OVER	;
LIST	; -- print list of patients
EXCLUDQ
STRT	; -- ask for Clinic, appt. date/time ; list patients, allow to deselect ; find all forms for appt., then go through 1 at a time ; then send data for each patient
ALLPTQ
ALLPTS	; -- loop through all patients, merge ibdf=^tmp("ibd-save), ; reset dfn, pass data to ibdfrpc4
STRTQ
SELAPQ
BLD	; -- Find all appointments for a date
EXCLUD	; -- select patient(s) to process
OVERQ
HDR	; -- print Clinic header

External References

Name	Field # of Occurrence
HOME^%ZIS	%+4
DT^DICRW	%+3
Y^DIQ	LIST+5
^DIR	SELAPT+6, EXCLUD+6
$$FID^IBDF18C	ALLPTS+13
$$FINDID^IBDF18C	OVER+21, LIST+4
EN^IBDFDE	OVER+25
PAUSE^IBDFDE	STRTQ
CHKOUT^IBDFDE0	ALLPTS+16
DISP^IBDFDE1	ALLPTS+19
ERR^IBDFDE1	ALLPTS+20
MAKAPPT^IBDFDE1	ALLPTS+21
$$SELCL^IBDFDE6	STRT+7
ANYWAY^IBDFDE6	OVER+22
HDR^IBDFDE6	OVER+10
LIST^IBDFDE6	OVER+10
SEND^IBDFRPC4	ALLPTS+18
$$FMADD^XLFDT	APDT+1
$$FMTE^XLFDT	LIST+6, APDT+5, APDT+6, APDT+7, HDR+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Data Entry of Encounter Forms for Group Clinics",! Line Location: IBDFDE7+8
Function Call: WRITE	Prompt: ! Line Location: STRT+5
Function Call: WRITE	Prompt: ! Line Location: OVER+1
Function Call: WRITE	Prompt: !!,"No valid appointments at that Date/Time!",!! Line Location: OVER+8
Function Call: WRITE	Prompt: !! Line Location: OVER+11
Function Call: WRITE	Prompt: !,"No forms Printed for first Patient" Line Location: OVER+22
Function Call: WRITE	Prompt: !! Line Location: OVER+26
Function Call: WRITE	Prompt: !!,"Form contains patient specific information, Not available for this option!",!! Line Location: ALLPTS+5
Function Call: WRITE	Prompt: $C(7),"?? No appointments that time." Line Location: SCRN+2
Function Call: WRITE	Prompt: !,"You must select a number from the list." Line Location: EXCLUD+10
Function Call: WRITE	Prompt: !!,"No patients left" Line Location: EXCLUD+16
Function Call: WRITE	Prompt: !!,"The following are valid Appointment date/times in the past 60 days:" Line Location: APDT+4
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !," Clinic: ",$E(CLNAME,1,25) Line Location: HDR+2
Function Call: WRITE	Prompt: ?40," Date: ",$$FMTE^XLFDT(IBDFDT) Line Location: HDR+2
Function Call: WRITE	Prompt: !," Basic Form: ",$E(IBDFMNME,1,25) Line Location: HDR+4
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","=") Line Location: HDR+5
Routine Call	%ZIS Line Location: %+4
Routine Call	DIR Line Location: SELAPT+6 EXCLUD+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(357.96	LIST+5
^DPT - [#2]	ALLPTS+14, EXCLUD+13, EXCLUD+14, BLD+6, BLD+12, LIST+6
^IBD(357.09 - [#357.09]	ALLPTS+4, ALLPTS+21
^IBD(357.96 - [#357.96]	ALLPTS+3, LIST+5
^IBE(357 - [#357]	HDR+3
^SC - [#44]	STRT+9, SCRN+2, BLD+4, BLD+5, APDT+2
^SD(409.95 - [#409.95]	STRT+10
^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"	OVER+8, OVER+18, OVER+19, ALLPTS+7, ALLPTS+9, EXCLUD+11, EXCLUD+12, EXCLUD+13!, EXCLUD+16, BLD+1! , BLD+11*, LIST+2, LIST+3, END+1!
^TMP("IBD-PL4"	END+1!
^TMP("IBD-PLB"	END+1!
^TMP("IBD-PLCHK"	END+1!
^TMP("IBD-PLN"	EXCLUD+13!, BLD+1!, BLD+12*, END+1!
^TMP("IBD-SAVED"	ALLPTS+5, ALLPTS+10, ALLPTS+23!, END+1!

Label References

Name	Line Occurrences
$$SELAPT	OVER+3
ALLPTQ	ALLPTS+5
ALLPTS	OVER+27
BLD	OVER+7
END	STRT+5, STRTQ
EXCLUD	OVER+12, EXCLUD+18
EXCLUDQ	EXCLUD+7, EXCLUD+9, EXCLUD+16
OVER	OVERQ
OVERQ	OVER+23
SELAPQ	SELAPT+7
STRT	OVER+4, STRTQ+1
STRTQ	STRT+7, STRT+8, OVER+3, OVER+8, OVER+13, OVER+14

Name	Field # of Occurrence
^(	LIST+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	%~
%H	%~
ADD	%~
ANS	%+1~, SELAPT+1~, SELAPT+2, SELAPT+8, SELAPQ, EXCLUD+8*, EXCLUD+9, EXCLUD+10, EXCLUD+11, EXCLUD+12 , EXCLUD+13
>> APPT	LIST+3*, LIST+4, LIST+6
ASKOTHER	%~
C	%~, LIST+5*
CHOICE	END!
CLNAME	%+1~, STRT+9*, HDR+2
CLSETUP	%+1~, STRT+10*, HDR+3
CNT	%~, BLD+3, BLD+10, BLD+11, APDT+1, APDT+3, APDT+4, APDT+5, APDT+6, APDT+7
DA	%~, SELAPT+1~, END!
DEL	%~
DFN	%~, OVER+20, OVER+21, ALLPTS+11, ALLPTS+13, ALLPTS+14, BLD+9, BLD+11, BLD+12, LIST+3 , LIST+4, LIST+6
DIC	%~, SELAPT+1~, END!
DIE	SELAPT+1~, END!
DIR	%~, SELAPT+1~, SELAPT+6!, EXCLUD+6!, END!
DIR("?"	SELAPT+4, EXCLUD+2
DIR("??"	SELAPT+5, EXCLUD+3
DIR("A"	SELAPT+3, EXCLUD+4, EXCLUD+5*
DIR(0	SELAPT+3, EXCLUD+4
DIRUT	%~, SELAPT+1~, SELAPT+7, END!
DR	SELAPT+1~, END!
DT	%+3, APDT+1, APDT+2
DTOUT	%~, EXCLUD+7, END!
DUOUT	%~, EXCLUD+7, END!
FORM	%+1~, LIST+1~, LIST+4, LIST+5, HDR+3
FORMID	ALLPTS+2~, ALLPTS+3*, ALLPTS+13
FORMLST	%+1~, OVER+21*, OVER+22, OVER+23, OVER+25
FRMDATA	%~
I	%~, END!
IBD	%~, BLD+2~, BLD+3, BLD+4, BLD+5, BLD+6, BLD+11, BLD+12, LIST+1~, LIST+2 , LIST+3, LIST+6
IBD1	BLD+2~, BLD+4*, BLD+5
IBDA	%~, ALLPTS+6, ALLPTS+7, ALLPTS+8, END!
IBDASK	%+1~
IBDCKOUT	%~
IBDCLNME	%+1~
IBDCLNPH	%+1~
IBDCO	%+1~, ALLPTS+15!, ALLPTS+17, END!
IBDF	%~, OVER+3, ALLPTS+10, ALLPTS+17, ALLPTS+18, SELAPT~, END!
IBDF("AO"	ALLPTS+15!
IBDF("APPT"	OVER+5*, OVER+21, ALLPTS+13
IBDF("CLINIC"	STRT+7*, OVER+8, OVER+18, OVER+19, ALLPTS+7, ALLPTS+9, ALLPTS+13, SCRN+1, SCRN+2, EXCLUD+11 , EXCLUD+12, EXCLUD+13, EXCLUD+16, BLD+3, LIST+2, LIST+3, APDT+2
IBDF("DFN"	ALLPTS+11, BLD+9
IBDF("EC"	ALLPTS+15!
IBDF("FORM"	OVER+25, ALLPTS+3, ALLPTS+13
IBDF("IR"	ALLPTS+15!
IBDF("MST"	ALLPTS+15!
IBDF("NOTHING"	OVER+26
IBDF("SAVE"	OVER+24*, OVER+28!
IBDF("SC"	ALLPTS+15!
IBDF("SDOE"	ALLPTS+12*, ALLPTS+16
IBDFDT	%+1~, OVER+3*, OVER+4, OVER+5, BLD+3, HDR+2
IBDFMIDI	%+1~
IBDFMIEN	%+1~
IBDFMNME	%+1~, HDR+3*, HDR+4
IBDFMSTE	%+1~
IBDFMSTI	%+1~
>> IBDFN	OVER+20*
IBDOBJ	%~
IBDPI	%+1~, OVER+27!, END!
IBDPID	%+1~
IBDPRE	%+1~
IBDPTDTE	%+1~
IBDPTDTI	%~
IBDPTNM	%~
IBDPTPRI	%+1~
IBDPTSTE	%~
IBDPTSTI	%~
IBDREDIT	%+1~
IBDSC	%+1~, STRT+7*, STRT+8, STRT+9, STRT+10
IBDSEL	%+1~, OVER+27!, END!
>> IBDSTRT	OVER+18*, OVER+19, ALLPTS+6
IBDX	%+1~, OVER+25*
IBFORM	%+1~
IBJ	LIST+1~
IBQUIT	%~, STRT+6, STRT+7, STRT+8, OVER+2, OVER+3, OVER+13, OVER+14, OVER+26, OVER+27 , STRTQ, ALLPTS+7, EXCLUD+7, EXCLUD+16
IBX	ALLPTS+2~, ALLPTS+8*, ALLPTS+9
IBY	%~
IOF	HDR+1
IOM	HDR+5
J	%~, END!
NODE	OVER+19, OVER+20, ALLPTS+2~, ALLPTS+9, ALLPTS+11, ALLPTS+12, BLD+5*, BLD+6, BLD+9
PARAM	ALLPTS+2~, ALLPTS+4*, ALLPTS+19, ALLPTS+20
POP	%~
PXCA	%+1~
PXCA("ERROR"	ALLPTS+20
PXCA("WARNING"	ALLPTS+20
PXCASTAT	%+1~
PXKNODA	%+1~
PXKNODB	%+1~
RESULT	ALLPTS+18, EXCLUD+1, EXCLUD+5, EXCLUD+12, EXCLUD+13, EXCLUD+14, END!
RTN	%~
SC	BLD+2~, BLD+3*, BLD+4, BLD+5, BLD+11, BLD+12
SDCLST	%+1~
SDFN	END!
SEL	%~
>> SNODE	BLD+6, BLD+7, BLD+11, BLD+12, LIST+3
STATUS	LIST+1~, LIST+4, LIST+5, LIST+6
TEXT	END!
TEXTU	END!
X	%~, SELAPT+1~, SCRN+1!, SCRN+2!, BLD+7, BLD+8, APDT+1, APDT+2*, APDT+3, END!
Y	%~, SELAPT+1~, SELAPT+8, SCRN+2, EXCLUD+8, LIST+5, APDT+1, APDT+3*, APDT+5, APDT+6 , APDT+7, END!

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFDE7

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: