Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls