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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: IBDFDE5

Package: Automated Information Collection System

Routine: IBDFDE5


Information

IBDFDE5 ;ALB/AAS - AICS Manual Data Entry, Loader routine for 357.6 ; 19-APR-96

Source Information

Source file <IBDFDE5.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZTLOAD  $$FMADD^XLFDT  $$UP^XLFSTR  BMES^XPDUTL  
Automated Information Collection System 3 ^IBDFDE  FRMLSTI^IBDFRPC  OBJLST^IBDFRPC1  
VA Fileman 2 ^DIE  ^DIK  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Automated Information Collection System 2 IBDFDE2  IBDFDE4  

Entry Points

Name Comments DBIA/ICR reference
MDCLQ
XREF ;
PIDIM ;
COMPLST ; -- procedure, compile form list arrays in ^tmp
; ^tmp("ibd-lText",$j,form,package interface,list,text,cnt,n)=entry number
; ^tmp("ibd-lCode",$j,form,package interface,list," "_code,cnt,n)= entry number
; ^tmp("ibd-lst",$j,form,package inteface,list)=display text^display code^input value^ optional caption^ optional term^selectable?
MDCLIST(FORM,PI,LIST) ; -- Compile one list
MDCQ
UPDATE ;;
CLNTMP ; -- kill tmp globals, on load, forces rebuild with updates
MDCOMP(FORM) ; -- compile form for manual data entry into ^xtmp
; -- ^xtmp("ibd"_form,0) := date ^ date
; ^xtmp("ibd"_form, "ibd-obj", n) := object listing for form
; ^xtmp("ibd"_form, "ibd-lst", pkg interface, list, n) := listing of each list
; ^xtmp("ibd"_form, "ibd-lst", pkg interface, list ,"code", " "_code, n) := code index
; ^xtmp("ibd"_form, "ibd-lst", pkg interface, list "text", text, n) := text index
COMPQ
PIUP ;
18 ; -- Post init for data entry patch
OUTTRANS ;;
DQ ;
14 ;Populate the .14 FIELD IN FILE 357.96

External References

Name Field # of Occurrence
^%ZTLOAD 14+1
^DIE DQ+7
^DIK XREF+3, XREF+7, XREF+11
^IBDFDE %
FRMLSTI^IBDFRPC MDCOMP+18
OBJLST^IBDFRPC1 MDCLIST+5
$$FMADD^XLFDT MDCOMP+17
$$UP^XLFSTR COMPLST+23, COMPLST+24, COMPLST+25, MDCLIST+16, MDCLIST+17, MDCLIST+18
BMES^XPDUTL 14+2, XREF+1, XREF+5, XREF+9, PIDIM+1, PIUP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"form is in use, data entry compile failed",!
  • Line Location: MDCOMP+15
