Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"form is in use, data entry compile failed",!
  • Line Location: MDCOMP+15
Info |  Source |  Entry Points |  Interaction Calls