Routine: IBDFFRFT

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Label References
Local Variables

Package	Total	Call Graph
Automated Information Collection System	5	$$SEND^IBDF18E EW^IBDFBK2 ARYAD^IBDFBKR EXIT1^IBDFFT START^IBDFFT1
Kernel	2	^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT
Registration	2	FULL^VALM1 EN^VALM2
MailMan	1	^XMD
VA Fileman	1	^DIR

Package

Total

Call Graph

Automated Information Collection System

$$SEND^IBDF18E EW^IBDFBK2 ARYAD^IBDFBKR EXIT1^IBDFFT START^IBDFFT1

Kernel

^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT

Registration

FULL^VALM1 EN^VALM2

MailMan

^XMD

VA Fileman

^DIR

Entry Points

Name	Comments	DBIA/ICR reference
EHELP	; -- help for the end date prompt
ASKDT(QUES,DEFLT,PARAM,EARLY,LATEST,HELP,EXHELP)	; -- ask date questions
BCKGRND	; -- entry point for back ground job to process pending pages
MANUAL	; -- entry point for sending pending pages to PCE for a date range ; get date range and do b1
MQ
B1
BULL	; -- add bulletin or something to let people know what was done ; but only if they ask for it during testing.
SEND(IBFID,ERRCNT)	; -- send all page data in forms tracking
FREEFT	; -- called to pass data from FT to PCE regardless of whether all ; pages have been received.
SHELP	; -- help for start date prompt

External References

