Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBDFFRFT

Package: Automated Information Collection System

Routine: IBDFFRFT


Information

IBDFFRFT ;ALB/CMR - AICS Free Forms Tracking Entry ; 27-MAR-97

Source Information

Source file <IBDFFRFT.m>

Call Graph

Call Graph

Call Graph Total: 11

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  
List Manager 2 FULL^VALM1  EN^VALM2  
MailMan 1 ^XMD  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Automated Information Collection System 3 IBDF FREE PENDING PAGES  IBDF FT RELEASE  IBDFQB  
Integrated Billing 2 IBDF FREE PENDING PAGES  IBDF FT RELEASE  

Entry Points

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

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

Global Variables Directly Accessed

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

Label References

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All