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 ---[H[J[2J[HIBDFDVE 480 printed Dec 13, 2024@02:52:29 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
