IBDFDE5 ;ALB/AAS - AICS Manual Data Entry, Loader routine for 357.6 ; 19-APR-96
Source file <IBDFDE5.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
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? |
|
COMPQ | ||
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 |
|
MDCQ | ||
MDCLIST(FORM,PI,LIST) | ; -- Compile one list
|
|
MDCLQ | ||
18 | ; -- Post init for data entry patch
|
|
14 | ;Populate the .14 FIELD IN FILE 357.96
|
|
DQ | ;
|
|
CLNTMP | ; -- kill tmp globals, on load, forces rebuild with updates
|
|
XREF | ;
|
|
PIDIM | ;
|
|
OUTTRANS | ;;
|
|
PIUP | ;
|
|
UPDATE | ;;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|