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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBDF9B1

Package: Automated Information Collection System

Routine: IBDF9B1


Information

IBDF9B1 ;ALB/CJM - ENCOUNTER FORM - (report data fields) ;APRIL 22,1993

Source Information

Source file <IBDF9B1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Automated Information Collection System 2 $$INRANGE^IBDF10A  $$DATANAME^IBDFU1B  
VA FileMan 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
REPORT ;
RANGE ;asks the user for the range - returns TOP,BOTTOM,LEFT,RIGHT
SEARCH(TOP,BOTTOM,LEFT,RIGHT) ;searches for data fields in IBBLK falling within the rectangle defined by TOP,BOTTOM,LEFT,RIGHT and reports on them
RTNDESCR ;sets RTN=package interface and gets fields needed from the 0 node, sets the flags LIST, & WP
PRINT ;prints @ARY
PAUSE() ;pauses after each field discription is displayed
SETARY ;writes data field description to @ARY

External References

Name Field # of Occurrence
^DIR RANGE+7, RANGE+13, RANGE+18, RANGE+25
$$INRANGE^IBDF10A SEARCH+13, SEARCH+18
$$DATANAME^IBDFU1B SETARY+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E($G(@ARY@(COUNT,IBY,IBX,LINE)),1,IOM)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+5
Routine Call
  • DIR
  • Line Location:
    • RANGE+7
    • RANGE+13
    • RANGE+18
    • RANGE+25

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(357.5 - [#357.5] SEARCH+5, SEARCH+6, SEARCH+10, SEARCH+16, SEARCH+17
^IBE(357.6 - [#357.6] RTNDESCR+3, SETARY+9

Label References

Name Line Occurrences
$$PAUSE PRINT+6
PRINT SEARCH+19
RANGE REPORT+3
RTNDESCR SEARCH+12
SEARCH REPORT+4
SETARY SEARCH+15, SEARCH+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS PAUSE+1~, PAUSE+2*, PAUSE+3
ARY SEARCH+1~, SEARCH+2*, SEARCH+3, SEARCH+20, PRINT+2, PRINT+3, PRINT+4, SETARY+3, SETARY+5, SETARY+6
SETARY+8, SETARY+9
BOTTOM REPORT+1~, REPORT+4, RANGE+14*, RANGE+30*, SEARCH~, SEARCH+13, SEARCH+18
CNT SEARCH+1~, SEARCH+10*, PRINT+1~*, PRINT+4*, PRINT+5*
COUNT SEARCH+1~, SEARCH+4*, PRINT+2*, PRINT+3, PRINT+4, SETARY+2*, SETARY+3, SETARY+5, SETARY+6, SETARY+8
SETARY+9
DATA SETARY+1~, SETARY+7*, SETARY+8
DIR RANGE+3!, RANGE+7!, RANGE+13!, RANGE+18!, RANGE+25!
DIR("?" RANGE+10*, RANGE+22*
DIR("A" RANGE+5*, RANGE+10*, RANGE+16*, RANGE+21*
DIR("B" RANGE+6*, RANGE+11!, RANGE+17*, RANGE+23!
DIR(0 RANGE+6*, RANGE+12*, RANGE+17*, RANGE+24*
>> DIRUT RANGE+7, RANGE+18
DTIME PAUSE+2
>> DTOUT RANGE+13, RANGE+25
>> DUOUT RANGE+13, RANGE+25
FLD SEARCH+1~, SEARCH+5*, SEARCH+6, SEARCH+10, SEARCH+16, SEARCH+17
FLD("MULTIPLE SF" , SEARCH+9*, SEARCH+10*, SEARCH+14*, SETARY+3
FLD("NAME" SEARCH+8*, SETARY+3
FLD("NODE0" SEARCH+6*, SEARCH+7, SEARCH+8, SEARCH+11, SEARCH+13, RTNDESCR+1, SETARY+4, SETARY+5
HT RANGE+1~, RANGE+2*, RANGE+6, RANGE+12
I RANGE+1~
>> IBBLK SEARCH+5, SEARCH+11
>> IBBLK("H" RANGE+2
>> IBBLK("W" RANGE+2
IBX SEARCH+1~, SEARCH+13*, SEARCH+18*, PRINT+3*, PRINT+4, SETARY+3, SETARY+4, SETARY+5, SETARY+6, SETARY+8
SETARY+9
IBY SEARCH+1~, SEARCH+13*, SEARCH+18*, PRINT+2*, PRINT+3, PRINT+4, SETARY+3, SETARY+4, SETARY+5, SETARY+6
SETARY+8, SETARY+9
IOM PRINT+4
LEFT REPORT+1~, REPORT+4, RANGE+19*, RANGE+24, RANGE+29*, SEARCH~, SEARCH+13, SEARCH+18
LINE PRINT+1~, PRINT+4*, SETARY+1~, SETARY+4*, SETARY+5
LIST SEARCH+1~, RTNDESCR+2*, RTNDESCR+4*, SETARY+5
NODE SEARCH+1~, SEARCH+10*
PIECE SETARY+1~, SETARY+7*
QUIT REPORT+1~, REPORT+2*, REPORT+4, RANGE+7*, RANGE+13*, RANGE+18*, RANGE+25*, SEARCH+1~, SEARCH+4*, SEARCH+5
, SEARCH+16, PRINT+1*, PRINT+2, PRINT+3, PRINT+6*
RIGHT REPORT+1~, REPORT+4, RANGE+26*, RANGE+31*, SEARCH~, SEARCH+13, SEARCH+18
RTN SEARCH+1~, RTNDESCR+1*, RTNDESCR+2, RTNDESCR+3, SETARY+7, SETARY+9
RTN("INTERFACE" RTNDESCR+2*, RTNDESCR+6*, SETARY+6
RTN("NODE0" RTNDESCR+2*, RTNDESCR+3*, RTNDESCR+4, RTNDESCR+5, RTNDESCR+6, RTNDESCR+7
RTN("PRINT CO MPLETE" , RTNDESCR+2*, RTNDESCR+7*, SETARY+6
SCRNSIZE REPORT+1~, REPORT+2*, PRINT+5
SUBFLD SEARCH+1~, SEARCH+10*, SEARCH+16*, SEARCH+17
SUBFLD("NODE0" SEARCH+17*, SEARCH+18, SETARY+4, SETARY+7, SETARY+8
TOP REPORT+1~, REPORT+4, RANGE+8*, RANGE+12, RANGE+29*, SEARCH~, SEARCH+13, SEARCH+18
WIDTH RANGE+1~, RANGE+2*, RANGE+17, RANGE+24
WP SEARCH+1~, SEARCH+13, RTNDESCR+2*, RTNDESCR+5*, SETARY+4, SETARY+7, SETARY+9
>> Y RANGE+7, RANGE+8, RANGE+13, RANGE+14, RANGE+18, RANGE+19, RANGE+25, RANGE+26
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All