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

Package: Automated Information Collection System

Routine: IBDFDE2


Information

IBDFDE2 ;ALB/AAS - AICS Data Entry, process selection lists ;02/24/96

Source Information

Source file <IBDFDE2.m>

Entry Points

Name Comments DBIA/ICR reference
CHOICE(I) ; -- return ^tmp(ibd-lst,ibdfmien,ibdf(pi),ibdf(ien),i)
LIST(RESULT,IBDF,IBDASK) ; -- Procedure
; -- Manual Data entry routine for Visit Type input
; Input : Result := call by reference, used to output results
; IBDF("IEN") := pointer to selection list (357.2)
; IBDF("PI") := pointer to input package interface
; IBDF("DFN") := pointer to patient (required for dynamic lists only)
; IBDF("CLINIC") := pointer to hospital location (required for dynamic lists only)
OVER ; -- ask or re-ask for selection(s) from list
VSTOVER
VSTQ ; -- kill array for dynamic lists

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Required variables not defined for this list:",!,"Form =",$G(IBDFMIEN),!,"Interface = ",$G(IBDF("PI")),!,"List = ",$G(IBDF("IEN"))
  • Line Location: LIST+25
Function Call: WRITE
  • Prompt: !!,IOINHI,"Using Default Provider : "_IBDPTPRI,IOINORM
  • Line Location: OVER+18
Function Call: WRITE
  • Prompt: " Deleted!"
  • Line Location: OVER+29
Function Call: WRITE
  • Prompt: $E(X,$L(GOTO)+1,$L(X))
  • Line Location: OVER+35
Function Call: WRITE
  • Prompt: " ?? ",$C(7),"Not Found"
  • Line Location: OVER+74
Info |  Source |  Entry Points |  Interaction Calls