IBDFDE2 ;ALB/AAS - AICS Data Entry, process selection lists ;02/24/96
Source file <IBDFDE2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CHOICE(I) | ; -- return ^tmp(ibd-lst,ibdfmien,ibdf(pi),ibdf(ien),i)
|
|
LIST(RESULT,IBDF,IBDASK) | ; -- Procedure
; -- Manual Data entry routine for Visit Type input ; Input : Result := call by reference, used to output results ; IBDF("IEN") := pointer to selection list (357.2) ; IBDF("PI") := pointer to input package interface ; IBDF("DFN") := pointer to patient (required for dynamic lists only) ; IBDF("CLINIC") := pointer to hospital location (required for dynamic lists only) |
|
OVER | ; -- ask or re-ask for selection(s) from list
|
|
VSTOVER | ||
VSTQ | ; -- kill array for dynamic lists
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|