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

Package: Automated Information Collection System

Routine: IBDFDE9


Information

IBDFDE9 ;ALB/AAS - AICS Manual Data Entry, Report of inputs by form ; 31-MAY-96

Source Information

Source file <IBDFDE9.m>

Entry Points

Name Comments DBIA/ICR reference
STRT ; -- ask for form id
STRTQ
DQ ; -- entry point to list contents of one form,
; Input IBDFMIEN := pointer to Encounter Form (357)
LISTOB ; -- list items available for input on a form
HDR ; -- print patient header
END
RULES(RULE) ; -- look at zero node, find qualifiers and selection rule

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?4,"** This option is OUT OF ORDER **"
  • Line Location: IBDFDE9+3
Function Call: WRITE
  • Prompt: !!,"Display Form Components for Data Entry",!!
  • Line Location: IBDFDE9+9
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled")
  • Line Location: STRT+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: STRT+10
Function Call: WRITE
  • Prompt: !,"CHECKOUT INTERVIEW",?27,"",?45,"As Required",!
  • Line Location: LISTOB+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTOB+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Form Components Available for Data Entry",?IOM-32,IBDPDT," PAGE: ",IBDPAG
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"COMPONENT",?27,"TYPE",?45,"RULE",?60,"QUALIFIER"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !," Form Name: ",$E($P($G(^IBE(357,+IBDFMIEN,0)),"^"),1,25)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !," Form Status: ",$S(+$P($G(^IBE(357,+IBDFMIEN,0)),"^",5):"Compiled",1:"Uncompiled"),!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: ?45,"Data Entry Not allowed",!,?45,"Marking areas not Bubbles"
  • Line Location: RULES+3
Function Call: WRITE
  • Prompt: ?45,$P("Any Number^Exactly One^At Most One^At Least One","^",(RULE(I)+1))
  • Line Location: RULES+7
Function Call: WRITE
  • Prompt: ?45,"Optional"
  • Line Location: RULES+8
Function Call: WRITE
  • Prompt: ?60,$G(IOINHI),"Required/Missing",$G(IOINORM)
  • Line Location: RULES+12
Info |  Source |  Entry Points |  Interaction Calls