Routine Call
  • DIE
  • Line Location:
    • DQ+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBD(357.96 - [#357.96] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(357.96 XREF+3, XREF+7, XREF+11
^DPT - [#2] DQ+5
^IBD(357.96 - [#357.96] DQ+3, XREF+13!
^IBE(357 - [#357] MDCOMP+13, MDCLIST+2
^IBE(357.2 - [#357.2] MDCLIST+2
^IBE(357.6 - [#357.6] MDCOMP+24, MDCLIST+2, PIDIM+6, PIDIM+8*, PIUP+9, PIUP+11, PIUP+12*, PIUP+13*, PIUP+14*, PIUP+15*
^TMP("IBD-LCODE" COMPLST+10!, COMPLST+29*, COMPLST+30*
^TMP("IBD-LST" COMPLST+17, COMPLST+19*, CLNTMP+1!
^TMP("IBD-LTEXT" COMPLST+10!, COMPLST+23*, COMPLST+24, COMPLST+25*
^TMP("IBD-OBJ" CLNTMP+1!
^XTMP( MDCOMP+15, MDCOMP+16!, MDCOMP+17*, MDCOMP+19*, MDCOMP+23, MDCQ
^XTMP("IBD" MDCLIST+4!, MDCLIST+6*, MDCLIST+10, MDCLIST+12*, MDCLIST+16*, MDCLIST+17, MDCLIST+18*, MDCLIST+22*, MDCLIST+23*

Label References

Name Line Occurrences
14 18+1
CLNTMP 18+1
COMPQ COMPLST+6
MDCLIST MDCOMP+25
MDCLQ MDCLIST+2
MDCQ MDCOMP+13, MDCOMP+15
PIDIM 18+1
PIUP 18+1
XREF 18+1

Naked Globals

Name Field # of Occurrence
^( COMPLST+17, MDCOMP+23, MDCLIST+10, XREF+3, XREF+7, XREF+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CH COMPLST+5~, COMPLST+17*, COMPLST+18, COMPLST+19, COMPLST+22, COMPLST+23, COMPLST+24, COMPLST+25, COMPLST+28, MDCLIST+1~
, MDCLIST+5, MDCLIST+6, MDCLIST+10*, MDCLIST+11, MDCLIST+12, MDCLIST+15, MDCLIST+16, MDCLIST+17, MDCLIST+18, MDCLIST+21
CHOICE COMPLST+13!
CNT COMPLST+5~, COMPLST+24*, COMPLST+25, COMPLST+30*, MDCLIST+17*, MDCLIST+18, MDCLIST+23*
CODE COMPLST+5~, COMPLST+28*, COMPLST+29, COMPLST+30, MDCLIST+1~, MDCLIST+21*, MDCLIST+22, MDCLIST+23
DA DQ+4*, DQ+7!, XREF+2*, XREF+3*, XREF+6*, XREF+7*, XREF+10*, XREF+11*, XREF+12!
DA(1 XREF+3*, XREF+7*, XREF+11*
DA(2 XREF+3*, XREF+7*, XREF+11*
DIE DQ+4*, DQ+7!
DIK XREF+3*!, XREF+7*!, XREF+11*!
DR DQ+5*, DQ+6*, DQ+7!
DT MDCOMP+17
DYN PIUP+2~, PIUP+7*, PIUP+15
ENT PIUP+2~, PIUP+5*, PIUP+13
FORM COMPLST+5~, COMPLST+7*, COMPLST+10, COMPLST+17, COMPLST+19, COMPLST+23, COMPLST+24, COMPLST+25, COMPLST+29, COMPLST+30
, MDCOMP~, MDCOMP+13, MDCOMP+14, MDCOMP+18, MDCOMP+25, MDCLIST~, MDCLIST+2, MDCLIST+4, MDCLIST+6, MDCLIST+10
, MDCLIST+12, MDCLIST+16, MDCLIST+17, MDCLIST+18, MDCLIST+22, MDCLIST+23
>> HDR COMPLST+16*, COMPLST+18*, COMPLST+19, MDCLIST+9*, MDCLIST+11*, MDCLIST+12
I MDCOMP+12~, MDCLIST+1~, MDCLIST+12
IBD PIDIM+2~, PIDIM+3*, PIUP+3*
IBDF MDCLIST+1~, MDCLIST+5
IBDF("IEN" COMPLST+6, COMPLST+7, MDCLIST+3*
IBDF("PI" COMPLST+6, COMPLST+7, MDCLIST+3*
IBDF("TYPE" MDCLIST+3*
IBDFAPPT DQ+1~, DQ+3*, DQ+5
IBDFCLIN DQ+1~
IBDFDFN DQ+1~, DQ+3*
IBDFIFN DQ+1~, DQ+2*, DQ+3*, DQ+4, DQ+5
>> IBDFMIEN COMPLST+6, COMPLST+7
>> IBDFNODE DQ+3*
IBDI COMPLST+5~, COMPLST+17*, COMPLST+19, COMPLST+23, COMPLST+25, COMPLST+29, COMPLST+30, MDCLIST+10*, MDCLIST+16, MDCLIST+18
, MDCLIST+22, MDCLIST+23
IBDOBJ MDCOMP+12~, MDCOMP+18, MDCOMP+19, MDCOMP+20!
>> IBQUIT MDCOMP+15*
IEN COMPLST+5~, COMPLST+7*, COMPLST+10, COMPLST+17, COMPLST+19, COMPLST+23, COMPLST+24, COMPLST+25, COMPLST+29, COMPLST+30
, PIDIM+2~, PIDIM+6*, PIDIM+7, PIDIM+8, PIUP+2~, PIUP+9*, PIUP+10, PIUP+11, PIUP+12, PIUP+13
, PIUP+14, PIUP+15
J MDCOMP+12~, MDCLIST+1~
LINE PIDIM+2~, PIDIM+3*, PIDIM+4, PIDIM+5, PIUP+3*, PIUP+4, PIUP+5, PIUP+6, PIUP+7, PIUP+8
LIST MDCLIST~, MDCLIST+2, MDCLIST+3, MDCLIST+4, MDCLIST+6, MDCLIST+10, MDCLIST+12, MDCLIST+16, MDCLIST+17, MDCLIST+18
, MDCLIST+22, MDCLIST+23
NAM MDCOMP+12~, MDCOMP+14*, MDCOMP+15, MDCOMP+16, MDCOMP+17, MDCOMP+19, MDCOMP+23, MDCQ
NOD14 PIDIM+2~, PIDIM+5*, PIDIM+8
>> NOD18 PIUP+8*, PIUP+12
NODE18 PIUP+2~
PI COMPLST+5~, COMPLST+7*, COMPLST+10, COMPLST+17, COMPLST+19, COMPLST+23, COMPLST+24, COMPLST+25, COMPLST+29, COMPLST+30
, MDCLIST~, MDCLIST+2, MDCLIST+3, MDCLIST+4, MDCLIST+6, MDCLIST+10, MDCLIST+12, MDCLIST+16, MDCLIST+17, MDCLIST+18
, MDCLIST+22, MDCLIST+23
PKG PIDIM+2~, PIDIM+4*, PIDIM+6, PIDIM+8, PIUP+2~, PIUP+4*, PIUP+9, PIUP+11
RTN PIUP+2~, PIUP+6*, PIUP+14
X MDCOMP+12~, MDCOMP+23*, MDCLIST+1~
Y MDCOMP+12~, MDCOMP+23*, MDCOMP+24, MDCOMP+25, MDCLIST+1~
>> ZTDESC 14+1*
>> ZTDTH 14+1*
>> ZTIO 14+1*
>> ZTRTN 14+1*

Marked Items

Name Field # of Occurrence
$T(OUTTRANS+IBD PIDIM+3
$T(UPDATE+IBD PIUP+3
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 |  Naked Globals |  Local Variables |  Marked Items |  All