IBDFDVE.m

IBDFDVE ;ALB/AAS - AICS edit printers file ; 24-FEB-96

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

 ;

% ; -- Edit Encounter Form Printers file (357.94)

 ;

 N I,J,X,Y,DA,DIC,DR,DIE,DLAYGO

 W !!,"Add/Edit Encounter Form Printers Terminal Type"

 ;

ASK W !!

 S DLAYGO=357.94,DIC="^IBE(357.94,",DIC(0)="AEQML" D ^DIC G:Y<1 END

 S DA=+Y D EDIT

 G ASK

 Q

 ;

EDIT ; -- edit entry

 S DR="[IBDF EDIT PRINTER]",DIE="^IBE(357.94,"

 D ^DIE

 K DIE,DA,DR

 Q

 ;

END Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBDFDVE   480     printed  Feb 19, 2025@00:18:54                                                                                                                                                                                                      Page 2

IBDFDVE   ;ALB/AAS - AICS edit printers file ; 24-FEB-96

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

 +2       ;

%         ; -- Edit Encounter Form Printers file (357.94)

 +1       ;

 +2        NEW I,J,X,Y,DA,DIC,DR,DIE,DLAYGO

 +3        WRITE !!,"Add/Edit Encounter Form Printers Terminal Type"

 +4       ;

ASK        WRITE !!

 +1        SET DLAYGO=357.94

           SET DIC="^IBE(357.94,"

           SET DIC(0)="AEQML"

           DO ^DIC

           if Y<1

               GOTO END

 +2        SET DA=+Y

           DO EDIT

 +3        GOTO ASK

 +4        QUIT 

 +5       ;

EDIT      ; -- edit entry

 +1        SET DR="[IBDF EDIT PRINTER]"

           SET DIE="^IBE(357.94,"

 +2        DO ^DIE

 +3        KILL DIE,DA,DR

 +4        QUIT 

 +5       ;

END        QUIT