Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBDFU5

Package: Automated Information Collection System

Routine: IBDFU5


Information

IBDFU5 ;ALB/CJM - ENCOUNTER FORM (utilities) ;JAN 16,1993

Source Information

Source file <IBDFU5.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Automated Information Collection System 3 $$PADRIGHT^IBDFU  $$DATANAME^IBDFU1B  PAUSE^IBDFU5  
List Manager 2 FULL^VALM1  RE^VALM4  
VA FileMan 1 ^DIR  

Caller Graph

Caller Graph Total: 51

Package Total Caller Graph
Automated Information Collection System 51 IBDE1  IBDE3  IBDF EDIT DATA FIELD  IBDF EDIT FORM HEADER  IBDF13  IBDF16  IBDF17  IBDF2B  
IBDF2D  IBDF3  IBDF4A  IBDF5  IBDF5A  IBDF5B  IBDF5C  IBDF6A  
IBDF7  IBDF9A  IBDF9A1  IBDF9B  IBDF9B2  IBDF9B3  IBDF9B4  IBDF9C  
IBDF9D  IBDF9E  IBDFC  IBDFC4  IBDFGRP  IBDFQEA  IBDFQSL  IBDFU1B  
IBDFU2C  IBDFU5  IBDFU7  IBDFU8  IBDFUA  IBDXI2  IBDXI21  IBDXI24  
IBDXI25  IBDXI26  IBDXI51  IBDXI52  IBDXI53  ^IBE(357.2  PROTECTED LOCAL VARIABLES  REQUIRED LOCAL VARIABLES  
SUBCOLUMN NUMBER  SUBFIELD  ^IBE(358.2  

Entry Points

Name Comments DBIA/ICR reference
TOPNBOT(BLOCK,TOP,BOT) ;finds the top and bottom of the block - pass TOP and BOT by reference
RUSURE(NAME) ;obtains verification from the user for deletion- returns 1 if answered YES, otherwise NO
PAUSE ;
NOGRPHCS ;sets graphics variables to "_" and "|"
HELP1 ;displays a list of the record's fields from file 357.6, IB PACKAGE INTERFACE file - EXECUTABLE HELP FOR FIELDS IN THE DATA FIELD FILE
HELP2 ;displays a list of the record's fields from file 357.6, IB PACKAGE INTERFACE file - EXECUTABLE HELP FOR FIELDS IN THE SELECTION LIST FILE
HELP3 ;displays a list of the record's fields from file 357.6, IB PACKAGE INTERFACE file - used to display available data to the user before he enters a data field label
HELP4 ;displays a list of the record's fields from file 357.6, IB PACKAGE INTERFACE file - used to display to the user the available data before a subcolumn to a selection list
HELP5 ;for number of columns in list
SHOWDATA ;displays a discription of the the record returned by the package interface
RESET ;resets the scrolling area of the screen to that defined by List Manager
VARIABLE(VAR) ;returns 0 if VAR is not syntactically a good local variable name, 1 otherwise
ID1 ;writes identifier for subcolumn of selection list (file 357.2)
DFLTS() ;returns the default form if found, 0 otherwise
OKPIECE(PI,PIECE) ;returns 1 if the piece=PIECE is selectable for the package interface=PI, 0 otherwise

External References

Name Field # of Occurrence
^DIR RUSURE+5
$$PADRIGHT^IBDFU SHOWDATA+17, ID1+3
$$DATANAME^IBDFU1B ID1+8
PAUSE^IBDFU5 HELP5+5
FULL^VALM1 HELP5+1
RE^VALM4 HELP5+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"Press RETURN to continue..."
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: !,"WHAT DATA SHOULD BE PRINTED IN THE SUBFIELD? CHOOSE FROM:"
  • Line Location: HELP1+6
Function Call: WRITE
  • Prompt: !,"WHAT DATA SHOULD BE PRINTED IN THIS SUBCOLUMN? CHOOSE FROM:"
  • Line Location: HELP2+5
Function Call: WRITE
  • Prompt: !,"You can also enter 0 if you want the item number entered in the subcolumn.",!
  • Line Location: HELP2+9
Function Call: WRITE
  • Prompt: !,"Available Data:"
  • Line Location: HELP3+4
Function Call: WRITE
  • Prompt: !,"Available Data:"
  • Line Location: HELP4+5
Function Call: WRITE
  • Prompt: !!,"A selection list COLUMN contains items on the list. It may consist of several",!,"subcolumns. For example, a typical column may have three subcolumns, one"
  • Line Location: HELP5+2
Function Call: WRITE
  • Prompt: !,"containing a code, the second a description, and the third a marking area for",!,"the user to indicate his selections from the list. Besides going down the",!,"form, the list can can go across the form by having multiple columns."
  • Line Location: HELP5+3
Function Call: WRITE
  • Prompt: !!,"Entering the number of columns is optional. By default the entire block will",!,"be filled with the list.",!
  • Line Location: HELP5+4
Function Call: WRITE
  • Prompt: IOSC,@IOSTBM,IORC
  • Line Location: RESET+1
Function Call: WRITE
  • Prompt: "HEADER=",$$PADRIGHT^IBDFU($P(NODE,U,2),27)_" CONTENT="
  • Line Location: ID1+3
Routine Call
  • DIR
  • Line Location:
    • RUSURE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(357 - [#357] DFLTS+2
^IBE(357.1 - [#357.1] TOPNBOT+2
^IBE(357.2 - [#357.2] HELP2+7, HELP4+7, ID1+5
^IBE(357.5 - [#357.5] HELP1+7, HELP3+6
^IBE(357.6 - [#357.6] SHOWDATA+4, SHOWDATA+13, SHOWDATA+14, OKPIECE+4, OKPIECE+5
^IBE(357.91 - [#357.91] ID1+11

Label References

Name Line Occurrences
SHOWDATA HELP1+8, HELP2+8, HELP3+7, HELP4+8

Naked Globals

Name Field # of Occurrence
^(0 ID1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS PAUSE+1~, PAUSE+2*
BLOCK TOPNBOT~, TOPNBOT+2
BOT TOPNBOT~, TOPNBOT+3*
CANSHOW SHOWDATA+3~, SHOWDATA+7*, SHOWDATA+8
CHAR VARIABLE+1~, VARIABLE+3*, VARIABLE+4, VARIABLE+6*
COL SHOWDATA+3~, SHOWDATA+11*, SHOWDATA+14
>> D0 HELP1+5, HELP1+7, HELP2+6, HELP2+7, HELP3+5, HELP3+6, HELP4+6, HELP4+7, ID1+5
DESCR SHOWDATA+3~, SHOWDATA+12*, SHOWDATA+14, SHOWDATA+15*, SHOWDATA+16*, SHOWDATA+17
DIR RUSURE+4!, RUSURE+5!
DIR("A" RUSURE+4*
DIR("B" RUSURE+4*
DIR(0 RUSURE+4*
>> DIRUT RUSURE+5
DTIME PAUSE+2
FORM DFLTS+1~, DFLTS+2*, DFLTS+3
GOOD VARIABLE+1~, VARIABLE+5*, VARIABLE+6*, VARIABLE+7
I VARIABLE+1~, VARIABLE+6*
>> IBDEVICE("LISTMAN" HELP5+1, HELP5+5
IEN SHOWDATA+3~, SHOWDATA+13*, ID1+1~
>> IOBLC NOGRPHCS+1*
>> IOBRC NOGRPHCS+1*
>> IOHL NOGRPHCS+1*
>> IOTLC NOGRPHCS+1*
>> IOTRC NOGRPHCS+1*
>> IOVL NOGRPHCS+1*
LEN VARIABLE+1~, VARIABLE+2*, VARIABLE+6
LINE SHOWDATA+3~, SHOWDATA+10*, SHOWDATA+11, SHOWDATA+17*
NAME RUSURE~, RUSURE+4
NODE TOPNBOT+1~, TOPNBOT+2*, TOPNBOT+3, SHOWDATA+3~, SHOWDATA+4*, SHOWDATA+7, SHOWDATA+8*, SHOWDATA+13*, SHOWDATA+14, SHOWDATA+15
, ID1+1~, ID1+2*, ID1+3, ID1+4, ID1+6, ID1+9, ID1+10
PI OKPIECE~, OKPIECE+2, OKPIECE+4, OKPIECE+5
PIECE ID1+1~, ID1+6*, ID1+7, ID1+8, OKPIECE~, OKPIECE+2, OKPIECE+4, OKPIECE+5
QUIT OKPIECE+3~*, OKPIECE+4*, OKPIECE+5*, OKPIECE+6
RET RUSURE+2~, RUSURE+3*, RUSURE+5*, RUSURE+6
ROW SHOWDATA+3~, SHOWDATA+10*, SHOWDATA+11
RTN HELP1+4~, HELP1+7*, HELP2+4~, HELP2+7*, HELP3+3~, HELP3+6*, HELP4+4~, HELP4+7*, SHOWDATA+4, SHOWDATA+13
, SHOWDATA+14
SUB SHOWDATA+3~, SHOWDATA+11*, SHOWDATA+13, SHOWDATA+14, SHOWDATA+17
TOP TOPNBOT~, TOPNBOT+3*
TYPE ID1+1~, ID1+5*, ID1+8, ID1+10*, ID1+11
U ID1+3, ID1+4, ID1+6, ID1+9, ID1+10, ID1+11
VAR VARIABLE~, VARIABLE+2, VARIABLE+3, VARIABLE+6
>> Y RUSURE+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All