Name	Field # of Occurrence
^%ZTLOAD	MANUAL+19
^DIR	FREEFT+17, ASKDT+7
$$SEND^IBDF18E	SEND+7
EW^IBDFBK2	SEND+14
ARYAD^IBDFBKR	SEND+3
EXIT1^IBDFFT	FREEFT+20
START^IBDFFT1	FREEFT+20
FULL^VALM1	FREEFT+5
EN^VALM2	FREEFT+4
$$FMADD^XLFDT	BCKGRND+8, BCKGRND+9
$$FMTE^XLFDT	FREEFT+13
^XMD	BULL+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No Form Tracking record associated with entry #",IBD Line Location: FREEFT+7
Function Call: WRITE	Prompt: !,"You must hold the IBD MANAGER key to free Forms Tracking entries" Line Location: FREEFT+8
Function Call: WRITE	Prompt: !,"You may only pass data to PCE if the current status is PENDING PAGES" Line Location: FREEFT+9
Function Call: WRITE	Prompt: !?5,"Page ",$P(IBNODE,"^")," ",$S(+$P(IBNODE,"^",2):"Received",1:"Not Received") Line Location: FREEFT+16
Function Call: WRITE	Prompt: !?4,$E(ERR(I),1,75) Line Location: SEND+18
Function Call: WRITE	Prompt: !?10,$E(ERR(I),76,140) Line Location: SEND+18
Function Call: WRITE	Prompt: !!,"Option to Manually send Encounter Forms in a Pending Pages Status in Forms" Line Location: MANUAL+3
Function Call: WRITE	Prompt: !,"Tracking to PCE by Encounter date range.",!! Line Location: MANUAL+4
Function Call: WRITE	Prompt: !!,"This option must be queued. No Device is Necessary." Line Location: MANUAL+17
Function Call: WRITE	Prompt: !,"A mail message will be sent when the process has completed.",!! Line Location: MANUAL+18
Function Call: WRITE	Prompt: !,"Enter the END date. This is an Encounter Date." Line Location: EHELP+1
Function Call: WRITE	Prompt: !,"This is the last date that forms that are in a Pending Pages Status in Forms" Line Location: EHELP+2
Function Call: WRITE	Prompt: !,"Tracking will be automatically sent to PCE for processing." Line Location: EHELP+3
Function Call: WRITE	Prompt: !,"Enter the START date. This is an Encounter Date." Line Location: SHELP+1
Function Call: WRITE	Prompt: !,"This is the date that you want to start the process that sends forms that" Line Location: SHELP+2
Function Call: WRITE	Prompt: !,"are in a Pending Pages Status in Forms Tracking entries to PCE to start on." Line Location: SHELP+3
Routine Call	DIR Line Location: FREEFT+17 ASKDT+7

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	FREEFT+13, SEND+16
^IBD(357.09 - [#357.09]	BCKGRND+3, MANUAL+7
^IBD(357.96 - [#357.96]	FREEFT+7, FREEFT+16, SEND+3, B1+1, B1+3, B1+4
^SC - [#44]	FREEFT+13
^TMP("FRMIDX"	FREEFT+6
^XUSEC("IBD MANAGER"	FREEFT+8

Name	Line Occurrences
$$ASKDT	MANUAL+9, MANUAL+12
BULL	B1+7
MQ	MANUAL+10, MANUAL+13
SEND	FREEFT+18, B1+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APPT	FREEFT+3~, FREEFT+10*, FREEFT+13
AUPNDAYS	FREEFT+3~
AUPNDOB	FREEFT+3~
AUPNDOD	FREEFT+3~
AUPNPAT	FREEFT+3~
AUPNSEX	FREEFT+3~
>> BUBBLES	SEND+7
CLINIC	FREEFT+3~, FREEFT+10*, FREEFT+13
CNT	FREEFT+3~, B1~, B1+5*, BULL+5
DAYS	BCKGRND+2~, BCKGRND+3, BCKGRND+5, BCKGRND+7, BCKGRND+9, MANUAL+7, MANUAL+9, MANUAL+12, MQ!
DEFLT	ASKDT~, ASKDT+4
DFN	FREEFT+3~, FREEFT+10*, FREEFT+13, SEND+16
DIR	FREEFT+17!, SEND+12~, ASKDT+1~
DIR("?"	ASKDT+6*
DIR("??"	ASKDT+5*
DIR("A"	FREEFT+17, ASKDT+3
DIR("B"	FREEFT+17, ASKDT+4
DIR(0	FREEFT+17, ASKDT+2
DIRUT	FREEFT+5, SEND+12~, ASKDT+1~, ASKDT+8
DT	BCKGRND+8, BCKGRND+9, MANUAL+9, MANUAL+12
DTOUT	ASKDT+1~, ASKDT+9
DUOUT	SEND+12~, ASKDT+1~, ASKDT+9
DUZ	FREEFT+8, BULL+10
>> DYNAMIC	SEND+7
EARLY	ASKDT~, ASKDT+2
END	BCKGRND+2~, BCKGRND+9, B1+1, MANUAL+12, MANUAL+13, MQ!
ERR	SEND+12~, SEND+14
ERR(	SEND+18
ERRCNT	SEND~, SEND+13, BCKGRND+6, B1~, B1+5, BULL+6
EXHELP	ASKDT~, ASKDT+5
FORMTYPE	FREEFT+3~
>> HANDPRNT	SEND+7
HELP	MANUAL+8, MANUAL+9, MANUAL+11, MANUAL+12, MQ!, ASKDT~, ASKDT+6
I	FREEFT+16, SEND+3, SEND+12~, SEND+18*
IBD	FREEFT+3~, FREEFT+5*, FREEFT+6, FREEFT+7, BULL+12!, MQ!
IBD(1	BULL+3*
IBD(2	BULL+4*
IBD(3	BULL+5*
IBD(4	BULL+6*
IBFID	FREEFT+3~, FREEFT+6, FREEFT+7, FREEFT+16, FREEFT+18, SEND~, SEND+3, SEND+7, B1~, B1+2 , B1+3*, B1+4, B1+5
IBNODE	FREEFT+3~, FREEFT+7, FREEFT+9, FREEFT+10, FREEFT+16
IBQUIT	ASKDT+1~, ASKDT+9*
J	SEND+12~
LATEST	ASKDT~, ASKDT+2
LCNT	SEND+12~, SEND+13*, SEND+14
MANUAL	B1+7, B1+8, MANUAL+6*, MQ!
ORVP	FREEFT+3~
PARAM	ASKDT~, ASKDT+2
PXCA	FREEFT+3~, SEND+7, SEND+14
PXCA("ERROR"	SEND+11
PXCA("WARNING"	SEND+11
PXCAVSIT	FREEFT+3~
QUES	ASKDT~, ASKDT+3
RESULT	FREEFT+3~, SEND+7*, SEND+8
SDFN	FREEFT+3~
START	BCKGRND+2~, BCKGRND+7, BCKGRND+8, B1+1, B1+3, MANUAL+9, MANUAL+10, MANUAL+12, MANUAL+13, MQ!
STATUS	B1~, B1+4*, B1+5
>> VALMBCK	FREEFT+21*
>> VALMY	FREEFT+5
>> VALMY(	FREEFT+5
X	BULL+12!, MQ!, ASKDT+1~
XMDUZ	BULL+8*, BULL+12!
XMN	BULL+9*, BULL+12!
XMSUB	BULL+7*, BULL+12!
XMTEXT	BULL+8*, BULL+12!
XMY	BULL+9!, BULL+12!
XMY(	BULL+10*
>> XQORNOD(0	FREEFT+4
Y	FREEFT+3~, FREEFT+17, BULL+12!, MQ!, ASKDT+1~, ASKDT+8, ASKDT+9, ASKDT+10
ZTDESC	MANUAL+15*, MQ!
ZTIO	MANUAL+16*, MQ!
>> ZTQUEUED	SEND+6, SEND+8, SEND+16, SEND+17, B1+8
>> ZTREQ	B1+8*
ZTRTN	MANUAL+14*, MQ!
ZTSAVE	MQ!
ZTSAVE("DAYS"	MANUAL+14*
ZTSAVE("END"	MANUAL+14*
ZTSAVE("MANUAL"	MANUAL+14*
ZTSAVE("START"	MANUAL+14*
ZTSK	MQ!

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFFRFT

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: