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 |
|
