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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBCEFG6

Package: Integrated Billing

Routine: IBCEFG6


Information

IBCEFG6 ;ALB/TMP - OUTPUT FORMATTER MAINT-FORM FLD ACTION PROCESSING ;23-JAN-96

Source Information

Source file <IBCEFG6.m>

Entry Points

Name Comments DBIA/ICR reference
ADD ; Add a new local form fld
; Assumes IBCEXDA defined
ADD1
ADDQ
EDIT ; Edit a local form fld
EDITL(DA,FLD,NOASK,IBCOPY) ; Edit a local form fld #FLD in display whose ien is DA
; NOASK = 1, don't ask, just do it
; IBCOPY = IFN of entry in file 364.7 whose data element and format code
; should be copied into this new entry
VIEWF(IBDA) ;
CONTENT(IBDA,IBCOPY) ; Add/edit form fld definition content
; IBDA = corresponding entry in file 364.6 for definition being
; added/edited. If null, ask for selections from current screen
; IBCOPY = IFN of entry in file 364.7 whose data element and format code
; should be copied into this new entry
CONTQ
CONTED(IBDA,IBCONT,IBCOPY) ; Edit definition for ien IBDA
; IBDA = file 364.6 entry whose definition is being edited
; IBCONT = flag returned as 1 if a new associated form fld created,
; forcing a regeneration of the display
; IBCOPY = IFN of entry in file 364.7 whose data element and format code
; should be copied into this new entry
ED1
VIEWEL(IBBASE) ; View a data element
; IBBASE = ien of the base file for the element to be viewed
; if undef - any element can be selected
VIEWELQ
NOEDIT(FUNC,FLD) ; Write NO CHANGE msg for associated flds
FNL ; Clean up
SEL(IBDA,ONE) ; Select form fld entries from list

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Can Only Over-ride a NATIONAL form field",!
  • Line Location: ADD+14
Function Call: WRITE
  • Prompt: !!,"Can't Over-ride a form field that is an over-ride itself",!
  • Line Location: ADD+15
Function Call: WRITE
  • Prompt: !!,"Form field definition will not allow override",!
  • Line Location: ADD+16
Function Call: WRITE
  • Prompt: !!,"Over-riding Form Field # ",IB," - ",$P($G(^IBA(364.6,+IBDA(IB),0)),U,10)
  • Line Location: ADD+17
Function Call: WRITE
  • Prompt: !,"IS THIS OK"
  • Line Location: ADD+18
Function Call: WRITE
  • Prompt: !,"COPY OVER THE DATA ELEMENT AND OUTPUT FORMAT FROM THE ORIGINAL FLD"
  • Line Location: ADD+20
Function Call: WRITE
  • Prompt: " is a NATIONAL form field",!
  • Line Location: EDIT+6
Function Call: WRITE
  • Prompt: !!,$S($D(^IBA(364.7,"B",DA)):"EDIT",1:"ADD")," FORM FIELD",$S($G(FLD):" #"_FLD,1:""),"'S CONTENT DEFINITION NOW"
  • Line Location: EDITL+5
Function Call: WRITE
  • Prompt: !!,"...Please define CONTENT of field...",!
  • Line Location: EDITL+6
Function Call: WRITE
  • Prompt: " is a NATIONAL form field",!
  • Line Location: CONTENT+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: VIEWEL+5
Function Call: WRITE
  • Prompt: !,"FORM FIELD #: ",FLD
  • Line Location: NOEDIT+1
Function Call: WRITE
  • Prompt: !,*7,"YOU CANNOT ",FUNC," A NATIONALLY ASSOCIATED LOCAL FORM",!," - REDEFINE THE FIELD'S CONTENT BY USING A LOCAL FORM FIELD TO OVERRIDE"
  • Line Location: NOEDIT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(364.5 - [#364.5] Classic Fileman Calls
^IBA(364.6 - [#364.6] Classic Fileman Calls
^IBA(364.7 - [#364.7] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call