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*

Name	Field # of Occurrence
$T(OUTTRANS+IBD	PIDIM+3
$T(UPDATE+IBD	PIUP+3

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFDE5

Call Graph Total: 9

Caller Graph Total: 2