IBDFC2B ;ALB/CJM - ENCOUNTER FORM - converts a form for scanning ;MAR 3, 1995
Source file <IBDFC2B.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADDOTHER | ;add space to the list to write in other
|
|
| CKVALUES | ;make sure the internal value to be passed matches the value displayed and is an active code
|
|
| CHKVISIT | ;should the selection list use the new Package Interface for Type of Visit?
|
|
| CKACTIVE(X,PI) | ;returns 1 if the X=an active code, 0 otherwise
|
|
| DISPLAY(SLCTN) | ;returns selection display
|
|
| ASKOTH() | ; Function
; -- ask if want to add other hand print field automatically ; Returns 1 if yes, 0 if no, or -1 if uparrow |
|
| ASKOTHQ | ||
| ASKAUTO() | ; Function
; -- ask if want to automatically update codes ; Returns 1 if yes, 0 if no, or -1 if uparrow |
|
| ASKAUTQ |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|