Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: IBDFC4

IBDFC4.m

Go to the documentation of this file.

IBDFC4 ;ALB/CJM - ENCOUNTER FORM - print scanning form definition ;MAR 3, 1995

 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

FORMDEF ;

 W !,"THIS IS NOT YET IMPLEMENTED!"

 D PAUSE^IBDFU5

 S VALMBCK="R"

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDFC4   221     printed  Oct 16, 2024@18:52:50                                                                                                                                                                                                       Page 2

IBDFC4    ;ALB/CJM - ENCOUNTER FORM - print scanning form definition ;MAR 3, 1995

 +1       ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

 +2       ;

FORMDEF   ;

 +1        WRITE !,"THIS IS NOT YET IMPLEMENTED!"

 +2        DO PAUSE^IBDFU5

 +3        SET VALMBCK="R"

 +4        QUIT