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: IBDFDE

Package: Automated Information Collection System

Routine: IBDFDE


Information

IBDFDE ;ALB/AAS - AICS Data Entry, Entry point by form ; 24-FEB-96

Source Information

Source file <IBDFDE.m>

Entry Points

Name Comments DBIA/ICR reference
STRT ; -- ask for form id
STRTQ
EN ; -- entry point to edit one form,
; Input IBDF("FORM") := form number
OVER ; -- start here to re-edit an entry
NEWOVER ; -- start here to re-edit an entry
ENQ
HDR ; -- print patient header
LISTOB ; -- header for input object list
EXPAND(X) ; -- sets standard varibles for form data
FNDSDOE(DFN,APPT) ; -- returns pointer to opt encounter for appt.
PAUSE ; -- go to bottom of screen and pause for return
END
KILLTMP
ERR ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?4,"** This option is OUT OF ORDER **"
  • Line Location: IBDFDE+3
Function Call: WRITE
  • Prompt: !!,"Data Entry of Encounter Forms (by Form)",!!
  • Line Location: IBDFDE+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: STRTQ+2
Function Call: WRITE
  • Prompt: !!,"Form is currently being entered by another user, try again later!"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"Form Tracking Entry has been deleted, Data entry not available"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"Form is not scannable. Data entry not available"
  • Line Location: OVER+6
Function Call: WRITE
  • Prompt: !!,"Form Definition entry not defined for form tracking entry.",!,"Data entry not available."
  • Line Location: OVER+8
Function Call: WRITE
  • Prompt: !!,"Form Definition Entry has been deleted.",!,"Data entry not available."
  • Line Location: OVER+9
Function Call: WRITE
  • Prompt: !!,"Can not determine Encounter Form from Form Tracking entry.",!,"Data entry not available."
  • Line Location: OVER+10
Function Call: WRITE
  • Prompt: !!,"Encounter Form has been deleted. Data entry not available."
  • Line Location: OVER+11
Function Call: WRITE
  • Prompt: !!,"Form "_IBDF("FORM")_" is for an Appointment that has been canceled.",!,"Data entry not available."
  • Line Location: OVER+12
Function Call: WRITE
  • Prompt: !!,"Form "_IBDF("FORM")_" is for an Appointment that has been canceled or no-showed.",!,"Data entry not available."
  • Line Location: OVER+13
Function Call: WRITE
  • Prompt: !!,"No action Taken",!
  • Line Location: OVER+42
Function Call: WRITE
  • Prompt: !,$G(^TMP("IBD-OBJ",$J,IBDFMIEN,0)),!
  • Line Location: OVER+45
Function Call: WRITE
  • Prompt: !!
  • Line Location: ENQ+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: IBDPTNM,?32,IBDPID,?47,$$FMTE^XLFDT($P($G(^DPT(DFN,0)),"^",3))
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: " Form ID: ",$P(^IBD(357.96,IBDF("FORM"),0),"^")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","=")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !," Clinic: ",$E(IBDCLNME,1,25)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?40," Date/Time: ",IBDPTDTE
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !," Form Name: ",$E(IBDFMNME,1,25)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?40,"Form Status: ",$E(IBDFMSTE,1,25)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,"Items available for Input:"
  • Line Location: LISTOB+1
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","=")
  • Line Location: LISTOB+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAUSE+2
Info |  Source |  Entry Points |  Interaction Calls