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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBDF9A3

Package: Automated Information Collection System

Routine: IBDF9A3


Information

IBDF9A3 ;ALB/CJM - ENCOUNTER FORM - (create,edit,delete selection list - continued) ;NOV 5,1994

Source Information

Source file <IBDF9A3.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 FILE^DICN  (,IX)^DIK  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Automated Information Collection System 3 IBDF9A  IBDXI21  IBDXI24  

Entry Points

Name Comments DBIA/ICR reference
ADDSC(LIST,SC) ;ADD subcolumn=SC for selections on LIST if not already there, else set to blank
GETSC(ARY,LIST) ;makes a list of subcolumns having text
DIK ; -- KILL SUBCOLUMN GLOBAL
SCLOOP ; -- Looping thru the subc setting up array(type of data)=subcolumn
DELSC(LIST,SC) ;delete subcolumn=SC for selections on LIST
OTHER ;
SCDEL ; -- Deletes the new subcolumn if there is already a column for that
; type of data.
MSG1 ;

External References

Name Field # of Occurrence
FILE^DICN ADDSC+21
^DIK DELSC+5, DIK+2
IX^DIK DELSC+8, ADDSC+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The new subcolum "_IBNEWSC_" contains the samedata as the the new subcolumn.",!,"**New subcolumn deleted**"
  • Line Location: ADDSC+9
Function Call: WRITE
  • Prompt: !!,"*** SUBCOUMN "_IBSC1_" DELETED ***",!,"This data already exists in subcolumn "_IBSCRAY(X)_". Go in and edit its subcolumn number.",!!
  • Line Location: DIK+1
Function Call: WRITE
  • Prompt: !!,"*** PREVENTING LOSS OF DATA - THIS FIELD CAN NOT BE EDITED ***",!,"You will need to add a new subcolumn to update this information",!!
  • Line Location: MSG1+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(357.3 - [#357.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(357.2 - [#357.2] GETSC+2, SCLOOP+2, SCLOOP+3, SCDEL+4*
^IBE(357.3 - [#357.3] DELSC+3, DELSC+4, DELSC+7!, ADDSC+11, ADDSC+14, ADDSC+17*
^IBE(357.6 - [#357.6] OTHER+2

Label References

Name Line Occurrences
DIK SCDEL+7
MSG1 SCDEL+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARY GETSC~
ARY( GETSC+2*
>> D0 SCDEL+4, DIK+2
>> D1 SCDEL+4, DIK+2
DA DELSC+2!, DELSC+5*, DELSC+8*, DELSC+9!, ADDSC+13!*, ADDSC+20!, ADDSC+22!, SCDEL+2~, DIK+2*
DA(1 DELSC+5*, DELSC+8*, ADDSC+21*, DIK+2*
DIC ADDSC+20!, ADDSC+21*, ADDSC+22!
DIC(0 ADDSC+21*
DIK DELSC+2!, DELSC+5*, DELSC+8*, DELSC+9!, ADDSC+13!*, ADDSC+22!, SCDEL+2~, DIK+2*
DINUM ADDSC+20!
DO ADDSC+20!, ADDSC+22!
>> IBDFFLG DIK+3*
>> IBLIST SCLOOP+2, SCLOOP+3
>> IBSC1 SCDEL+4, SCDEL+5, DIK+1
>> IBSC1( SCDEL+4, SCDEL+5
>> IBSC3 SCLOOP+1*, SCLOOP+2*
>> IBSC4 SCLOOP+1*, SCLOOP+2*, SCLOOP+3
>> IBSCRAY( SCLOOP+3*, SCDEL+7, DIK+1
INPUT OTHER+1~
INPUT("CODE" OTHER+3*
INPUT("NARRATIVE" OTHER+3*
LIST GETSC~, GETSC+2, DELSC~, DELSC+3, ADDSC~, ADDSC+11
NODE GETSC+1~, GETSC+2*, OTHER+1~, OTHER+2*, OTHER+3
SC GETSC+1~, GETSC+2*, DELSC~, DELSC+3, DELSC+4, DELSC+7, ADDSC~, ADDSC+14, ADDSC+21
SCIEN DELSC+1~, DELSC+3*, DELSC+4, DELSC+5, DELSC+7, DELSC+8, ADDSC+1~, ADDSC+14*, ADDSC+17
SLCTN DELSC+1~, DELSC+3*, DELSC+4, DELSC+5, DELSC+7, DELSC+8, ADDSC+1~, ADDSC+11*, ADDSC+13, ADDSC+14
, ADDSC+17, ADDSC+21
>> X ADDSC+21*, SCDEL+3, SCDEL+4*, SCDEL+7, DIK+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All